project QadFinancials > class BBusinessRelation > method ApiLoadBusinessRelationCalcCorporateGroupCode
function returns character
Description
This method is used for ApiLoadBusinessRelation to get CorporateGroupCode by CorporateGroupId.
Parameters
iiCorporateGroupId | input | integer | |
Internal usage
QadFinancials
program code (program9/bbusinessrelation.p)
define variable oiReturnStatus as integer no-undo.
if iiCorporateGroupId = ? or
iiCorporateGroupId = 0
then return "":U.
<Q-1 run CorporateGroupPrim (all) (Read) (Cache)
(input iiCorporateGroupId, (CorporateGroup_ID)
input ?, (CorporateGroupCode)
output dataset tqCorporateGroupPrim) in BCorporateGroup >
find first tqCorporateGroupPrim where
tqCorporateGroupPrim.tiCorporateGroup_ID = iiCorporateGroupId
no-error.
return if available tqCorporateGroupPrim
then tqCorporateGroupPrim.tcCorporateGroupCode
else "":U.