abrir cajon portamonedas

[xor...@hotmail.com]

para abrir un cajón conectado a una impresora Epson tmt88iv paralela uso este

comando

=Strtofile(Chr(27)+Chr(112)+Chr(48),"lpt1.uno"), pero

ahora la printer es usb, que comando puedo utilizar

para que se abra el cajón.

gracias

[Héctor Bernal]

Buenas noches, Xorro.

La instalación de los controladores que vienen con la impresora ya te dan esa opción, pues te vas a configuración del dispositivo y ahi aparece la forma de que se abra automáticamente el cajón antes o después de imprimir.

Espero te sea de ayuda.

Saludos desde México, D.F.

[xor...@hotmail.com]

Si se hace con la opción de software de la impresora se va abrir el cajón siempre

que imprima, y solo se debe abrir cuando se cobra. 

[Héctor Bernal]

Buen día, Xorro.

El siguiente código lo tengo implementado en un sistema para restaurante con el cual pueden abrir el cajón de dinero cuando lo deseen. Funciona sin importar si la impresora se conecta por usb o lpt1.

gcImpresora. Nombre de la impresora en donde esta conectado el cajón de dinero. Las impresoras con las que funciona son: EPSON TMU-XXX y Bixolon.

          llError = .F.

          ON ERROR llError = .T.

          SET PRINTER TO NAME (gImpresora)

          SET PRINTER ON

          ??? CHR(27) + 'p' + CHR(0) + CHR(100) + CHR(250)

          SET PRINTER OFF

          SET PRINTER TO DEFAULT

          SET PRINTER TO NAME (gcImpresora)

          SET CONSOLE OFF

          SET PRINTER ON

          ? 'Caja abierta a las :', DATETIME()

          ? '.'

          ? '.'

          ? '.'

          ? '.'

          ? '.'

          ? '.'

          SET PRINTER OFF

          SET PRINTER TO DEFAULT

          SET CONSOLE ON

          ON ERROR

Espero te sea de ayuda.

Saludos desde México, D.F.

[Saúl Piña]

Yo uso esta y hasta ahora funciona para todas las cajas de dinero en donde he instalado mi pventas.

            SET PRINTER TO LPT1
            *??? " "
            *??? " "
            *??? " "
            ??? CHR(27)+CHR(112)+CHR(48)+CHR(55)+CHR(121)
            SET PRINTER TO
                    WAIT WINDOW "ENVIANDO A IMPRESORA" NOWAIT
                    REPORT FORM ticket.frx FOR Ticket=Thisform.t5.value PREVIEW &&TO PRINTER NOCONSOLE
                    Thisform.Refresh
                   

       WAIT WINDOW "gracias por su compra!!"