Alteração Na Impressao Do Troco No Acbrnfedanfecefortesfr

[j2c9m7]

Bom Dia

 

Senhores

 

Fiz uma alteração para contemplar a questao do troco, na DANFECe do Fortes

 

Segue:

 

procedure TACBrNFeDANFCeFortesFr.rlbTrocoBeforePrint(Sender: TObject;
  var PrintIt: boolean);
var
  Troco : Currency;
begin

  PrintIt := (ACBrNFeDANFCeFortes.vTroco > 0);

  if PrintIt then
    lTroco.Caption := DFeUtil.FormatFloat(ACBrNFeDANFCeFortes.vTroco,'#,###,##0.00');;

end;

 

Se estiver correto, e de acordo, favor subir pro SVN

 

Abraços
 

[AlexMello]

Testado e aprovado!

 

Obrigado, amigo!

Sua alteração ajudou muito!!

 

Se, por gentileza, os moderadores pudessem verificar e considerar a possibilidade do envio ao SVN, ficaríamos gratos!

 

Tenham um ótimo fim de semana!

[Rubens]

Jair mas essa variável será alimentada por algum campo do XML? No caso como uso o monitor não teria como usar certo ?

 

Obrigado

Rubens

[Cleiton Ferreira]

Bom Dia

 

Senhores

 

Fiz uma alteração para contemplar a questao do troco, na DANFECe do Fortes

 

Segue:

 

procedure TACBrNFeDANFCeFortesFr.rlbTrocoBeforePrint(Sender: TObject;

  var PrintIt: boolean);

var

  Troco : Currency;

begin

  PrintIt := (ACBrNFeDANFCeFortes.vTroco > 0);

  if PrintIt then

    lTroco.Caption := DFeUtil.FormatFloat(ACBrNFeDANFCeFortes.vTroco,'#,###,##0.00');;

end;

 

Se estiver correto, e de acordo, favor subir pro SVN

 

Abraços

 

Bacana, o problema é que aqui ficou assim, uma venda de R$ 2,60 e pagando com R$ 5,00.

VALOR TOTAL R$ 2,60

Dinheiro R$ 2,60

Troco R$ 2,40

Ficou meio confuso no meu ponto de vista, em parte resolve em parte não :/

att,