Histórico da Página

...

#Include 'protheus.ch'
#Include 'parmtype.ch'
 
/*/{Protheus.doc} M486VLDCMP
Punto de Entrada utilizado para definir que en la rutina MATA410
se deshabilitarán las validaciones de Facturación Electrónica.
 
@type User function
@author TOTVS ERP
@return cVldEnRut, String, Nombre de la rutina de Pedidos de Venta
/*/
User function M486VLDCMP()
    Local cVldEnRut := ""
     
    cVldEnRut := "MATA410"
     
Return cVldEnRut

3.

...

13 Transmisión de guías de remisión desde la rutina de Remisión MATA462N

Se solicita en la rutina Generac. Form. de Remisión (MATA462N), activar la funcionalidad definida por la Superintendencia Nacional de Aduanas y de Administración Tributaria (SUNAT), para realizar la generación del XML y transmisión de las Guías de Remisión Electrónicas (GRE).

...

3.

...

14 Puntos de Entrada

Se activa el Punto de Entrada M486FECVEN, el cual permite la generación del nodo cbc:DueDate para informar la Fecha de Vencimiento (nodo que sólo aplica para Factura de Venta). Ejemplo del Punto de Entrada:

Se debe retornar valor de tipo carácter con el nodo de acuerdo a lo definido por la SUNAT.

Nota: Las actualizaciones presentadas a continuación son compatibles con versiones mayor o igual a 12.1.17

1. Se recomienda realizar un respaldo del repositorio de objetos (RPO) antes de aplicar el paquete de actualización (patch).

2. Aplicar el paquete de actualización (patch), el cual contiene las siguientes rutinas:

M486FECVEN

#include 'protheus.ch'
 
User Function M486FECVEN()
      Local cXMLVen := ""
      Local cFecVen := "2020-07-31" + Alltrim(SF2->F2_SERIE) + "-" + Alltrim(SF2->F2_DOC)
      Local cCRLF  := (chr(13)+chr(10))
 
      cXMLVen += ' <cbc:DueDate>' + cFecVen + '</cbc:DueDate>' + cCRLF
Return cXMLVen

Image Modified

Se activa la generación del nodo cbc:ElectronicMail para informar el email al cual se hará el envío de documentos electrónicos una vez realizada la transmisión con el OSE denominado RSM, el dato informado corresponde al campos Email (A1_EMAIL) configurado en el Cliente.

Image Modified

Se activa el Punto de Entrada M486PEREF para definir la regla de negocio que aplicará para la generación del nodo cac:BillingReference en las Notas de Crédito de Cliente cuando el documentos origen no existe en Protheus:

NOTA:  Se debe retornar un arreglo con la Serie, Folio, Tipo de Documento (Catálogo N.° 01 de la SUNAT) y Fecha de Emisión del documento que será relacionado a la nota de Crédito.

M486PEREF

#include 'protheus.ch'
 
User Function M486PEREF()
    Local cEs := PARAMIXB[1] //Especie
    Local cDc  := PARAMIXB[2] //Documento
    Local cSe  := PARAMIXB[3] //Serie
    Local cCl  := PARAMIXB[4] //Cliente
    Local cLo  := PARAMIXB[5] //Loja
    Local cSero := "F009"
    Local cDocO := RTRIM(cNFOri)
    Local cTpDocu  := "01"
    Local cDtEmisi := "2020-07-31"
     
Return {cSero,cDocO,cTpDocu,cDtEmisi}

Image Modified

Procedimiento de Utilización

1. En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Documentos Electrónicos (MATA486)

2. Ejecutar la acción Transmitir.

3. Informar en los parámetros las Serie y Folio de la Factura de Venta generada previamente, presionar Ok.

4. Validar que la transmisión haya sido exitosa.

5. Desde Otras acciones ejecutar la acción Imprimir PDF,y validar que en la representación gráfica del documentos en la razón social del cliente se visualicen correctamente los caracteres especiales.

4. PUNTOS DE ENTRADA

4.1 PE - M486PENF

Ejemplo:

#Include 'Protheus.ch'

User Function M486PENF()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc        := PARAMIXB[1] // Sucursal que el documento.

Local cNumDoc    := PARAMIXB[4] // Número de Documento

