impresion fiscal

863 views
Skip to first unread message

jcarazzo

unread,
Nov 13, 2010, 12:16:32 PM11/13/10
to Comunidad de Visual Foxpro en Español
Chicos, alguien tiene algun fragmento de codigo, donde envien a
imprimir una factura A en una epson.
Yo estoy tratando de enviar a imprimir en una epson lx300 + y no he
logrado hacerlo. Compre la libreria de www.impresoras-fiscales.com.
ar , pero los ejemplos no son funcionales y cuando consulte con el
soporte tecnico, solo se dignan a remitirme a los archivos de ayuda.
(La verdad que haber pagado $700 entre libreria y emulador fiscal y
que ante un problema, me remitan al archivo de ayuda, es cuanto menos,
una estafa)

Alguien podria ayudarme ?

Este es el fragmento de codigo que me da error. Las auditorias y el
cierre z funcionan bien

El mismo se produce en @FACTABRE, con el mensaje de error COMANDO NO
VALIDO PARA EL ESTADO FISCAL

Este es el codigo que uso
chartipo='F'
charletra='A'
charcliente='Jorge'
charcuit='20210086928'
chardomicilio='Republica 999'

err = IF_WRITE("@PONEENCABEZADO|5|FACTURA A")



ejecuta="err = IF_WRITE('@FACTABRE|"+ chartipo +"|C|"+ charletra +"|1|
P|10|I|I|"+ charcliente +"||CUIT|"+ charcuit + "|N|"+ chardomicilio
+"|||REMITO 1||C')"

&ejecuta

Desde ya, como siempre, gracias a todos.


Javier (Gmail)

unread,
Nov 14, 2010, 7:54:34 PM11/14/10
to publice...@googlegroups.com
En la impresión desde el DOS, el comando es el siguiente, ( usando el
PFBATCH.EXE )
lcPaquete = "@PONEENCABEZADO|00001|5|⌂"
Donde
00001 es la transacción
⌂ si no van datos o El nombre de la Empresa
lcPaquete = "@FACTABRE|00001|F|C|A|1|P|12|I|I|JUAN
PEREZ| |CUIT|27141670641|N|BELGRANO 970|CAPITAL|BS AS|REMITO 1| "

Supongo que usando el software de impresoras-fiscales debería ser así
err = IF_WRITE("@PONEENCABEZADO|00001|5|⌂")
Y en la linea que abre la factura, agregale el numero de transacción
ejecuta="err = IF_WRITE('@FACTABRE|00001|"+ chartipo +"|C|"+ charletra +"|1|


P|10|I|I|"+ charcliente +"||CUIT|"+ charcuit + "|N|"+ chardomicilio
+"|||REMITO 1||C')"

Espero que te pueda servir.
Saludos
Javier Solier

-----Mensaje original-----
From: jcarazzo
Sent: Saturday, November 13, 2010 2:16 PM
To: Comunidad de Visual Foxpro en Español
Subject: [vfp] impresion fiscal

Hugo Germigniani - Profind

unread,
Nov 15, 2010, 5:58:24 AM11/15/10
to publice...@googlegroups.com
Yo lo uso de la siguiente manera

IF cForm.DiscIva=1
lcComprobante = "T" && Si Es FACT o NC
lnAccion=IF_WRITE("@FACTABRE|"+lcComprobante+;
"|C|A|1|F|12|I|"+cForm.LetrFisc+"|"+lcClienteImpreso+;
"||"+lcTipoDocumento+"|"+lcCuit+;
"|N|"+lcDomicilio1+"|"+lcDomicilio2+"|"+lcDomicilio3+"|.||C")
ELSE
lcComprobante = "T" && Si Es FACT o NC
lnAccion=IF_WRITE("@FACTABRE|"+lcComprobante+;
"|C|B|1|F|12|I|"+cForm.LetrFisc+"|"+lcClienteImpreso+;
"||"+lcTipoDocumento+"|"+lcCuit+;
"|N|"+lcDomicilio1+"|"+lcDomicilio2+"|"+lcDomicilio3+"|.||C")
ENDIF

** Detalle del Comprobante
SET DECIMALS TO 4
oApp.Procesando("Imprimiendo Detalle del Comprobante Fiscal...")
SELECT cFormd
SCAN

lnAccion =
IF_WRITE("@FACTITEM|"+ALLTRIM(codiprod)+"|"+TRANSFORM(cant,"9999.999")+"|"+T
RANSFORM(precunit,"9999999.99")+"|"+;

TRANSFORM(porciva1/100,"9.9999")+"|M|1|"+TRANSFORM(porcImpInt,"999.99999")+"
|"+;

ALLTRIM(SUBSTR(descprod,1,30))+"|"+ALLTRIM(SUBSTR(descprod,31,30))+"|"+ALLTR
IM(SUBSTR(descprod,61,30))+;
"|0.0000|"+TRANSFORM(ImpImpInt,"999999999.99")+'"')

