project QadFinancials > class BBudget > method BudgetCheckInfoResolveOutput

Description

This method is the submethod of BudgetCheckInfoResolve that will create and assign the output table of the calling method.
Note that both methods should be in the same segment.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.BudgetCheckInfoResolve


program code (program8/bbudget.p)

/* =================================================================== */
    /* Create the output temp-table record for the tBudgetCheckInfo record */
    /* =================================================================== */
    create tBudgetCheckInfoWBS.
    assign tBudgetCheckInfoWBS.tiBudgetCheckInfoID           = tBudgetCheckInfo.tiBudgetCheckInfoID
           tBudgetCheckInfoWBS.tcCallerReference             = tBudgetCheckInfo.tcCallerReference
           tBudgetCheckInfoWBS.tcCurrencyCode                = tBudgetByBudgetIDCodeStatus.tcCurrencyCode
           tBudgetCheckInfoWBS.tcBudgetCode                  = tBudgetByBudgetIDCodeStatus.tcBudgetCode
           tBudgetCheckInfoWBS.tiBudgetID                    = tBudgetByBudgetIDCodeStatus.tiBudget_ID
           tBudgetCheckInfoWBS.tcProjectCode                 = tBudgetByBudgetIDCodeStatus.tcProjectCode
           tBudgetCheckInfoWBS.tcCostCentreCode              = tBudgetByBudgetIDCodeStatus.tcCostCentreCode
           tBudgetCheckInfoWBS.tlBudgetIsSendError           = tBudgetByBudgetIDCodeStatus.tlBudgetIsSendError
           tBudgetCheckInfoWBS.tlBudgetIsSendWarning         = tBudgetByBudgetIDCodeStatus.tlBudgetIsSendWarning
           tBudgetCheckInfoWBS.tiBudgetPeriodID              = tqBudgetPeriodByBudgetIDDate.tiBudgetPeriod_ID
           tBudgetCheckInfoWBS.tiBudgetPeriodSeq             = tqBudgetPeriodByBudgetIDDate.tiBudgetPeriodSeq
           tBudgetCheckInfoWBS.tcBudgetVersionCode           = tqBudgetVersionByBudgetIDStat.tcBudgetVersionCode
           tBudgetCheckInfoWBS.tiBudgetVersionID             = tqBudgetVersionByBudgetIDStat.tiBudgetVersion_ID
           tBudgetCheckInfoWBS.tiReportPeriodID              = tqBudgetVersionByBudgetIDStat.tiReportPeriod_ID
           tBudgetCheckInfoWBS.tlReportPeriodIsReported      = tqBudgetVersionByBudgetIDStat.tlReportPeriodIsReported
           tBudgetCheckInfoWBS.tiReportPeriodYear            = tqBudgetVersionByBudgetIDStat.tiReportPeriodYear
           tBudgetCheckInfoWBS.tiReportPeriodPeriod          = tqBudgetVersionByBudgetIDStat.tiReportPeriodPeriod
           tBudgetCheckInfoWBS.tcBudgetCheckReportPeriod     = tBudgetByBudgetIDCodeStatus.tcBudgetCheckReportPeriod
           tBudgetCheckInfoWBS.tcBudgetWBSCode               = tqBudgetWBSByAll.tcBudgetWBSCode
           tBudgetCheckInfoWBS.tiBudgetWBSID                 = tqBudgetWBSByAll.tiBudgetWBS_ID
           tBudgetCheckInfoWBS.tcBudgetWBSOverrunPeriod      = tqBudgetWBSByAll.tcBudgetWBSOverrunPeriod
           tBudgetCheckInfoWBS.tcBudgetWBSOverrunYTD         = tqBudgetWBSByAll.tcBudgetWBSOverrunYTD
           tBudgetCheckInfoWBS.tcBudgetWBSOverrunTotal       = tqBudgetWBSByAll.tcBudgetWBSOverrunTotal
           tBudgetCheckInfoWBS.tcBudgetWBSTcRowid            = entry(1,tqBudgetWBSByAll.tc_rowid)
           tBudgetCheckInfoWBS.tcBudgetWBSCostRevenue        = tqBudgetWBSByAll.tcBudgetWBSCostRevenue
           tBudgetCheckInfoWBS.tcFDSCode                     = tqBudgetWBSByAll.tcBudgetWBSFDSCode
           tBudgetCheckInfoWBS.tcFDSFromCode                 = tqBudgetWBSByAll.tcBudgetWBSFDSFromCode
           tBudgetCheckInfoWBS.tcFDSToCode                   = tqBudgetWBSByAll.tcBudgetWBSFDSToCode
           tBudgetCheckInfoWBS.tcFDSList                     = tqBudgetWBSByAll.tcBudgetWBSFDSList
           tBudgetCheckInfoWBS.tcFDSType                     = tqBudgetWBSByAll.tcBudgetFDSType
           tBudgetCheckInfoWBS.tiBudgetGroupID               = tqBudgetWBSByAll.tiBudgetGroup_ID
           tBudgetCheckInfoWBS.tiParentBudgetWBSID           = tqBudgetWBSByAll.tiParentBudgetWBS_ID
           tBudgetCheckInfoWBS.tiUnitID                      = tqBudgetWBSByAll.tiUnit_ID
           tBudgetCheckInfoWBS.tiCurrencyID                  = tBudgetByBudgetIDCodeStatus.tiCurrency_ID
           tBudgetCheckInfoWBS.tlBudgetIsUsedForAllocation   = tBudgetByBudgetIDCodeStatus.tlBudgetIsUsedForAllocation
           tBudgetCheckInfoWBS.tiSafConceptID                = tqBudgetWBSByAll.tiSafConcept_ID
           tBudgetCheckInfoWBS.tiUsrId                       = tBudgetByBudgetIDCodeStatus.tiUsr_ID.
    
    /* =========================== */
    /* State the allocation-detail */
    /* =========================== */
    if tBudgetByBudgetIDCodeStatus.tlBudgetIsUsedForAllocation = true
    then do :
        if not available tqBudgetFDSByBudgetIDType or 
            tqBudgetFDSByBudgetIDType.tiBudgetFDS_ID <> tqBudgetWBSByAll.tiBudgetFDS_ID 
        then do :
            <Q-1 run BudgetFDSByBudgetIDType (all) (Read) (NoCache)
          (input tqBudgetWBSByAll.tiBudget_ID, (BudgetID)
           input ?, (BudgetFDSType)
           input tqBudgetWBSByAll.tiBudgetFDS_ID, (BudgetFDSID)
           output dataset tqBudgetFDSByBudgetIDType) in BBudget >
            find tqBudgetWBSByAll where 
                 tqBudgetWBSByAll.tiBudgetFDS_ID = tqBudgetWBSByAll.tiBudgetFDS_ID
                 no-error.
        end. /* if not available tqBudgetFDSByBudgetIDType */
        if available tqBudgetFDSByBudgetIDType
        then assign tBudgetCheckInfoWBS.tlBudgetFDSIsAllocationTotal = tqBudgetFDSByBudgetIDType.tlBudgetFDSIsAllocationTotal.
    end. /* if tBudgetByBudgetIDCodeStatus.tlBudgetIsUsedForAllocation = true */
    else assign tBudgetCheckInfoWBS.tlBudgetFDSIsAllocationTotal = false.