Local cCodCli       := PARAMIXB[3] // Código de Cliente

Local cCodLoj       := PARAMIXB[4] // código de tienda

Local cSerieDoc   := PARAMIXB[2] // Serie

Local cEspDoc      := PARAMIXB[5] // Especie

cXML := '<?xml version="1.0" encoding="UTF-8"?>' + cCRLF

cXML += '<Invoice>' + cCRLF         

// Código necesario para creación del XML

cXML += '</Invoice>' + cCRLF  

Return cXML

4.2 PE - M486PENC

Ejemplo:

#Include 'Protheus.ch'

User Function M486PENC()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc        := PARAMIXB[1] // Sucursal que emitió el documento.

Local cNumDoc    := PARAMIXB[4] // Número de Documento

Local cCodCli       := PARAMIXB[3] // Código de Cliente

Local cCodLoj       := PARAMIXB[4] // código de tienda

Local cSerieDoc   := PARAMIXB[2] // Serie

Local cEspDoc      := PARAMIXB[5] // Especie

cXML := '<?xml version="1.0" encoding="UTF-8"?>' + cCRLF

cXML += '<CreditNote>' + cCRLF         

// Código necesario para creación del XML

cXML += '</CreditNote>' + cCRLF  

Return cXML

4.4 PE - M486PEND

Ejemplo:

#Include 'Protheus.ch'

User Function M486PEND()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )  

Local cFilDoc        := PARAMIXB[1] // Sucursal que emitió el documento.

Local cNumDoc    := PARAMIXB[4] // Número de Documento

Local cCodCli       := PARAMIXB[3] // Código de Cliente

Local cCodLoj       := PARAMIXB[4] // código de tienda

Local cSerieDoc   := PARAMIXB[2] // Serie

Local cEspDoc      := PARAMIXB[5] // Especie

cXML := '<?xml version="1.0" encoding="UTF-8"?>' + cCRLF

cXML += '<DebitNote>' + cCRLF         

// Código necesario para creación del XML

cXML += '</DebitNote>' + cCRLF  

Return cXML

4.5 PE - M486PECR

Ejemplo:

#Include 'Protheus.ch'

User Function M486PECR()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc        := PARAMIXB[1] // Sucursal que emitió el documento.

Local cNumDoc    := PARAMIXB[2] // Número de Documento

Local cSerieDoc   := PARAMIXB[3] // Serie

Local cCodProv     := PARAMIXB[4] // Código de Proveedor

Local cCodLoj       := PARAMIXB[4] // código de tienda

cXML := '<?xml version="1.0" encoding="UTF-8"?>' + cCRLF

cXML += '<Retention>' + cCRLF         

// Código necesario para creación del XML

cXML += '</Retention>' + cCRLF  

Return cXML

4.6 PE - M486PDFGEN

Ejemplo:

#Include 'Protheus.ch'

User Function M486PDFGEN()

MsgAlert("Aquí debe colocar lógica para imprimir pdf ")

Return 

4.7 PE - M486NF

...

Ejemplo:

#Include 'Protheus.ch'

User Function M486NF()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Sucursal

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Série

Local cEspDoc       := PARAMIXB[4] // Espécie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de loja          

cXML += '<cbc:Note>Nombre campo: dato a enviar</cbc:Note> ' + cCRLF

Return cXML

4.8 PE - M486NCC

...

Ejemplo:

#Include 'Protheus.ch'

User Function M486NFE()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Sucursal

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Serie

Local cEspDoc       := PARAMIXB[4] // Especie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de loja          

cXML += '<cbc:Note>Nombre campo: dato a enviar</cbc:Note> ' + cCRLF

Return cXML

4.9 PE - M486NDC

...

Ejemplo:

#Include 'Protheus.ch'

User Function M486NFE()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Sucursal

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Serie

Local cEspDoc       := PARAMIXB[4] // Espécie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de loja          

cXML += '<cbc:Note>Nombre campo: dato a enviar</cbc:Note> ' + cCRLF

Return cXML

4.10 PE - M486NFE

...

Ejemplo:

#Include 'Protheus.ch'

User Function M486NFE()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Sucursal

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Série

Local cEspDoc       := PARAMIXB[4] // Espécie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de loja          

