Producto | |||||||
---|---|---|---|---|---|---|---|
Línea de producto: | |||||||
Segmento: | |||||||
Módulo: | SIGAFAT - Facturación | ||||||
Función: |
| ||||||
País: | Perú (PER) | ||||||
Ticket: | 17956656 | ||||||
Requisito/Story/Issue (informe el requisito vinculado): | DMINA-20890 |
Para la transmisión de Guías de Remisión Electrónica (GRE), con motivo de traslados sea igual a 03 - Venta con Entrega a Terceros, se solicita la activación de una opción en el Punto de Entrada M486RNF, que permitan personalizar la generación de nodo del Comprador en XML de Guías de Remisión Electrónicas (GRE) del País Perú.
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:
Con la opción CP del punto de entrada también se puede generar el nodo cac:SellerSupplierParty para informar los datos del Proveedor. Ejemplo: |
|
Ejemplo del Punto de Entrada:
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 |