Histórico da Página

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

En el Punto de Entrada M486DETRNF se debe retornar un arreglo con 4 posiciones, se recomienda que se retornen con el valor Nil las posiciones que no se van a actualizar.

#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))
    Local cOpc    := PARAMIXB[8] //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