Rotina de impressão da segunda via com problema para TEF Elgin

[Gabriel Rogelin]

Bom dia!

A impressão da segunda via neste comprovante  Comprovante Venda ELGIN.txtTEF está tendo problema.

A primeira via carrega normal até a linha 28, após isso, incrementa mais um, buscando a informação da linha 29, que é o início da segunda via, mas a próxima linha é em branco, e por esse motivo não pega mais nenhuma linha. Sendo assim, a impressão da segunda via sai apenas com a primeira linha. Não poderia sair da rotina se a linha for em branco, isso para esse comprovante, então não sei qual a melhor prática para ajustar isso, pois acredito que para os demais TEFs que foram testados a segunda linha da segunda VIA sempre teria alguma informação. Anexei as imagens e comprovante para melhor entendimento.

[Daniel Simoes]

Por favor configure o componente para gravar o Log em modo Debug e adicione o Log aqui no tópico

Se puder anexar o Log da Imagen...já ajuda

[Gabriel Rogelin]

Seria isso que precisa?

logTef.txt ACBr_TEF_Disc_001.tef

Editado 19 Abril, 2023 por Gabriel Rogelin

[Juliomar Marchetti]

5 horas atrás, Gabriel Rogelin disse:

Bom dia!

A impressão da segunda via neste comprovante  Comprovante Venda ELGIN.txtTEF está tendo problema.

A primeira via carrega normal até a linha 28, após isso, incrementa mais um, buscando a informação da linha 29, que é o início da segunda via, mas a próxima linha é em branco, e por esse motivo não pega mais nenhuma linha. Sendo assim, a impressão da segunda via sai apenas com a primeira linha. Não poderia sair da rotina se a linha for em branco, isso para esse comprovante, então não sei qual a melhor prática para ajustar isso, pois acredito que para os demais TEFs que foram testados a segunda linha da segunda VIA sempre teria alguma informação. Anexei as imagens e comprovante para melhor entendimento.

Olha só no 028-000 diz o total e no 028-001 diz o tamanho da primeira via e dali pra frente até o que veio na primeira é a segunda via.

onde do 029-001 conta 28 é a primeira via e 29 até 56 é a segunda via.

 

[Gabriel Rogelin]

Boa tarde Juliomar.

Esse funcionamento eu entendi. O fato é justamente que o componente não faz a leitura da 29 até a 56, pois a 30 está em branco. Se olhar a marcação no fonte que eu fiz vai entender. A leitura da segunda via começa na 29, mas a próxima linha(30) está em branco, então já sai do loop, mantendo apenas a primeira linha da segunda via. 

     LinhaComprovante := Trim(LeInformacao(29 , I).AsString);
     while (LinhaComprovante <> '' ) do
     begin
       fpImagemComprovante2aVia.Add( AjustaLinhaImagemComprovante(LinhaComprovante) );
       Inc(I);
       LinhaComprovante := Trim(LeInformacao(29 , I).AsString);
     end;

Só adiciona se têm informação em todas as linhas da segunda via, e como pode ver no comporvante não têm informação na linha 30. 

Editado 19 Abril, 2023 por Gabriel Rogelin

[Juliomar Marchetti]

47 minutos atrás, Gabriel Rogelin disse:

Boa tarde Juliomar.

Esse funcionamento eu entendi. O fato é justamente que o componente não faz a leitura da 29 até a 56, pois a 30 está em branco. Se olhar a marcação no fonte que eu fiz vai entender. A leitura da segunda via começa na 29, mas a próxima linha(30) está em branco, então já sai do loop, mantendo apenas a primeira linha da segunda via. 

     LinhaComprovante := Trim(LeInformacao(29 , I).AsString);
     while (LinhaComprovante <> '' ) do
     begin
       fpImagemComprovante2aVia.Add( AjustaLinhaImagemComprovante(LinhaComprovante) );
       Inc(I);
       LinhaComprovante := Trim(LeInformacao(29 , I).AsString);
     end;

Só adiciona se têm informação em todas as linhas da segunda via, e como pode ver no comporvante não têm informação na linha 30. 

Vou ver se faço um código e posto aqui pra ti testar. só que não lembro se isso é padrão.

[Daniel Simoes]

8 minutos atrás, Juliomar Marchetti disse:

Vou ver se faço um código e posto aqui pra ti testar. só que não lembro se isso é padrão.

Isso era um padrão muito antigo... nos primórdios do TEF discado.. quando não havia o conceito de vias diferenciadas...

Hoje em dia, tem campos específicos para a Segunda via, mas parece que o TEF da Elgin não está usando...

[Gabriel Rogelin]

Sim, acredito ser algo mais antigo esta parte do fonte, justamente por esse motivo chamei vocês que conhecem mais do assunto de TEF. Estamos iniciando também a homologação com o TEF da PayGo para atender de melhor forma os clientes. 

Vou enviar um vídeo com uma explicação sobre o fonte do componente. Acredito que vai ficar mais fácil a compreensão.

https://drive.google.com/file/d/1G0FmO7zzTeJ8G_9FIVDFpuOmsLf9P8Xq/view?usp=share_link

Agradeço pela atenção

 

[Daniel Simoes]

vou tentar aplicar um ajuste aqui.. já retorno...

[Daniel Simoes]

@Gabriel Rogelin, notei que o código abaixo, que está em ACBrTEFDClass.pas:863 já processaria as linhas restantes, na segunda via...

     while (I <= fpQtdLinhasComprovante) do
     begin
       LinhaComprovante := LeInformacao(29 , I).AsString;
       fpImagemComprovante1aVia.Add( AjustaLinhaImagemComprovante(LinhaComprovante) );
       Inc(I);
     end;

     LinhaComprovante := Trim(LeInformacao(29 , I).AsString);
     while (LinhaComprovante <> '' ) do
     begin
       fpImagemComprovante2aVia.Add( AjustaLinhaImagemComprovante(LinhaComprovante) );
       Inc(I);
       LinhaComprovante := Trim(LeInformacao(29 , I).AsString);
     end;    

 

Mas observe que ele para de ler as próximas linhas, assim que detecta uma Linha em branco...

Teremos que pensar uma outra forma, de detectar se ainda restam linhas para serem lidas...

 

[Daniel Simoes]

Por favor teste substituindo os fontes, com essas Units, em anexo...

ACBrTEFComum.pasACBrTEFDClass.pas

[Gabriel Rogelin]

Bom dia!

Com a alteração funcionou perfeitamente, saindo a via do estabelecimento e do cliente. A rotina ficou ok, tanto para esse TEF que gera a via do cliente e estabelecimento, quanto para outro que testamos aqui que gera apenas uma via e na segunda apenas é copiado as informações da primeira via, então para ambos deu certo. 

Agradeço pela atenção. Ótima semana a todos!

[Daniel Simoes]

Enviado no Commit [r29197]

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.