Producto: | |||||||
---|---|---|---|---|---|---|---|
Línea de producto: | |||||||
Segmento: | |||||||
Módulo: | |||||||
Función: |
| ||||||
País: | Perú (PER) | ||||||
Ticket: | 20865627 | ||||||
Requisito/Story/Issue (informe el requisito vinculado): | DMICNS-21535 |
Dentro del XML generado de las Guías de Remisión Electrónicas se requiere personalizar el nodo "DespatchAddress", donde se indica la dirección de partida; ya que actualmente se generan ese nodo a partir de la dirección de la Sucursal en la que se genera dicha guía de remisión.
En la rutina de XML de Guías de Remisión Electrónicas (M486RNFXML), se tiene habilitado el Punto de Entrada M486RNF, donde permite personalizar algunos nodos del encabezado de las guías de remisión de Perú, por lo tanto se agrega una opción adicional que permita al usuario modificar la "Dirección de partida" del nodo de (/DespatchAdvice/cac:Shipment/cac:Delivery/cac:DespatchAddress).
Se agrega la opción "DP", permite la generación del tag cac:DespatchAddress con la información del C.P y Dirección de partida.
Ejemplo del Punto de Entrada:
#include "protheus.ch" User Function M486RNF() Local cXMLPE := "" Local cCRLF := (chr(13)+chr(10)) Local cOpc := PARAMIXB[1] //Opción N - Notas, P - Pallets/Contenedor/Precinto, DP - Dirección de Partida If cOpc == "DP" //Dirección de Partida cXMLPE += ' <cbc:ID schemeName="Ubigeos" schemeAgencyName="PE:INEI">' + "010106" + '</cbc:ID>' + cCRLF //CP. de la dirección de partida. cXMLPE += ' <cac:AddressLine>' + cCRLF cXMLPE += ' <cbc:Line>' + "Dir de partida personaliza por PE" + '</cbc:Line>' + cCRLF //Dirección de partida. cXMLPE += ' </cac:AddressLine>' + cCRLF EndIf Return cXMLPE |
El Punto de Entrada M486RNF recibe como parámetro la opción de tipo Carácter, mediante el cual se tienen disponibles adicional las siguientes opciones: Si opción es "N", se permite la generación del Nodo de Observaciones. Si opción es "P", permite la generación del nodo de Número de Bultos o Pallets, de igual manera se pueden generar los indicadores utilizando los tag cbc:SpecialInstructions. Si opción es "S", permite la generación del tag cbc:HandlingInstructions con la descripción del Motivo de Traslado. Si opción es "DA", permite la generación del tag cbc:AddressTypeCode con el código de establecimiento de llegada. Si opción es "CO", permite la generación del tag cac:Package con los datos de Número de Contenedor y Número de Precinto. Si opción es "R", permite la generación del tag cbc:DocumentType con la descripción del tipo de Documento de Referencia, recibiendo el segundo parámetro con el código del tipo de documento de referencia. Si opción es "PU", permite la generación del tag cbc:CompanyID el número de MTC del Transportista. Si opción es "CO", permite la generación del tag cac:BuyerCustomerParty para informar los datos del Comprador. 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 definida 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). |