project QadFinancials > 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 (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.