Abrir CashDrawer(portamoneda) al Imprimir.
 

Hola foristas..

Hace unos dias escribí pidiendo ayuda sobre como abrir una portamoneda al imprimir una factura y me pidieron mas detalles sobre la caja.. Urbano me envio un codigo para abrirla y no funcionó. Este fue el codigo.

procedure AbrirCajon();
var
nPrn: TextFile;
begin
AssignFile(nPrn, 'COM2');
Rewrite(nPrn);
WriteLn(nPrn,#27+#112+#0+#27+#112+#0);
CloseFile(nPrn);
end;

De verdad le agradezco su interès en ayudar..

Segun el manual la caja que estoy usando DYNA POS (DYN-CD300) con Basic se abre con el siguiente código:

PRINT #1, CHR$(&H1B);"p";CHR$(0);CHR$(100);CHR$(250);

pero no se como meterle mano a este asunto en delphi.

Cuento con su ayuda como siempre lo han hecho..

ElCherchu....

probastes cambiando la cadena que pasas en writeln por la cadena que dice el manual??

Si cambie los valores por lo que dice el manual pero me da un error en
CHR(&H1B)..

Cuento con su ayuda..

Se me habia olvidado decirle que uso una Impresora Star y la caja esta conectada a esta por un conector RJ11.

Cuento con su ayuda....

ok te quisiera ayudar pero lo que recuerdo de basic es minimo, seguro que alguien en el foro sabria hacer la traduccion de ese valor

Revivo este mensaje porq me encuentro en el mismo problema, y me gustaria saber si pudistes lograr la solucion, o alguien que sepa como, gracias y saludos a todos