IF lnAccion < 0
EXIT
ENDIF
ENDSCAN
IF lnAccion < 0
lcMensajeError = lcMensajeError + " FACTITEM "
llOkDriver = .F.
ENDIF
SET DECIMALS TO 2

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de jcarazzo
Enviado el: sábado, 13 de noviembre de 2010 14:17
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] impresion fiscal

jcarazzo

unread,
Nov 15, 2010, 10:20:17 AM11/15/10
to Comunidad de Visual Foxpro en Español
Muchisimas gracias por el aporte. los voy a probar y les cuento.
Un abrazo grande.

jcarazzo

unread,
Nov 15, 2010, 10:28:16 AM11/15/10
to Comunidad de Visual Foxpro en Español
Hugo, me podrias decir si estas usando la libreria de " www.impresoras-fiscales.com"
y de ser asi, como armas el comando PONEENCABEZADO ?
desde ya, Gracias.

Hugo Germigniani - Profind

unread,
Nov 15, 2010, 10:36:14 AM11/15/10
to publice...@googlegroups.com
Si, uso esas librerías, pero no uso en poneencabezado, por que cuando la
fiscal esta inicializada, el AFIP no te deja cambiarlos.-

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de jcarazzo

Enviado el: lunes, 15 de noviembre de 2010 12:28


Para: Comunidad de Visual Foxpro en Español

Asunto: [vfp] Re: impresion fiscal

jcarazzo

unread,
Nov 15, 2010, 5:22:34 PM11/15/10
to Comunidad de Visual Foxpro en Español
Hugo, gracias por tus datos. Te sigo molestando. Me podes contar, a
muy grandes rasgos, que tipos de errores le controlas a la impresion.
Voy a probar de imprimir sin la instruccion PONEENCABEZADO, a ver que
pasa. Saludos.

Gustavo Rojo

unread,
Jan 23, 2014, 9:17:59 PM1/23/14
to publice...@googlegroups.com, hu...@profind.com.ar

Hola Hugo, te hago una consulta a ver si me podes ayudar.
Estoy utilizando un impresor Epson TM-U220AFII (inicializado), utilizo los comandos como vos mostraste en el ejemplo con visual foxpro 9.
Pero me imprime en el nombre y domicilio del comprador *Demo*, sabes por que ocurre esto?

Saludos!

Fidel Charny

unread,
Jan 24, 2014, 6:36:30 AM1/24/14
to publice...@googlegroups.com, hu...@profind.com.ar
Por las dudas, te digo que el hilo tiene más de tres años. 
Lo de la palabra "Demo" te sale porque aún no tienes la versión de pago del driver que estás utilizando. Si es de Ifdrivers, cuando lo pagues te enviarán a un link de descarga y ya no tendrás problemas.

Gustavo Rojo

unread,
Jan 24, 2014, 8:23:30 AM1/24/14
to publice...@googlegroups.com
Hola Fidel, muchas gracias por tu respuesta.

Saludos
--
Gustavo Rojo| Sr. Analyst & QA
La Plata (1900), Buenos Aires, Argentina
Office: +54.9.221.5374343 
Skype: rojo.gustavo

conelo

unread,
Jan 24, 2014, 4:59:08 PM1/24/14
to publice...@googlegroups.com
Hola Colega, trabajos con el OCX fiscal si decides hacerlo por esta via me contactas y te oriento.
Gracias. Saludos cordiales.
Mario A. Becerra
marioa...@hotmail.com
Argentina

Arnaldo Toledano

unread,
Jan 27, 2014, 5:13:31 PM1/27/14
to publice...@googlegroups.com, arnaldo....@gmail.com
jcarazzo
>Intuyo que sos Argentino.
Si es así, primero busca en la AFIP las nuevas disposiciones sobre controladores fiscales.
Desconozco los tiempos de implementan, pero TODO lo que existía sobre controladores
ya no funcionaria mas


Arnaldo Toledano
--
Arnaldo Toledano Tesys Informática Córdoba Argentina

Gustavo Rojo

unread,
Jan 27, 2014, 6:31:04 PM1/27/14
to publice...@googlegroups.com

Gracias por responder, el problema es puntual con un ocx de Epson que no logró leer campos de respuesta extra, como resultado de comandos enviados...

Saludos

Angel Dario Rodriguez

unread,
Jan 27, 2014, 9:00:55 PM1/27/14
to publice...@googlegroups.com
SI LO QUE NECESISTAS ES OBTENER RESPUESTA DEL COMANDO ENVIADO. ESTO ES LO QUE USO.

LOCAL command1, extension, enviar, envio, gcNif, gcTipo, gnTotal_bruto, gnTotal_neto, gnTotal_itbis

STORE "" TO command1, extension, gcNif, gcTipo

STORE 0 TO gnTotal_bruto, gnTotal_neto, gnTotal_itbis

STORE .F. TO enviar, envio

command1 = Chr(10) + Chr(10)

extension = Chr(0) + Chr(0)

enviar = THISFORMSET.frmImpresion_fiscal.Olecontrol1.AddDataField(command1)

enviar = THISFORMSET.frmImpresion_fiscal.Olecontrol1.AddDataField(extension)

envio = THISFORMSET.frmImpresion_fiscal.Olecontrol1.SendCommand

DO WHILE THISFORMSET.frmImpresion_fiscal.Olecontrol1.state = 2

WAIT WINDOW "Imprimiendo" nowait

enddo

IF THISFORMSET.frmImpresion_fiscal.Olecontrol1.ReturnCode # 0

WAIT WINDOW "Error en informacion general "+STR(THISFORMSET.frmImpresion_fiscal.Olecontrol1.ReturnCode)

ENDIF

*THISFORMSET.frmImpresion_fiscal.Olecontrol1.ExtraFieldsCount

gcNif = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(1)

gcTipo = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(2)

gnTotal_bruto = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(3)

gnTotal_neto = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(4)

gnTotal_itbis = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(5)

cCampo5 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(5)

cCampo6 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(6)

cCampo7 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(7)

cCampo8 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(8)

cCampo9 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(9)

cCampo10 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(10)

cCampo11 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(11)

cCampo12 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(12)

cCampo13 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(13)

cCampo14 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(14)

cCampo15 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(15)

cCampo16 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(16)

cCampo17 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(17)

cCampo18 = THISFORMSET.frmImpresion_fiscal.Olecontrol1.GetExtraField(18)

SELECT CGCCFAC1

REPLACE NIF_FISC WITH gcNif



2014-01-27 Gustavo Rojo <gusta...@gmail.com>

Gustavo Rojo

unread,
Jan 27, 2014, 9:17:26 PM1/27/14
to publice...@googlegroups.com

Exacto! Pero el getextrafield(n) me devuelve siempre vacío...
Ese es mi problema...

Angel Dario Rodriguez

unread,
Jan 28, 2014, 7:20:59 AM1/28/14
to publice...@googlegroups.com
Que modelo de impresora fiscal están usando?


2014-01-27 Gustavo Rojo <gusta...@gmail.com>

Gustavo Rojo

unread,
Jan 28, 2014, 8:28:59 AM1/28/14
to publice...@googlegroups.com

Hola ángel, es un tm-u220afii
Saludos

Angel Dario Rodriguez

unread,
Jan 28, 2014, 1:27:31 PM1/28/14
to publice...@googlegroups.com
no la he trabajado, pero tienes a mano el manual del ocx o la dll que maneja a al impresora?


2014-01-28 Gustavo Rojo <gusta...@gmail.com>

Eric Stonner

unread,
Oct 7, 2014, 12:36:22 PM10/7/14
to publice...@googlegroups.com
Hola muchachos! 
Les puedo consultar sobre Factura A con percepciones ingresos brutos en impresora fiscal Epson.
Por lo que estuve leyendo la parte de la percepcion se envia con el comando @FACTPERCEP, pero no he encontrado ejemplos completos sobre una Fact A. 
Les comento que utilizo impresoras fiscales con el pfbatch, pero recién ahora me pidieron que también haga las percepciones a los Responsables inscriptos. Y no encuentro ejemplosss! 
Por favor si tenes alguno aunque sea el modelo.
Le envio esto al impresor fiscal:
@FACTABRE|55484|T|C|A|1|P|10|I|I|ADMIFARM GROUP SERVICIOS S.A. | |CUIT|30711897581|N|YRIGOYEN 1628                      |CAP.FED             |_|_|_|
@FACTTEXTO|55484|Vendedor: 99 PROGRAMADOR      
@FACTITEM|55484|D'ACUA Q10 Cxx50|00001000|000008512|2100|M|00001|00000000| | | |0000|00000000000000000
@FACTITEM|55484|PURE WHITE LINEN|00001000|000032397|2100|M|00001|00000000| | | |0000|00000000000000000
@FACTPAGO|55484|EFECT. |000050727|T
@FACTPERCEP|55484|Perc.Ing.Brutos 3.00%|O|000001227
@FACTCIERRA|55484|T|A|FINAL

