Trunk2 Tabela Bandeiras das Operadoras para NFC-e

[claudiomiguelmuller]

Olá amigos,

estou fazendo a integração com a PayGO e nos fontes do trunk2 eu achei o seguinte:

Bandeira := LowerCase(Trim(ATEFResp.NFCeSAT.Bandeira)))

Queria saber onde acho o que tem dentro de ATEFResp.NFCeSAT.Bandeira com a tabela pré formatada de vocês.

Procurei dentro do trunk2 baixado e não achei.

 

Para a credenciadora achei! Fiz isto para a credenciadora e achei o procedimento ATEFResp.NFCeSAT.CNPJCredenciadora e então achei o arquivo RedesPayGo.txt.

 

Não utilizo Delphi/Lazarus só estou replicando estas regras no meu PDV.

 

[Daniel Simoes]

@claudiomiguelmuller, realmente foi uma coleta de dados, que compilamos nesse arquivo...

http://svn.code.sf.net/p/acbr/code/trunk2/Fontes/ACBrTEFD/RedesPayGo.txt

Esse vídeo explica a lógica que usamos

 

[claudiomiguelmuller]

Assisti @Daniel Simoes, mas continuo com dúvida.

 

Achei isto aqui:

  Bandeira := LowerCase(Trim(ATEFResp.NFCeSAT.Bandeira));
  // Pega apenas a Perimeira Palavra
  p := pos(' ',Bandeira);
  if (p > 0) then
    Bandeira := copy(Bandeira,1, p-1);

  if (pos('visa',Bandeira) = 1) then
    APag.tBand := bcVisa
  else if (pos('mastercard',Bandeira) = 1) then
    APag.tBand := bcMasterCard
  else if (pos('american',Bandeira) = 1) or (pos('amex',Bandeira) = 1) then
    APag.tBand := bcAmericanExpress
  else if (pos('sorocred',Bandeira) = 1) then
    APag.tBand := bcSorocred
  else if (pos('diners',Bandeira) = 1) then
    APag.tBand := bcDinersClub
  else if (pos('elo',Bandeira) = 1) then
    APag.tBand := bcElo
  else if (pos('hipercard',Bandeira) = 1) then
    APag.tBand := bcHipercard
  else if (pos('aura',Bandeira) = 1) then
    APag.tBand := bcAura
  else if (pos('cabal',Bandeira) = 1) then
    APag.tBand := bcCabal
  else
    APag.tBand := bcOutros;
end;
 

 

Mas queria achar dentro dos fontes, e não consigo achar, isto:

  Bandeira := LowerCase(Trim(ATEFResp.NFCeSAT.Bandeira));
 

O "ATEFResp.NFCeSAT.Bandeira" pra ver o que tem dentro dele.

 

Por exemplo não achei Banrisul/Vero o que vai lá, na lista de bandeiras tem "VeroCheque" achei estranho.

 

 

[Daniel Simoes]

Veja esse trecho de código, da Unit ACBrTEFPayGoComum.pas

        PWINFO_AUTHSYST:
        begin
          Rede := LinStr;
          if (Trim(Rede) <> '') then
          begin
            ARede := TabelaRedes.FindPGWeb(Rede);
            if Assigned(ARede) then
            begin
              if (NFCeSAT.Bandeira = '') then
                NFCeSAT.Bandeira := ARede.NomePGWeb;

              NFCeSAT.CNPJCredenciadora := ARede.CNPJ;
              NFCeSAT.CodCredenciadora := IntToStrZero(ARede.CodSATCFe, 3);
            end;
          end;
        end;