method ApiLoadEmployeeCalcBusRelCode

function returns character

Description

This method is used to load business relation code by businessrelation_id.

Parameters

iiBusinessRelationId

input

integer

Business Relation ID.

Internal usage

QadFinancials

method BEmployee.ApiLoadEmployee

program code (program9/bemployee.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run BusinessRelationPrim (all) (Read) (NoCache)
   (input iiBusinessRelationId, (BusinessRelationId)
    input ?, (BusinessRelationCode)
    output dataset tqBusinessRelationPrim) in BBusinessRelation >

find first tqBusinessRelationPrim where
           tqBusinessRelationPrim.tiBusinessRelation_ID = iiBusinessRelationId
           no-error.

return if available tqBusinessRelationPrim
       then tqBusinessRelationPrim.tcBusinessRelationCode
       else "":U.