project BLF > class Business Component > method LoadSystemSettings

Description

Load system settings (see class BSetting) and store them in variables available to all business classes.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method business.InitInstance


program code (program1/business.p)

if viSessionID = 0
then return.

/* ================================================================= */
/* Load system settings : Drafts                                     */
/* ================================================================= */
if vlDraftsActiveCache = ?
then do:
    <Q-2 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-DRAFT}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlDraftsActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlDraftsActive = vlDraftsActiveCache.

/* ================================================================= */
/* Load system settings : Object Security                            */
/* ================================================================= */
if vlObjectSecurityActiveCache = ?
then do:
    <Q-9 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-OBJSEC}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlObjectSecurityActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlObjectSecurityActive = vlObjectSecurityActiveCache.

/* ================================================================= */
/* Load system settings : Event Publishing                           */
/* ================================================================= */
if vlEventPublishingActiveCache = ?
then do:
    <Q-10 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-EVTPUBLISH}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlEventPublishingActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlEventPublishingActive = vlEventPublishingActiveCache.

/* ================================================================= */
/* Load system settings : Custom Business Fields                     */
/* ================================================================= */
if vlCBFActiveCache = ?
then do:
    <Q-11 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-CBF}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlCBFActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlCBFActive = vlCBFActiveCache.

/* ================================================================= */
/* Load system settings : Workflow                                   */
/* ================================================================= */
if vlWorkFlowActiveCache = ?
then do:
    <Q-12 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-WORKFLOW}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlWorkFlowActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlWorkFlowActive = vlWorkFlowActiveCache.

/* ================================================================= */
/* Load system settings : Field Security                             */
/* ================================================================= */
if vlFieldSecurityActiveCache = ?
then do:
    <Q-14 assign vlFcQueryRecordsAvailable = CheckSettingByName (NoCache)
       (input {&SETTINGCONFIG-FIELDSECURITY}, (ConfigName)
        input {&SETTINGCONFIG-LEVEL-SYSTEM}, (ConfigLevel)
        input '', (Scope)
        input yes, (Active)) in BSettingConfiguration >
    vlFieldSecurityActiveCache = (vlFcQueryRecordsAvailable <> no).
end.
vlFieldSecurityActive = vlFieldSecurityActiveCache.