Crear archivo PDF directamente de XML

Solución

Si deseamos crear un PDF directamente de un archivo XML (CPE) previamente firmado digitalmente, lo vamos a poder realizar directamente usando el siguiente método:

*!* GENERAR ARCHIVO PDF DE UN XML FIRMADO

*!* VER MENSAJES DE EVENTOS EL SISTEMA

_SCREEN.loCPE.llUsaWait = .T. &&COLOCA EN .T. SI SE DESEA VER LOS MENSAJES WAIT

*!* CREAR UN PDF APARTIR DE UN XML FIRMADO

LOCAL lcFileXML,llOpenPDF,llCompPDF

_SCREEN.loCPE.PDF_Direccion = "AV. BENAVIDES NRO. 9999 URB. LAS GARDENIAS" &&DIRECCIÓN DEL EMISOR ELECTRÓNICO

_SCREEN.loCPE.PDF_Distrito = "SANTIAGO DE SURCO" &&DISTRITO

_SCREEN.loCPE.PDF_Provincia = "LIMA" &&PROVINCIA

_SCREEN.loCPE.PDF_Departamento = "LIMA" &&DEPARTAMENTO

_SCREEN.loCPE.PDF_Telefono = "+51 999-7373 / 999-7300" &&TELÉFONO

_SCREEN.loCPE.PDF_DirPaginaCustodia = "http://www.tuweb.ws/faccpe/" &&DIRECCIÓN WEB PÁGINA DE CUSTODIA

_SCREEN.loCPE.PDF_ResolucionSunat = "000001000000" &&NÚMERO DE RESOLUCIÓN DE SUNAT

_SCREEN.loCPE.PDF_FileLogoEmp = "F:\tufile\Images\LogoEmpPetty.bmp" &&RUTA Y NOMBRE DEL ARCHIVO DE LOGOTIPO PARA EL REPORTE

*!* PROPIEDADES Y PÁRAMETROS

*!* lcFileXML = RUTA Y NOMBRE DEL ARCHIVO XML A CREAR PDF

*!* llOpenPDF = COLOCAR EN .T. (True) PARA ABRIR EL ARCHIVO PDF GENERADO

*!* llCompPDF = COLOCAR EN .T. (True) PARA COMPRIMIR TAMAÑO DEL ARCHIVO PDF GENERADO

lcFileXML = ["] + _SCREEN.loCPE.lcFirXML + "20133877615-01-FE54-000009.xml" + ["] &&RUTA Y NOMBRE DEL ARCHIVO XML A CREAR PDF

llOpenPDF = .T.

llCompPDF = .T.

IF !_SCREEN.loCpe.VFPs_Generar_PdfCPE (lcFileXML,llOpenPDF,llCompPDF)

RETURN .F.

ENDIF

*!* FIN SE GENERO EL PDF CORRECTAMENTE

Este método se puede utilizar en cualquier lenguaje de desarrollo, y es útil cuando se requiere crear de forma dinámica el PDF sin necesidad de usar impresoras virtuales o programas externos.

Nota.- Para el uso de está función tiene que tener la versión 2016.100.66 de VFPsCPE

Se requiere que descargue archivos adicionales y los coloque en la carpeta Librerias, Images y Reportes de VFPsCPE. Descargar Aquí

VFPSTEAM BI SOLUTIONS

¿Le ha sido útil este artículo? si / no