Problema Com O Campo 029-017 No Sodexo

[edsonlucena]

Caros amigos, estou com um baita problema!

Tenho um cliente que usa Pay&Go e na redecard ele tem uma bandeira SODEXO, bem, o acrbtef funciona normalmente, aprova , confirma, tudo certinho. porém tem um campo 029-017 que ele simplismente pula e não imprime quando se vai usar este SODEXO!!! Imprime o 029-016, 029-018 em diante, mas não imprime o 029-017. Alguém sabe dizer o que é isso?

Eis aqui um exemplo de retorno:

 

000-000 = ADM

001-000 = 125035

003-000 = 0

009-000 = 0

010-000 = REDECARD

011-000 = 0

012-000 = 000000

015-000 = 2312125220

016-000 = 2312125220

022-000 = 23122013

023-000 = 125220

027-000 = 131223125220000000

028-000 = 18

029-001 = "              REDECARD"

029-002 = ""

029-003 = "               SODEXO"

029-004 = ""

029-005 = "MARCADINHO PIRAMIDES   "

029-006 = "AV PIRAMIDE 00355      "

029-007 = "OLINDA F:34493878      "

029-008 = "CNPJ: 00534021/0001-97"

029-009 = "                  PV:000000014239361"

029-010 = "***************0000            13:43"

029-011 = "TERM:DK024733  AUTE:000941  23/12/13"

029-012 = "CV:247881804             AUTO:008201"

029-013 = "VENDA VOUCHER"

029-014 = "             REIMPRESSO"

029-015 = "SODEXO/ALIMENTACAO PASS"

029-016 = "TOT.APROVADO                    1,20"

029-017 = "SALDO DISP.                     0,96"

029-018 = "AUTORIZADA MEDIANTE SENHA PESSOAL"

030-000 = OPERACAO REALIZADA COM SUCESSO

710-000 = 4

711-001 = "***************0000            13:43"

711-002 = "CV:247881804    AUTO:008201 23/12/13"

711-003 = "VENDA VOUCHER"

711-004 = "VALOR                           1,20"

712-000 = 16

713-001 = "              REDECARD"

713-002 = ""

713-003 = "               SODEXO"

713-004 = "            VIA CLIENTE"

713-005 = ""

713-006 = "MARCADINHO PIRAMIDES   "

713-007 = "AV PIRAMIDE 00355      "

713-008 = "OLINDA F:34493878      "

713-009 = "CNPJ: 00534021/0001-97"

713-010 = "***************0000            13:43"

713-011 = "CV:247881804    AUTO:008201 23/12/13"

713-012 = "VENDA VOUCHER"

713-013 = "             REIMPRESSO"

713-014 = "SODEXO/ALIMENTACAO PASS"

713-015 = "TOT.APROVADO                    1,20"

713-016 = "SALDO DISP.                     0,96"

714-000 = 18

715-001 = "              REDECARD"

715-002 = ""

715-003 = "               SODEXO"

715-004 = "        VIA ESTABELECIMENTO"

715-005 = ""

715-006 = "MARCADINHO PIRAMIDES   "

715-007 = "AV PIRAMIDE 00355      "

715-008 = "OLINDA F:34493878      "

715-009 = "CNPJ: 00534021/0001-97"

715-010 = "                  PV:000000014239361"

715-011 = "***************0000            13:43"

715-012 = "TERM:DK024733  AUTE:000941  23/12/13"

715-013 = "CV:247881804             AUTO:008201"

715-014 = "VENDA VOUCHER"

715-015 = "             REIMPRESSO"

715-016 = "SODEXO/ALIMENTACAO PASS"

715-017 = "TOT.APROVADO                    1,20"

715-018 = "AUTORIZADA MEDIANTE SENHA PESSOAL"

729-000 = 10

737-000 = 3

999-999 = 0

 

[Daniel Simoes]

Anexe o Log gerado pelo ACBrTEFD...

 

Vale lembrar que não é o TEFD que faz a impressão, ele apenas chama eventos para a sua aplicação fazer a impressão...

[edsonlucena]

Amigão acredito que você está enganado, pois existe uma procedure no ACBrTEFD chamada "ImprimirTransacoesPendentes" , que é a que estou usando, que é justamente a impresssão dos comprovantes dos cartões.

Se alguém tiver alguma dica iria me ajudar muito...

[Juliomar Marchetti]

Amigão acredito que você está enganado, pois existe uma procedure no ACBrTEFD chamada "ImprimirTransacoesPendentes" , que é a que estou usando, que é justamente a impresssão dos comprovantes dos cartões.

Se alguém tiver alguma dica iria me ajudar muito...

Sim você está correto

agora chegou a olhar o que esse método faz?

Segura o Ctrl e clica em cima do método e veja que ele chama os eventos mencionados pelo Daniel!

procedure TACBrTEFD.ImprimirTransacoesPendentes;
var
   I, J, K, NVias, Ordem : Integer;
   GrupoVinc : TACBrTEFDArrayGrupoRespostasPendentes ;
   ImpressaoOk, Gerencial, RemoverMsg, GerencialAberto : Boolean ;
   TempoInicio : Double;
   Est : AnsiChar ;
   MsgAutenticacaoAExibir : String ;
begin
  if RespostasPendentes.Count <= 0 then
     exit ;

  fTefClass.GravaLog( 'ImprimirTransacoesPendentes' ) ;

  Est := EstadoECF;

  if Est <> 'L' then
  begin
     case Est of
       'V', 'P', 'N' : FinalizarCupom( False );  { False não desbloqueia o MouseTeclado }
       'R', 'G'      : ComandarECF( opeFechaGerencial );
       'C'           : ComandarECF( opeFechaVinculado );
     end;

     if EstadoECF <> 'L' then
        raise EACBrTEFDECF.Create( ACBrStr(CACBrTEFD_Erro_ECFNaoLivre) ) ;
  end;

...
...

[Daniel Simoes]

Consegue reproduzir o problema no TEFDDemo ??

[edsonlucena]

Sim consigo reproduzir do TEFDDemo!! Não consigo entender porque ele pula esta linha!

[TOQ SYS]

Boa tarde, também estou com a mesma situação gostaria de uma sugestão como corrigir o TEF do meu cliente no caso e da CAPPTA.

Editado 14 Julho, 2015 por brasil

[Régys Silveira]

Provavelmente existe um caracter especial nesta linha e ao chamar o evento de impressão no componente esse caracter atrapalha a impressão.

Para verificar isso precisamos do arquivo de resposta ou do log como o Daniel já pediu antes.

[Marcio Henrique]

Estou com o mesmo problema no comprovante do sodexo no tef da cappta, o pessoal me passou um arquivo de resposta para que eu fizesse testes aqui, mas nao consigo trocar o conteudo do arquivo durante o processo, ele vai para o buffer muito rapido ,se tento dar um sleep(5000); em ACBRTEFDClass procedure TACBrTEFDArquivo.LeArquivo ,ele nao bufferiza o arquivo. ao tentar ACBRECF.Maxlinasbuffer = 0 so imprime uma via do estabelecimento e qdo coloco ACBRECF.Maxlinasbuffer = 3 imprime duas vias do estabelecimento e a do cliente nao sai em nenhum momento .estou usando o emulador PAYGO do Site da NTK e o repositorio TRUNK2 .vou postar o arquivo de resposta que a cappta me passou do sodexo e o do teste que fiz aqui e o log gerado pelo componente nos testes , se puderem ajudar . Obrigado pela atencao!

 

 

SODEXO CAPPTA IntPos.001

 

 

LOGTEF.TXT

IntPos.001

Editado 16 Julho, 2015 por Marcio Henrique

[Régys Silveira]

Anexe também o log do ACBrECF, nos logs de TEF não tem nada errado, então é algo na impressão.

[Marcio Henrique]

Em anexo segue log do ACBRECF. 

LOGECF.TXT

[Marcio Henrique]

Boa Tarde !

Consegui resolver o problema da seguinte forma:

Na Unit ACBrTEFD tem a procedure TACBRTEFDRespTXT.ConteudoProperty que e onde percorre o arquivo para montar a imagem do comprovante dentro dessa procedure inicializei as variaveis Usar711 = False; Usar713 = True; Usar715 = False; pois o conteudo da via do cliente esta nos campos 713 com isso solucionei o problema de a via do cliente sair apenas com os campos 711 do arquivo consequentemente aparece o saldo na via do cliente que sai com todos os campos 713 impressos agora.

So que existe um problema que é intermitente que e o seguinte: Sempre uso NumVias = 2;

Ora Imprime 2 vias cliente e 1 estabelecimento, ora imprime 1 cliente e 2 estabelecimento e ora imprime 2 clientes e 2 estabelecimento respectivamente; se coloco NumVias = 1; imprime 1 via cliente 

como falei no post acima estou usando Emulador PayGoDEMO atual do site da NTK ,Trunk2 e tbem estou usando a impressora BEMATECH MP4000 TH FI via USB.

por hora vou deixar assim no cliente pois verifiquei que as vias tanto do cliente(completa com o saldo) qto a do estabelecimento sempre sao impressas ,mesmo com a intermitencia constatada.

se alguem tiver mais alguma dica e ou puder simular isso que passei para que possamos descobrir  se realmente existe alguma coisa que  posso estar fazendo errado eu agradeço .

em anexo segue os logs onde as 5 ultimas vendas foram feitas apos a mudança .

Obrigado!

Obs:depois dessa mudança fizemos os testes tbem no emulador da epson e nele imprime corretamente 1via cliente e 1 via estabelecimento sempre sem problemas como pode ser constatado ai no log do emulador que segue em anexo.

 

LOGECF.TXT

LOGTEF.TXT

LOGEPSON.txt

Editado 17 Julho, 2015 por Marcio Henrique

[Marcio Henrique]

Boa Tarde !

Consegui resolver o problema da seguinte forma:

Na Unit ACBrTEFD tem a procedure TACBRTEFDRespTXT.ConteudoProperty que e onde percorre o arquivo para montar a imagem do comprovante dentro dessa procedure inicializei as variaveis Usar711 = False; Usar713 = True; Usar715 = False; o conteudo da via do cliente esta nos campos 713 com isso soluciona o problema de a via do cliente sair apenas com os campos 711 do arquivo ,consequentemente aparece o saldo na via do cliente que sai com todos os campos 713 impressos agora.

Pessoal executando o sistema por fora do delphi funciona tudo normal e imprime as vias corretamente com as mudanças que fiz acima, testado em uma  BEMATECH MP4000 TH FI via USB e tbem com um Emulador da EPSON

Editado 17 Julho, 2015 por Marcio Henrique