Ir para conteúdo
  • Cadastre-se

dev botao

QrCode não imprime - ACBrSATExtratoESCPOS Elgin VOX


Fabio.Vaz
  • Este tópico foi criado há 3004 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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 por Fabio.Vaz
Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

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 por Fabio.Vaz
Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...
  • Fundadores

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3004 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.