Función para abrir la Cash Drawer

Hola amigos,

Este código me fue muy útil, y tenia mucho tiempo buscandolo hasa que lo encontre,
aunque disperso en varia paginas logre sintetizarlo y hacerlo funcionar correctamente.

PUBLIC SUB abrir_caja() 'Abrir caja de efectivo
    DIM hFile AS File
    DIM codeopencash AS String
    
    codeopencash = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(27) & Chr$(112) & Chr$(1)
    
    hFile = OPEN "/dev/ttyS0" FOR WRITE
    IF ERROR THEN
    message.Error("No se puede acceder a la Caja")
    ELSE
    ' WRITE #hFile, Eval(codeopencash)' Puede que se use esta linea en otro equipos
    WRITE #hFile, codeopencash
    END IF
END

Pueden cambiar el puerto de salida con la siguiente tabla:

Nombre del dispositivo      Descripción
/dev/ttyS0     Primer puerto serie nativo. (Equivalente a COM1 en Windows)
/dev/ttyS1     Segundo puerto serie nativo. (Equivalente a COM2 en Windows)
/dev/ttySnn     n-ésimo puerto serie nativo
/dev/ttyUSB0     Conversor USB-serie 1
/dev/ttyUSB1     Conversor USB-serie 2
/dev/ttyUSBnn     n-ésimo conversor USB-serie

Espero les sea útil.

Gracias por tu aportación, alessandri. Seguro que resulta muy útil a los que dispongan de impresora de tickets.

Saludos

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"