Bandeira do Cartão no DANFE NFC-e - Meio de Pagamento

Aurino · 20 Julho, 2018

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;

Editado 20 Julho, 2018 por Aurino

Aurino · 20 Julho, 2018

1 hora atrás, Aurino disse:

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;

Diretorio do arquivo: ..\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFCe\EscPos\ACBrNFeDANFeESCPOS.pas

procedure TACBrNFeDANFeESCPOS.GerarPagamentos;
var
  i: Integer;
  Troco: Real;
  pBandeira : String;

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

     with FpNFe.pag.Items[i] 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;
      end;
    FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) +  ' ' + pBandeira +
       '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag),
       FPosPrinter.ColunasFonteCondensada, '|')));
  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;

Editado 20 Julho, 2018 por Aurino

Fabrício G. Araújo · 20 Julho, 2018

Hum... só uma dúvida... e isso é permitido? Está de acordo com as notas técnicas?

André Ferreira de Moraes · 20 Julho, 2018

Estamos promovendo um amplo refactoring em todos os DANFEs, irei anotar sua sugestão.

Aurino · 20 Julho, 2018

49 minutos atrás, Fabrício G. Araújo disse:

Hum... só uma dúvida... e isso é permitido? Está de acordo com as notas técnicas?

As NT's não informa que deve ser informado as bandeiras dos cartões mas também não diz que é proibido.
Porém, mantem a mesma regra, informar o meio de pagamento clara e segundo as regras NT's e Procons.

Fabrício G. Araújo · 20 Julho, 2018

12 minutos atrás, Aurino disse:

As NT's não informa que deve ser informado as bandeiras dos cartões mas também não diz que é proibido.
Porém, mantem a mesma regra, informar o meio de pagamento clara e segundo as regras NT's e Procons.

Entendo, mas aí vai da interpretação de cada um. Legal disponibilizar esse recurso, pois quem quiser utilizar, está disponível. E também entendo a pressão que temos de nossos clientes para colocar do jeito que eles querem. Por exemplo, já vi DANFE com os dados do TEF acima do Qr-Code, que pelas NT não seria possível, e sim ao final. Mas quem irá fiscalizar né... é meio que uma terra sem lei, cada uma faz o DANFE que deseja mesmo.

Aurino · 20 Julho, 2018

Compreendo mas acredito que essa simples alteração, não causaria penalidades ao detalhar a bandeira do cartão respectiva ao pagamento realizado.
Como na imagem, o cliente saberá claramente qual valor e em qual cartão foi pago os valores da compra.

MSOFT · 20 Julho, 2018

Aurino!

Meus parabéns pela iniciativa muito bom mesmo. Creio que não haja problema algum com relação as Sefaz ver isso como algo errado. Pois, acho que assim fica mais explicito ainda para o cliente.

De qualquer modo seria realmente implementar de uma maneira que ficasse flexível para optar por usar ou não desta forma.

RicardoVoigt · 20 Julho, 2018

13 horas atrás, Aurino disse:

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

Valeu pela iniciativa... como o @André Ferreira de Moraes comentou, espero que seja aproveitado...

Uma dica que notei olhando teu código, não seria necessário testar também se há integração de pagamento? Algo como

if tpIntegra = tiPagIntegrado then
  case tBand of
    ...

Att

Ricardo

Quality Automação · 14 Dezembro, 2018

Acompanhei os ultimos commit's e não identifique a alteração.

Acreditam que vão colocar essa opção no ESCPOS ou é necessario mudar manual mesmo?

Se for preciso posso enviar a classe com as alterações para ser feito o commit.

Daniel Simoes · 15 Dezembro, 2018

Porque não usar o método abaixo, de pcnConversao.pas ?

function BandeiraCartaoToDescStr(const t: TpcnBandeiraCartao): string;

Daniel Simoes · 15 Dezembro, 2018

Estou trabalhando no QRCode Lateral, para o SAT (ACBrSATExtratoESCPOS.pas)

aproveitei e já apliquei um ajuste semelhante ao sugerido nesse Post, na Unit ACBrNFeDANFeESCPOS.pas

carlosinfoteen · 15 Dezembro, 2018

Alguém fez para o fastreport?

Daniel Simoes · 15 Dezembro, 2018

Modificações para ACBrNFeDANFeESCPOS já estão no SVN

Daniel Simoes · 18 Dezembro, 2018

Modificações para ACBrDANFCeFortesFr.pas já estão no SVN

Quality Automação · 19 Dezembro, 2018

Daniel Simoes Obrigado pela velocidade.

Acabei implementando a autorização do cartão.

Consegue adicionar pra gente?

