project QadFinancials > class BBudget > method CalcBudgetOverrunYTDSelect1
query calculated fields procedure
Description
This method is to assign a value to query calculated field pqSelectBudget.tcBudgetOverrunYTDSelect
Parameters
iiCompanyId | input | integer | Company id |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bbudget.p)
if vcListBudgetOverRuns = "":U
then assign vcListBudgetOverRuns = {&BUDGETOVERRUNS}.
assign {&tcBudgetOverrunYTDSelect} = "?":U.
do viCounter = num-entries(vcListBudgetOverRuns,chr(2)) to 1 by -2 :
if entry(viCounter,vcListBudgetOverRuns,chr(2)) = {&tcBudgetOverrunYTD}
then do :
assign {&tcBudgetOverrunYTDSelect} = entry(viCounter - 1,vcListBudgetOverRuns,chr(2)) no-error.
leave.
end. /* if entry */
end.