| Rutina | Nombre Técnico | Fecha |
|---|---|---|
| M486RNFXML | XML de Guías de Remisión Electrónicas - Perú | 22/06/2022 |
| Producto | |||||||
|---|---|---|---|---|---|---|---|
| Línea de producto: | |||||||
| Segmento: | |||||||
| Módulo: | SIGAFAT - Facturación | ||||||
| Función: |
| ||||||
| País: | Perú (PER) | ||||||
| Ticket: | 17336421 | ||||||
| Requisito/Story/Issue (informe el requisito vinculado): | DMINA-19961 |
Se solicita la activación de Puntos de Entrada que permitan realizar los siguientes ajustes en el 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ó el Punto de Entrada M486RNF:
Para permitir agregar el nodo /DespatchAdvice/cbc:Note de Observaciones (Texto).
Para permitir modificar el nodo /DespatchAdvice/cac:Shipment/cbc:TotalTransportHandlingUnitQuantity de Número de Bultos o Pallets.
El Punto de Entrada M486RNF recibe como parámetro la opción "N", para generación del Nodo de Observaciones y "P" para la generación del nodo de Número de Bultos o Pallets. Utilizando la opción "P" de la generación del nodo de Número de Bultos o Pallets, se pueden generar los nodos de Número de Contenedor y Número de Precinto. Se debe retornar en un string los nodos generados de acuerdo a lo permitido por la guía de Guías de Remisión Electrónica definido por la SUNAT. Se tiene acceso disponible a los campos de la tabla SF2 - Encabezado de Fact. de Salida por el posicionamiento previo a la tabla, y es importante realizar las bifurcaciones de manera correcta para la generación de los nodos y en caso de requerir utilizar el Motivo de Traslado se puede utilizar el campo Motivo Tras (F2_MODTRAD). |
Se activó el Punto de Entrada M486DETRNF:
Para permitir modificar los datos de Unidad de medida del bien (/DespatchAdvice/cac:DespatchLine/cbc:DeliveredQuantity@unitCode), Cantidad del bien (/DespatchAdvice/cac:DespatchLine/cbc:DeliveredQuantity), Descripción detallada del bien (/DespatchAdvice/cac:DespatchLine/cac:Item/cbc:Description) y Código del bien (/DespatchAdvice/cac:DespatchLine/cac:Item/cac:SellersItemIdentification/cbc:ID).
En el Punto de Entrada M486DETRNF, se debe retornar un arreglo con 4 posiciones, y se recomienda que se retornen con el valor Nil las posiciones que no se van a actualizar. Se reciben como parámetros los datos Filial del Documento, Número de Documento, Serie del Documento, Especie del Documento, Código de Cliente, Loja del Cliente, Número de ítem y Código del Producto. Las posiciones a retornar corresponden a la generación de los siguientes datos:
|
|
Ejemplos de los Puntos de Entrada:
#include "protheus.ch"
User Function M486DETRNF()
Local cFilDoc := PARAMIXB[1] //Filial
Local cNumDoc := PARAMIXB[2] //Número de Documento
Local cSerDoc := PARAMIXB[3] //Serie de Documento
Local cEspDoc := PARAMIXB[4] //Especie de Documento
Local cCodCli := PARAMIXB[5] //Codigo de Cliente
Local cCodLoj := PARAMIXB[6] //Codigo de la Tienda
Local cItem := PARAMIXB[7] //Ítem
Local cCodPro := PARAMIXB[8] //Código de Producto
Local aDetGRE := {Nil, Nil, Nil, Nil}
aDetGRE[1] := Nil //Cantidad
aDetGRE[2] := "PC" //Unidad de Medida
aDetGRE[3] := Nil //Descripción del Producto
aDetGRE[4] := Nil //Código del Producto
Return aDetGRE |
#include "protheus.ch"
User Function M486RNF()
Local cXMLPE := ""
Local cCRLF := (chr(13)+chr(10)) //Salto de Línea
Local cOpc := PARAMIXB[1] //Opción N - Notas, P - Pallets/Contenedor/Precinto
If cOpc == "N"
cXMLPE += ' <cbc:Note>Prueba del PE M486RNF</cbc:Note>' + cCRLF
ElseIf cOpc == "P"
cXMLPE += ' <cbc:TotalTransportHandlingUnitQuantity>80</cbc:TotalTransportHandlingUnitQuantity>' + cCRLF
EndIf
Return cXMLPE |