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

Ayuda de búsqueda:


Agregar documentos a la página de custodia

Solución

Cuando tenemos integrado el módulo web (página de custodia), vamos a ingresar los diferentes documentos electrónicos para ser consultados por el cliente, con el siguiente código:

Visual Foxpro

*!*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*!* EJEMPLO PARA AGREGAR EL DOCUMENTO A LA PAGINA DE CUSTODIA
*!*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*!* PARAMETROS
*!* lcRucNroDoc = &&NÚMERO DE RUC + TIPO DE DOCUMENTO + SERIE + NUMERO DE DOCUMENTO
*!* lcTipoDoc   = &&CÓDIGO DE TIPO DE DOCUMENTO
*!* lcRucCli    = &&NÚMERO DE RUC DEL CLIENTE
*!* lcFechaDoc  = &&FECHA DE EMISIÓN DEL DOCUMENTO
*!* lcTotalCPE  = &&TOTAL O VALOR VENTA DEL DOCUMENTO
*!* lcHashCPE   = &&HASH DE LA SUNAT
*!* lcBaseWS    = &&NOMBRE DE LA BASE DE DATOS QUE USA LA PÁGINA DE CUSTODIA
 
lcRucNroDoc = "20100066603-01-FF11-000232"
lcTipoDoc   = "01"
lcRucCli    = "20100066603"
lcFechaDoc  = "2016-06-10"
lcTotalCPE  = "2345.00"
lcHashCPE   = "X9I2WRTf93iz4JJiaeGMUC0/GNg="
lcBaseWS    = "vfps_cpe"
 
*!* VER MENSAJES DE EVENTOS EL SISTEMA
_SCREEN.loCPE.llUsaWait = .T. 
 
*!* DIRECCION WEB O RUTA DEL WEB SERVICES DE LA PAGINA DE CUSTODIA
_SCREEN.loCPE.lcRutaWebWsCPE = "http://www.facturacionelectronicasunat.solutions/pruebacpe/ws/vfpswscpe.php"
 
IF !_SCREEN.loCPE.Add_Documento_Pagina_CPE (lcRucNroDoc,lcTipoDoc,lcRucCli,lcFechaDoc,lcTotalCPE,lcHashCPE,lcBaseWS)
   RETURN .F.
ENDIF
 
*!* TODO OK SE AGREGO EL DOCUMENTO CORRECTAMENTE  

Visual Basic .NET

'COLOCA EN True SI SE DESEA VER LOS MENSAJES WAIT
loCPE.llusawait = True  
 
'DIRECCION WEB O RUTA DEL WEB SERVICES DE LA PAGINA DE CUSTODIA
loCPE.lcrutawebwscpe = "http://www.facturacionelectronicasunat.solutions/pruebacpe/ws/vfpswscpe.php"
 
Dim lcBaseWS AsString
Dim lcRucCli AsString
Dim lcRucNroDoc AsString
Dim lcTipoDoc AsString
Dim lcFechaDoc AsString
Dim lcTotalCPE AsString
Dim lcHashCPE AsString
 
'AGREGAR DOCUMENTO A LA PÁGINA DE CUSTODIA
'PARAMETROS
'lcRucNroDoc = NÚMERO DE RUC + TIPO DE DOCUMENTO + SERIE + NUMERO DE DOCUMENTO
'lcTipoDoc   = CÓDIGO DE TIPO DE DOCUMENTO
'lcRucCli    = NÚMERO DE RUC DEL CLIENTE
'lcFechaDoc  = FECHA DE EMISIÓN DEL DOCUMENTO
'lcTotalCPE  = TOTAL O VALOR VENTA DEL DOCUMENTO
'lcHashCPE   = HASH DE LA SUNAT
'lcBaseWS    = NOMBRE DE LA BASE DE DATOS QUE USA LA PÁGINA DE CUSTODIA
 
lcRucNroDoc = "20563124394-01-FF11-000232"
lcTipoDoc   = "01"
lcRucCli    = "20563124394"
lcFechaDoc  = "2016-06-10"
lcTotalCPE  = "2345.00"
lcHashCPE   = "X9I2WRTf93iz4JJiaeGMUC0/GNg="
lcBaseWS    = "vfps_cpe"
 
If Not loCPE.add_documento_pagina_cpe(lcRucNroDoc, lcTipoDoc, lcRucCli, lcFechaDoc, lcTotalCPE, lcHashCPE, lcBaseWS) Then
   Return
EndIf
 
'TODO OK DOCUMENTO AGREGADO Y/O MODIFICADO CORRECTAMENTE
 
VFPSTEAM BI SOLUTIONS
 
¿Le ha sido útil este artículo? si / no
Artículos relacionados Enviar correo electrónico en segundo plano
Agregar usuario a la página de custodia
Subir archivos XML y PDF a página de custodia
Instalación página de custodia de documentos electrónicos
Subir archivos XML y PDF vía webservice
Detalles del artículo
ID de artículo: 6
Categoria: Knowledgebase
Fecha de alta: 2016-08-08 17:29:00
Vistas: 1008
valoración (Votar): valoración del artículo 3.5/5.0 (8)

 
« Volver atras

 
Powered by Help Desk Software HESK, brought to you by SysAid