Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Antonino

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

  • Este tópico foi criado há 497 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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

  • Like 3

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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; 

 

  • Like 2

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Share this post


Link to post
Share on other sites

×
×
  • Create New...