Troco Fast Report

[Vannuty Cabral]

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á.

Editado 12 Setembro, 2017 por Vannuty Cabral

[hleorj]

Fez alguma crítica para diferenciar as versões ? ( 3.10 ou 4)

[Vannuty Cabral]

Não, pois acho que nesse caso não é necessário, fiz uns testes e ACBr não considera o troco caso seja 3.10.

Só tive que fazer um ajuste na minha aplicação para caso for 3.10 ele ir apenas o valor do somatório no pagamento e na 4 para ir o valor total pago junto com o troco. 

[hleorj]

@Vannuty Cabral, legal q efetuou os testes de versões no seu ambiente de testes.

Problema : Minha aplicação utiliza a propriedade vtroco. E fiz atualização do código .

Vou ter quer atualizar a minha aplicação correndo ?

 

[hleorj]

Concluído , teríamos um tratamento de versões , neste caso

 

Grato pelos comentários.

[RicardoVoigt]

17 minutos atrás, hleorj disse:

Problema : Minha aplicação utiliza a propriedade vtroco. E fiz atualização do código .

Bom dia,

eu teria feito assim:

if FNFe.pag.vTroco > 0 then
begin
// tem troco vindo do XML versão 4.00
  FieldByName('vTroco').AsCurrency        := FNFe.pag.vTroco;
  FieldByName('vTotPago').AsCurrency  := FNFe.pag.vTroco+FieldByName('VProd').AsFloat;
end
else
begin
// pega troco do componente de impressão mesmo...
  FieldByName('vTroco').AsCurrency        := FvTroco;
  FieldByName('vTotPago').AsCurrency  := FvTroco+FieldByName('VProd').AsFloat;
end;

Att

Ricardo

 

[hleorj]

Obrigado @RicardoVoigt, por exemplificar  o meu pensamento.

@Vannuty Cabral,Posso enviar a solução do @RicardoVoigtpara SVN ?

[hleorj]

No SVN At revision: 13864

Favor efetuar os devidos testes.

Grato a todos

[Vannuty Cabral]

@hleorj vou atualizar o código e realizar os testes.

Grato pela atenção.

 

Editado 13 Setembro, 2017 por Vannuty Cabral

[Vannuty Cabral]

Boa tarde 

testes realizados com sucesso em ambas as versões da NFe.

Agradeço mais uma vez a todos.