project QadFinancials > class BBudget > method ApiGetBudgetWBSWithFiguresBudgetFig

Description

This sub-method of ApiGetBudgetWBSWithFigures will read all required records from db.
This method was created because the parent-method could not contain all code.


Parameters


iiBudgetIDinputintegeriiBudgetID
iiBudgetVersionIDinputintegeriiBudgetVersionID
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.ApiGetBudgetWBSWithFigures


program code (program9/bbudget.p)

/* ============================================================================ */
    /* Call query that returns all figures for the correct version of the budget    */
    /* Either the info is from BudgetVersionFigure, either ffrom BudgetVersionGLFig */
    /* ============================================================================ */
    <Q-1 run BudgetVersionFigureByWBSVers (all) (Read) (NoCache)
          (input ?, (BudgetWBSID)
           input iiBudgetVersionID, (BudgetVersionID)
           input iiBudgetID, (BudgetID)
           output dataset tqBudgetVersionFigureByWBSVers) in BBudget >
    
    /* ======================================================================= */
    /* Go through all WBS'es of the budget/version and get the figures for all */
    /* ======================================================================= */
    for each tViewBudgetWBS ,
        each tqBudgetVersionFigureByWBSVers where 
             tqBudgetVersionFigureByWBSVers.tiBudgetVersion_ID = iiBudgetVersionID and 
             tqBudgetVersionFigureByWBSVers.tiBudgetWBS_ID     = tViewBudgetWBS.tiBudgetWBSID :
        create tViewBudgetWBSFigures.
        assign tViewBudgetWBSFigures.tiBudgetID             = iiBudgetID
               tViewBudgetWBSFigures.tiBudgetWBSID          = tViewBudgetWBS.tiBudgetWBSID
               tViewBudgetWBSFigures.tiParentBudgetWBSID    = tViewBudgetWBS.tiParentBudgetWBSID
               tViewBudgetWBSFigures.tcUnitCode             = tViewBudgetWBS.tcUnitCode 
               tViewBudgetWBSFigures.tcCurrencyCode         = tViewBudgetWBS.tcCurrencyCode
               tViewBudgetWBSFigures.tdBudgetCostTC         = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23TC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24TC
               tViewBudgetWBSFigures.tdBudgetRevenueTC      = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12STC +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23STC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24STC
               tViewBudgetWBSFigures.tdBudgetQTY            = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12QTY +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23QTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24QTY
               tViewBudgetWBSFigures.tdPMCostTC             = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12EacTC +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23EacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24EacTC
               tViewBudgetWBSFigures.tdPMRevenueTC           = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12SEacTC +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23SEacTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24SEacTC
               tViewBudgetWBSFigures.tdPMQTY                = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12EacQTY +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23EacQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24EacQTY
               tViewBudgetWBSFigures.tdControlCostTC        = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12FinTC +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23FinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24FinTC
               tViewBudgetWBSFigures.tdControlRevenueTC     = 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12SFinTC +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23SFinTC + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24SFinTC
               tViewBudgetWBSFigures.tdControlQTY           =
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig01FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig02FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig03FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig04FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig05FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig06FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig07FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig08FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig09FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig10FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig11FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig12FinQTY +
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig13FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig14FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig15FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig16FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig17FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig18FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig19FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig20FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig21FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig22FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig23FinQTY + 
                    tqBudgetVersionFigureByWBSVers.tdBudgetVersionFig24FinQTY
               no-error.
    end. /* for each tViewBudgetWBS */
        
    /* ========================== */
    /* Clear query-table contents */                      
    /* ========================== */
    empty temp-table tqBudgetVersionFigureByWBSVers.