method SetPublicTables

Description

Updates the contents of the class dataset.
When requested, the input data will be validated first, and the class dataset will only be updated when the input data is correct.
When no validation is requested, the input data is written to the class dataset unconditionally, but this data cannot be written to the database (method DataSave will return an error). The data can only be saved as a draft instance.
Parameters

il_Validate	input	logical	validate input data
BPaymentSelection	input	dataset	class dataset
oiReturnStatus	output	integer	error status
program code (program/bpaymentselection.p)

    for each t_sPaySel:
        if t_sPaySel.tc_Status = "D":U
        then do:
            run gipr_Delete_sPaySelHistory (input t_sPaySel.tc_Rowid).
            run gipr_Delete_sPaySelLine (input t_sPaySel.tc_Rowid).
            run gipr_Delete_sPaySelPayCode (input t_sPaySel.tc_Rowid).
        end.
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySel.tc_Rowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySel.tc_Rowid = tFcRowidConvert.tcFcNewRowid.
    end.

    for each t_oPaySel where
        not can-find (t_sPaySel where t_sPaySel.tc_Rowid = t_oPaySel.tc_Rowid):
        create t_sPaySel.
        raw-transfer t_oPaySel to t_sPaySel.
    end.

    for each t_sPaySelHistory:
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelHistory.tc_ParentRowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelHistory.tc_ParentRowid = tFcRowidConvert.tcFcNewRowid.
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelHistory.tc_Rowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelHistory.tc_Rowid = tFcRowidConvert.tcFcNewRowid.
    end.

    for each t_oPaySelHistory where
        not can-find (t_sPaySelHistory where t_sPaySelHistory.tc_Rowid = t_oPaySelHistory.tc_Rowid) and
        not can-find (t_sPaySel where t_sPaySel.tc_Rowid = t_oPaySelHistory.tc_ParentRowid and t_sPaySel.tc_Status = "D":U):
        create t_sPaySelHistory.
        raw-transfer t_oPaySelHistory to t_sPaySelHistory.
    end.

    for each t_sPaySelLine:
        if t_sPaySelLine.tc_Status = "D":U
        then do:
            run gipr_Delete_sPaySelLineStage (input t_sPaySelLine.tc_Rowid).
        end.
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelLine.tc_ParentRowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelLine.tc_ParentRowid = tFcRowidConvert.tcFcNewRowid.
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelLine.tc_Rowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelLine.tc_Rowid = tFcRowidConvert.tcFcNewRowid.
    end.

    for each t_oPaySelLine where
        not can-find (t_sPaySelLine where t_sPaySelLine.tc_Rowid = t_oPaySelLine.tc_Rowid) and
        not can-find (t_sPaySel where t_sPaySel.tc_Rowid = t_oPaySelLine.tc_ParentRowid and t_sPaySel.tc_Status = "D":U):
        create t_sPaySelLine.
        raw-transfer t_oPaySelLine to t_sPaySelLine.
    end.

    for each t_sPaySelLineStage:
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelLineStage.tc_ParentRowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelLineStage.tc_ParentRowid = tFcRowidConvert.tcFcNewRowid.
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelLineStage.tc_Rowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelLineStage.tc_Rowid = tFcRowidConvert.tcFcNewRowid.
    end.

    for each t_oPaySelLineStage where
        not can-find (t_sPaySelLineStage where t_sPaySelLineStage.tc_Rowid = t_oPaySelLineStage.tc_Rowid) and
        not can-find (t_sPaySelLine where t_sPaySelLine.tc_Rowid = t_oPaySelLineStage.tc_ParentRowid and t_sPaySelLine.tc_Status = "D":U):
        create t_sPaySelLineStage.
        raw-transfer t_oPaySelLineStage to t_sPaySelLineStage.
    end.

    for each t_sPaySelPayCode:
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelPayCode.tc_ParentRowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelPayCode.tc_ParentRowid = tFcRowidConvert.tcFcNewRowid.
        find first tFcRowidConvert where
                   tFcRowidConvert.tcFcOldRowid = t_sPaySelPayCode.tc_Rowid and
                   tFcRowidConvert.tlFcOk       no-error.
        if available tFcRowidConvert
        then assign t_sPaySelPayCode.tc_Rowid = tFcRowidConvert.tcFcNewRowid.
    end.

    for each t_oPaySelPayCode where
        not can-find (t_sPaySelPayCode where t_sPaySelPayCode.tc_Rowid = t_oPaySelPayCode.tc_Rowid) and
        not can-find (t_sPaySel where t_sPaySel.tc_Rowid = t_oPaySelPayCode.tc_ParentRowid and t_sPaySel.tc_Status = "D":U):
        create t_sPaySelPayCode.
        raw-transfer t_oPaySelPayCode to t_sPaySelPayCode.
    end.

    if il_Validate
    then do:
        { includes/bfcrun.i
          &procedure  = "CheckValidationExceptionList"
          &parameters = "input true, output vl_validate" }
    end.

    if vl_Validate
    then do:
        { includes/bfcrun.i
          &procedure  = "gipr_CompleteSTables" }
        { includes/bfcrun.i
          &procedure  = "ValidateComponent"
          &parameters = "output oiReturnStatus" }
    end.

    if oiReturnStatus >= 0
    then do:
        { includes/bfcrun.i
          &procedure  = "gipr_SetTables"
          &parameters = "output viFcReturnSuper" }
        if viFcReturnSuper <> 0
        then assign oiReturnStatus = viFcReturnSuper.
    end.

    if  il_Validate
    and oiReturnStatus >= 0
    then do:
        { includes/bfcrun.i
          &procedure  = "AdditionalUpdates"
          &parameters = "output viFcReturnSuper" }
        if viFcReturnSuper <> 0
        then assign oiReturnStatus = viFcReturnSuper.
    end.

    if oiReturnStatus >= 0
    then assign vlFcDataValidated = il_Validate.