cXML += '<cbc:Note>Nombre campo: dato a enviar</cbc:Note> ' + cCRLF

Return cXML

4.11 PE - M486FECVEN

...

Ejemplo:

#Include 'Protheus.ch'

User Function M486FECVEN()
      Local cXMLVen := ""
      Local cFecVen := "2020-07-31" + Alltrim(SF2->F2_SERIE) + "-" + Alltrim(SF2->F2_DOC)
      Local cCRLF := (chr(13)+chr(10))

      cXMLVen += ' <cbc:DueDate>' + cFecVen + '</cbc:DueDate>' + cCRLF
Return cXMLVen

4.12 PE - M486PEREF

...

Ejemplo:

#Include 'Protheus.ch'

User Function M486PEREF()
      Local cEs := PARAMIXB[1] //Especie
      Local cDc := PARAMIXB[2] //Documento
      Local cSe := PARAMIXB[3] //Serie
      Local cCl := PARAMIXB[4] //Cliente
      Local cLo := PARAMIXB[5] //Loja
      Local cSero := "F009"
      Local cDocO := RTRIM(cNFOri)
      Local cTpDocu := "01"
      Local cDtEmisi := "2020-07-31"

Return {cSero,cDocO,cTpDocu,cDtEmisi}

4.13 PE - M485NCC

Ejemplo:

#Include 'Protheus.ch'

User Function M485NCC()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Filial

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Serie

Local cEspDoc       := PARAMIXB[4] // Especie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de tienda         

...

cXML += '<Personalizados>' + cCRLF

cXML += '    <campoNumero name="CampoNumerico">1</campoNumero>' + cCRLF

cXML += '    <campoString name="CampoTexto">Esto es un texto</campoString>' + cCRLF

cXML += '    <campoFecha name="CampoTexto">2016-01-31</campoFecha>' + cCRLF

cXML += '</Personalizados>' + cCRLF

Return cXML

4.15 PE - M485NDC

Ejemplo:

#Include 'Protheus.ch'

User Function M485NDC()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Filial

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Serie

Local cEspDoc       := PARAMIXB[4] // Especie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de tienda      

cXML += '<Personalizados>' + cCRLF

cXML += '    <campoNumero name="CampoNumerico">1</campoNumero>' + cCRLF

cXML += '    <campoString name="CampoTexto">Esto es un texto</campoString>' + cCRLF

cXML += '    <campoFecha name="CampoTexto">2016-01-31</campoFecha>' + cCRLF

cXML += '</Personalizados>' + cCRLF

Return cXML

4.16 PE - M485NF

Ejemplo:

#Include 'Protheus.ch'

User Function M485NF()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Filial

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Serie

Local cEspDoc       := PARAMIXB[4] // Especie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de tienda        

cXML += '<Personalizados>' + cCRLF

cXML += '    <campoNumero name="CampoNumerico">1</campoNumero>' + cCRLF

cXML += '    <campoString name="CampoTexto">Esto es un texto</campoString>' + cCRLF

cXML += '    <campoFecha name="CampoTexto">2016-01-31</campoFecha>' + cCRLF

cXML += '</Personalizados>' + cCRLF

Return cXML

4.17 PE - M485NFE

Ejemplo:

#Include 'Protheus.ch'

User Function M485NFE()

Local cXML := ""

Local cCRLF  := (chr(13)+chr(10) )

Local cFilDoc       := PARAMIXB[1] // Filial

Local cNumDoc       := PARAMIXB[2] // Número de Documento

Local cSerieDoc:= PARAMIXB[3] // Serie

Local cEspDoc       := PARAMIXB[4] // Especie

Local cCodCli       := PARAMIXB[5] // Código de Cliente

Local cCodLoj       := PARAMIXB[6] // código de tienda          

cXML += '<Personalizados>' + cCRLF

cXML += '    <campoNumero name="CampoNumerico">1</campoNumero>' + cCRLF

cXML += '    <campoString name="CampoTexto">Esto es un texto</campoString>' + cCRLF

cXML += '    <campoFecha name="CampoTexto">2016-01-31</campoFecha>' + cCRLF

cXML += '</Personalizados>' + cCRLF

Return cXML

4.18 PE - M486DIRREC

