project QadFinancials > class BDCollection > method AdditionalUpdates

Description

This empty method allows to do additional updates on class temp-tables after records were received (and validated) from outside, using method SetPublicTables.
You can start instances of other business classes to do those updates.


Parameters


oiReturnStatusoutputinteger


Internal usage


QadFinancials
method BDCollection.ValidateBCAndAdditionalUpdates


program code (program/bdcollection.p)

for each tDCollection where
         tDCollection.tc_Status <> "D":U:
    if tDCollection.DCollectionBalanceCC <> tDCollection.DCollectionBalanceDebitCC
    then do:
        assign tDCollection.DCollectionBalanceCC = tDCollection.DCollectionBalanceDebitCC.

        if tDCollection.tc_Status = "":U
        then assign tDCollection.tc_Status = "C":U.
    end.

    if tDCollection.DCollectionBalanceLC <> tDCollection.DCollectionBalanceDebitLC
    then do:
        assign tDCollection.DCollectionBalanceLC = tDCollection.DCollectionBalanceDebitLC.

        if tDCollection.tc_Status = "":U
        then assign tDCollection.tc_Status = "C":U.
    end.

    if tDCollection.DCollectionBalanceTC <> tDCollection.DCollectionBalanceDebitTC
    then do:
        assign tDCollection.DCollectionBalanceTC = tDCollection.DCollectionBalanceDebitTC.

        if tDCollection.tc_Status = "":U
        then assign tDCollection.tc_Status = "C":U.
    end.

    if not tDCollection.DCollectionIsExecuted and
       can-find(first tDCollectionExport where
                      tDCollectionExport.tc_ParentRowid = tDCollection.tc_Rowid and
                      tDCollectionExport.tc_Status      = "N":U)
    then do:
        assign tDCollection.DCollectionIsExecuted = true.

        if tDCollection.tc_Status = "":U
        then assign tDCollection.tc_Status = "C":U.
    end.
end.

<ANCESTOR-CODE>