FoxPro/Visual FoxPro - Impresora fiscal TM-U220AF

Hola a todos, estoy tratando de programar mi sistema de facturacion para utilizarlo con una impresora fiscal Epson TM-U220AF, esta posee un ocx de protocolo, alguno de ustedes tendria un ejemplo del uso de este ocx, me pasaron un ejemplo del cierre x y z pero esta en Visual Basic lo traduci solo que en ese ejemplo no esta como abrir el puerto
serial y colocando thisform.olecontrol1.openport = .t. me da error OLE 0x80020003 "No se ha encontrado el miembro". Si alguien uso este ocx y me puede dar una idea de como hacer esto, desde ya muchas gracias.

Utilizo VFP 7.0 SP1, Windows XP profesional

Saludos

Carlos Veron
Santa Fe - Argentina.
e-mail: [email protected]
[email protected]

Saludos, Carlos,

Explica lo que quieres.

Esta impresora, es serial, es paralela, quieres imprimir por ella?

Esta Impresora tiene un Kiket de Cash Drow?

O sea que cuando imprima quieres que abra la caja de efectivo, o sea el cash drow?

Dime que quieres?

Att.
Antonio Moquete Mejia
Santo Domingo, Rep. Dom.

Hola Antonio, muchas gracias por contestar mi pregunta.

Mira lo que necesito es imprimir por el puerto serial, en Argentina esta impresora se utiliza a modo fiscal, para ello existe el ocx de protocolo. El problemas que no puedo hacer que imprima nada, probe con un comando simple que es hacer un cierre x o z, cree este codigo pero no funciona

* Cierre X
LOCAL lcCierrex, lcExtension, lcOpen, lcClose, lnEstado
STORE SPACE(1) TO lcOpen, lcClose, lcEstado

ThisForm.olecontrol1.CommPort = 0
ThisForm.olecontrol1.BaudRate = 3
ThisForm.olecontrol1.ProtocolType = 1
lcOpen = Thisform.olecontrol1.openPort
IF lcOpen = .T.
lcCierrez = CHR(0x8)+CHR(0x2)
ThisForm.olecontrol1.AddDataField(lcCierrex)
lcExtension = CHR(0x0)+CHR(0x1)
ThisForm.olecontrol1.AddDataField(lcExtension)
ThisForm.olecontrol1.sendCommand
lcClose = ThisForm.olecontrol1.closePort
ELSE
WAIT 'Error'
ENDIF
ThisForm.Refresh

Ya consulte al soporte de epson y me dieron un ejemplo en VB, yo trate de traducirlo me quedo el codigo anterior, no se si el codigo es correcto, tal vez tengas un ejemplo que si funcione y me lo puedeas enviar.

Muchas gracias.

Saludos
Carlos Veron
Santa Fe - Argentina

mira , yo uso esto con el pfbatch
&& ABRO TICKET
SUBTOTAL=0
TOTAL1 = 0
LINEA1='@echo'+chr(124)+'00001'+CHR(124)+'FACTURA A - RESPONSABLE INSCRIPTO'
LINEA1=LINEA1+CHR(13)+chr(10)
DO SUMO_LINEA
LINEA1=LINEA1+CHR(13)
LINEA1='@FACTABRE'+CHR(124)+'00001'+CHR(124)+'T'+CHR(124)+'C'+CHR(124)+'A'+CHR(124)+'1'+CHR(124)+'P'+CHR(124)+'17'+CHR(124)+'I'+CHR(124)+'I'+CHR(124)+chr(10)
SELE 3
LINEA1=LINEA1+SUBSTR(CLINOMCLI,1,25)+CHR(124)+CHR(127)+CHR(124)+'CUIT'+CHR(124)+SUBSTR(CLICUIT,1,11)+CHR(124)
LINEA1=LINEA1+'N'+CHR(124)+SUBSTR(CLIDIRCLI,1,20)+CHR(124)+SUBSTR(CLITELECLI,1,18)+CHR(124)+chr(127)+CHR(124)+'Remito Nro'+CHR(124)+chr(127)+CHR(13)
LINEA1=LINEA1+CHR(13)+chr(10)
DO SUMO_LINEA
LINEA1=LINEA1+CHR(13)
LINEA1='@FACTITEM'+CHR(124)+'00001'+chr(124)
SELE 3
IF trim(TASA1)='2100'
IVA=0.826446
ENDIF
IF trim(TASA1)='1050'
IVA=0.904977
ENDIF
IF trim(TASA1)='0000'
IVA=1
ENDIF
LINEA1=LINEA1+SUBSTR(ITDESCRIP1,1,17)
LINEA1=LINEA1+CHR(124)+rtrim(chrtran(str((CANTIDAD1*1000),8,0),' ','0'))
LINEA1=LINEA1+CHR(124)+rtrim(chrtran(str(((PRECIO1*IVA)*100),9,0),' ','0'))
LINEA1=LINEA1+CHR(124)
LINEA1=LINEA1+substr(TASA1,1,4)+CHR(124)
ADICIONO=substr(ITDESAD1,1,20)
LINEA1=LINEA1+'M'+CHR(124)+'00001'+CHR(124)+'00000000'+CHR(124)+ADICIONO+CHR(124)+CHR(127)+CHR(124)+CHR(127)+CHR(124)+'0000'+chr(124)+'0000000000000000'
LINEA1=LINEA1+CHR(13)+chr(10)
T1=0
PR=0
RP=0
PR=(PRECIO1*0.826446)
RP=STR(PR,9,2)
RP=VAL(RP)
T1=(RP*CANTIDAD1)*1000
T1=T1*1.21
T1=T1/1000
IF ITDESCRIP1<>" "
DO SUMO_LINEA
ENDIF
SR=0
TOTALPAGO=TOTALL
TOT=TOTALPAGO
LINEA1=LINEA1+chr(13)
LINEA1='@FACTPAGO'+CHR(124)+'00001'+CHR(124)+SUBSTR(CONVTA,1,20)+CHR(124)+rtrim(chrtran(str((TOTALPAGO*100),9,0),' ','0'))+chr(124)+'T'
LINEA1=LINEA1+chr(13)+chr(10)
DO SUMO_LINEA
LINEA1=LINEA1+chr(13)
LINEA1='@FACTCIERRA'+CHR(124)+'00001'+CHR(124)+'T'+CHR(124)+'A'+CHR(124)+'FINAL'
DO SUMO_LINEA
cualquier duda , avisame

Hola Carlos, pudiste solucionar lo del ocx?
Me esta pasando lo mismo, con la misma impresora y ya estoy loco, no se que mas probar