project BLF > class BSettingConfiguration > method apiSynchroniseCustom

Description

This method can be extended with code for creating additional system settings.

Parameters


oiReturnStatusoutputintegerReturn status of the method.

Internal usage


BLF
method BSettingConfiguration.apiSynchronise

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.