project QadFinancials > class BEmployee > method ApiLoadEmployeeCalcActivityCode

function returns character

Description

This method is used to load Employee's activitycode by activitycode_id. If not exists, return null.


Parameters


iiActivityIdinputintegerActivity ID.


Internal usage


QadFinancials
method BEmployee.ApiLoadEmployee


program code (program9/bemployee.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run ActivityCodePrim (all) (Read) (NoCache)
   (input iiActivityId, (ActivityCodeId)
    input ?, (ActivityCode)
    input ?, (ActivityCodeType)
    output dataset tqActivityCodePrim) in BActivityCode>

find first tqActivityCodePrim where
           tqActivityCodePrim.tiActivityCode_ID = iiActivityId
           no-error.

return if available tqActivityCodePrim
       then tqActivityCodePrim.tcActivityCode
       else "":U.