Pero me imprime hasta el FACTPAGO, despues de ahi se cancela el tkt.
No se que estoy haciendo mal! 
Por favorrr ayudaaaaaa 

Fidel Charny

unread,
Oct 7, 2014, 6:07:37 PM10/7/14
to publice...@googlegroups.com
La secuencia aparece invertida
@FACTPERCEP
@FACTPAGO
@FACTCIERRA
O sea, el pago incluye también las percepciones.

Fernando kabubi

unread,
May 6, 2015, 4:44:30 PM5/6/15
to publice...@googlegroups.com, jorgec...@yahoo.com.ar
Hola a todos acá le mando como le mandamos a imprimir un tique "A" EL CUAL NO FUNCIONA 


@FACTABRE|00001|T|C|A|1|P|17|I|I|MIL -MILINO S.A.                        |                                        |CUIT|30710586396|N|URIARTE 951                   |CABA                          |4779-0880                     |        |        |C          
@FACTITEM|00000|CIERRE-CIERRE ESPEC|00001000|000000100|2100|M|00000|000000000|                  | | |0000|00000000000000000                                                                                                                                    
@FACTSUBTOTAL|00001|N|                                                                                                                                                                                                                                          
@FACTPAGO|00001|CAJA EFECTIVO            |000000121|T                                                                                                                                                                                                           
@FACTCIERRA|00001|T|A|  


y acá les envío para imprimir un  tique "B" que si imprime 

@FACTABRE|00001|T|C|B|1|P|17|I|F|COFI-CONSUMIDOR FINAL                   |                                        |    |00000000000|N|                             |                              |                              |        |        |C          
@FACTITEM|00000|CIERRE-CIERRE ESPEC|00001000|000000001|2100|M|00000|000000000|                  | | |0000|00000000000000000                                                                                                                                    
@FACTSUBTOTAL|00001|N|                                                                                                                                                                                                                                          
@FACTPAGO|00001|CAJA EFECTIVO            |000000001|T                                                                                                                                                                                                           
@FACTCIERRA|00001|T|B|           



en el modelo TM-2000 AF+  funcionaba perfecto pero en  el modelo TMU-220A me pasa esto alguien tiene una remota idea?
Desde ya gracias.
Fernando Alori                                                                                                                                                                                                                                

Arnaldo Toledano

unread,
May 6, 2015, 5:24:30 PM5/6/15
to publice...@googlegroups.com, arnaldo....@gmail.com
Es un problema nuevo ?
O etas siguiendo el hilo anterior ?

Suponiendo que sea algo nuevo.
busca en este sitio http://www.impresoras-fiscales.com.ar el emulador FISCAL.
Es BÁRBARO, te marca exactamente el error.
OJO, el demo te dura 15 días

Arnaldo Toledano

El 06/05/2015 a las 05:44 p.m., Fernando kabubi escibió:

Angel Dario Rodriguez

unread,
May 7, 2015, 12:07:01 AM5/7/15
to publice...@googlegroups.com
Mi estimado, lo mas probable es que esa impresora este configurada para modo de entrenamiento y no para uso oficial. Me paso un caso asi. Hablate con el distribuidor.

Eduardo Allasino

unread,
Feb 25, 2016, 1:22:50 PM2/25/16
to Comunidad de Visual Foxpro en Español
Hola buenas tardes, estoy teniendo este mismo problema con un controlador (tm-u220afii) ya inicializado, imprime correctamente los tique B pero en los A me devuelve error. Probé con el emulador fiscal y no me da error el tique A.

Ejemplos:
tique A: error
"@FACTABRE|F|C|A|1|P|10|I|I|WILTEL COMUNICA||CUIT  |30684386308|N|AV MITRE 442|(2300) RAFAELA ||||C"

tique B: ok
"@FACTABRE|F|C|B|1|P|10|I|F|BOTTO NATALIA S||DNI   |35953680|N|AV L FANTI 368 |(2300) RAFAELA ||||C"

Me devuelve IF_ERROR2(5): Campo de datos Invalido.
¿puede provenir del pone_encabezado o si funciona bien con el B no debería afectar?

El distribuidor local pudo emitir tique A con un soft de epson, con lo cual se desliga del problema...

gracias
Eduardo.

Eduardo Allasino

unread,
Apr 15, 2016, 12:56:59 PM4/15/16
to Comunidad de Visual Foxpro en Español
Resuelto quitando el espacio final del tipo de documento (cuit, dni, etc.). El controlador es modelo 22.01 Demeter y no acepta espacios en blanco.
"@FACTABRE|F|C|A|1|P|10|I|I|WILTEL COMUNICA||CUIT|30684386308|N|AV MITRE 442|(2300) RAFAELA ||||C"

Reply all
Reply to author
Forward
0 new messages