project QadFinancials > class BDivision > method ApiLoadDivisonCalcBudget

Parameters

Internal usage

program code (program9/bdivision.p)

define variable oiReturnStatus as integer no-undo.

if iiBudgetGroupId = ? or
   iiBudgetGroupId = 0
then return "":U.

<Q-1 run BudgetGroupPrim (all) (Read) (NoCache)
   (input iiBudgetGroupId, (BudgetGroupID)
    input ?, (BudgetGroupCode)
    output dataset tqBudgetGroupPrim) in BBudgetGroup >


find first tqBudgetGroupPrim where
           tqBudgetGroupPrim.tiBudgetGroup_ID = iiBudgetGroupId
           no-error.

return if available tqBudgetGroupPrim
       then tqBudgetGroupPrim.tcBudgetGroupCode
       else "":U.