method CalcBudgetStatusSelect1

query calculated fields procedure

Description

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

Parameters

iiCompanyId	input	integer	Company id
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

query BudgetisReportStruct

program code (program1/bbudget.p)

if vcListBudgetStatuses = "":U
then assign vcListBudgetStatuses = {&BUDGETSTATUSES}.

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