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 (program/bsettingconfiguration.p)
<ANCESTOR-CODE>
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-DOMAIN} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-GLVERIF}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-1 run AddDetailLine
(input 'fcSettingConfig':U (icTable),
input '':U (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-DOMAIN}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-GLVERIF}
tfcSettingConfig.SettingConfigIsDefault = no.
end.
find first tfcSettingConfig where
tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-COMPANY} and
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-GLVERIF}
no-error.
if available tfcSettingConfig
then tfcSettingConfig.tc_Status = "".
else do:
<M-2 run AddDetailLine
(input 'fcSettingConfig':U (icTable),
input '':U (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BSettingConfiguration>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
assign tfcSettingConfig.SettingConfigLevel = {&SETTINGCONFIG-LEVEL-COMPANY}
tfcSettingConfig.SettingConfigName = {&SETTINGCONFIG-GLVERIF}
tfcSettingConfig.SettingConfigIsDefault = no.
end.