Base de Conocimientos (KB)

Facturación Electrónica : SUNAT > Help Desk : VFPS CPE > Base de Conocimientos (KB)

Subir archivos XML y PDF a página de custodia

Solución

Cuando tenemos integrado el módulo web (página de custodia), vamos a subir el archivo XML y PDF para ser consultados por el cliente, con el siguiente código:

Visual Foxpro

*!*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

*!* EJEMPLO PARA SUBIR DOCUMENTOS AL SERVIDOR FTP DE LA PAGINA DE CUSTODIA

*!*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

LOCAL lcFileXML,lcFilePDF

*!*VER MENSAJES DE EVENTOS EL SISTEMA

_SCREEN.loCPE.llUsaWait = .T.

*!*PARA CONEXINES PASIVAS EN EL SERVIDOR FTP COLOCAR EN .T.

_SCREEN.loCPE.llTipoPasivo = .T.

*!*DOMINIO HOST DEL SERVIDOR FTP

_SCREEN.loCPE.lcServerFTP = "vfpsteambi.solutions"

*!*USUARIO DEL SERVIDOR FTP

_SCREEN.loCPE.lcUsuarioFTP = "tuusuarioftp"

*!*CONTRASEÑA DE USUARIO FTP

_SCREEN.loCPE.lcPassFTP = "xxxxxx"

*!*RUTA DE LA CARPETA DONDE SE ENCUENTRA LA PAGINA DE CUSTODIA

_SCREEN.loCPE.lcCarpetaFTP = "public_html/facturacionelectronicasunat.solutions/pruebacpe/"

*!* SE AGREGA LOS ARCHIVOS DE PDF Y XML PARA EL ENVIO

lcFileXML = _SCREEN.loCPE.lcDirINS + "FirmaXML\20100066603-01-FF11-000232.Xml"

lcFilePDF = _SCREEN.loCPE.lcDirINS + "XmlPDF\20100066603-01-FF11-000232.pdf"

*!* AGREGAR ARCHIVOS PARA SUBIR A LA PAGINA DE CUSTODIA

*!* SOLO SUBIR ARCHIVOS CON EXTENSION XML Y PDF YA QUE OTRAS EXTENSIONES SE PASAN POR ALTO

*!* SE PASA COMO PARAMETRO LA RUTA Y NOMBRE DEL ARCHIVO

_SCREEN.loCPE.Add_Files_FTP (lcFileXML)

_SCREEN.loCPE.Add_Files_FTP (lcFilePDF)

*!* CONECTAR Y ENVIAR LOS ARCHIVOS AL SERVIDOR FTP

IF !_SCREEN.loCPE.VFPs_Subir_Archivo_FTP (.T.)

RETURN .F.

ENDIF

*!* TODO OK SE SUBIERON LOS ARCHIVOS

Visual Basic .NET

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' EJEMPLO PARA SUBIR DOCUMENTOS AL SERVIDOR FTP DE LA PAGINA DE CUSTODIA

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'COLOCA EN True SI SE DESEA VER LOS MENSAJES WAIT

loCPE.llusawait = True

'PARA CONEXINES PASIVAS EN EL SERVIDOR FTP COLOCAR EN True

loCPE.lltipopasivo = True

'DOMINIO HOST DEL SERVIDOR FTP

loCPE.lcserverftp = "vfpsteambi.solutions"

'USUARIO DEL SERVIDOR FTP

loCPE.lcusuarioftp = "tuusuarioftp"

'CONTRASEÑA DE USUARIO FTP

loCPE.lcpassftp = "xxxxxx"

'RUTA DE LA CARPETA DONDE SE ENCUENTRA LA PAGINA DE CUSTODIA

loCPE.lccarpetaftp = "public_html/facturacionelectronicasunat.solutions/pruebacpe/"

'AGREGAR ARCHIVOS PARA SUBIR A LA PAGINA DE CUSTODIA

'SOLO SUBIR ARCHIVOS CON EXTENSION XML Y PDF YA QUE OTRAS EXTENSIONES SE PASAN POR ALTO

'SE PASA COMO PARAMETRO LA RUTA Y NOMBRE DEL ARCHIVO

Dim lcFileXML AsString

Dim lcFilePDF AsString

'SE AGREGA LOS ARCHIVOS DE PDF Y XML PARA EL ENVIO

lcFileXML = loCPE.lcdirins & "FirmaXML\20563124394-01-FF11-000232.Xml"

lcFilePDF = loCPE.lcdirins & +"XmlPDF\20563124394-01-FF11-000232.pdf"

loCPE.add_files_ftp(lcFileXML)

loCPE.add_files_ftp(lcFilePDF)

'CONECTAR Y ENVIAR LOS ARCHIVOS AL SERVIDOR FTP

If Not loCPE.vfps_subir_archivo_ftp(True) Then

Return

EndIf

'TODO OK EL ENVIO SE REALIZO CORRECTAMENTE

VFPSTEAM BI SOLUTIONS

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