codigo de barra para facturas afip argentina

170 views
Skip to first unread message

Gustavo Torres

unread,
Mar 1, 2019, 1:50:15 PM3/1/19
to Comunidad de Visual Foxpro en Español
alguien me puede dar una rutina para obtener el codigo de barra que exige la afip  y como imprimieron el codigo de barra.. (usaron algun font en especial )

gracias

Rodolfo Ortiz González

unread,
Mar 1, 2019, 7:48:40 PM3/1/19
to publice...@googlegroups.com
Hola Gustavo.

Mira, acá en México lo que hago es lo siguiente con la librería BarCodeLibrary:


  DECLARE INTEGER GenerateFile ;
    IN BarCodeLibrary.dll;
    STRING   cData, ;
    STRING   cFileName
  VARFILE="https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"+"?id="+ALLTRIM(VARIUUID)+"&re="+ALLTRIM(VARIERFC)+"&rr="+ALLTRIM(VARIRRFC)+"&tt="+ALLT(VARITOT)+"&fe="+ALLTRIM(V3)
  VCODIGOQR=allt(auxence3.serie)+allt(auxence3.folio)+".png"
  VARDIREC="COMPROBANTES\TIMBRESCFDI\"+VCODIGOQR
  GenerateFile(VARFILE,VARDIREC)

Varfile es la variable con los datos que nos solicita el gobierno, y con   GenerateFile (Varfile es la variable con los datos y Vardirec es la ruta y el nombre del archivo)

Espero te sea útil.


Saludos!

Luis Maria Guayan

unread,
Mar 27, 2019, 7:50:10 AM3/27/19
to Comunidad de Visual Foxpro en Español
Utiliza FoxBarcode, generalmente las tipografias utilizadas por la afip son Interleaved 2 of 5


Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

Gustavo Torres

unread,
Mar 27, 2019, 8:10:43 AM3/27/19
to publice...@googlegroups.com
Si. Use esa . Pero tengo el problema el siguiente problema. Envió a un determinado lugar el código de barra generado y en el reporte le digo que use olecontrol de esa imagen,  pero resulta que me trae otra ... de una factura anterior. Sin embargo voy a donde se guardo la imagen y esta la correcta. Es raro.
Uso foxpro 6 sp5

Luis Maria Guayan

unread,
Mar 27, 2019, 11:05:33 AM3/27/19
to Comunidad de Visual Foxpro en Español
No envíes la imagen generada a guardar en un directorio, directamente pones el método en el control source del objeto imagen, como te muestra en la sig. figura:
 

Irwin Rodriguez

unread,
Mar 27, 2019, 11:44:11 AM3/27/19
to publice...@googlegroups.com
Luis Ma, estás como el cometa 1P/Halley :-)

Saludos...!!!


--
Irwin Rodríguez
Analista Programador

+593 0994903424
Latacunga - Ecuador
"Un equipo solo son piezas que intercambias hasta que terminas el trabajo, es eficiente, funciona."

Gustavo Torres

unread,
Mar 27, 2019, 1:44:26 PM3/27/19
to publice...@googlegroups.com
No puedo ver la imagen que mandaste

HernanCano

unread,
Mar 27, 2019, 7:48:40 PM3/27/19
to Comunidad de Visual Foxpro en Español
Yo sì la veo... Es lo suficientemente grande....

Gustavo Torres

unread,
Mar 27, 2019, 7:56:30 PM3/27/19
to publice...@googlegroups.com
Ahora si

Gustavo Torres

unread,
Mar 27, 2019, 7:57:33 PM3/27/19
to publice...@googlegroups.com
El tema es que vfp 6 no tiene esa opcion

El mié., 27 de marzo de 2019 20:48, HernanCano <jherna...@gmail.com> escribió:

ZeRoberto

unread,
Mar 27, 2019, 8:16:23 PM3/27/19
to publicesvfoxpro
El problema que tienes que te toma la misma imagen puede ser que te este redireccionando a un solo archivo, tienes que crear una funcion que te genere un archivo unico temporal


? GetTempFile("JPG")

Function GetTempFile
Parameters tcExtension
Local lcPath, loHandler, loFolder
    loHandler = NewObject("Scripting.FileSystemObject")
    loFolder = loHandler.GetSpecialFolder(2)
    lcFile = Addbs(loFolder.Path) + Sys(2015)
    If VarType(tcExtension) = "C"
       lcFile = ForceExt(lcFile, tcExtension)
    Endif
    Release loHandler, loFolder
    Store .NULL. To loHandler, loFolder
Return (lcFile)


Saludos

Ze


Francisco Kovacs

unread,
Mar 27, 2019, 9:18:28 PM3/27/19
to Comunidad de Visual Foxpro en Español
Esta es la pagina web de AFIP, el tipo de Font que tenes que usar y como es el calculo del dígito verificador, también te cuento que yo lo hice con el foxbarcode.



Si no tenes tiempo o no podes hacerlo, en mercadolibre lo venden con código fuente en Vfp.

Sds


El viernes, 1 de marzo de 2019, 15:50:15 (UTC-3), Gustavo Torres escribió:

Francisco Kovacs

unread,
Mar 27, 2019, 9:20:00 PM3/27/19
to Comunidad de Visual Foxpro en Español
Se soluciona siempre usando la misma imagen y un solo comando.

SET SAFETY OFF

Sds


El miércoles, 27 de marzo de 2019, 9:10:43 (UTC-3), Gustavo Torres escribió:

Gustavo Torres

unread,
Mar 27, 2019, 10:12:54 PM3/27/19
to publice...@googlegroups.com
Si. Yo lo hice pero no puedo representarlo en el reporte. Actualizo el jpg pero cuando sale impreso sale el de una factura anterior

Defne

unread,
Mar 27, 2019, 10:16:34 PM3/27/19
to publice...@googlegroups.com
Que interesante lo que comentan a lo mejor podría aplicarlo para las facturas electrónicas de acá de Perú. 
Reply all
Reply to author
Forward
0 new messages