method ApiLoadEmployeeCalcExpenseCode

function returns character

Description

This method is used to load expense code by expense_id.

Parameters

iiExpenseCodeId

input

integer

Expense Code ID.

Internal usage

QadFinancials

method BEmployee.ApiLoadEmployee

program code (program9/bemployee.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run ExpenseCodePrim (all) (Read) (NoCache)
   (input iiExpenseCodeId, (ExpenseCodeId)
    input ?, (ExpenseCode)
    input ?, (ExpenseCodeType)
    output dataset tqExpenseCodePrim) in BExpenseCode>

find first tqExpenseCodePrim where
           tqExpenseCodePrim.tiExpenseCode_ID = iiExpenseCodeId
           no-error.

return if available tqExpenseCodePrim
       then tqExpenseCodePrim.tcExpenseCode
       else "":U.