project BLF > class BSettingConfiguration > method AdditionalUpdates

Description

This method is part of the SetPublicTables flow.
When executed, data in the input class tables (prefix t_s) is validated and found correct, and copied into the class tables (prefix t_o).
This method can be extended to do updates that do not require a validation or that involve running business methods of other business classes. These classes should be started with ADD-TO-TRANSACTION = 'true'. Also make sure to add these classes in method StopExternalInstances.


Parameters


oiReturnStatusoutputinteger


Internal usage


BLF
method BSettingConfiguration.apiSynchronise


program code (program/bsettingconfiguration.p)

<ANCESTOR-CODE>
if oiReturnStatus < 0
then return.

if oiReturnStatus = 0
then oiReturnStatus = -98.

<I-1 {bFcStartAndOpenInstance
            &ADD-TO-TRANSACTION = "true"
            &CLASS              = "BSetting"}>
                              
for each tfcSettingConfig where
         tfcSettingConfig.tc_Status <> "D":U :
    create tSettings.
    ASSIGN tSettings.tcSettingScope = tfcSettingConfig.SettingConfigLevel
           tSettings.tiSettingConfig_ID = tfcSettingConfig.SettingConfig_ID
           tSettings.tlSettingIsActive = tfcSettingConfig.SettingConfigIsDefault.
end.

<M-3 run CreateSystemSettings (input  tSettings (tSettingsIn), 
                               output viFcReturnSuper (oiReturnStatus)) in BSetting>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
    <I-4 {bFcCloseAndStopInstance
            &CLASS           = "BSetting"}>
    return.
end.

<I-2 {bFcCloseInstance
            &CLASS           = "BSetting"}>

if oiReturnStatus = -98
then oiReturnStatus = 0.