URGENTE. Abrir Cash Drawer

Hola Sistematiq...

En un pequeño sistema de punto de
venta, tengo esta rutina como un
procedimiento al momento de imprimir
el ticket de venta:

Local oRep
lcCantLet = Proper(AllTrim(ThisForm.CantidadLetra))
oRep=create("cDOSPrint")
oRep.PaperLenght=0
oRep.PrintFormat="Ticket.Fmt"
oRep.Run("MiTicDet")
oRep.Print("IBM Proprinter III")
*oRep.PrintToFile("Salida.Txt")
*Modify File Salida.Txt
Release oRep,lcCantLet

Set Device To Printer
???chr(27)+"p"+chr(0)+chr(50)+chr(100) && ABRE GAVETA
Set Printer To
Set Device To Screen

Nota: En este sistema, uso la clase DosPrint3 de Víctor Espina.

Espero poder haberte ayudado.

Saludos.
Mario Bucio
Uruapan, Michoacán, México.