project BLF > class BSetting > method CreateSystemSettings

Description

Create system settings. This method is called when initializing the system via BSettingsConfiguration.ApiSynchronise.


Parameters


tSettingsIninputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BSettingConfiguration.AdditionalUpdates


program code (program1/bsetting.p)

assign oiReturnStatus = -98.

<M-8 run DataLoad (input  '' (icRowids), 
                   input  '' (icPkeys), 
                   input  '' (icObjectIds), 
                   input  '' (icFreeform), 
                   input  no (ilKeepPrevious), 
                   output viFcReturnSuper (oiReturnStatus)) in BSetting>
if viFcReturnSuper = -4
then viFcReturnSuper = 0.
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.

<M-9 run CreateSystemSettingsUpdate (output viFcReturnSuper (oiReturnStatus)) in BSetting>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.

if can-find (first tfcSetting where tfcSetting.tc_Status <> "")
then do :
    <M-7 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BSetting>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
    <M-6 run AdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BSetting>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
    <M-5 run DataSave (output viFcReturnSuper (oiReturnStatus)) in BSetting>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
end.

if oiReturnStatus = -98
then assign oiReturnStatus = 0.