var
  i: Integer;
  Troco: Real;
  DescPagto, DescBandeira,CodigoAutorizacao: String;
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
    with FpNFe.pag.Items[i] do
    begin
      DescPagto := ACBrStr(FormaPagamentoToDescricao(tPag));
      if (tPag in [fpCartaoCredito, fpCartaoDebito]) then
      begin
        DescBandeira := BandeiraCartaoToDescStr(tBand);
        CodigoAutorizacao := 'Aut: '+cAut;
      end
      else
      begin
        DescBandeira := '';
        CodigoAutorizacao := '';
      end;

      FPosPrinter.Buffer.Add('<c>' + PadSpace(
         DescPagto + ' ' + DescBandeira + ' ' + CodigoAutorizacao + '|' +
         FormatFloatBr(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;

Henrique_automatizze · 7 Janeiro, 2019

Boa tarde,

Estou informando pagamento na NFCe e usando ACBrNFeDANFeESCPOS

- <pag>

- <detPag>

- <card>

</card>

</detPag>

</pag>

Nas formas de pagamento com cartões esta saindo sempre a bandeira "Visa" alguém poderia me dar uma sugestão de onde estaria o erro?

Mateus Brunelli · 9 Janeiro, 2019

Boa tarde.

Com relação a incluir o código de autorização na impressão do cupom, não sei se é adequado por isso a princípio não incluí a alteração do @Marcelo Aguiar Alvim sugerida logo acima. Porém eu alterei a impressão para que só imprima a bandeira do cartão junto da forma de pagamento quando o tpIntegra = tiPagIntegrado, pois se não tiver essa validação, sempre imprime a bandeira "Visa" para as formas de pagamento de cartões quando tpIntegra <> tiPagIntegrado.

Peço que analisem os arquivos em anexo para uma possível submissão ao repositório de fontes.

Agradeço desde já.

ACBrNFeDANFeESCPOS.pas

ACBrDANFCeFortesFr.pas

Daniel Simoes · 23 Janeiro, 2019

Obrigado... corrigido no SVN...

Mateus Brunelli · 23 Janeiro, 2019

Obrigado Daniel, testado e funcionando.

José M. S. Junior · 28 Janeiro, 2019

Em 19/12/2018 at 18:30, Marcelo Aguiar Alvim disse:

Acabei implementando a autorização do cartão.

Consegue adicionar pra gente?

Bom dia

Foi adicionado nos componentes de Impressão NFCe (Fortes e ESCPOS) a propriedade: "DescricaoPagamentos" onde pode selecionar o tipo de impressão. Podendo ser a junção de: Tipo, Bandeira e Autorização.

Favor atualizar os fontes e reinstalar os componentes para testes...

carlosinfoteen · 28 Janeiro, 2019

26 minutos atrás, José M. S. Junior disse:

Bom dia

Foi adicionado nos componentes de Impressão NFCe (Fortes e ESCPOS) a propriedade: "DescricaoPagamentos" onde pode selecionar o tipo de impressão. Podendo ser a junção de: Tipo, Bandeira e Autorização.

Favor atualizar os fontes e reinstalar os componentes para testes...

Bom dia.

Este implementação ainda não foi feito para os danf em FastReport não né?

Daniel Simoes · 28 Janeiro, 2019

Não...

Mateus Brunelli · 14 Fevereiro, 2019

Boa tarde @José M. S. Junior ficou ótimo a alteração. Atualizei os fontes, testei e está funcionando corretamente com as novas propriedades criadas.

Obrigado

Quality Automação · 18 Fevereiro, 2019

Em 23/01/2019 at 10:18, Daniel Simoes disse:

Obrigado... corrigido no SVN...

Exelente a implementação, mas sempre tem um porem né...

O colega informou um bug pois estava sempre imprimendo bandeira visa, mas acredito que é pelo fato de quando a venda não for integrada ele não preenche as informações de autorização, no meu caso eu já preencho e precisava que imprimisse. Podemos tratar de outra forma?

Entrar

Sobre nós...

Bandeira do Cartão no DANFE NFC-e - Meio de Pagamento

Recommended Posts

Aurino

Aurino

Fabrício G. Araújo

André Ferreira de Moraes

Aurino

Fabrício G. Araújo

Aurino

MSOFT

RicardoVoigt

Quality Automação

Daniel Simoes

Daniel Simoes

carlosinfoteen

Daniel Simoes

Daniel Simoes

Quality Automação

Henrique_automatizze

Mateus Brunelli

Daniel Simoes

Mateus Brunelli

José M. S. Junior

carlosinfoteen

Daniel Simoes

Mateus Brunelli

Quality Automação

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante