Acionar Gaveta Em Impressora Usb

[bfjulia]

Olá amigos,

boa noite !

 

Tenho um cliente com uma impressora Epson USB Modelo M249A preciso abrir a gaveta de dinheiro por um sistema Delphi7 alguém sabe como fazer isso em Delphi7 ?

Consegui estes comandos com a Epson mas não sei como executa-los via programação.

 

COMANDOS DA EPSON

link da epson

EPSON – ABERTURA GAVETA DINHEIRO

• 000 010 100
• 027 112 000 010 100
• 0 27 112 001 050
• 27 112 0 49 50
• 27 112 0 48 50
• 27 112 25 250
• 27 112 1 49 50

 

Alguém podereia me ajudar por caridade, des de já agradeço a todos !

Obrigado

 

Junior

[Juliomar Marchetti]

Então chegou a olhar a classe que trata da impressora Epson?

nela tem o envio do comando certinho, o nome da unit ACBrECFEpson.pas

[bfjulia]

Juliomar Marchetti

Muito bom dia !

 

Procurei esta unit em C:\Acbr e suas subpastas e não encontrei, poderia me detalhar melhor ou me enviar um exemplo.

 

Muito Obrigado amigo, tenha um ótimo dia !

Junior

[Juliomar Marchetti]

acho que não fez a procura direito

está lá sim no svn \Fontes\ACBrSerial\ACBrECFEpson.pas

[bfjulia]

Juliomar

Vc tinha razão encontrio o arquivo, mas ainda tenho duvidas....

para utilizar basta adicionar a unit ao meu projeto e chamar a procedure AbreGaveta ? Ou é um componente ?

 

Devo mudar algo no código ?

 

procedure TACBrECFEpson.AbreGaveta ;

begin

  EpsonComando.Comando := '0707' ;   // Gaveta 1 ??

  EpsonComando.Extensao := '0000' ;

  EnviaComando ;

 

  EpsonComando.Comando := '0707' ;   // Gaveta 2 ??

  EpsonComando.Extensao := '0001' ;

  EnviaComando ;

end;

 

 

Mais uma vez muito obrigado !

junior

[Juliomar Marchetti]

Você utiliza o ACBrECF para a ECF?

[bfjulia]

Não ! Uso AcbrNFe mas neste caso tenho q enviar um comando apenas para abrir a gaveta e a impressos é não fiscal.

[bfjulia]

Não ! Uso AcbrNFe mas neste caso tenho q enviar um comando apenas para abrir a gaveta e a impressos é não fiscal.

OBS: A impressora é USB

[Juliomar Marchetti]

No caso ali está o codigo que deve enviar para abrir a gaveta caso exista conectada a ECF

agora o método ali AbreGaveta é do componente ACBrECF

[bfjulia]

Sim, mas como enviar estes comandos ?

 

 

• 000 010 100
• 027 112 000 010 100
• 0 27 112 001 050
• 27 112 0 49 50
• 27 112 0 48 50
• 27 112 25 250
• 27 112 1 49 50

[Daniel Simoes]

É uma impressora não fiscal, correto ?  Recomendo tentar usar alguma DLL do Fabricante...

 

Mas você também poderia usar um programa da Epson para transformas a porta USB em Serial... Usar o componente ACBrECF com o modelo ecfNaoFiscal e configurar o comando da Gaveta no arquivo ACBrECF????.INI

[bfjulia]

Olá Daniel, boa tarde !

Normalmente na instalação ela cria uma porta, exemplo COM3 no caso da bematech exemplo BEMATECH_COM3 mas são portas virtuais sera que daria certo ?

Obrigado !

[Daniel Simoes]

Acredito que não... só testando...

( Imaginei que você estava falando de uma Impressora Epson)

[bfjulia]

Oi Daniel,

bom dia !

 

Obrigado pela ajuda; mas é uma EPSON ! Usei a Bematech apenas como exemplo Ok

[...]

vc ja tentou enviar esses caracteres da tabela ASCII para impressora (como se fosse impressao mesmo)??

Na minha bematech eu mando  #27 + #118 + #140 no spooler e ela abre a gaveta

[bfjulia]

Estou mandando os comandos assim

 

 

AssignFile(F, edit1.Text);

    Rewrite(F);

    i := 0;

    Writeln(F, 'Teste de impressao - Linha 0');

    Writeln(F, 'Teste de impressao - Linha 1');

    Writeln(F, #27#15 + 'Teste de Impressão - Linha 2');

    Writeln(F, 'Teste de impressao - Linha 3');

    Writeln(F, #27#18 + 'Teste de Impressão - Linha 4');

    Writeln(F, 'Teste de impressao - Linha 5');

    Writeln(F, #12); // Ejeta a página

    Writeln(F, #27#118#140);

    CloseFile(F);

A impressora é EPSON TM-T20 rECEIPT

A porta utilizada é USDPRT001

 

Ainda não consegui solução !

Obrigado a todos !

 

Junior

[...]

liga la na epson e pede orientacao... Foi o que eu fiz na bematech, eles me mandaram um manualzinho que diz inclusive a voltagem necessaria para enviar à gaveta para ela ser aberta!

[pattarelli]

SOSSYSTEM Boa Tarde 

eu uso esta linha Writeln(F, chr(027)+chr(112)+chr(000)+chr(010)+chr(100));  e funciona com a impressora tm20 e gaveta menno. 

 

[Daniel Simoes]

Vejam o componente ACBrPosPrinter..

[pattarelli]

Daniel Simoes , nao usei o acbrposprinter vou testar por ele , obrigado.

 

[Maurício Sareto]

Esse topico é meio antigo, mas como o assunto é o mesmo eu acho que não to violando as regras.

Estou tentando abrir a gaveta usando uma TM-T20 e comunicação direta usando o os códigos abaixo:

AssignFile(F, vNomeCompatilhamento);         
Rewrite(F);         
Writeln(F,#027+ #112+ #000+ #010+ #100''); // Abrir Gaveta Epson          
CloseFile(F); 

Porém envés de abrir a gaveta ela imprime o comando.

Alguém saberia qual é o problema?

OBS. Não gostaria de ter que usar o ESCPOS e é no NFCe...