Jugá un poco con esto:
IF m.queticket = 1 && TICKET CONSUMIDOR FINAL
THISFORM.Epsontm2000af.PortNumber = 1
THISFORM.Epsontm2000af.OpenTicket("C")
THISFORM.Epsontm2000af.SendNoFiscalText("Mesa:
"+ALLTRIM(STR(m.quenrodemesa)))
SELECT C_BARRAREST
SCAN
des1f = LEFT(alltrim(C_BARRAREST.DESCRIPCION),40)
canf =
alltrim(SUBSTR(STR(C_BARRAREST.CANTIDAD,9,3),1,5)+SUBSTR(STR(C_BARRAREST.CAN
TIDAD,9,3),7,3))
punf =
alltrim(SUBSTR(STR(C_BARRAREST.PRECIO,10,2),1,7)+SUBSTR(STR(C_BARRAREST.PREC
IO,10,2),9,2))
THISFORM.Epsontm2000af.SendTicketItem( des1f, canf,
punf,"2100","M","0","0","0")
ENDSCAN
THISFORM.Epsontm2000af.GetTicketSubtotal("P", " ")
THISFORM.Epsontm2000af.CloseTicket()
ENDIF
*--------------------------------------------------------*
*--------------------------------------------------------*
*--------------------------------------------------------*
*--------------------------------------------------------*
*--------------------------------------------------------*
IF m.queticket = 2 && TICKET FACTURA "A"
razon = SUBSTR(m.larazonsocialx,1,30)
*---------*
c_cuit = m.elnrodecuitx
nrocuit= ""
FOR cf_i = 1 TO 13
IF SUBSTR(c_cuit,cf_i,1) >= "0" AND SUBSTR(c_cuit,cf_i,1) <= "9"
nrocuit = ALLTRIM(nrocuit)+SUBSTR(C_cuit,cf_i,1)
ENDIF
ENDFOR
*---------*
dircomp = SUBSTR(m.ladireccionx,1,40)
*-----------------------------------*
THISFORM.Epsontm2000af.PortNumber = 1
THISFORM.Epsontm2000af.OpenInvoice("T", "C", "A", "1", "P", "12", "I",
"I", razon, " ", "CUIT", nrocuit, "N", dircomp, " ", " ", " ", " ", "C")
SELECT C_BARRAREST
SCAN
des1f = LEFT(alltrim(C_BARRAREST.DESCRIPCION),40)
canf =
alltrim(SUBSTR(STR(C_BARRAREST.CANTIDAD,9,3),1,5)+SUBSTR(STR(C_BARRAREST.CAN
TIDAD,9,3),7,3))
punf =
alltrim(SUBSTR(STR(C_BARRAREST.PRECIO,10,2),1,7)+SUBSTR(STR(C_BARRAREST.PREC
IO,10,2),9,2))
THISFORM.Epsontm2000af.SendInvoiceItem( des1f, canf,
punf,"2100","M","0","0", " ", " ", " ","0","0")
ENDSCAN
THISFORM.Epsontm2000af.GetInvoiceSubtotal("P", " ")
THISFORM.Epsontm2000af.CloseInvoice("T", "A", " ")
ENDIF
m.elultimonrof = VAL(THISFORM.Epsontm2000af.AnswerField_3)
m.elultimonrot = VAL(THISFORM.Epsontm2000af.AnswerField_3)
-----Mensaje original-----
De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Osvaldo N. Torres
Enviado el: miércoles, 03 de septiembre de 2008 07:27 p.m.
Para: GUFA List Member
Asunto: [GUFA] [Fwd: CONTROLADOR FISCAL EPSON TU 220]
-------- Mensaje original --------
Asunto: [GUFA] CONTROLADOR FISCAL EPSON TU 220
Fecha: Tue, 02 Sep 2008 14:06:08 -0300
De: Osvaldo N. Torres <[EMAIL PROTECTED]>
Responder a: gufa@mug.org.ar
Para: GUFA List Member <GUFA@mug.org.ar>
Hola lista.
Alguien tiene experiencia con el controlador fiscal EPSON TU 220.
Instale varias hasas de diferentes modelos, 320, 615, 715, pero EPSON
ninguna, hasta hoy que se le ocurrió a un cliente comprar una debido a
que es más barata que la Hasar 715, que era mi recomendada.
Cualquier ayuda se las agradeceré.
Saludos..
Osvaldo Torres
