Histórico da Página

#include "protheus.ch"

User  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" //Observaciones
        cXMLPE += '	<cbc:Note>Prueba del PE M486RNF</cbc:Note>' + cCRLF  
    ElseIf cOpc == "P" //número de Pallets, Número de Contenedor y Número de Precinto
        If Alltrim(SF2->F2_MODTRAD) == "08" //Importación
            cXMLPE += '		<cbc:TotalTransportHandlingUnitQuantity>80</cbc:TotalTransportHandlingUnitQuantity>' + cCRLF
        EndIf
    EndIf
    
Return cXMLPE