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
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.