method ApiLoadEmployeeCalcDivisionCode

function returns character

Description

This method is used to load division code by division_id.

Parameters

iiDivisionId

input

integer

Division ID.

Internal usage

QadFinancials

method BEmployee.ApiLoadEmployee

program code (program9/bemployee.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run DivisionPrim (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input iiDivisionId, (DivisionID)
    input ?, (DivisionCode)
    output dataset tqDivisionPrim) in BDivision >

find first tqDivisionPrim where
           tqDivisionPrim.tiDivision_ID = iiDivisionId
           no-error.

return if available tqDivisionPrim
       then tqDivisionPrim.tcDivisionCode
       else "":U.