method ApiLoadBusinessRelationCalcCorporateGroupCode

function returns character

Description

This method is used for ApiLoadBusinessRelation to get CorporateGroupCode by CorporateGroupId.

Parameters

iiCorporateGroupId

input

integer

Internal usage

QadFinancials

method BBusinessRelation.ApiLoadBusinessRelation

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.