Fabián Tomás de Paula
2008-02-04 16:28:57 UTC
Aqui les dejo un utilitario que les permitirá realizar los comandos más
frecuentes de los siguientes controladores fiscales EPSON
TM2000AF+ , TM300AF+, TM2000AF, TMU950F, TMT285F.,
TMU220AF
El utilitario utiliza el MSCOMM32 (OCX Proporcionado por Microsoft) para
enviar los comandos.
El utilitario en general es de libre uso y modificación. Solo le pido que
quien logre mejorarlo o le agrega algunos comandos no se guarde el
conocimiento y lo transmita. Para el uso correcto del utilitario deben estar
todos los .PRG incluídos en éste mail.
Salu2
Fabián.
Ejemplo de uso:
LOCAL aDataCierre, nCOMMPort
nCOMMPort = 11 && es el puerto COM a utilizar
oFiscalObject = NEWOBJECT("EpsonFiscalClass", "EpsonFiscalClass.Prg", "",
nCOMMPort)
With oFiscalObject
.ClosDayFis("Z", .T., @aDataCierre)
** Procesar el Vector aDataCierre con los datos del Cierre "Z" realizado
EndWith
frecuentes de los siguientes controladores fiscales EPSON
TM2000AF+ , TM300AF+, TM2000AF, TMU950F, TMT285F.,
TMU220AF
El utilitario utiliza el MSCOMM32 (OCX Proporcionado por Microsoft) para
enviar los comandos.
El utilitario en general es de libre uso y modificación. Solo le pido que
quien logre mejorarlo o le agrega algunos comandos no se guarde el
conocimiento y lo transmita. Para el uso correcto del utilitario deben estar
todos los .PRG incluídos en éste mail.
Salu2
Fabián.
Ejemplo de uso:
LOCAL aDataCierre, nCOMMPort
nCOMMPort = 11 && es el puerto COM a utilizar
oFiscalObject = NEWOBJECT("EpsonFiscalClass", "EpsonFiscalClass.Prg", "",
nCOMMPort)
With oFiscalObject
.ClosDayFis("Z", .T., @aDataCierre)
** Procesar el Vector aDataCierre con los datos del Cierre "Z" realizado
EndWith