convertir de XML a PDF

[nmc19....@gmail.com]

Hola, alguien sabes si se puede convertir un archivo XML a un PDF, si es que se pueda podrian darme nombres de los programas o programa que lo realiza, les agradezco por las respuesta o respuestas que me proporcionen.

Saludos. 

[Enrique Martinez]

Si te interesa te contacto con la persona que me proporciono un
codigo, logicamente tube que pagar por el codigo.

Saludos

Enrique Martinez

> --
> Has recibido este mensaje porque estás suscrito al grupo
> "vfp-factura-electronica-mexico" de Grupos de Google.
> Para ver este debate en la Web, visita
> https://groups.google.com/d/msg/vfp-factura-electronica-mexico/-/WBmhQ09xSjYJ.
> Para publicar una entrada en este grupo, envía un correo electrónico a
> vfp-factura-ele...@googlegroups.com.
> Para anular tu suscripción a este grupo, envía un correo electrónico a
> vfp-factura-electroni...@googlegroups.com
> Para tener acceso a más opciones, visita el grupo en
> http://groups.google.com/group/vfp-factura-electronica-mexico?hl=es.

[Victor Espina]

Si el XML al que te refieres es un CFD o CFDi, puedes usar la libreria del foro.  Esta libreria contiene una funcion llamada CFDPrint() que hace exactamente eso:

CFDPrint("archivo.xml",,.T.,"archivo.pdf")

Saludos

Victor Espina

[M Chan]

Hola, si quieres algo rapido y confiable: http://www.pcalmacen.com/apps/forums/topics/show/7747544 te genera desde linea de comando y desde interfaz grafica, maneja un demo funcional.

Saludos.

[Arturo Ramos]

Con la clase del foro es rápido y confiable... además de ser 100% código VFP libre de copiar y adapatar.

Suerte.

[Luis Javier Aguirre]

yo uso la siguiente linea...

= CREAPDF((ARCHIVOPDF), ARCHIVOXML))

LCFILE = ALLTRIM(ARCHIVOPDE)

y listo...

si tienes dudas las revisamos...

la rutina es:

PROCEDURE creapdf

PARAMETER ARCHIVOPDF, REPORTE

IF FILE('&archivopdf')

WAIT WINDOW TIMEOUT 3 'archivo '+ARCHIVOPDF+' ya existe...'

RETURN

ENDIF

WDEFAULTPRINTER = SET("PRINTER", 2)

WAIT WINDOW NOWAIT ' Impresora por defecto  '+WDEFAULTPRINTER

WPRINTER = "Bullzip PDF Printer"

WDESTFILE = (ARCHIVOPDF)

WAIT WINDOW NOWAIT 'creando archivo: '+WDESTFILE

OOBJ = CREATEOBJECT("BullZIP.PDFPrinterSettings")

OOBJ.SETVALUE("Output", WDESTFILE)

OOBJ.SETVALUE("ShowSettings", "never")

OOBJ.SETVALUE("ShowPDF", "no")

OOBJ.SETVALUE("ConfirmOverwrite", "no")

OOBJ.WRITESETTINGS(.T.)

WSALIDA = 'to print'

SET PRINTER TO NAME (WPRINTER)

SET CONSOLE OFF

REPORT FORM &REPORTE &WSALIDA

SET CONSOLE ON

SET PRINTER TO NAME (WDEFAULTPRINTER)

RETURN

ENDPROC

El martes, 18 de diciembre de 2012 16:47:17 UTC-6, nmc19....@gmail.com escribió: