Pesquisar na Comunidade
Showing results for tags 'detalhamentoformapagamento'.
Encontrado 1 registro
-
Bandeira do Cartão no DANFE NFC-e - Meio de Pagamento
um tópico no fórum postou Aurino NFC-e - Nota Fiscal do Consumidor Eletrônica
Pessoal, segue uma contribuição caso seja necessário para a comunidade, a descrição da bandeira do cartão na forma de pagamento cartão crédito ou débito no danfe NFCe Fortes sendo impresso conforme imagem abaixo; Local do Arquivo: ..\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFCe\Fortes\ACBrDANFCeFortesFr.pas Foi implementado a rotina no procedure TACBrNFeDANFCeFortesFr.rlbPagamentoBeforePrint(Sender: TObject; conforme descrito abaixo: procedure TACBrNFeDANFCeFortesFr.rlbPagamentoBeforePrint(Sender: TObject; var PrintIt: boolean); var pBandeira: String; begin with ACBrNFeDANFCeFortes.FpNFe.pag.Items[fNumPagto] do begin if (tPag = fpCartaoCredito) or (tPag = fpCartaoDebito) then begin case tBand of bcVisa: pBandeira := 'Visa' ;//+ ' NSU: ' + cAut; bcMasterCard: pBandeira := 'MasterCard' ;//+ ' NSU: ' + cAut; bcAmericanExpress: pBandeira := 'AmericanExpress' ;//+ ' NSU: ' + cAut; bcSorocred: pBandeira := 'Sorocred' ;//+ ' NSU: ' + cAut; bcDinersClub: pBandeira := 'Diners Club' ;//+ ' NSU: ' + cAut; bcElo: pBandeira := 'Elo' ;//+ ' NSU: ' + cAut; bcHipercard: pBandeira := 'Hipercard' ;//+ ' NSU: ' + cAut; bcAura: pBandeira := 'Aura' ;//+ ' NSU: ' + cAut; bcCabal: pBandeira := 'Cabal' ;//+ ' NSU: ' + cAut; bcOutros: pBandeira := 'Outros' ;//+ ' NSU: ' + cAut; end; end; lMeioPagamento.Caption := ACBrStr(FormaPagamentoToDescricao(tPag)) + ' '+ pBandeira; lPagamento.Caption := FormatFloatBr(vPag); fTotalPagto := fTotalPagto + vPag; end; end;- 24 replies
-
- 2
-
- nfce
- danfe fortes nfce
- (e 5 mais)