project QadFinancials > class BBudget > method BudgetVersionRollUpAmountsFigBud
Description
This method is the submethod of BudgetVersionRollUpAmountsFig because it could not hold all the code.
Parameters
| icBudgetVersionTcRowid | input | character | BudgetVerisonTcRowid |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bbudget.p)
/* rollup the BUDGETfigures */
for each tNewBudgetVersionFigure where
tNewBudgetVersionFigure.tc_ParentRowid = icBudgetVersionTcRowid and
tNewBudgetVersionFigure.tiBudgetFDSSeq = tBudget.BudgetInputLevelBudget and
tNewBudgetVersionFigure.tc_rowid <> "D":U:
/* Go though all parents of the node depend on the "budgetinputlevel" and update the figures of these nodes */
assign viParentBudgetWBSID = tNewBudgetVersionFigure.tiParentBudgetWBS_ID.
REPEAT :
find btNewBVFigure where
btNewBVFigure.tc_ParentRowid = icBudgetVersionTcRowid and
btNewBVFigure.tc_rowid <> "D":U and
btNewBVFigure.BudgetWBS_ID = viParentBudgetWBSID
no-error.
if not available btNewBVFigure
then leave.
assign viParentBudgetWBSID = btNewBVFigure.tiParentBudgetWBS_ID.
if tNewBudgetVersionFigure.BudgetVersionFig01TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01TC = 0.
else assign btNewBVFigure.BudgetVersionFig01TC = btNewBVFigure.BudgetVersionFig01TC + tNewBudgetVersionFigure.BudgetVersionFig01TC.
if tNewBudgetVersionFigure.BudgetVersionFig01QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01QTY = 0.
else assign btNewBVFigure.BudgetVersionFig01QTY = btNewBVFigure.BudgetVersionFig01QTY + tNewBudgetVersionFigure.BudgetVersionFig01QTY.
if tNewBudgetVersionFigure.BudgetVersionFig01STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01STC = 0.
else assign btNewBVFigure.BudgetVersionFig01STC = btNewBVFigure.BudgetVersionFig01STC + tNewBudgetVersionFigure.BudgetVersionFig01STC.
if tNewBudgetVersionFigure.BudgetVersionFig02TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig02TC = 0.
else assign btNewBVFigure.BudgetVersionFig02TC = btNewBVFigure.BudgetVersionFig02TC + tNewBudgetVersionFigure.BudgetVersionFig02TC.
if tNewBudgetVersionFigure.BudgetVersionFig02QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig02QTY = 0.
else assign btNewBVFigure.BudgetVersionFig02QTY = btNewBVFigure.BudgetVersionFig02QTY + tNewBudgetVersionFigure.BudgetVersionFig02QTY.
if tNewBudgetVersionFigure.BudgetVersionFig02STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig02STC = 0.
else assign btNewBVFigure.BudgetVersionFig02STC = btNewBVFigure.BudgetVersionFig02STC + tNewBudgetVersionFigure.BudgetVersionFig02STC.
if tNewBudgetVersionFigure.BudgetVersionFig03TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig03TC = 0.
else assign btNewBVFigure.BudgetVersionFig03TC = btNewBVFigure.BudgetVersionFig03TC + tNewBudgetVersionFigure.BudgetVersionFig03TC.
if tNewBudgetVersionFigure.BudgetVersionFig03QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig03QTY = 0.
else assign btNewBVFigure.BudgetVersionFig03QTY = btNewBVFigure.BudgetVersionFig03QTY + tNewBudgetVersionFigure.BudgetVersionFig03QTY.
if tNewBudgetVersionFigure.BudgetVersionFig03STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig03STC = 0.
else assign btNewBVFigure.BudgetVersionFig03STC = btNewBVFigure.BudgetVersionFig03STC + tNewBudgetVersionFigure.BudgetVersionFig03STC.
if tNewBudgetVersionFigure.BudgetVersionFig04TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig04TC = 0.
else assign btNewBVFigure.BudgetVersionFig04TC = btNewBVFigure.BudgetVersionFig04TC + tNewBudgetVersionFigure.BudgetVersionFig04TC.
if tNewBudgetVersionFigure.BudgetVersionFig04QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig04QTY = 0.
else assign btNewBVFigure.BudgetVersionFig04QTY = btNewBVFigure.BudgetVersionFig04QTY + tNewBudgetVersionFigure.BudgetVersionFig04QTY.
if tNewBudgetVersionFigure.BudgetVersionFig04STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig04STC = 0.
else assign btNewBVFigure.BudgetVersionFig04STC = btNewBVFigure.BudgetVersionFig04STC + tNewBudgetVersionFigure.BudgetVersionFig04STC.
if tNewBudgetVersionFigure.BudgetVersionFig05TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig05TC = 0.
else assign btNewBVFigure.BudgetVersionFig05TC = btNewBVFigure.BudgetVersionFig05TC + tNewBudgetVersionFigure.BudgetVersionFig05TC.
if tNewBudgetVersionFigure.BudgetVersionFig05QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig05QTY = 0.
else assign btNewBVFigure.BudgetVersionFig05QTY = btNewBVFigure.BudgetVersionFig05QTY + tNewBudgetVersionFigure.BudgetVersionFig05QTY.
if tNewBudgetVersionFigure.BudgetVersionFig05STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig05STC = 0.
else assign btNewBVFigure.BudgetVersionFig05STC = btNewBVFigure.BudgetVersionFig05STC + tNewBudgetVersionFigure.BudgetVersionFig05STC.
if tNewBudgetVersionFigure.BudgetVersionFig06TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig06TC = 0.
else assign btNewBVFigure.BudgetVersionFig06TC = btNewBVFigure.BudgetVersionFig06TC + tNewBudgetVersionFigure.BudgetVersionFig06TC.
if tNewBudgetVersionFigure.BudgetVersionFig06QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig06QTY = 0.
else assign btNewBVFigure.BudgetVersionFig06QTY = btNewBVFigure.BudgetVersionFig06QTY + tNewBudgetVersionFigure.BudgetVersionFig06QTY.
if tNewBudgetVersionFigure.BudgetVersionFig06STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig06STC = 0.
else assign btNewBVFigure.BudgetVersionFig06STC = btNewBVFigure.BudgetVersionFig06STC + tNewBudgetVersionFigure.BudgetVersionFig06STC.
if tNewBudgetVersionFigure.BudgetVersionFig07TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig07TC = 0.
else assign btNewBVFigure.BudgetVersionFig07TC = btNewBVFigure.BudgetVersionFig07TC + tNewBudgetVersionFigure.BudgetVersionFig07TC.
if tNewBudgetVersionFigure.BudgetVersionFig07QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig07QTY = 0.
else assign btNewBVFigure.BudgetVersionFig07QTY = btNewBVFigure.BudgetVersionFig07QTY + tNewBudgetVersionFigure.BudgetVersionFig07QTY.
if tNewBudgetVersionFigure.BudgetVersionFig07STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig07STC = 0.
else assign btNewBVFigure.BudgetVersionFig07STC = btNewBVFigure.BudgetVersionFig07STC + tNewBudgetVersionFigure.BudgetVersionFig07STC.
if tNewBudgetVersionFigure.BudgetVersionFig08TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig08TC = 0.
else assign btNewBVFigure.BudgetVersionFig08TC = btNewBVFigure.BudgetVersionFig08TC + tNewBudgetVersionFigure.BudgetVersionFig08TC.
if tNewBudgetVersionFigure.BudgetVersionFig08QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig08QTY = 0.
else assign btNewBVFigure.BudgetVersionFig08QTY = btNewBVFigure.BudgetVersionFig08QTY + tNewBudgetVersionFigure.BudgetVersionFig08QTY.
if tNewBudgetVersionFigure.BudgetVersionFig08STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig08STC = 0.
else assign btNewBVFigure.BudgetVersionFig08STC = btNewBVFigure.BudgetVersionFig08STC + tNewBudgetVersionFigure.BudgetVersionFig08STC.
if tNewBudgetVersionFigure.BudgetVersionFig09TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig09TC = 0.
else assign btNewBVFigure.BudgetVersionFig09TC = btNewBVFigure.BudgetVersionFig09TC + tNewBudgetVersionFigure.BudgetVersionFig09TC.
if tNewBudgetVersionFigure.BudgetVersionFig09QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig09QTY = 0.
else assign btNewBVFigure.BudgetVersionFig09QTY = btNewBVFigure.BudgetVersionFig09QTY + tNewBudgetVersionFigure.BudgetVersionFig09QTY.
if tNewBudgetVersionFigure.BudgetVersionFig09STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig09STC = 0.
else assign btNewBVFigure.BudgetVersionFig09STC = btNewBVFigure.BudgetVersionFig09STC + tNewBudgetVersionFigure.BudgetVersionFig09STC.
if tNewBudgetVersionFigure.BudgetVersionFig10TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig10TC = 0.
else assign btNewBVFigure.BudgetVersionFig10TC = btNewBVFigure.BudgetVersionFig10TC + tNewBudgetVersionFigure.BudgetVersionFig10TC.
if tNewBudgetVersionFigure.BudgetVersionFig10QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig10QTY = 0.
else assign btNewBVFigure.BudgetVersionFig10QTY = btNewBVFigure.BudgetVersionFig10QTY + tNewBudgetVersionFigure.BudgetVersionFig10QTY.
if tNewBudgetVersionFigure.BudgetVersionFig10STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig10STC = 0.
else assign btNewBVFigure.BudgetVersionFig10STC = btNewBVFigure.BudgetVersionFig10STC + tNewBudgetVersionFigure.BudgetVersionFig10STC.
if tNewBudgetVersionFigure.BudgetVersionFig11TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig11TC = 0.
else assign btNewBVFigure.BudgetVersionFig11TC = btNewBVFigure.BudgetVersionFig11TC + tNewBudgetVersionFigure.BudgetVersionFig11TC.
if tNewBudgetVersionFigure.BudgetVersionFig11QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig11QTY = 0.
else assign btNewBVFigure.BudgetVersionFig11QTY = btNewBVFigure.BudgetVersionFig11QTY + tNewBudgetVersionFigure.BudgetVersionFig11QTY.
if tNewBudgetVersionFigure.BudgetVersionFig11STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig11STC = 0.
else assign btNewBVFigure.BudgetVersionFig11STC = btNewBVFigure.BudgetVersionFig11STC + tNewBudgetVersionFigure.BudgetVersionFig11STC.
if tNewBudgetVersionFigure.BudgetVersionFig12TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig12TC = 0.
else assign btNewBVFigure.BudgetVersionFig12TC = btNewBVFigure.BudgetVersionFig12TC + tNewBudgetVersionFigure.BudgetVersionFig12TC.
if tNewBudgetVersionFigure.BudgetVersionFig12QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig12QTY = 0.
else assign btNewBVFigure.BudgetVersionFig12QTY = btNewBVFigure.BudgetVersionFig12QTY + tNewBudgetVersionFigure.BudgetVersionFig12QTY.
if tNewBudgetVersionFigure.BudgetVersionFig12STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig12STC = 0.
else assign btNewBVFigure.BudgetVersionFig12STC = btNewBVFigure.BudgetVersionFig12STC + tNewBudgetVersionFigure.BudgetVersionFig12STC.
if tNewBudgetVersionFigure.BudgetVersionFig13TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig13TC = 0.
else assign btNewBVFigure.BudgetVersionFig13TC = btNewBVFigure.BudgetVersionFig13TC + tNewBudgetVersionFigure.BudgetVersionFig13TC.
if tNewBudgetVersionFigure.BudgetVersionFig13QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig13QTY = 0.
else assign btNewBVFigure.BudgetVersionFig13QTY = btNewBVFigure.BudgetVersionFig13QTY + tNewBudgetVersionFigure.BudgetVersionFig13QTY.
if tNewBudgetVersionFigure.BudgetVersionFig13STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig13STC = 0.
else assign btNewBVFigure.BudgetVersionFig13STC = btNewBVFigure.BudgetVersionFig13STC + tNewBudgetVersionFigure.BudgetVersionFig13STC.
if tNewBudgetVersionFigure.BudgetVersionFig14TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig14TC = 0.
else assign btNewBVFigure.BudgetVersionFig14TC = btNewBVFigure.BudgetVersionFig14TC + tNewBudgetVersionFigure.BudgetVersionFig14TC.
if tNewBudgetVersionFigure.BudgetVersionFig14QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig14QTY = 0.
else assign btNewBVFigure.BudgetVersionFig14QTY = btNewBVFigure.BudgetVersionFig14QTY + tNewBudgetVersionFigure.BudgetVersionFig14QTY.
if tNewBudgetVersionFigure.BudgetVersionFig14STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig14STC = 0.
else assign btNewBVFigure.BudgetVersionFig14STC = btNewBVFigure.BudgetVersionFig14STC + tNewBudgetVersionFigure.BudgetVersionFig14STC.
if tNewBudgetVersionFigure.BudgetVersionFig15TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig15TC = 0.
else assign btNewBVFigure.BudgetVersionFig15TC = btNewBVFigure.BudgetVersionFig15TC + tNewBudgetVersionFigure.BudgetVersionFig15TC.
if tNewBudgetVersionFigure.BudgetVersionFig15QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig15QTY = 0.
else assign btNewBVFigure.BudgetVersionFig15QTY = btNewBVFigure.BudgetVersionFig15QTY + tNewBudgetVersionFigure.BudgetVersionFig15QTY.
if tNewBudgetVersionFigure.BudgetVersionFig15STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig15STC = 0.
else assign btNewBVFigure.BudgetVersionFig15STC = btNewBVFigure.BudgetVersionFig15STC + tNewBudgetVersionFigure.BudgetVersionFig15STC.
if tNewBudgetVersionFigure.BudgetVersionFig16TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig16TC = 0.
else assign btNewBVFigure.BudgetVersionFig16TC = btNewBVFigure.BudgetVersionFig16TC + tNewBudgetVersionFigure.BudgetVersionFig16TC.
if tNewBudgetVersionFigure.BudgetVersionFig16QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig16QTY = 0.
else assign btNewBVFigure.BudgetVersionFig16QTY = btNewBVFigure.BudgetVersionFig16QTY + tNewBudgetVersionFigure.BudgetVersionFig16QTY.
if tNewBudgetVersionFigure.BudgetVersionFig16STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig16STC = 0.
else assign btNewBVFigure.BudgetVersionFig16STC = btNewBVFigure.BudgetVersionFig16STC + tNewBudgetVersionFigure.BudgetVersionFig16STC.
if tNewBudgetVersionFigure.BudgetVersionFig17TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig17TC = 0.
else assign btNewBVFigure.BudgetVersionFig17TC = btNewBVFigure.BudgetVersionFig17TC + tNewBudgetVersionFigure.BudgetVersionFig17TC.
if tNewBudgetVersionFigure.BudgetVersionFig17QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig17QTY = 0.
else assign btNewBVFigure.BudgetVersionFig17QTY = btNewBVFigure.BudgetVersionFig17QTY + tNewBudgetVersionFigure.BudgetVersionFig17QTY.
if tNewBudgetVersionFigure.BudgetVersionFig17STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig17STC = 0.
else assign btNewBVFigure.BudgetVersionFig17STC = btNewBVFigure.BudgetVersionFig17STC + tNewBudgetVersionFigure.BudgetVersionFig17STC.
if tNewBudgetVersionFigure.BudgetVersionFig18TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig18TC = 0.
else assign btNewBVFigure.BudgetVersionFig18TC = btNewBVFigure.BudgetVersionFig18TC + tNewBudgetVersionFigure.BudgetVersionFig18TC.
if tNewBudgetVersionFigure.BudgetVersionFig18QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig18QTY = 0.
else assign btNewBVFigure.BudgetVersionFig18QTY = btNewBVFigure.BudgetVersionFig18QTY + tNewBudgetVersionFigure.BudgetVersionFig18QTY.
if tNewBudgetVersionFigure.BudgetVersionFig18STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig18STC = 0.
else assign btNewBVFigure.BudgetVersionFig18STC = btNewBVFigure.BudgetVersionFig18STC + tNewBudgetVersionFigure.BudgetVersionFig18STC.
if tNewBudgetVersionFigure.BudgetVersionFig19TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig19TC = 0.
else assign btNewBVFigure.BudgetVersionFig19TC = btNewBVFigure.BudgetVersionFig19TC + tNewBudgetVersionFigure.BudgetVersionFig19TC.
if tNewBudgetVersionFigure.BudgetVersionFig19QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig19QTY = 0.
else assign btNewBVFigure.BudgetVersionFig19QTY = btNewBVFigure.BudgetVersionFig19QTY + tNewBudgetVersionFigure.BudgetVersionFig19QTY.
if tNewBudgetVersionFigure.BudgetVersionFig19STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig19STC = 0.
else assign btNewBVFigure.BudgetVersionFig19STC = btNewBVFigure.BudgetVersionFig19STC + tNewBudgetVersionFigure.BudgetVersionFig19STC.
if tNewBudgetVersionFigure.BudgetVersionFig20TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig20TC = 0.
else assign btNewBVFigure.BudgetVersionFig20TC = btNewBVFigure.BudgetVersionFig20TC + tNewBudgetVersionFigure.BudgetVersionFig20TC.
if tNewBudgetVersionFigure.BudgetVersionFig20QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig20QTY = 0.
else assign btNewBVFigure.BudgetVersionFig20QTY = btNewBVFigure.BudgetVersionFig20QTY + tNewBudgetVersionFigure.BudgetVersionFig20QTY.
if tNewBudgetVersionFigure.BudgetVersionFig20STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig20STC = 0.
else assign btNewBVFigure.BudgetVersionFig20STC = btNewBVFigure.BudgetVersionFig20STC + tNewBudgetVersionFigure.BudgetVersionFig20STC.
if tNewBudgetVersionFigure.BudgetVersionFig21TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig21TC = 0.
else assign btNewBVFigure.BudgetVersionFig21TC = btNewBVFigure.BudgetVersionFig21TC + tNewBudgetVersionFigure.BudgetVersionFig21TC.
if tNewBudgetVersionFigure.BudgetVersionFig21QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig21QTY = 0.
else assign btNewBVFigure.BudgetVersionFig21QTY = btNewBVFigure.BudgetVersionFig21QTY + tNewBudgetVersionFigure.BudgetVersionFig21QTY.
if tNewBudgetVersionFigure.BudgetVersionFig21STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig21STC = 0.
else assign btNewBVFigure.BudgetVersionFig21STC = btNewBVFigure.BudgetVersionFig21STC + tNewBudgetVersionFigure.BudgetVersionFig21STC.
if tNewBudgetVersionFigure.BudgetVersionFig22TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig22TC = 0.
else assign btNewBVFigure.BudgetVersionFig22TC = btNewBVFigure.BudgetVersionFig22TC + tNewBudgetVersionFigure.BudgetVersionFig22TC.
if tNewBudgetVersionFigure.BudgetVersionFig22QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig22QTY = 0.
else assign btNewBVFigure.BudgetVersionFig22QTY = btNewBVFigure.BudgetVersionFig22QTY + tNewBudgetVersionFigure.BudgetVersionFig22QTY.
if tNewBudgetVersionFigure.BudgetVersionFig22STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig22STC = 0.
else assign btNewBVFigure.BudgetVersionFig22STC = btNewBVFigure.BudgetVersionFig22STC + tNewBudgetVersionFigure.BudgetVersionFig22STC.
if tNewBudgetVersionFigure.BudgetVersionFig23TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig23TC = 0.
else assign btNewBVFigure.BudgetVersionFig23TC = btNewBVFigure.BudgetVersionFig23TC + tNewBudgetVersionFigure.BudgetVersionFig23TC.
if tNewBudgetVersionFigure.BudgetVersionFig23QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig23QTY = 0.
else assign btNewBVFigure.BudgetVersionFig23QTY = btNewBVFigure.BudgetVersionFig23QTY + tNewBudgetVersionFigure.BudgetVersionFig23QTY.
if tNewBudgetVersionFigure.BudgetVersionFig23STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig23STC = 0.
else assign btNewBVFigure.BudgetVersionFig23STC = btNewBVFigure.BudgetVersionFig23STC + tNewBudgetVersionFigure.BudgetVersionFig23STC.
if tNewBudgetVersionFigure.BudgetVersionFig24TC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig24TC = 0.
else assign btNewBVFigure.BudgetVersionFig24TC = btNewBVFigure.BudgetVersionFig24TC + tNewBudgetVersionFigure.BudgetVersionFig24TC.
if tNewBudgetVersionFigure.BudgetVersionFig24QTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig24QTY = 0.
else assign btNewBVFigure.BudgetVersionFig24QTY = btNewBVFigure.BudgetVersionFig24QTY + tNewBudgetVersionFigure.BudgetVersionFig24QTY.
if tNewBudgetVersionFigure.BudgetVersionFig24STC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig24STC = 0.
else assign btNewBVFigure.BudgetVersionFig24STC = btNewBVFigure.BudgetVersionFig24STC + tNewBudgetVersionFigure.BudgetVersionFig24STC.
if viParentBudgetWBSID = 0 or
viParentBudgetWBSID = ?
then leave.
END. /* repeat */
end. /* for each tNewBudgetVersionFigure where */