Boa tarde,
Ao iniciar a classe TACBrNFeFRClass o ACBr seta a variável vTroco = 0. No método CarregaCalculoImposto ele seta o campo vTroco no cdsCalculoImposto usando essa variável dessa forma:
FieldByName('vTroco').AsCurrency := FvTroco;
FieldByName('vTotPago').AsCurrency := FvTroco+FieldByName('VProd').AsFloat;
Para a NFe 4.0, necessitei fazer a alteração para ele pegar o valor do Obejeto de pagamento da Nota Fiscal, ficando dessa forma.
FieldByName('vTroco').AsCurrency := FNFe.pag.vTroco;
FieldByName('vTotPago').AsCurrency := FNFe.pag.vTroco+FieldByName('VProd').AsFloat;
Tentei postar o código para revisão mas aparentemente não tenho permissão, alguém poderia revisar essa alteração?
ACBrNFeDANFEFRDM.pas
Agradeço desde já.