Base de Conocimientos (KB)

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

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