MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 3911
    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 8 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6308
    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 : 3911
    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 : 6308
    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 : 3911
    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 : 6308
    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 : 3911
    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 : 6308
    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 : 6308
    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 : 3911
    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 : 6308
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/9/2019, 16:07