project QadFinancials > class BBudget > method BudgetVersionRollUpAmountsFigBud

Description

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


Parameters


icBudgetVersionTcRowidinputcharacterBudgetVerisonTcRowid
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.BudgetVersionRollUpAmountsFig


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