Erro Impressora De Cheque Bematech Dp-20 (Imprime O Cheque Duas Vezes)

[William Duarte]

Boa tarde galera do fórum, tudo bom?

 

Estamos com um problema aqui na empresa com o componente ACBrCHQ.

 

Estamos com uma DP-20, Bematech e estamos com um problema em que a impressora de cheque imprime a frente do cheque novamente após imprimir o  verso.

 

Peço para imprimir a frente , ela imprime e quando peço para imprimir o verso, ela imprime o verso e logo em seguida imprime a frente de novo.

 

Alguém pode dar uma ajuda?

 

Atc,

William

[Juliomar Marchetti]

Poderia postar o arquivo de log gerado pelo componente?

[William Duarte]

Juliomar, percebi que o erro ocorre no DestravaCheque, ao enviar o comando : fpDevice.EnviaString( #27 + #176 );

 

Ele termina de imprimir o verso e logo em seguida re-imprime o conteúdo da frente do cheque....

[Juliomar Marchetti]

Alguma sugestão ou alteração necessária?

conferiu se o comando para isso é esse para o modelo?

[William Duarte]

Juliomar, segundo o manual da bematech :

 

"Impressão no Verso do Documento

Pode-se utilizar todos os comandos descritos no manual do usuário DP-10. Antes da impressão travar o 

documento (ESC w 1) e destravar após a impressão (ESC w 0)."

 

O componente ACBrCHQ faz isso, da seguinte forma :

 

procedure TACBrCHQClass.ImprimirVerso(AStringList: TStrings);
Var A : Integer ;
begin
  TravarCheque ;

  For A := 0 to AStringList.Count - 1 do
     ImprimirLinha( StringOfChar(' ',10) + TiraAcentos( AStringList[A] ) );

  DestravarCheque ;
end;

 

Seguindo o processo :

 

procedure TACBrCHQBematech.TravarCheque;
begin
  fpDevice.EnviaString( #27 + #177 );
//  fpDevice.EnviaString( #27 + #119 + #1 ) ;
  Sleep(100);
end;

procedure TACBrCHQClass.ImprimirLinha( AString : AnsiString );
begin
  fpDevice.EnviaString( AString + #13 + #10 );  { Adciona CR + LF }
  Sleep(100);
end;

procedure TACBrCHQBematech.DestravarCheque;
begin
  fpDevice.EnviaString( #27 + #176 );
//  fpDevice.EnviaString( #27 + #119 + #0 ) ;
  Sleep(100);
end;

No momento em que é enviado o (#27 + #176) ele destrava o cheque e imprime o conteúdo da frente do cheque no verso....Bizarro!

 

Eu não consegui encontrar o manual de comandos para porta serial da DP-20, pois gostaria de realizar alguns testes também. Você tem o manual para que possa me enviar?

[William Duarte]

Juliomar, eu consegui resolver aqui. 

 

Estava na minha cara hehehe...

 

Seguinte, eu tive que criar um Override para o ImprimeVerso na Bematech, ok? Criei uma variavel FImprimeVerso, pois o problema estava no Travar e Destravar.

 

Para imprimir o cheque na parte da frente, o comando deve seguir este formato, como está no fonte !

 

Travar :

fpDevice.EnviaString( #27 + #177 );

Destravar : 

fpDevice.EnviaString( #27 + #176 );

Com a mudança ficou assim :

 

1) Dei Override no ImprimirVerso.

procedure TACBrCHQBematech.ImprimirVerso(AStringList : TStrings);
var
  A : integer;
begin
  FImprimeVerso := True;

  TravarCheque ;

  For A := 0 to AStringList.Count - 1 do
     ImprimirLinha( StringOfChar(' ',10) + TiraAcentos( AStringList[A] ) );

  DestravarCheque ;
end;

2) Dentro do Travar e Destravar , faço o teste se está imprimindo o verso ou a parte da frente :

procedure TACBrCHQBematech.TravarCheque;
begin
  if FImprimeVerso then
    fpDevice.EnviaString( #27 + #119 + #1 )
  else
    fpDevice.EnviaString( #27 + #177 );
  Sleep(100);
end;

procedure TACBrCHQBematech.DestravarCheque;
begin
  if FImprimeVerso then
    fpDevice.EnviaString( #27 + #119 + #0 )
  else
    fpDevice.EnviaString( #27 + #176 );
  Sleep(100);
end;

3) Finalmente no ImprimirCheque, a parte normal, da frente, seto para False a flag FImprimeVerso

procedure TACBrCHQBematech.ImprimirCheque;
Var ValStr, DataStr : String ;
begin
  if not fpDevice.EmLinha( 3 ) then  { Impressora está em-linha ? }
    raise Exception.Create(ACBrStr('A impressora de Cheques '+fpModeloStr+
                           ' não está pronta.')) ;
  FImprimeVerso := False;

  TravarCheque ;

......

O "Xis" da questão está na parte de travar e destravar mesmo, já estava comentado na Unit, eu apenas "organizei".

[Juliomar Marchetti]

Por favor efetue mais alguns testes se possível e anexe a unit alterada para que possamos avaliar e subir!

[William Duarte]

Juliomar, aqui o código fonte alterado para que possa ser analisado e assim comitado ao SVN.

 

Um abraço,

William Duarte

ACBrCHQBematech.pas

[Juliomar Marchetti]

Boa tarde

atualiza e confere se ficou certo as correções no SVN!

[William Duarte]

Olá Juliomar, tudo certo, perfeito!

 

Qual resposta marco como resolvido para fecharmos o tópico?

 

Abs,

William

[Juliomar Marchetti]

Já fiz para você !

a partir da segunda resposta veja que abaixo tem um botão resolvido!

[William Duarte]

Ah beleza, obrigado!

 

Até a próxima!

[Bruna Guadaghinin]

Eu estou com um problema tambem com esta maquina, o programa dp20 acusa que nao tem documento dentro da maquina, sendo que tem..