project QadFinancials > class BBudget > method CalcBudgetOverrunPeriodSelect1

query calculated fields procedure

Description

This method is to assign a value to query calculated field pqSelectBudget.tcBudgetOverrunPeriodSelect


Parameters


iiCompanyIdinputintegerCompany id
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
query BudgetisReportStruct


program code (program1/bbudget.p)

if vcListBudgetOverRuns = "":U
then assign vcListBudgetOverRuns = {&BUDGETOVERRUNS}.

assign {&tcBudgetOverrunPeriodSelect} = "?":U.
do viCounter = num-entries(vcListBudgetOverRuns,chr(2)) to 1 by -2 :
    if entry(viCounter,vcListBudgetOverRuns,chr(2)) = {&tcBudgetOverrunPeriod}
    then do :
        assign {&tcBudgetOverrunPeriodSelect} = entry(viCounter - 1,vcListBudgetOverRuns,chr(2)) no-error.
        leave.
    end. /* if entry */
end.