Jump to content

dev botao

Sugestão vTroco


Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 1518 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 to comment
Share on other 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

Edited by Agnaldo Prates
  • Like 1

_____________

Prates, Agnaldo

Link to comment
Share on other 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

  • Thanks 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

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

 

Link to comment
Share on other 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.

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

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 1518 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.