Preencher campos ACBrNFe1.NotasFiscais[0].NFe.pag.Add

[Antonino]

Bom dia, pra informar que a venda é com cartão, eu preciso apenas preencher os campos abaixo?

      ACBrNFe1.NotasFiscais[0].NFe.pag.Add;
      ACBrNFe1.NotasFiscais[0].NFe.pag[0].tPag      := TipoCartao;
      ACBrNFe1.NotasFiscais[0].NFe.pag[0].vPag      := Total;
      ACBrNFe1.NotasFiscais[0].NFe.pag[0].tpIntegra := tiPagIntegrado;
      ACBrNFe1.NotasFiscais[0].NFe.pag[0].tBand     := ????;
      ACBrNFe1.NotasFiscais[0].NFe.pag[0].cAut      := ????;
      ACBrNFe1.NotasFiscais[0].NFe.pag[0].CNPJ      := ????;

Onde eu pego as informações tBand, cAut e CNPJ? Estou utilizando o PayGo.

Obrigado.

[Daniel Simoes]

Não creio que o Pay&Go retorne essas informações...

No Sitef é necessário instalar um módulo especial, para que isso seja retornado...

O mais usual é criar uma nova tabela em seu sistema, e fazer uma referência cruzada, com a informação da Operadora, que é retornada pelo Gerenciador TEF

[Antonino]

1 hora atrás, Daniel Simoes disse:

Não creio que o Pay&Go retorne essas informações...

No Sitef é necessário instalar um módulo especial, para que isso seja retornado...

O mais usual é criar uma nova tabela em seu sistema, e fazer uma referência cruzada, com a informação da Operadora, que é retornada pelo Gerenciador TEF

Daniel, essa informação da operadora eu pego ela no evento DepoisConfirmarTransacoes? O parâmetro RespostasPendentes tem várias opções, é alguma delas?

Obrigado.

[Daniel Simoes]

38 minutos atrás, Antonino disse:

Daniel, essa informação da operadora eu pego ela no evento DepoisConfirmarTransacoes?

Sim.. pode ser um bom momento... Veja o exemplo em TEFDDemo.dpr

procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes(
   RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  I : Integer;
begin
  for I := 0 to RespostasPendentes.Count-1  do
  begin
     with RespostasPendentes[I] do
     begin
        Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) );

        // Lendo os campos mapeados //
        Memo1.Lines.Add( 'Rede: '  + Rede +  // <---- NOME DA REDE
                         ' NSU: '  + NSU  +
                         ' Parcelas: '+ IntToStr(QtdParcelas) +
                         ' Parcelado por: '+ GetEnumName(TypeInfo(TACBrTEFDRespParceladoPor), integer(ParceladoPor) )  +
                         ' É Débito: '+BoolToStr(Debito)+
                         ' É Crédito: '+BoolToStr(Credito)+
                         ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ;

        // Lendo um Campo Específico //
        Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString );
     end;
  end;
end;