Ir para conteúdo
  • Cadastre-se

dev botao

Nome da Rede no comprovante TEF


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1732 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

Gostaria que no comprovante TEF fosse impresso o nome da REDE - Visa NET, REDECARD etc.

Até consegui quando para um pagamento porem para multiplos cartões imprime sempre a mesma do ultimo cartão.

Outro detalhe quando é multiplos cartões está imprimindo 8 vias, 

Primeiro pagamento  imprime 2 vias  Cliente e duas vias estabelecimento

Segundo Pagamento Imprime duas vias Cliente e duas vias estabelecimento.

Já setei numero de vias pra 1 mas continua.

Já se o pagamento for em um cartão imprime uma via de cada.

O nome da rede está na linha abaixo

000-000 = CRT
001-000 = 7620
002-000 = 1176
003-000 = 11021
004-000 = 0
009-000 = 0
010-000 = REDECARD ou VISA NET

Porem quando executo txtMemo1.Lines.Add(Trim(ImagemComprovante.Text));

so pega  o conteudo abaixo

029-001 = "      *** DEMONSTRACAO  PAY&GO ***"
029-002 = "           COMPROVANTE DE TEF"
029-003 = "    "
029-004 = "        ESTABELECIMENTO DE TESTE"
029-005 = "    823982346832235/03876463"
029-006 = "    "
029-007 = "    27/02/2020              02:07:45"
029-008 = "    REF.FISCAL:1176"
029-009 = "    DOC:010909        AUTORIZ:029150"
029-010 = "    REF.HOST:02074528254"
029-011 = "    "
029-012 = "    DEMOCARD        ************3333"
029-013 = "    VENDA DEBITO A VISTA"
029-014 = "    VALOR FINAL: R$ 110,21"

 

713-001 = "      *** DEMONSTRACAO  PAY&GO ***"
713-002 = "           COMPROVANTE DE TEF"
713-003 = "              VIA: CLIENTE"
713-004 = "    "
713-005 = "        ESTABELECIMENTO DE TESTE"
713-006 = "    823982346832235/03876463"
713-007 = "    "
713-008 = "    27/02/2020              02:07:45"
713-009 = "    REF.FISCAL:1176"
713-010 = "    DOC:010909        AUTORIZ:029150"
713-011 = "    REF.HOST:02074528254"
713-012 = "    "
713-013 = "    DEMOCARD        ************3333"
713-014 = "    VENDA DEBITO A VISTA"
713-015 = "    VALOR FINAL: R$ 110,21"

 

  • Membros Pro
Postado

É que estou na seguinte situação.

O cliente emite a NFC-e  em modo contingencia o dia todo, fazendo vendas com cartão, no envio na parte da tarde por algum motivo que alis está muito constante,  volta zerado o Stat do envio de alguma nota e ela vai pra pendencia,

os cabeção de esperar alguns minutos e consultar a nota e fazer a validação pois em 99% dos casos a nota foi recebida pela SEFAZ eles simplesmente exclui a nota e emitem outra, ai se eu tivesse os dados do TEF no comprovante poderia criar uma tela pra ele digitar. autorização,bandeira, e o Host.

estava usando a mesma numeração ai dava rejeição por duplicidade. agora emito com outra numeração.

O mais escroto é que no primeiro envio volta vazio ou erro não catalogado ai não tem como impedir que o cliente exclua a NFC-e pendente.

Estou quebrando a cabeça pra resolver este problema do retorno vazio, o mais viável que achei até agora foi redigitar o dados do cartão.

  • Fundadores
Postado

No ACBrTEFD, você consegue ler vários valores retornados pelo Gerenciador TEF, nas propriedades do componente..

Veja esse trecho do Demo

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 +
                         ' NSU: '  + NSU  +
                         ' Parcelas: '+ IntToStr(QtdParcelas) +
                         ' Parcelado por: '+ GetEnumName(TypeInfo(TACBrTEFRespParceladoPor), 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;

 

  • Curtir 2
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

  • Consultores
  • Solution
Postado
1 hora atrás, Arnaldo Cruz disse:

O cliente emite a NFC-e  em modo contingencia o dia todo, fazendo vendas com cartão, no envio na parte da tarde por algum motivo que alis está muito constante,  volta zerado o Stat do envio de alguma nota e ela vai pra pendencia,

os cabeção de esperar alguns minutos e consultar a nota e fazer a validação pois em 99% dos casos a nota foi recebida pela SEFAZ eles simplesmente exclui a nota e emitem outra,

Você pode automatizar essa consulta no seu aplicativo. Pense nisso. Faça a consulta da nota automaticamente e resolverá 80 % dos seus problemas.

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 1732 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.