method ApiLoadEmployeeCalcUsrLogin

function returns character

Description

This method is used to load User Code by usr_id.

Parameters

iiUsrId

input

integer

User ID.

Internal usage

QadFinancials

method BEmployee.ApiLoadEmployee

program code (program9/bemployee.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run UserPrim (all) (Read) (NoCache)
   (input iiUsrId, (UsrId)
    input ?, (UsrLogin)
    output dataset tqUserPrim) in BUser >

find first tqUserPrim where
           tqUserPrim.tiUsr_ID = iiUsrId
           no-error.

return if available tqUserPrim
       then tqUserPrim.tcUsrLogin
       else "":U.