Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function SE5FI080()

Local cCamposE5 := ParamIxb[1] 
Local oSubModel := ParamIxb[2]

//------------------------------------------------------------------------
//-- Gravação do registro principal da baixa (SE5 e FK2)
If oSubModel:cID == "FK2DETAIL" 
    If "NOR" $ oSubModel:GetValue("FK2_MOTBX") 
        //-- SE5
        cCamposE5 += ",{" 
        cCamposE5 += " 'E5_CUSTOM','Campo customizado.' " 
        cCamposE5 += "} " 

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

//------------------------------------------------------------------------
//-- Gravação dos valores acessórios (SE5 e FK6)
If oSubModel:cID == "FK6DETAIL" 
    //-- SE5
    cCamposE5 += ",{" 
    cCamposE5 += " 'E5_CUSTOM','Campo customizado.' " 
    cCamposE5 += "} " 
    //-- FK6
    oSubModel:SetValue("FK6_CUSTOM","Campo customizado.")
EndIf

Return cCamposE5