method ApiLoadEmployeeCalcProjectCode

function returns character

Description

This method is used to load project code by project_id.

Parameters

iiProjectId

input

integer

Project ID.

Internal usage

QadFinancials

method BEmployee.ApiLoadEmployee

program code (program9/bemployee.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run ProjectPrim (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input iiProjectId, (ProjectID)
    input ?, (ProjectCode)
    output dataset tqProjectPrim) in BProject >

find first tqProjectPrim where
           tqProjectPrim.tiProject_ID = iiProjectId
           no-error.

return if available tqProjectPrim
       then tqProjectPrim.tcProjectCode
       else "":U.