Valor pago em dinheiro e troco no DANFE

[claudiadnh]

Boa tarde.

Gostaria de saber se é possível mostrar o valor pago em dinheiro no DANFE.

Exemplo: Venda 0,50

Valor Pago: 2,00

Troco: 1,50

Eu preciso informar no DANFE esses R$ 2,00 que foi pago em dinheiro, porém no DANFE só aparece o valor total e o troco. Existe uma forma de aparecer essa informação?

 

 

[Juliomar Marchetti]

Boa tarde

está usanda DANFCe com ESC POS ou Fortes Report?

[andrefaria]

Boa tarde;

  Eu tive essa necessedade,, e fiz uma pequena alteração no ACBrDANFEESCPOS.pas nesta procedure :

procedure TACBrNFeDANFeESCPOS.GerarPagamentos;
var
  i: Integer;
  Troco: Real;
begin
  // Total := 0;
  FPosPrinter.Buffer.Add('<c>' + PadSpace('FORMA DE PAGAMENTO | VALOR PAGO R$', FPosPrinter.ColunasFonteCondensada, '|'));

  for i := 0 to FpNFe.pag.Count - 1 do
  begin

    if (FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) = 'Dinheiro') then
    begin
      FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag +
        vTroco), FPosPrinter.ColunasFonteCondensada, '|')));
    end
    else
    begin
      FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag),
        FPosPrinter.ColunasFonteCondensada, '|')));
    end;

  end;

  Troco := IIf(FpNFe.pag.vTroco > 0, FpNFe.pag.vTroco, vTroco);

  if Troco > 0 then
    FPosPrinter.Buffer.Add('<c>' + PadSpace('Troco R$|' + FormatFloatBr(Troco), FPosPrinter.ColunasFonteCondensada, '|'));

end;

 

Segue anexado

ACBrNFeDANFeESCPOS.pas

[Juliomar Marchetti]

Boa noite

tentei aplicar seu código mas parece ter muitas diferenças, pode ser que tenha sido usado um identador de código!

reveja e anexe novamente.