NFe Código de Barras Imp Bluetooth ESC/POS

Douglas Colombo 09 · 4 Outubro, 2017

Boa tarde, sei que este não é uma pergunta relacionada ao ACBR, e sim ao código de barras da NFE... sei que o acbr gera o código de barras para impressão via esc / pos, porem estou tentando fazer isto manualmente via progração e não estou conseguindo gerar o código de barras que eu preciso, o code128, com os 44 caracteres da chave de acesso da nfe.

Alguém por favor, poderia me ajudar? já faz um tempão que estou procurando isto e não consigo fazer funcionar...

Se alguém puder me passar um exemplo agradeceria muito, quebraria 'oo galho'!

meu e-mail [email protected]

Sérgio Assunção · 4 Outubro, 2017

Qual é a marca e modelo da sua impressora ?

Você chegou a ver nos fontes do ACBr como é feito ?

Douglas Colombo 09 · 5 Outubro, 2017

13 horas atrás, Sérgio Assunção disse:

Qual é a marca e modelo da sua impressora ?

Você chegou a ver nos fontes do ACBr como é feito ?

É a Leopardo A7, eu já verifiquei uns 100 manuais, porem com nenhum deles consegui fazer a impressão do código de barras, onde o mesmo guardasse a informação dos 44 caracteres da chave da NFe, que seria o modelo CODE128

tentei dar uma olhada nos fontes do ACBR porem não me achei muito bem... por favor, poderia me ajudar?

André Ferreira de Moraes · 5 Outubro, 2017

Vc usa Delphi? Tente usar o componente ACBrPosPrinter.

Douglas Colombo 09 · 5 Outubro, 2017

4 horas atrás, André Ferreira de Moraes disse:

Vc usa Delphi? Tente usar o componente ACBrPosPrinter.

Uso delphi sim, porem mobile, preciso fazer a impressão manualmente pois não posso fazer pelo servidor devido ao aparelho mobile não estar sempre conectado na web.

com este comando - FSocket.SendData(TEncoding.UTF8.GetBytes(chr(29) +chr(107) +chr(73) + chr(24) +chr(123) +chr(67) +'43170918330210000103550030000000931674198104' + chr(0)));
gera o código de barras e ao passar a leitora do código, retorna 44 caracteres, porem o que retorna não tem nada a ver com o que foi passado no comando!
Código do comando acima: 43170918330210000103550030000000931674198104
Código de retorno: 52514955485749565151485049484848484948515353

Agora fiquei mais confuso em identificar o que poderia ser :S

Desenvolvimento em DELPHI, sim...

Daniel Simoes · 5 Outubro, 2017

Não há um código fixo que funcione para todas as impressoras... você precisa saber exatamente qual a linguagem suportada pela sua impressora

Douglas Colombo 09 · 5 Outubro, 2017

10 minutos atrás, Daniel Simoes disse:

Não há um código fixo que funcione para todas as impressoras... você precisa saber exatamente qual a linguagem suportada pela sua impressora

mas é comando esc/pos, é a impressora Leopardo A7, anexei o manual, nele não explica certo o que é preciso para impressão code128 com 44 caracteres

Leopardo A7 Technical Manual.pdf

Daniel Simoes · 5 Outubro, 2017

Vc precisa usar 128-C.. mas nem todos equipamentos suportam isso...

Douglas Colombo 09 · 6 Outubro, 2017

19 horas atrás, Daniel Simoes disse:

Vc precisa usar 128-C.. mas nem todos equipamentos suportam isso...

sim, isto o 128-C, porem não sabia como utiliza-lo... mas depois de tanto sofrimento consegui hehe... desculpe incomoda-los!!!

Desde já agradeço a todos que responderam.

Abração!

herculanojs · 20 Fevereiro, 2018

Você poderia compartilhar o código que utilizou?

Também estou necessitando e utilizo a mesma impressora que você.

herculanojs · 21 Fevereiro, 2018

Em 06/10/2017 at 11:46, Douglas Colombo 09 disse:

sim, isto o 128-C, porem não sabia como utiliza-lo... mas depois de tanto sofrimento consegui hehe... desculpe incomoda-los!!!

Desde já agradeço a todos que responderam.

Abração!

Seria possivel você postar a solução para pessoas com o mesmo problema ?

Juliomar Marchetti · 21 Fevereiro, 2018

13 minutos atrás, herculanojs disse:

Seria possivel você postar a solução para pessoas com o mesmo problema ?

Tu já postou ontem. agora espera que provável ele não ter lido ainda

Douglas Colombo 09 · 21 Fevereiro, 2018

30 minutos atrás, herculanojs disse:

Seria possivel você postar a solução para pessoas com o mesmo problema ?

Bom dia, desculpe... ainda não havia visualizado.

Eu utilizo este comando para fazer a impressão do código de barras:

x := TEncoding.UTF8.GetBytes(chr(24) + chr(123) + chr(67));

é preciso pegar de 2 em 2 caracteres do código de barras e utilizar a função chr():

//faça um loop para o exemplo a baixo:

