Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Sugestão vTroco


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

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

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
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 post
Share on other sites
  • 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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
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 post
Share on other sites

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
  • Este tópico foi criado há 198 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...