Certificação Pay&Go Passo 26

[Ailton Ferreira]

Olá pessoal,

Estou tendo um problema com o passo 26 para certificação do Pay&Go. É um teste onde tem que imprimir um gerencial com 400 linhas. Faço o teste, ele abre e imprime o gerencial até a última linha (400), exibe a mensagem "Destaque 1ª via" e em seguida ao invés de iniciar a impressão da 2ª, exibe a mensagem "Impressora não responde. Tentar novamente?"

No ACBrLog mostra o seguinte:

-- 22/09 18:24:20:293     RX <- ACK = 6
-- 22/09 18:24:20:324     RX <- [STX][165][NUL][NUL][FS][192][132][FS][FS][14][SOH][FS][ETX]026D
-- 22/09 18:24:20:324 
----------------- ERRO -----------------
Erro retornado pela Impressora: Epson

Erro: 0E01 - Número de linhas em documento excedido.
----------------------------------------

-- 22/09 18:24:20:324 Estado
-- 22/09 18:24:20:324                 TX -> [STX][166][BS][16][FS][NUL][NUL][ETX]00DF
 

Meu ambiente:

Windows, Delphi XE5, ECF Epson TM-T81F (FB3) Ligada à COM1

No meu sistema já setei:

ACBrECF.ReTentar := False;

ACBrECF.TimeOut := 20;

ACBrECF.MaxLinhasBuffer   := 3

 

Desde já agradeço qualquer dica.

[EMBarbosa]

O modelo da impressora Epson que está utilizando permite mais do que 400 linhas?

[Ailton Ferreira]

Olá EMBarbosa, muito obrigado pelo comentário.

Na verdade é isso mesmo. Descobri que a Epson não aceita tantas linhas no gerencial. Fiz o teste num Bematech e passou sem problemas.

Obrigado mais uma vez.

[EMBarbosa]

Obrigado pelo retorno. (:

[Daniel Simoes]

Defina ACBrECF1.MaxLinhasBuffer := 3 (algo diferente de 0, que é o valor Default)

nesse caso, o método: TACBrECF.LinhaRelatorioGerencial, irá detectar o erro de muitas linhas no Gerencial, e já irá tratá-lo (abrindo um novo gerencial)

[Ailton Ferreira]

Olá Daniel, obrigado pelo retorno.

Isso não está acontecendo. Já está definido  ACBrECF1.MaxLinhasBuffer := 3

Está assim no meu código:

ACBrECF.ReTentar := False;

ACBrECF.TimeOut := 20;

ACBrECF.MaxLinhasBuffer   := 3

[Daniel Simoes]

Debug em " TACBrECF.LinhaRelatorioGerencia"

[Juliomar Marchetti]

Boa tarde

o problema está no modelo da ECF

ela limita a 400 linhas de gerencial e ele envia 500 linhas!

fiz o debug e achei esse erro, será necessário entrar em contato com a NTK pra ver o que pode ser feito

[Daniel Simoes]

Mas nos fontes do componente... ele captura o erro, que é causado pelo "estouro" de linhas no Relatório, e automaticamente abre outro Relatório 

 

[Juliomar Marchetti]

Não faz Daniel! ele remete a msg mostrada aqui e tenta começar tudo de novo ! e dai fica em loop

[Ailton Ferreira]

Daniel e Juliomar, muito obrigado pelo "pente fino" que estão fazendo aí por causa desse tópico. Só para posicionar, homologuei o meu sistema utilizando uma bematech e não tive problemas. Como acredito que não terei que imprimir um vinculado com mais de 400 linhas nos meus clientes, estou tranquilo até agora.

Obrigado.

[Daniel Simoes]

Juiomar,

Funciona... eu implementei essa rotina justamente para esse teste (sem sentido) da NTK

Veja o método "Procedure TentaImprimirLinhas( Texto: AnsiString; IndiceBMP: Integer )  ;" em ACBrECF.pas:5190

  Procedure TentaImprimirLinhas( Texto: AnsiString; IndiceBMP: Integer )  ;
  var
     Est : TACBrECFEstado ;
     OldTimeOut : LongInt ;
     Erro : String ;
  begin
     ComandoLOG := 'LinhaRelatorioGerencial( "'+Texto+'", '+IntToStr(IndiceBMP)+' )';

     try
        fsECF.LinhaRelatorioGerencial( Texto, IndiceBMP ) ;
     except
       On E : Exception do
       begin
         Erro := E.Message ;

         // Não conseguiu imprimir ? Verifique se o relatório foi fechado pelo ECF //
         OldTimeOut := TimeOut;
         TimeOut    := max(TimeOut,5);  // Tenta ler o Estado por 5 seg ou mais
         Est        := estDesconhecido;
         try
           Est := Estado;              // Lendo o estado do ECF

           if Est = estLivre then
           begin
             // Está Livre, provavelmente foi fechado por longo tempo de
             // impressao... (O ECF é obrigado a fechar o Gerencial após 2
             // minutos de Impressão). Vamos abrir um Novo Gerencial e Tentar
             // novamente
             AbreRelatorioGerencial(fsIndiceGerencial);
             fsECF.LinhaRelatorioGerencial( Texto, IndiceBMP );
           end ;
         finally
           TimeOut := OldTimeOut;

           if Est <> estLivre then
              raise EACBrECFErro.Create( ACBrStrToAnsi(Erro) );

         end ;
       end ;
     end ;
  end ;

Entretanto, para que esse método seja usado, é necessário que: (ACBrECF1.MaxLinhasBuffer > 0)

[Juliomar Marchetti]

Sim eu vi essa implementação e fiz debugando com a epson tm81f

mas o problema não é o tempo em si mas sim a quantidade de linhas, dai ele vai as 400 e depois dá o erro na tela pede novamente se quer tentar sim ou não, dai ele começa novamente vai até a linha 400 dá o erro e vai novamente! e fica nesse loop

[Daniel Simoes]

Juliomar,

A situação é a mesma... o ECF irá fechar o Vinculado ou Gerencial, quando atingir o limite máximo de linhas... e o erro será tratado no Exception

[Ailton Ferreira]

Daniel, o problema está no seguinte, a rotina trabalha com a hipótese que o ECF fechará o Vinculado ou Gerencial ao agingir o limite de linhas, no entanto não ocorre o fechamento automático, o ECF apenas notifica que o limite foi atingido e o cupom continua aberto. Talvez isso esteja fazendo com que a rotina não funcione.

[Daniel Simoes]

Faz sentido... a rotina procura pelo Estado Livre do ECF... Talvez seja capturar (try/except)o erro específico na classe do Fabricante, e solicitar o fechamento do relatório, se for o caso...
Você tem algum log, onde o problema ocorre ? com o Log eu conseguiria ver o erro específico e efetuar os ajustes nos fontes...

Ahh.. notei que o Log já estava no inicio do tópico... por favor teste com essa Unit em anexo

ACBrECFEpson.pas

[Ailton Ferreira]

Só não vou conseguir testar hoje, pois não estou com o ECF Epson aqui comigo. Vou testar amanhã e posto o resultado. 

Obrigado mais uma vez.

[Ailton Ferreira]

Olá Daniel, me mostraram que a Epson estava aqui sim. Não resisti e efetuei o teste hoje mesmo. BINGO. Teste realizado com sucesso.

O problema está solucionado com a Unit enviada.

Parabéns pelo esforço e muitíssimo obrigado.

Forte abraço.

[Daniel Simoes]

Já no SVN....

Commit [r12525]