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

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

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

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 .

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

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

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

Bom dia Teixeira

Preto - Positivo

Vermelho - Negativo

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

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

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

up

up