Abrir CashDrawer(portamoneda) al Imprimir.

[ElCherchu]

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....

[eduarcol]

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

[ElCherchu]

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....

[eduarcol]

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

[eduarcol]

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