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/bconsolid.p)
<ANCESTOR-CODE>
<M-46 run AdditionalUpdatesDelete
(output viFcReturnSuper (oiReturnStatus)) in BConsolid>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
empty temp-table tConsPosting.
empty temp-table tConsPostingXref.
<M-52 run AdditionalUpdatesConsolidationBlock
(output viFcReturnSuper (oiReturnStatus)) in BConsolid>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
if can-find(first tConsPosting)
then do:
<M-71 run AdditionalUpdatesPosting
(output viFcReturnSuper (oiReturnStatus)) in BConsolid>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then do:
<M-72 run StopExternalInstances
(output viFcReturnSuper (oiReturnStatus)) in BConsolid>
return.
end.
end.
for each tConsolid where
tConsolid.tc_Status = 'N':U or
tConsolid.tc_Status = 'C':U:
assign tConsolid.ConsolidEndTime = time.
end.
/* ========================================== */
/* Empty the temp-tables to clear some memory */
/* ========================================== */
empty temp-table tConsCOACrossRefResult.
empty temp-table tConsolidSafs.
empty temp-table tConsPosting.
empty temp-table tConsPostingXref.
empty temp-table tConsTaxDetailPosting.
empty temp-table tDummyCOACrossRefDet.