Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 5 minutos

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Faturamento (SIGAFAT)

Función:
RutinaNombre TécnicoFecha
M486RNFXMLXML de Guías de Remisión Electrónicas - Perú18/10/2024
País:Perú (PER)
Ticket:20865627
Requisito/Story/Issue (informe el requisito vinculado):DMICNS-21535


02. DESCRIPCIÓN

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 genera ese nodo a partir de la dirección de la Sucursal en la que se incluye dicha guía de remisión.

03. INFORMACIÓN ADICIONAL

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", que 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:

M486RNF
#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

Información

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).


IMPORTANTE!

La presente solución aplica para versión 12.1.2210 o superior. Adicional contar con la funcionalidad de transmisión de guía de remisión.


04. ASUNTOS RELACIONADOS