Falha Ao Emitir Reducaoz

[Paulo Tenório]

Amigos,

 

Desenvolvemos nosso próprio PAF-ECF e aconteceu algo estranho com uma de nossas filiais. No decorrer do dia, aleatoriamente a aplicação perde a comunicação com a ECF. Até aím tudo bem, pode acontecer com portas emuladas através de placas PCI. O pior é que uma das filiais nunca mais conseguiu capturar os dados da ReducaoZ. Coloquei um try except após a primeira tentativa, na esperança de conseguir mas não adiantou. Seguem os logs da ACBR e da Aplicação para quem puder analisar e me ajudar:

 

ACBRLOG:
 22:07:00:015 RX <- :0030B88000C100[CR]4
-- 22:07:02:156 Estado
                TX -> [FS]R[200]056[181]
   22:07:02:296 RX <- :[200]0560[CR][252]
-- 22:07:02:296
                TX -> [GS][ACK][ESC]
   22:07:02:437 RX <- :0030B88000C100[CR]4
-- 22:07:13:843 NumCOOInicial
                TX -> [FS]R[200]027[179]
   22:07:14:000 RX <- :[200]027017843[CR][195]
-- 22:07:14:000 Estado
                TX -> [FS]R[200]056[181]
   22:07:14:140 RX <- :[200]0560[CR][252]
-- 22:07:14:140
                TX -> [GS][ACK][ESC]
   22:07:14:296 RX <- :0030B88000C100[CR]4
-- 22:07:14:296 ReducaoZ( 30/04/2013 22:07:14 )
                TX -> [FS]F[234]300413220714[183]
Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 0 - Estendido: 0 -> Erro não documentado Cod.Aviso: 0
   22:07:29:312 RX <-
----------------- ERRO -----------------
Impressora Daruma não está respondendo
----------------------------------------

-- 22:07:29:328 Estado
                TX -> [FS]R[200]056[181]
Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 0 - Estendido: 0 -> Erro não documentado Cod.Aviso: 0
   22:07:32:453 RX <-
----------------- ERRO -----------------
Impressora Daruma não está respondendo
----------------------------------------

-- 22:07:32:453 Estado
                TX -> [FS]R[200]056[181]
Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 0 - Estendido: 0 -> Erro não documentado Cod.Aviso: 0
   22:07:35:593 RX <-
----------------- ERRO -----------------
Impressora Daruma não está respondendo
----------------------------------------



LOG DA APLICAÇÃO:
30/04/2013 22:07:02 - REDUÇÃO Z: Início do processo
30/04/2013 22:07:02 - REDUÇÃO Z: Não existe redução pendente
30/04/2013 22:07:10 - REDUÇÃO Z: Confirmada a emissão da Redução Z sem estar pendente
Select * From VwPreVendasAbertas Where DateDiff(Day,Data_Pedido, GetDate()) > 0
30/04/2013 22:07:13 - REDUÇÃO Z: Não existem Pré-Vendas para cancelar
30/04/2013 22:07:13 - REDUÇÃO Z: Vai executar a Redução Z atualizando o horário...
30/04/2013 22:07:32 - REDUÇÃO Z: Falha ao executar o comando ACBRECF1.ReducaoZ('30/04/2013 22:07:32'): Impressora Daruma não está respondendo
30/04/2013 22:07:35 - REDUÇÃO Z: Falha ao executar o comandoACBRECF1.ReducaoZ: Impressora Daruma não está respondendo
30/04/2013 22:09:45 - Inicio do BACKUP
 

 

[Daniel Simoes]

Acredito que você esteja com um TimeOut muito pequeno antes de iniciar a ReduçãoZ

 

Ou seja, você está tentando enviar outros comandos enquanto o ECF ainda está processando a Z

 

Aqui eu uso TimeOut de 480 (oito minutos)

 

(lembre-se de voltar o TimeOut após a execução da Z)

[Paulo Tenório]

Ok Daniel, vou tentar a mudança. Posso usar o evento ACBRECF1AntesReducaoZ ou é mais indicado fazer manualmente via código?

[Régys Silveira]

pode usar o evento sem problema, ele vai ocorrer sempre antes, mas te aconselho a fazer um try finally, assim você tem certeza de voltar ao que era:

oldTimeOut := ACBrECF.TimeOut;

ACBrECF.TimeOut := 600;
try
  // faça a redução Z normalmente
finally
  ACBrECF.TimeOut := oldTimeOut; 
end;

[Paulo Tenório]

Obrigado Daniel e Regys. Deu tudo certo na emissão da ReduçãoZ.

Aumentei o timeout e os dados da redução foram capturados com sucesso.

Editado 4 Maio, 2013 por Paulo Tenório