x := x + copy(codigoBarras, 1, 2);

x := x + copy(codigoBarras, 3, 2);

x := x + copy(codigoBarras, 5, 2);

... Fazer isto com todos os 44 caracteres do código de barras.

Valeu, abração!

Josimar Dias · 5 Março, 2018

Bom dia @Douglas Colombo 09!

Já conseguiu imprimir QR-code?

Douglas Colombo · 5 Março, 2018

1 hora atrás, Josimar Dias disse:

Bom dia @Douglas Colombo 09!

Já conseguiu imprimir QR-code?

Opa, como não é obrigado, nao fui atrás para coloca-lo...

Está tentando ai?!

Josimar Dias · 5 Março, 2018

Tô tentando, por enquanto sem sucesso!

Você tem alguma tabela com os comandos?

herculanojs · 7 Março, 2018

Em 06/10/2017 at 11:46, Douglas Colombo 09 disse:

sim, isto o 128-C, porem não sabia como utiliza-lo... mas depois de tanto sofrimento consegui hehe... desculpe incomoda-los!!!

Desde já agradeço a todos que responderam.

Abração!

Seria possivel você postar a solução para pessoas com o mesmo problema ?

Em relação ao qrcode consegui imprimir, contudo não consigo passar de 126 caracteres no qrcode. Acima disso não imprime.

procedure TMiniThermalBluetooth.WriteQrCode(text: string);
var d,dL,dH:integer;
begin
d := length(text);
dL := d mod 256;
dH := d div 256;

write(chr(27)+chr(64));
write(escAlignCenter);
write(chr(27)+chr(90)+chr(40)+chr(0)+chr(6)+chr(dL)+chr(dH)+text);
end;

codigo barra 128c

write(chr(29)+chr(104)+chr(40)); //altura
write(chr(29)+chr(119)+chr(2)); //largura
write(chr(29)+chr(72)+chr(0)); //(GS H n) hri
write(escAlignLeft);
write(chr(29)+chr(107)+chr(73)+chr(23)+chr(123)+chr(67)+copy(FieldByName('chave').AsString,1,23)+chr(0));

No caso estou pegando apenas 23 caracteres da chave. Percebi que se o código for ultrapassar o tamanho de impressão, a impressora não imprime. Ainda não descobri uma forma de reduzir tamanho do mesmo, pois apesar de ajustar a alargura, mas a mesma obedece um padrão, e 54 bytes no codigo de barras não cabe em 80mm. Pelo menos não consegui fazer.

Daniel Simoes · 7 Março, 2018

Estude os fontes do ACBrPosPrinter... está tudo resolvido lá...

herculanojs · 7 Março, 2018

Bom dia Daniel

Em relação a impressora bluetooth mini termal, o ACBRPosPrinter faz a impressão nesses equipamentos?

Porque pelo que li no forum em algum lugar antes, alguém informava que o padrão da linguagem do componente não era ESC/POS mais algum outro tipo de ESC que não me recordo agora.

Daniel Simoes · 7 Março, 2018

28 minutos atrás, herculanojs disse:

Em relação a impressora bluetooth mini termal, o ACBRPosPrinter faz a impressão nesses equipamentos?

herculanojs · 8 Março, 2018

Daniel, uma dúvida. O ACBRPosPrinter funciona em aplicações firemonkey android ?

Daniel Simoes · 8 Março, 2018

Nunca testei... mas provavelmente sim, pois é pascal puro..

Alan Petry · 17 Março, 2018

Em 21/02/2018 at 08:14, Douglas Colombo 09 disse:

Bom dia, desculpe... ainda não havia visualizado.

Eu utilizo este comando para fazer a impressão do código de barras:

x := TEncoding.UTF8.GetBytes(chr(24) + chr(123) + chr(67));

é preciso pegar de 2 em 2 caracteres do código de barras e utilizar a função chr():

//faça um loop para o exemplo a baixo:

x := x + copy(codigoBarras, 1, 2);

x := x + copy(codigoBarras, 3, 2);

x := x + copy(codigoBarras, 5, 2);

... Fazer isto com todos os 44 caracteres do código de barras.

Valeu, abração!

Boa noite, te importa de enviar o código completo desse exemplo de impressão do código.

juniorguillen · 13 Abril, 2018

Boa tarde, para contribuir com a comunidade, segue a procedure que uso para imprimir o código.

