Sugestão vTroco

[Agnaldo Prates]

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;

 

[Juliomar Marchetti]

Está sugerindo correção?

se sim anexe o fonte

[Agnaldo Prates]

5 horas atrás, Juliomar Marchetti disse:

Está sugerindo correção?

Sim. Segue anexo.

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

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

[Agnaldo Prates]

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.

Aqui o valor informado foi de R$ 40,00

11200833789021000197650010000014791636324641-NFe.xml 11200833789021000197650010000014781272234024-NFe.xml

Edited August 15, 2020 by Agnaldo Prates

[Juliomar Marchetti]

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

[BigWings]

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.

[Agnaldo Prates]

Solucionado. Só fechar o tópico, eu não consigo fechá-lo mais.

[Juliomar Marchetti]

Obrigado por reportar.

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