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
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
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.