project QadFinancials > class BBudget > method BudgetVersionRollUpAmountsFigEac
Description
This method is the submethod of BudgetVersionRollUpAmountsFig because it could not hold all the code.
Parameters
| icBudgetVersionTcRowid | input | character | BudgetVersionTcRowid |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bbudget.p)
/* rollup the EACfigures */
for each tNewBudgetVersionFigure where
tNewBudgetVersionFigure.tc_ParentRowid = icBudgetVersionTcRowid and
tNewBudgetVersionFigure.tiBudgetFDSSeq = tBudget.BudgetInputLevelEAC 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.BudgetVersionFig01EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig01EacTC = btNewBVFigure.BudgetVersionFig01EacTC + tNewBudgetVersionFigure.BudgetVersionFig01EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig01EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig01EacQTY = btNewBVFigure.BudgetVersionFig01EacQTY + tNewBudgetVersionFigure.BudgetVersionFig01EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig01SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig01SEacTC = btNewBVFigure.BudgetVersionFig01SEacTC + tNewBudgetVersionFigure.BudgetVersionFig01SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig01EacETC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig01EacETC = 0.
else assign btNewBVFigure.BudgetVersionFig01EacETC = btNewBVFigure.BudgetVersionFig01EacETC + tNewBudgetVersionFigure.BudgetVersionFig01EacETC.
if tNewBudgetVersionFigure.BudgetVersionFig02EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig02EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig02EacTC = btNewBVFigure.BudgetVersionFig02EacTC + tNewBudgetVersionFigure.BudgetVersionFig02EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig02EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig02EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig02EacQTY = btNewBVFigure.BudgetVersionFig02EacQTY + tNewBudgetVersionFigure.BudgetVersionFig02EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig02SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig02SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig02SEacTC = btNewBVFigure.BudgetVersionFig02SEacTC + tNewBudgetVersionFigure.BudgetVersionFig02SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig03EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig03EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig03EacTC = btNewBVFigure.BudgetVersionFig03EacTC + tNewBudgetVersionFigure.BudgetVersionFig03EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig03EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig03EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig03EacQTY = btNewBVFigure.BudgetVersionFig03EacQTY + tNewBudgetVersionFigure.BudgetVersionFig03EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig03SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig03SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig03SEacTC = btNewBVFigure.BudgetVersionFig03SEacTC + tNewBudgetVersionFigure.BudgetVersionFig03SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig04EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig04EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig04EacTC = btNewBVFigure.BudgetVersionFig04EacTC + tNewBudgetVersionFigure.BudgetVersionFig04EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig04EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig04EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig04EacQTY = btNewBVFigure.BudgetVersionFig04EacQTY + tNewBudgetVersionFigure.BudgetVersionFig04EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig04SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig04SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig04SEacTC = btNewBVFigure.BudgetVersionFig04SEacTC + tNewBudgetVersionFigure.BudgetVersionFig04SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig05EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig05EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig05EacTC = btNewBVFigure.BudgetVersionFig05EacTC + tNewBudgetVersionFigure.BudgetVersionFig05EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig05EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig05EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig05EacQTY = btNewBVFigure.BudgetVersionFig05EacQTY + tNewBudgetVersionFigure.BudgetVersionFig05EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig05SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig05SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig05SEacTC = btNewBVFigure.BudgetVersionFig05SEacTC + tNewBudgetVersionFigure.BudgetVersionFig05SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig06EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig06EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig06EacTC = btNewBVFigure.BudgetVersionFig06EacTC + tNewBudgetVersionFigure.BudgetVersionFig06EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig06EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig06EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig06EacQTY = btNewBVFigure.BudgetVersionFig06EacQTY + tNewBudgetVersionFigure.BudgetVersionFig06EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig06SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig06SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig06SEacTC = btNewBVFigure.BudgetVersionFig06SEacTC + tNewBudgetVersionFigure.BudgetVersionFig06SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig07EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig07EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig07EacTC = btNewBVFigure.BudgetVersionFig07EacTC + tNewBudgetVersionFigure.BudgetVersionFig07EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig07EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig07EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig07EacQTY = btNewBVFigure.BudgetVersionFig07EacQTY + tNewBudgetVersionFigure.BudgetVersionFig07EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig07SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig07SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig07SEacTC = btNewBVFigure.BudgetVersionFig07SEacTC + tNewBudgetVersionFigure.BudgetVersionFig07SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig08EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig08EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig08EacTC = btNewBVFigure.BudgetVersionFig08EacTC + tNewBudgetVersionFigure.BudgetVersionFig08EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig08EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig08EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig08EacQTY = btNewBVFigure.BudgetVersionFig08EacQTY + tNewBudgetVersionFigure.BudgetVersionFig08EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig08SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig08SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig08SEacTC = btNewBVFigure.BudgetVersionFig08SEacTC + tNewBudgetVersionFigure.BudgetVersionFig08SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig09EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig09EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig09EacTC = btNewBVFigure.BudgetVersionFig09EacTC + tNewBudgetVersionFigure.BudgetVersionFig09EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig09EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig09EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig09EacQTY = btNewBVFigure.BudgetVersionFig09EacQTY + tNewBudgetVersionFigure.BudgetVersionFig09EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig09SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig09SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig09SEacTC = btNewBVFigure.BudgetVersionFig09SEacTC + tNewBudgetVersionFigure.BudgetVersionFig09SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig10EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig10EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig10EacTC = btNewBVFigure.BudgetVersionFig10EacTC + tNewBudgetVersionFigure.BudgetVersionFig10EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig10EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig10EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig10EacQTY = btNewBVFigure.BudgetVersionFig10EacQTY + tNewBudgetVersionFigure.BudgetVersionFig10EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig10SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig10SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig10SEacTC = btNewBVFigure.BudgetVersionFig10SEacTC + tNewBudgetVersionFigure.BudgetVersionFig10SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig11EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig11EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig11EacTC = btNewBVFigure.BudgetVersionFig11EacTC + tNewBudgetVersionFigure.BudgetVersionFig11EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig11EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig11EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig11EacQTY = btNewBVFigure.BudgetVersionFig11EacQTY + tNewBudgetVersionFigure.BudgetVersionFig11EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig11SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig11SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig11SEacTC = btNewBVFigure.BudgetVersionFig11SEacTC + tNewBudgetVersionFigure.BudgetVersionFig11SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig12EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig12EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig12EacTC = btNewBVFigure.BudgetVersionFig12EacTC + tNewBudgetVersionFigure.BudgetVersionFig12EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig12EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig12EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig12EacQTY = btNewBVFigure.BudgetVersionFig12EacQTY + tNewBudgetVersionFigure.BudgetVersionFig12EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig12SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig12SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig12SEacTC = btNewBVFigure.BudgetVersionFig12SEacTC + tNewBudgetVersionFigure.BudgetVersionFig12SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig13EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig13EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig13EacTC = btNewBVFigure.BudgetVersionFig13EacTC + tNewBudgetVersionFigure.BudgetVersionFig13EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig13EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig13EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig13EacQTY = btNewBVFigure.BudgetVersionFig13EacQTY + tNewBudgetVersionFigure.BudgetVersionFig13EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig13SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig13SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig13SEacTC = btNewBVFigure.BudgetVersionFig13SEacTC + tNewBudgetVersionFigure.BudgetVersionFig13SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig14EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig14EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig14EacTC = btNewBVFigure.BudgetVersionFig14EacTC + tNewBudgetVersionFigure.BudgetVersionFig14EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig14EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig14EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig14EacQTY = btNewBVFigure.BudgetVersionFig14EacQTY + tNewBudgetVersionFigure.BudgetVersionFig14EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig14SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig14SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig14SEacTC = btNewBVFigure.BudgetVersionFig14SEacTC + tNewBudgetVersionFigure.BudgetVersionFig14SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig15EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig15EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig15EacTC = btNewBVFigure.BudgetVersionFig15EacTC + tNewBudgetVersionFigure.BudgetVersionFig15EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig15EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig15EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig15EacQTY = btNewBVFigure.BudgetVersionFig15EacQTY + tNewBudgetVersionFigure.BudgetVersionFig15EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig15SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig15SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig15SEacTC = btNewBVFigure.BudgetVersionFig15SEacTC + tNewBudgetVersionFigure.BudgetVersionFig15SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig16EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig16EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig16EacTC = btNewBVFigure.BudgetVersionFig16EacTC + tNewBudgetVersionFigure.BudgetVersionFig16EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig16EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig16EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig16EacQTY = btNewBVFigure.BudgetVersionFig16EacQTY + tNewBudgetVersionFigure.BudgetVersionFig16EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig16SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig16SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig16SEacTC = btNewBVFigure.BudgetVersionFig16SEacTC + tNewBudgetVersionFigure.BudgetVersionFig16SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig17EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig17EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig17EacTC = btNewBVFigure.BudgetVersionFig17EacTC + tNewBudgetVersionFigure.BudgetVersionFig17EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig17EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig17EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig17EacQTY = btNewBVFigure.BudgetVersionFig17EacQTY + tNewBudgetVersionFigure.BudgetVersionFig17EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig17SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig17SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig17SEacTC = btNewBVFigure.BudgetVersionFig17SEacTC + tNewBudgetVersionFigure.BudgetVersionFig17SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig18EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig18EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig18EacTC = btNewBVFigure.BudgetVersionFig18EacTC + tNewBudgetVersionFigure.BudgetVersionFig18EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig18EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig18EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig18EacQTY = btNewBVFigure.BudgetVersionFig18EacQTY + tNewBudgetVersionFigure.BudgetVersionFig18EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig18SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig18SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig18SEacTC = btNewBVFigure.BudgetVersionFig18SEacTC + tNewBudgetVersionFigure.BudgetVersionFig18SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig19EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig19EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig19EacTC = btNewBVFigure.BudgetVersionFig19EacTC + tNewBudgetVersionFigure.BudgetVersionFig19EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig19EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig19EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig19EacQTY = btNewBVFigure.BudgetVersionFig19EacQTY + tNewBudgetVersionFigure.BudgetVersionFig19EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig19SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig19SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig19SEacTC = btNewBVFigure.BudgetVersionFig19SEacTC + tNewBudgetVersionFigure.BudgetVersionFig19SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig20EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig20EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig20EacTC = btNewBVFigure.BudgetVersionFig20EacTC + tNewBudgetVersionFigure.BudgetVersionFig20EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig20EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig20EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig20EacQTY = btNewBVFigure.BudgetVersionFig20EacQTY + tNewBudgetVersionFigure.BudgetVersionFig20EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig20SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig20SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig20SEacTC = btNewBVFigure.BudgetVersionFig20SEacTC + tNewBudgetVersionFigure.BudgetVersionFig20SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig21EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig21EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig21EacTC = btNewBVFigure.BudgetVersionFig21EacTC + tNewBudgetVersionFigure.BudgetVersionFig21EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig21EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig21EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig21EacQTY = btNewBVFigure.BudgetVersionFig21EacQTY + tNewBudgetVersionFigure.BudgetVersionFig21EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig21SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig21SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig21SEacTC = btNewBVFigure.BudgetVersionFig21SEacTC + tNewBudgetVersionFigure.BudgetVersionFig21SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig22EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig22EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig22EacTC = btNewBVFigure.BudgetVersionFig22EacTC + tNewBudgetVersionFigure.BudgetVersionFig22EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig22EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig22EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig22EacQTY = btNewBVFigure.BudgetVersionFig22EacQTY + tNewBudgetVersionFigure.BudgetVersionFig22EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig22SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig22SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig22SEacTC = btNewBVFigure.BudgetVersionFig22SEacTC + tNewBudgetVersionFigure.BudgetVersionFig22SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig23EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig23EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig23EacTC = btNewBVFigure.BudgetVersionFig23EacTC + tNewBudgetVersionFigure.BudgetVersionFig23EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig23EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig23EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig23EacQTY = btNewBVFigure.BudgetVersionFig23EacQTY + tNewBudgetVersionFigure.BudgetVersionFig23EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig23SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig23SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig23SEacTC = btNewBVFigure.BudgetVersionFig23SEacTC + tNewBudgetVersionFigure.BudgetVersionFig23SEacTC.
if tNewBudgetVersionFigure.BudgetVersionFig24EacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig24EacTC = 0.
else assign btNewBVFigure.BudgetVersionFig24EacTC = btNewBVFigure.BudgetVersionFig24EacTC + tNewBudgetVersionFigure.BudgetVersionFig24EacTC.
if tNewBudgetVersionFigure.BudgetVersionFig24EacQTY = ? then assign tNewBudgetVersionFigure.BudgetVersionFig24EacQTY = 0.
else assign btNewBVFigure.BudgetVersionFig24EacQTY = btNewBVFigure.BudgetVersionFig24EacQTY + tNewBudgetVersionFigure.BudgetVersionFig24EacQTY.
if tNewBudgetVersionFigure.BudgetVersionFig24SEacTC = ? then assign tNewBudgetVersionFigure.BudgetVersionFig24SEacTC = 0.
else assign btNewBVFigure.BudgetVersionFig24SEacTC = btNewBVFigure.BudgetVersionFig24SEacTC + tNewBudgetVersionFigure.BudgetVersionFig24SEacTC.
if viParentBudgetWBSID = 0 or
viParentBudgetWBSID = ?
then leave.
END. /* repeat */
end. /* for each tNewBudgetVersionFigure where */