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
Board index FiveWin para Harbour/xHarbour Caj贸n Portamonedas
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.)Saludos,
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
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
// 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