method apiSynchroniseCustom

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

method BSettingConfiguration.apiSynchronise

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.