Cajón Portamonedas

[Frafive]

Hola amigos

Alguna idea de como abrir un cajon portamonedas que esta connectado a una impresora
de ticket con un cable rj11 ?

un saludo y gracias desde ya

[pablovidal]

Code: Select all  Expand view  RUN

FUNCTION OPENCAJA( cPort , lSerial )
LOCAL o
Local cCajaCommand := chr(027) + chr( 112 ) + chr( 000) + chr(100) + chr( 250 )
Default lSERIAL := .F.
DEFAULT cPort   := "LPT1"

 o := TDosPrn():New( 3, cPort )
 o:SAY( 00, 00, IF( lSerial, Replicate("@", 32), cCajaComand ) )
 o:cFormFeed := ""
 o:End()

RETURN(.T.)
 

[Willi Quintana]

Asi:
En algunos casos:
oPrn:Command("27","112","0","100","250") // abree cajon oPrn:Command("27","105")
en otros:
oPrn:Command("27","105") // NO SE QUE PARA LA EPSON RARA

Salu2

[George]

// For USB drivers
cPrnRec1 := alltrim(cPrnRec) // cPrnRec es el nombre del impresor obtenido de lista
// de impresores instalados
nText := SPACE(45)
nText := CHR(27) +'p'+ CHR(0)+CHR(10)+CHR(25)

cfile := "c:\test01.txt" // Puedes usar cualquier nombre
nHandle := fCreate( cFile )
FWRITE( nHandle, nText)
fClose( nHandle )

PrintFileRaw(cPrnRec1, cFile) // Esta instruccion abre el cajon
ERASE("C:\test01.txt")

Saludos