DataRegis Quick 3202 x gaveta

[clipsis]

Olá a todos!

Estou com um cliente novo (que bom). Acontece que ele já tem todo o equipamento para automação.

Ele possue uma impressora DataRegis Quick 3202 (não fiscal), que usa para emitir recibos, e uma Gaveta automática Innal (nunca tinha visto), a impressora está conectada ao pc através da serial e a gaveta ligada a impressora.

A impressão dos dados está ok, só não consigo acionar a gaveta.

Qual a maneira correta de se configurar o ACBRMonitor para acionar a gaveta nesse caso ?

Abraços, fico no aguardo!

[marcelo_sp]

Bom dia , eu não utilizo o ACBRecf para impressoras (Não Fiscal) , vc pode utilizar comandos ESC do próprio Delphi ou outra linguagem que vc utiliza para desenvolvimento . No Delphi uso o AssignFile na porta . Entre em contato com o fabricante Dataregis para saber os comandos ESC deste modelo para Acionar a Gaveta , um exemplo abaixo mostra como Acionar gavetas com alguns modelos de Impressoras Não Fiscal .

procedure AbreGaveta ;

var Print : textfile ;

begin

AssignFile(Print , PortaDaImpressora);

Rewrite(Print );

if COMANDOABERTURAGAVETA = '1' then

Writeln(Print ,chr($1B)+'p'+chr($0)+chr($25)+chr($250)); // Impressora EPSON

if COMANDOABERTURAGAVETA = '2' then

Writeln(Print ,#027+'v'+#140); // Bematech

if COMANDOABERTURAGAVETA = '3' then

begin

Writeln(Print ,#27 + '&' + '0' + #12 + #48); // MECAF / DIEBOLD / Abre a gaveta

Writeln(Print ,#10 + #17); // MECAF / DIEBOLD / Corte de papel

end ;

if COMANDOABERTURAGAVETA = '4' then

begin

Writeln(Print ,#27 + 'p'); // Daruma Abre a gaveta

Writeln(Print ,#27 + 'm'); // Daruma Corte de papel

end ;

closefile(Print) ;

end ;

// ...COMANDOABERTURAGAVETA = variavel publica do tipo String para setar qual parte do código eu quero executar , ou seja qual tipo de gaveta eu quero abrir .

espero que ajude .

Marcelo .

[Daniel Simoes]

Você pode tentar configurar a gaveta na aba Gaveta do ACBrMonitor ou ainda no arquivo ACBrECF001.ini