project QadFinancials > class BBudget > method BudgetVersionRollUpAmountsFigEac

Description

This method is the submethod of BudgetVersionRollUpAmountsFig because it could not hold all the code.


Parameters


icBudgetVersionTcRowidinputcharacterBudgetVersionTcRowid
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.BudgetVersionRollUpAmountsFig


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  */