Hola!!
Yo uso esto para codigo de barras de la FE http://www.sistemasagiles.com.ar/trac/wiki/ManualPyAfipWs [5] Busca :Objeto PYI25 (interfaz COM) u Objeto: PyI25 (registrar PYI25.DLL) en VFP es algo así *------------------------------------------------------------------** * Funcion.......: ClassmgrCodigoBarra * Devuelve......: * Autor.........: ERIC ZBRUN * Fecha.........: 2015-07-03 * Version.......: 1.0 * Parametros....: * Notas.........: Codigo de Barra * ..............: se usa la librerias PyAfipWs (instalador-PyI25-1.02a) DEFINE CLASS ClassmgrCodigoBarra as Custom *--Objeto de codigo de Barra-- loPyI25="" *--Init--- FUNCTION Init this.loPyI25= CreateObject("PyI25") ENDFUNC *------------------- *--Codigo de Barras Sistema Agiles-- FUNCTION CodigoBarraI25(tcText as String) as String *SET STEP ON *--Var-- LOCAL lcbarras as String,lcFile as String,lcVerificador as String lcFile="" lcbarras=tcText lcVerificador="" *--Proc-- * cuit, tipo_cbte, punto_vta, cae, fch_venc_cae *barras = "202675653930240016120303473904220110529" * calculo digito verificador: lcVerificador = This.loPyI25.DigitoVerificadorModulo10(lcbarras) lcbarras = lcbarras + lcVerificador * genero imagen en png, aspecto 1x para ver en pantalla o por mail *ok = This.loPyI25.GenerarImagen(lcbarras, ".\Tmp\barras.png") lcFile=SYS(5)+CURDIR()+"barra.jpg" * formato en jpg, aspecto 3x más ancho para imprimir o incrustar: lbRet = This.loPyI25.GenerarImagen(lcbarras ,lcFile, 9, 0, 90, "JPEG") *------ return(lcVerificador) ENDFUNC FUNCTION destroy this.loPyI25="" ENDFUNC *--Error para el Try Catch--- FUNCTION ERROR(nError, cProcedure, nLine) GLOG("Error: "+chr(13)+; Message()+chr(13)+; "Error #:"+Transform(nError)+chr(13)+; "Linea #:"+Transform(nLine)+chr(13)+; "Proceso #:"+Transform(cProcedure),"mgrssof.log") pcError =left(ALLTRIM(Message())+"-Nº"+Transform(nError),200) ENDPROC *------------------------------- ENDDEFINE El 2015-10-20 07:02, francisco prieto escribió: > Creo que te referis a esto Walter > > https://groups.google.com/forum/#!topic/publicesvfoxpro/GQcORpjoASk [4] > > Saludos, > > Pancho Córdoba Argentina > > El 19 de octubre de 2015, 17:48, Walter Comito <[email protected]> > escribió: > >> Amigos como están, hace algunos días atrás respondieron de como se armaba el >> código de barra para las fe. >> >> Se me perdió y no lo encuentro por ningún lado. >> >> Alguien me pude reenviar la forma de armarlo >> >> Gracias. >> >> WALTER CÓMITO >> >> Analista de Sistemas >> >> MP 0397 C.P.C.I.P.C. >> >> › [email protected] >> >> [email protected] >> >> ' +54 351 494.4667 >> >> 153.292.707 >> >> Þ WWW.SOFTRAM.COM.AR [1] >> >> Q Si no es necesario, no imprima este correo. >> >> Todos somos responsables por el cuidado del medio ambiente. >> >> NOTA DE CONFIDENCIALIDAD >> Este mensaje (y sus anexos) es confidencial y puede contener información de >> propiedad >> exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje >> por error, >> por favor comuníquelo inmediatamente a [email protected] [2] y tenga >> la amabilidad >> de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a >> ninguna persona. >> >> Muchas Gracias. >> >> ------------------------- >> >> [3] >> >> El software de antivirus Avast ha analizado este correo electrónico en busca >> de virus. >> www.avast.com [3] Links: ------ [1] http://www.softram.com.ar/ [2] http://gmail.com/ [3] https://www.avast.com/antivirus [4] https://groups.google.com/forum/#!topic/publicesvfoxpro/GQcORpjoASk [5] http://www.sistemasagiles.com.ar/trac/wiki/ManualPyAfipWs
