Clipper/FiveWin - NECESITO AYUDA PARA ABRIR UN CAJON MONEDERO paralo

Muy Buenas Tardes


Tengo una Aplicación instalada en un empresa tenia un cajon monedero serial y se cambio por uno paralelo y otro usb desdes mi aplicacion le envio la orden para abrirlo y no funciona por favor si me pueden ayudar a dar solucion a mi problema se lo agradezco

este parte del fuente como actualmente estoy abriendo el cajon

/****************************************************************
* TITULO DEL PROGRAMA......: ABRIR Y CERRAR EL CAJON MONEDERO *
*****************************************************************

* AUTOR: Jose Antonio Fereira L. FECHA DE CREACION: NOV 21/2003

REQUERIMIENTOS

1- Para ejecutar la funci¢n tener presente la sintaxis

OBJETIVOS:

1- Permite la inclusion de clientes y usuarios al sistema


SINTAXIS: Opci¢n Terminada

*------------------------------------------------------------------------*
* PROGRAMA *
*------------------------------------------------------------------------*/

FUNCTION abrir_cerrar_cajon(nTiptCaj)

*>>>>ABRIR EL CAJON MONEDERO
IF nTiptCaj==1
com_open(1)
com_init(1,300,"N",8,1)
com_send(1,"0000000000")
com_close(1)
*ÀSerial
ELSE
RUN ("type"+"\WINDOWS\TEMP\cajon2"+" > NILL" ) /* la Orden es */
*@ PROW()+00,00 SAY CHR(27)+CHR(112)+CHR(32)+CHR(16)+CHR(96)
*ÀParalelo
ENDIF
*À
RETURN NIL
*>>>>FIN DE CERRAR EL CAJON MONEDERO

por favor necesito la orden para paralelo y usb si lo estoy haciendo mal me pueden colaborar para el que no sabe si esta funcionando el cajon serial

muchas gracias

att jose ferreira

bueno tu problema es muy sencillo te dejo aqui dos secuencias de apertura para cajones en modo IBM o en modo EPSON, saludos!!!

modo epson:

? chr(27) + "p0(¿"

modo ibm o star:

? chr(7) + chr(80)


ambas lineas funciona para cualquier cajon conectado a una mini en paralelo, serial o USB, dudas? avisame... saludos!!!