procedure TfrmPrincipal.Imprime_CodBarras(chave:string);
begin
  FSocket.SendData(TEncoding.UTF8.GetBytes(
  chr(32) + chr(32)  +   // 2 espaços
  chr(29) + chr(104) + chr(80) + // atribui a altura do Codigo de Barras sendo n de 1 a 40
  chr(29) + chr(119) + chr(0)  + chr(2)  +  // (GS w n)  atribui a largura do Codigo de Barras sendo n de 1 a 4
  chr(29) + chr(72)  + chr(0)  +  // (GS H n)  atribui o HRI que sao os numeros abaixo do código 0 sem 1 acima 2 abaixo
  chr(29) + chr(107) + chr(73) + chr(24) +  // (GS K m n)atribui o tipo e comprimento do codigo 128C=73(49hex) e 22 posicoes (18 hex)
  chr(123)+ chr(67)  +  // atribui que o padrão do CB 128 é tipo C
  // chave
  char(StrToInt(Copy(chave,1,2))) +
  chr(StrToInt(Copy(chave,3,2)))  +
  chr(StrToInt(Copy(chave,5,2)))  +
  chr(StrToInt(Copy(chave,7,2)))  +
  chr(StrToInt(Copy(chave,9,2)))  +
  chr(StrToInt(Copy(chave,11,2))) +
  chr(StrToInt(Copy(chave,13,2))) +
  chr(StrToInt(Copy(chave,15,2))) +
  chr(StrToInt(Copy(chave,17,2))) +
  chr(StrToInt(Copy(chave,19,2))) +
  chr(StrToInt(Copy(chave,21,2))) +
  chr(StrToInt(Copy(chave,23,2))) +
  chr(StrToInt(Copy(chave,25,2))) +
  chr(StrToInt(Copy(chave,27,2))) +
  chr(StrToInt(Copy(chave,29,2))) +
  chr(StrToInt(Copy(chave,31,2))) +
  chr(StrToInt(Copy(chave,33,2))) +
  chr(StrToInt(Copy(chave,35,2))) +
  chr(StrToInt(Copy(chave,37,2))) +
  chr(StrToInt(Copy(chave,39,2))) +
  chr(StrToInt(Copy(chave,41,2))) +
  chr(StrToInt(Copy(chave,43,2))) +
  // chave
  chr(32) + chr(10)+ chr(13)));  // espaço e enter;
end;

Felipe E. Resende Mesquita · 13 Abril, 2018

8 minutos atrás, juniorguillen disse:

Boa tarde, para contribuir com a comunidade, segue a procedure que uso para imprimir o código.

procedure TfrmPrincipal.Imprime_CodBarras(chave:string);
begin
FSocket.SendData(TEncoding.UTF8.GetBytes(
chr(32) + chr(32) + // 2 espaços
chr(29) + chr(104) + chr(80) + // atribui a altura do Codigo de Barras sendo n de 1 a 40
chr(29) + chr(119) + chr(0) + chr(2) + // (GS w n) atribui a largura do Codigo de Barras sendo n de 1 a 4
chr(29) + chr(72) + chr(0) + // (GS H n) atribui o HRI que sao os numeros abaixo do código 0 sem 1 acima 2 abaixo
chr(29) + chr(107) + chr(73) + chr(24) + // (GS K m n)atribui o tipo e comprimento do codigo 128C=73(49hex) e 22 posicoes (18 hex)
chr(123)+ chr(67) + // atribui que o padrão do CB 128 é tipo C
// chave
char(StrToInt(Copy(chave,1,2))) +
chr(StrToInt(Copy(chave,3,2))) +
chr(StrToInt(Copy(chave,5,2))) +
chr(StrToInt(Copy(chave,7,2))) +
chr(StrToInt(Copy(chave,9,2))) +
chr(StrToInt(Copy(chave,11,2))) +
chr(StrToInt(Copy(chave,13,2))) +
chr(StrToInt(Copy(chave,15,2))) +
chr(StrToInt(Copy(chave,17,2))) +
chr(StrToInt(Copy(chave,19,2))) +
chr(StrToInt(Copy(chave,21,2))) +
chr(StrToInt(Copy(chave,23,2))) +
chr(StrToInt(Copy(chave,25,2))) +
chr(StrToInt(Copy(chave,27,2))) +
chr(StrToInt(Copy(chave,29,2))) +
chr(StrToInt(Copy(chave,31,2))) +
chr(StrToInt(Copy(chave,33,2))) +
chr(StrToInt(Copy(chave,35,2))) +
chr(StrToInt(Copy(chave,37,2))) +
chr(StrToInt(Copy(chave,39,2))) +
chr(StrToInt(Copy(chave,41,2))) +
chr(StrToInt(Copy(chave,43,2))) +
// chave
chr(32) + chr(10)+ chr(13))); // espaço e enter;
end;

Boa tarde, juniorguillen.

Quando postar código e o mesmo for extenso, anexe o mesmo. Não cole dessa forma, pois assim fica difícil para ler e entender.

Entrar

Sobre nós...

NFe Código de Barras Imp Bluetooth ESC/POS

Recommended Posts

Douglas Colombo 09

Sérgio Assunção

Douglas Colombo 09

André Ferreira de Moraes

Douglas Colombo 09

Daniel Simoes

Douglas Colombo 09

Daniel Simoes

Douglas Colombo 09

herculanojs

herculanojs

Juliomar Marchetti

Douglas Colombo 09

Josimar Dias

Douglas Colombo

Josimar Dias

herculanojs

Daniel Simoes

herculanojs

Daniel Simoes

herculanojs

Daniel Simoes

Alan Petry

juniorguillen

Felipe E. Resende Mesquita

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Sérgio Assunção Ajude o Projeto ACBr crescer - Assine o SAC

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br