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
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.)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 120 guests