Acbr Cheque

[marginel]

Bom dia a todos

Estava com problema na impressao do cheque via acbr. Ele aparecia uma mensagem dizendo:

" ERRo: communications error 9999: frame ....." e travava o cheque na impressora.

depois de analisar um pouco e varios testes, resolvi da seguinte forma:

try

fpDevice.EnviaString( AString + #13 + #10 ); { Adciona CR + LF }

except on e:Exception do

begin

end;

end;

Sleep(200);

Fica o registro

abraço a todos

[Daniel Simoes]

Qual marca e modelo de impressora de cheques ?

[marginel]

Bom dia 

Desculpe nao ter dado retorno a sua pergunta antes so hj fui ver

 

Chronos   multi: mod
31100  NS: 08  01451

[Daniel Simoes]

Qual Unit vc alterou ? Poderia anexar a Unit alterada ?

[marginel]

Boa tarde 

Mais uma vez te peço perdão pelo retorno tardio.

 

 

unit:ACBrCHQClass

Linha: 262

 

fonte original da unit

procedure TACBrCHQClass.ImprimirLinha( AString : AnsiString );

begin

 

          fpDevice.EnviaString( AString + #13 + #10 );  { Adciona CR + LF }

          Sleep(100);

 

end;

 

Fonte modificaca por min:

 

procedure TACBrCHQClass.ImprimirLinha( AString : AnsiString );

  try

          fpDevice.EnviaString( AString + #13 + #10 );  { Adciona CR + LF }

          except on e:Exception do

                begin

                 end;

          end;

          Sleep(200);

 

 

end;

 

Vou ficar online para quaisquer duvidas agora !!

[Daniel Simoes]

É realmente necessário o bloco try/except ou apenas aumentar o tempo do Sleep ?

[marginel]

ola 

na verdade o importante é o bloco.  o sleep eu havia aumentado apenas como parte do teste.

O codigo nativo do acbr funciona na maioria as impressoras, mas como ha na internet em algumas impressoras ele apresenta a mgs

" ERRo: communications error 9999: frame ....." e travava o cheque na impressora. Existe algum lixo que é impresso ou coisa assim que se nao tratado no bloco trava a impressora.

 

Eu vou deixar com sleep(100) para ver o que acontece, vou atualizar o sistema no cliente e retorno com o resultado.

[Daniel Simoes]

Mas se houver o exception, o comando não será enviado, correto ?  E como isso faria a impressora reconhecer o comando ?

[marginel]

por isso que eu acho que fica algum lixo no buffer ou algo desse tipo. Sem o  exception a impressora trava. Esse erro

 acontece quando meu cliente vai imprimir o verso do cheque. Eu as vezes o verso tem 10 linhas com nomes de fornecedores. Antes de eu colocar essa execao 

eu ja havia tenta mudar fontes e trocar ".", "ç" etc..

Pode ser que o erro aconteça em uma algum outro metodo chamado pelo  fpDevice.EnviaString( AString + #13 + #10 );  { Adciona CR + LF }

vamos esperar ele fazer a impressão e vamos descartando as possibilidades.

att