Clipper/FiveWin - abrir caja registradora

Un saludo al foro,,, alguien sabe como abrir el cajon de una registradora (punto de venta) desde fivewin,,,,

Y alguien sabe como hacer el corte de papel en una impresora de punto de venta.

Espero su apoyo

¿ Que modelo de impresora utilizas ?

PROC CAJON()

local cDcb, nBytes
local nComm := OpenComm( "COM1", 1024, 128 )
local nError

if ! BuildCommDcb( "COM1:3000,n,8,1", @cDcb )
nError = GetCommError( nComm )
endif

if ! SetCommState( cDcb )
nError = GetCommError( nComm )
endif

if ( nBytes := WriteComm( nComm, "ATZ0" + Chr( 13 ) ) ) < 0
nError = GetCommError( nComm )
else
endif

if FlushComm( nComm, 0 ) != 0
nError = GetCommError( nComm )
endif

if ! CloseComm( nComm )
nError = GetCommError( nComm )
endif

Saludos

Mauricio Arevalo

Hola Mauricio, soy programadora en Clipper 5.2 y ando investigando como abrir una caja registradora conectada en una impresora de puerto paralelo, tu funcion anterior trabaja para el puerto COM1. Podrias ayudarme?? Bastaria con sustituir COM1 con LPT1 ??

Gracias