QrCode não imprime - ACBrSATExtratoESCPOS Elgin VOX

[Fabio.Vaz]

Boa tarde a todos!

Estou utilizando o ACBrSATExtratoESCPOS para fazer a impressão do extrato CFe SAT em impressoras de cupom. Nas impressoras da marca Bematech está funcionando tudo ok, porém estou com um cliente com uma impressora Elgin VOX que imprime tudo correto, exceto o QRCode, que não sai, o extrato acaba após o código de barras da chave de acesso.

Já atualizei o firmware da impressora seguindo orientação da Elgin e em testes Demo que a própria Elgin indica, o QRCode é impresso corretamente, então deduzo que a atualização do firmware foi feita com sucesso.

Complementando: estou utilizando o modelo ppEscElgin, que é o que não imprime o QRCode. Usando os demais (ppEscBematech, por exemplo) é impresso somente o texto do QRCode, mas não padrão QRCode.

Alguém já passou por algo desse tipo? Alguma sugestão do que pode ser feito?

Obrigado

Fabio

Editado 18 Setembro, 2015 por Fabio.Vaz

[Daniel Simoes]

O modelo ppEscElgin foi criado justamente para a VOX... pode ser que seja necessária alguma configuração no equipamento... porém,  não sei dar mais detalhes, pois (ainda) não tenho esse equipamento para testes...

A Elgin já entrou em contato comigo, e estão enviando: uma Impressora I9, uma Impressora VOX e um SAT

[Fabio.Vaz]

Ok Daniel, vou ver se descubro algo por aqui.

Se possível, atualize aqui se (e quando) tiver alguma novidade.

Obrigado.

[Fabio.Vaz]

Daniel,

este é o código Delphi do exemplo que a Elgin fornece para testar a impressão de QRCode na VOX e que funciona:

procedure TfrmPrincipal.ButtonImprimirQrcodeClick(Sender: TObject);
var

    s:String;
    printerName:String;
    width:Integer;
begin

   printerName:= ComboBoxImpressoras2.Text;  // nome da impressora
     width:= StrToInt(ComboBoxWidth.Text);  //largura
  { (Gs,o,NUL,width,NUL,STX,Gs,k,m,L,k) - comando ESC/POS para impressao do QRcode
     para outros comandos, consulte o manual.
   }
  s:=Char(29)+ Char(111)+Char(0)+Char(width)+Char(0)+Char(2)+Char(29)+Char(107)+Char(11)+Char(76)+Char(107)+EditUrl.Text+Char(0)+Char(12);
  WriteRawStringToPrinter(printerName,s);

end;

//15/10/2014 Genilton souza
//metodo para enviar dados no formtato puro (Raw) para a impressora.
procedure TfrmPrincipal.WriteRawStringToPrinter(PrinterName:String; S:String);
{ o nome da impressora e passado como parametro - PrinterName:String
  o nome da mesma pode ser verificada em "Dispositivos e impressoras"

 }
var
   Handle: THandle;
   N: DWORD;
   DocInfo1: TDocInfo1;
begin
   if not OpenPrinter(PChar(PrinterName), Handle, nil) then
     begin
      ShowMessage('error ' + IntToStr(GetLastError));
      Exit;
     end;
   with DocInfo1 do begin
     pDocName := PChar('test doc');
     pOutputFile := nil;
     pDataType := 'RAW';

   end;
   StartDocPrinter(Handle, 1, @DocInfo1);
   StartPagePrinter(Handle);
   WritePrinter(Handle, PChar(S), Length(S), N);
   EndPagePrinter(Handle);
   EndDocPrinter(Handle);
   ClosePrinter(Handle);
end;

Ajuda em algo no contexto ACBrSATExtratoESCPOS ?

Obrigado

Editado 18 Setembro, 2015 por Fabio.Vaz

[Daniel Simoes]

Eu já tenho esses códigos e manuais... de nada me adianta sem uma impressora...

Estude como está implementado na Unit ACBrEscElgin.pas

Ahh lembrei de algo... parece que esse modelo não suporta QRCode maiores do que 255 caracteres... (que é o caso do QRCode do SAT)...

Parece ser um Bug desse firmware...

Veja: http://www.projetoacbr.com.br/forum/topic/22897-acbrposprinter-nao-imprime-o-qrcode/?do=findComment&comment=154575

[Fabio.Vaz]

Li o post e realmente faz sentido o problema ser esse. Vou entrar em contato com a Elgin na segunda-feira para ver se houve algum andamento nisso.

Grato.

[dimom]

Conseguiu fazer imprimir o qrCode na ELGIN VOX ?

[Daniel Simoes]

No ACBrPosPrinter, está implementado da forma correta... o Fabricante prometeu uma atualização do Sw.Básico para a correção do problema... verifique com a Elgin

[dimom]

obrigado vou verificar se acho uma atualização para funcionar