Fim De Papel Acbr No Lazarus

[Ronaldo Cesar Bim]

   Pessoal, estou com um problema quando quando a impressora está com FIM DE PAPEL, parece que só ocorre no Lazarus, o ECFTeste compilado em Delphi está ok.

Quando envio o comando para Subtotalizar o cupom, o Acbr não está retornando uma exceção, e sim apenas chamando evento DoOnMsgPoucoPapel, com isso não consigo identificar que ocorreu o erro, pois no simulador, o cupom não é subtotalizado. Pelos meus testes, o problema está neste ponto no fonte unit ACBrECFSweda.

if STATUS = '5' then
begin
  if fsOldSeq <> copy(Result,9,4) then
    DoOnMsgPoucoPapel( 'Papel acabando' )
  else
    ErroMsg := cACBrECFSemPapelException ;
end ;

Alguém tem uma ideia de como contornar isso ?

Estou usando simulador Sweda, Acbr Compilado com NOGUI pois utilizo a impressão dos itens em Thread, Lazarus 1.2.0

[Ronaldo Cesar Bim]

Pessoal, descobri que não tem nada a ver pelo fato de ser Lazarus ou compilado com diretiva NOGUI, no ECFTeste funciona perfeitamente, porém  no meu aplicativo não, ainda não descobri. A variável fsOldSeq que não sei pra que server, sempre é diferente de copy(Result,9,4) conforme o código que postei, então nunca gera o erro.

Editado 27 Junho, 2014 por Ronaldo Cesar Bim

[Ronaldo Cesar Bim]

Problema Resolvido, antes de eu chamar a função para Subtotalizar, tinha um método que usava a função NumSerie, ao chamar esse função ocorria o problema. Vou mudar a minha lógica.

[Daniel Simoes]

Você não deve usar o modelo ecfSweda (use apenas para Matriciais).... Use o modelo ecfSwedaSTX