Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Facturación (SIGAFAT) - Como generar un XML personalizado en la transmisión de Notas de Crédito de Perú

Tiempo aproximado de lectura 00:05:00 min

Duda
¿Como generar un XML personalizado en la transmisión de Notas de Crédito de Perú?

Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Facturación (SIGAFAT) - A partir de la versión 12.1.2310

Solución
Es posible generar un XML personalizado en la transmisión de Notas de Crédito de Perú a traves del punto de entrada M486PENC, sin embargo este punto de entrad solo funcionará cuando se utilicen los metodos de transmisión con los OSE TCI, RSM y la transmisión directa a SUNAT con uso de TSS.

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