Qrcode Bematech

[J Pereira]

Boa tarde a todos.

Imprimo o danfe NFC-e porém nao consigo imprimir o qrcode.

Solicitei ajuda a Bematech e eles me mandaram os comandos conforme abaixo.

Pelo projeto deles consigo simular o qrcode exemplo.

 

Alguem já está conseguindo imprimir na Bematech MP-2500 TH direto pelo Acbr ESCPOS?

 

Abaixo exemplo do fonte deles:

 

      sPorta := Edit2.Text;

 

      sCenter := chr(27) + chr(97) + chr(1);

      sModuloWidth := chr(29) + chr(40) + chr(107) + chr(2) + chr(0) + chr(49) + chr(67) + chr(3);

      sErrorCorrection := chr(29) + chr(40) + chr(107) + chr(3) + chr(0) + chr(49) + chr(69) + chr(48);

      sStoreSymbolDate :=  chr(29) + chr(40) + chr(107) + chr(147) + chr(0) + chr(49) + chr(80) + chr(48);

      sBarCodeData := 'http://partners.bematech.com.br/suporte-recursos/downloads/?category=146http://partners.bematech.com.br/suporte-recursos/downloads/?category=146';

      sPrintQrCodeSymbol := chr(29) + chr(40) + chr(107) + chr(3) + chr(0) + chr(49) + chr(81) + chr(48) + chr(27) + chr(64);

 

      sComando := sCenter + sModuloWidth + sErrorCorrection + sStoreSymbolDate + sBarCodeData + sPrintQrCodeSymbol;

 

AssignFile(F, sPorta);

Rewrite(F);

WriteLn(F, sComando);

WriteLn(F);

CloseFile(F);

 

Tentei substituir nos fontes  TACBrNFeDANFeESCPOS.GerarRodape mas sem sucesso.

 

O que poderiamos fazer para melhorar os fontes no SVN?

 

Abcs

Unit1.pas

[André Ferreira de Moraes]

Vc está com seus fontes atualizados?

Selecionou a marca Bematech no DANFE ESCPOS ?

  ACBrNFeDANFeESCPOS.MarcaImpressora       := iBematech;

[reinaldoacdc]

O jorgerp relatou o mesmo problema, talvez isso te ajude: