Histórico da Página

#INCLUDE "TOTVS.CH"

User Function SE5FI080() as character

Local cCamposE5 := ParamIxb[1] as character
Local oSubModel := ParamIxb[2] as object

//------------------------------------------------------------------------
//-- Grabación del registro principal de la baja (SE5 y FK2)
If oSubModel:cID == "FK2DETAIL" 
    If "NOR" $ oSubModel:GetValue("FK2_MOTBX") 
        //-- SE5
        cCamposE5 += ",{" 
        cCamposE5 += " 'E5_CUSTOM','Campo personalizado.' " 
        cCamposE5 += "} " 

        //--FK2
        oSubModel:SetValue("FK2_CUSTOM","Campo personalizado.")
    EndIf 
EndIf

//------------------------------------------------------------------------
//-- GravaçãoGrabación de doslos valores acessóriosaccesorios (FK6)
If oSubModel:cID == "FK6DETAIL" 
    oSubModel:SetValue("FK6_CUSTOM","Campo personalizado.")
EndIf

Return cCamposE5