El Punto de Entrada M486DIRREC debe retornar una cadena que contenga todos los nodos que el usuario desee incluir para el nodo cac:AccountingCustomerParty/cac:Party/cac:PartyLegalEntity correspondientes a la información de la Dirección de adquiriente.

User Function M486DIRREC()
    Local aArea     := GetArea()         // Se reserva el área de trabajo 
    Local cXML      := ""                // Cadena de retorno
    Local cCRLF     := (chr(13)+chr(10)) // Salto de línea
    
    cXML += '				<cac:RegistrationAddress>'+ cCRLF
    cXML += '					<cbc:ID schemeName="Ubigeos">' + RTRIM(SA1->A1_CEP) + '</cbc:ID>' + cCRLF
    cXML += '					<cbc:AddressTypeCode listName="Establecimientos anexos">0000</cbc:AddressTypeCode>'+ cCRLF
    cXML += '				   	<cbc:CitySubdivisionName>-</cbc:CitySubdivisionName>'+ cCRLF
    cXML += '            		<cbc:CityName><![CDATA[' + RTRIM(SA1->A1_MUN) + ']]></cbc:CityName>'+ cCRLF
    cXML += '              		<cbc:CountrySubentity><![CDATA[' + RTRIM(M486VALSX5("12",SA1->A1_EST)) + ']]></cbc:CountrySubentity>'+ cCRLF
    cXML += '               		<cbc:District><![CDATA[' + RTRIM(SA1->A1_BAIRRO) + ']]></cbc:District>'+ cCRLF
    cXML += '            		<cac:AddressLine>'+ cCRLF
    cXML += '                		<cbc:Line><![CDATA[' + RTRIM(SA1->A1_END) + ']]></cbc:Line>'+ cCRLF
    cXML += '              		</cac:AddressLine>'+ cCRLF
    cXML += '               		<cac:Country>'+ cCRLF
    cXML += '                		<cbc:IdentificationCode listName="Country">PE</cbc:IdentificationCode>'+ cCRLF
    cXML += '					</cac:Country>'+ cCRLF
    cXML += '          		</cac:RegistrationAddress>' + cCRLF

    RestArea(aArea)
Return cXML

4.19 PE - M486RNF

...

4.20  PE - M486DETRNF

...

5. DESCARGA DEL EJECUTABLE SUNATSERVICECONN

Procedimiento de Descarga

A continuación se detallan los pasos para descargar el último ejecutable SunatServiceConn.exe que se encuentra disponible y que es utilizado para la transmisión de Guías de Remisión Electrónicas, Transmisión Electrónica Directa a SUNAT a través de TSS y usando el OSE denominado TCI.

Ingresar a la Central de Descargas y Actualizaciones:

https://suporte.totvs.com/portal/p/10098/download#company/

Seleccionar la opción, TOTVS Línea Protheus, y dar clic en la opción "Artefactos Generales del Producto".

Image Modified

Dar clic en la opción "Rdmake Estándar".

Image Modified

De las opciones desplegadas; buscar la opción "Localizaciones" y dar clic en ella.

Image Modified

Dar clic en en el botón "Haga download del archivo".

Image Modified

Tras completarse la descarga del archivo; descomprimir el contenido,

...

e1 ir a la ruta RDMAKES_LOCALIZACIONES\Peru\SunatServiceConn y aquí se podrá obtener la última versión disponible del ServiceSunatConn.exe, así como las dll´s, requeridas para su correcta funcionalidad.

Image Modified

6. TABLAS UTILIZADAS

• SA1 - Clientes
• SM0 - Empresas
• F3H - Definición de catálogos.
• F3I - Mantenimiento de catálogos.
• SB1 - Productos.
• SAH - Unidades de medida.
• SFB - Impuestos variables.
• SFP - Control de Formularios..
• SF1 - Documentos de entrada.
• SD1 - Items de documentos de entrada.
• SF2 - Documentos de salida.
• SD2 - Items de documentos de salida.
• SYA - Países.
• SF4 - Tipos de Entrada/salida
• SFC - Vinculo TES vs. Impuestos.
• SC5- Encabezado de Pedidos de Venta.
• CTO - Monedas.
• SFC - Detalle Tipos de Entrada/Salida (impuestos).

...