Tempo aproximado para leitura: 00:05:00 min
Duda
¿Para qué sirve el punto de entrada M486RNF?
Ambiente
Cross Segmento - TOTVS Backoffice (Linea Protheus) MI - Facturación (SIGAFAT) - Todas las versiones
Solución
En la rutina de XML de Guías de Remisión Electrónicas - Perú (M486RNFXML), se realizaron los siguientes ajustes:
Se activó la opción CP en el Punto de Entrada M486RNF, permite la generación del nodo <cac:BuyerCustomerParty para informar los datos del Comprador:
Ejemplo del Punto de Entrada:
M486RNF
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#include "protheus.ch"User Function M486RNF() Local cXMLPE := ""
Local cCRLF := (chr(13)+chr(10))
Local cOpc := PARAMIXB[1]
Local cTpDocC := "4"
Local cNumIdC := "A43594617"
Local cNomCom := "Razon Social Comprador"
If cOpc == "CP" //Comprador Provedor
//DATOS DEL COMPRADOR
If SF2->F2_MODTRAD == "03" //Motivo de Traslado 03 - Venta con entrega a terceros
cXMLPE := space(4) + '<cac:BuyerCustomerParty>' + cCRLF
cXMLPE += space(9) + '<cac:Party>' + cCRLF
cXMLPE += space(14) + '<cac:PartyIdentification>' + cCRLF
cXMLPE += space(19) + '<cbc:ID schemeID="' + cTpDocC + '" schemeName="Documento de Identidad" schemeAgencyName="PE:SUNAT" schemeURI="urn:pe:gob:sunat:cpe:see:gem:catalogos:catalogo06">' + cNumIdC + '</cbc:ID>' + cCRLF
cXMLPE += space(14) + '</cac:PartyIdentification>' + cCRLF
cXMLPE += space(14) + '<cac:PartyLegalEntity>' + cCRLF
cXMLPE += space(19) + '<cbc:RegistrationName>' + cNomCom + '</cbc:RegistrationName>' + cCRLF
cXMLPE += space(14) + '</cac:PartyLegalEntity>' + cCRLF
cXMLPE += space(9) + '</cac:Party>' + cCRLF
cXMLPE += space(4) + '</cac:BuyerCustomerParty>' + cCRLF
EndIf
EndIf
Return cXMLPE |
0 Comentarios