Cajón
¿Amigo sabes cual es el comando que me abre el cajón billetero que tengo conectado a una impresora de tikets?
Es de los cajones que tienen un conector como de teléfono
.
Gracias
Es de los cajones que tienen un conector como de teléfono
.
Gracias
1 Respuesta
Respuesta de sofocles
1
Esta pregunta me suena a que ya se ha realizado varias veces, y desde la primera vez que se efectuó he estado indagando en el tema, y siempre llego a la misma conclusión:
Si la maquina que expide los tickets tiene unos drivers de impresión, y desde windows te permite abrir el cajón cuando estas en el cuadro de dialogo de la impresora, desde Access se puede hacer lo mismo, es decir, hacer una presentación preliminar y entrar en el cuadro de dialogo de la impresora.
La otra solución es ponerse en contacto con el fabricante para ver que dll es la que tiene un comando que permita abrir el cajón. Una vez conozcamos la dll y el comando, solamente tenemos que referenciar la librería en el módulo de Access y ejecutar el comando.
Si la maquina que expide los tickets tiene unos drivers de impresión, y desde windows te permite abrir el cajón cuando estas en el cuadro de dialogo de la impresora, desde Access se puede hacer lo mismo, es decir, hacer una presentación preliminar y entrar en el cuadro de dialogo de la impresora.
La otra solución es ponerse en contacto con el fabricante para ver que dll es la que tiene un comando que permita abrir el cajón. Una vez conozcamos la dll y el comando, solamente tenemos que referenciar la librería en el módulo de Access y ejecutar el comando.
Gracias, ya me dieron el comando era:
procedure TfrmTPV.btnAbreCajonClick(Sender: TObject);
var
nPrn:TextFile;
begin
if gStatusCajon = 'A' Then
Begin
AssignFilenPrn, 'LPT1');
Rewrite(nPrn);
Try
Try
{*
WriteLn(nPrn,chr(027),chr(112),chr(000),chr(060),chr(240));
// Epson U200 *}
WriteLn(nPrn,chr(028),chr(29)); // Star SP200.
Except
// error..
End;
Finally
CloseFile(nPrn);
End;
End;
end;
procedure TfrmTPV.btnAbreCajonClick(Sender: TObject);
var
nPrn:TextFile;
begin
if gStatusCajon = 'A' Then
Begin
AssignFilenPrn, 'LPT1');
Rewrite(nPrn);
Try
Try
{*
WriteLn(nPrn,chr(027),chr(112),chr(000),chr(060),chr(240));
// Epson U200 *}
WriteLn(nPrn,chr(028),chr(29)); // Star SP200.
Except
// error..
End;
Finally
CloseFile(nPrn);
End;
End;
end;
