Description
This method can be extended with code for creating additional system settings.
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program9/bsettingconfiguration.p)
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-DRAFT}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-22 run AddDetailLine
(input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-DRAFT}.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-CBF}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-23 run AddDetailLine
(input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-CBF}
tfcSettingConfig.SettingConfigIsDefault = yes.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-EVTPUBLISH}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-3 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-EVTPUBLISH}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-OBJSEC}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-4 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-OBJSEC}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-UICUSTOM}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-5 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-UICUSTOM}
tfcSettingConfig.SettingConfigIsDefault = yes.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-UICUSTOM}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-6 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-UICUSTOM}
tfcSettingConfig.SettingConfigIsDefault = yes.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-WORKFLOW}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-20 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-WORKFLOW}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
/* Field Security*/
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-FIELDSECURITY}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-11 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-FIELDSECURITY}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVEGRID}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-12 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVEGRID}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVEGRID}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-13 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVEGRID}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVELASTUSED}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-14 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVELASTUSED}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVELASTUSED}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-15 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-AUTOSAVELASTUSED}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-ALLOWSAVEGRID}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-16 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-ALLOWSAVEGRID}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-ENABLEPERSISTENTCACHE}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-19 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-ENABLEPERSISTENTCACHE}
tfcSettingConfig.SettingConfigIsDefault = yes.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-ENABLEPERSISTENTCACHE}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-21 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-ENABLEPERSISTENTCACHE}
tfcSettingConfig.SettingConfigIsDefault = yes.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-INTERNAL} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-KEEPACTIVITIES}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-60 run AddDetailLine (input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-INTERNAL}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-KEEPACTIVITIES}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-OBJECTTRANSLATIONS}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-62 run AddDetailLine
(input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-SYSTEM}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-OBJECTTRANSLATIONS}.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-OBJECTTRANSLATIONS}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-41 run AddDetailLine
(input 'fcSettingConfig':U (icTable),
input '' (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-USER}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-OBJECTTRANSLATIONS}.
end.