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
| oiReturnStatus | output | integer | |
Internal usage
QadFinancials
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>