MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Calculos - Base de incidência de valor com IVA

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  Assis em 19/7/2019, 15:33

    Boa tarde Amigos

    No exemplo que anexo explico no formulário a ajuda que necessito

    A partir de um valor digitado, calcular o valor sem iva, e o iva desse valor digitado com base na taxa de iva digitada na respetiva caixa.

    Formulário desvinculado.  

    Obrigado
    Anexos
    [Resolvido]Calculos - Base de incidência de valor com IVA AttachmentAssis_Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 10 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 19/7/2019, 16:01

    Olá Assis,

    Para o valor sem IVA, pode fazer assim:
    Código:
    Private Sub TotalIvaIncluido_AfterUpdate()
        If Me.TaxaIva <> 0 Then Me.ValorSemIva = Round((Me.TotalIvaIncluido / (1 + Me.TaxaIva)), 2)
    End Sub
    Coloquei o IF, pois se o valor for zero, não existe necessidade de calculo.

    Está a faltar o valor do IVA, que será o mais fácil de calcular.

    Abraço


    Última edição por ahteixeira em 20/7/2019, 09:44, editado 1 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  Assis em 19/7/2019, 19:46

    Teixeira

    Ficou assim e funciona, só que esqueci de mencionar uma condição.

    If Me.TaxaIva <> 0 Then
    Me.ValorSemIva = Round((Me.TotalIvaIncluido / (1 + Me.TaxaIva)), 2)
    Me.IVA = Me.TotalIvaIncluido - Me.ValorSemIva
    End if

    Condição:
    Se o campo Tipo Documento for igual a "Nota de Débito" então os valores são Negativos, caso contrário os valores são Positivos.

    Obrigado e desculpe ter esquecido .



    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 19/7/2019, 21:31

    Olá Assis,

    E qual é a dificuldade?
    Com mais um IF resolve a questão, pode multiplicar por -1 quando é Nota de Débito .

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  Assis em 19/7/2019, 23:21

    Boa noite Teixeira

    Ficou assim e funciona.

    Podia ser melhor ?

    Private Sub TotalIvaIncluido_AfterUpdate()

    If Me.TipoDoc = "Nota de Débito" Then
         Me.TotalIvaIncluido = Me.TotalIvaIncluido * -1
    Else
         Me.TotalIvaIncluido = Me.TotalIvaIncluido
    End If

    If Me.TaxaIva <> 0 Then
        Me.ValorSemIva = Round((Me.TotalIvaIncluido / (1 + Me.TaxaIva)), 2)
        Me.IVA = Me.TotalIvaIncluido - Me.ValorSemIva
        Me.Comando19.SetFocus
    End If

    End Sub

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 20/7/2019, 09:49

    Bom dia Assis, sim pode ficar mais simples.

    Mas antes disso pergunto, se colocar o valor negativo, como faz o cálculo?
    Teste, creio que vai dar positivo.

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  Assis em 20/7/2019, 10:35

    Bom dia Teixeira

    Preto - Positivo

    Vermelho - Negativo

    [Resolvido]Calculos - Base de incidência de valor com IVA Anibal10

    [Resolvido]Calculos - Base de incidência de valor com IVA Anibal13


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 20/7/2019, 11:10

    Olá Assis,

    Fico feliz, estou no telemóvel não fiz testes.
    Mas pela minha leitura do código se for o tipo de documento “Nota débito” e se colocar no campo [TotalIvaIncluido] o valor negativo, exemplo -1170 creio que vá dar positivo.

    A imagem que partilhou é “Fatura”, verifique se está mesmo ok.

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 20/7/2019, 11:22

    Olá de novo, eu colocava assim:

    Pode ter erros foi no telemovel:
    Código:


    If Me.TaxaIva <> 0 Then
      If Me.TipoDoc = "Nota de Débito" AND Me.TotalIvaIncluido > 0 Then Me.TotalIvaIncluido = Me.TotalIvaIncluido * -1
        Me.ValorSemIva = Round((Me.TotalIvaIncluido / (1 + Me.TaxaIva)), 2)
        Me.IVA = Me.TotalIvaIncluido - Me.ValorSemIva
        Me.Comando19.SetFocus
    End If

    Por último o que achou da fórmula da mensagem n. 2, simples (como eu gosto).

    Abraço

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  Assis em 20/7/2019, 11:46

    Teixeira
    Também estou no telemóvel.
    Mas a caixa de texto para colocar os valores estão limitadas a só números.
    Mas vou testar a sua dica.
    Obrigado e bom fim de semana


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 28/7/2019, 20:38

    up
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    [Resolvido]Calculos - Base de incidência de valor com IVA Empty Re: [Resolvido]Calculos - Base de incidência de valor com IVA

    Mensagem  ahteixeira em 25/10/2019, 13:07

    up

      Data/hora atual: 23/9/2020, 18:31