project QadFinancials > class BEmployee > 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
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.