Ir para conteúdo
  • Cadastre-se

dev botao

Sugestão vTroco


Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 1321 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia pessoal.

Sei que há um tópico sobre a questão do troco. No da NFC-e, (não testei na NF-e), o valor recebido não condiz com a realidade, pois, soma o troco com o valor dos produtos, a meu pensar, deveria ser somado ao campo vNF, assim ficaria correto o valor recebido.

Vejamos:

unit ACBrNFeDANFEFRDM.pas

procedure TACBrNFeFRClass.CarregaCalculoImposto;

{ ... }

    if FNFe.pag.vTroco > 0 then
    begin
      FieldByName('vTroco').AsCurrency    := FNFe.pag.vTroco;
      FieldByName('vTotPago').AsCurrency  := FNFe.pag.vTroco+FieldByName('VNF').AsFloat;
//      FieldByName('vTotPago').AsCurrency  := FNFe.pag.vTroco+FieldByName('VProd').AsFloat;
    end
    else if (FDANFEClassOwner is TACBrNFeDANFCEClass) then
    begin
      FieldByName('vTroco').AsCurrency    := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco;
//      FieldByName('vTotPago').AsCurrency  := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco + FieldByName('VProd').AsFloat;
      FieldByName('vTotPago').AsCurrency  := FNFe.pag.vTroco+FieldByName('VNF').AsFloat;
    end;

 

_____________

Prates, Agnaldo

Link para o comentário
Compartilhar em outros sites

14 horas atrás, Juliomar Marchetti disse:

Teria também um xml de NFC-e em homologação com essa situação?

Sim. Segue anexo.

NFCe-correto.png

NFCe-Erro.png

Aqui o valor informado foi de R$ 40,00🖕

11200833789021000197650010000014791636324641-NFe.xml 11200833789021000197650010000014781272234024-NFe.xml

Editado por Agnaldo Prates
  • Curtir 1

_____________

Prates, Agnaldo

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution

Já está no svn.

mas tem uma coisa seu arquivo está bem desatualizado. o erro continuava a existir mas está muito distante seus fontes

sugiro um revert para o svn e depois um update

  • Obrigado 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
Em 14/08/2020 at 10:15, Agnaldo Prates disse:

      FieldByName('vTroco').AsCurrency    := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco;
//      FieldByName('vTotPago').AsCurrency  := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco + FieldByName('VProd').AsFloat;
      FieldByName('vTotPago').AsCurrency  := FNFe.pag.vTroco+FieldByName('VNF').AsFloat;

Tinha um problema na parte do else.

Subi correção, rev. 20452.

  • Curtir 3
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1321 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.