method GetCompanyList

Description

This method is used to get the company list in same domain.

Parameters

ocCompanyCode	output	character	Comany Codes.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/baccountinginterface.p)

<Q-85 run ResourceByURIUsr (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input 'urn:cbf:' + vcFcComponentName + '.' + vcActivityCode, (ResourceURI)
    input viUsrId, (UsrId)
    input true, (CompanyIsActive)
    output dataset tqResourceByURIUsr) in BResource >

/* Get the Company List */ 
for each tqResourceByURIUsr break by tqResourceByURIUsr.tcCompanyCode:
    if first-of(tqResourceByURIUsr.tcCompanyCode)
    then do:
        if ocCompanyCode <> ""
        then assign ocCompanyCode = ocCompanyCode + chr(2).

        assign ocCompanyCode = ocCompanyCode + tqResourceByURIUsr.tcCompanyCode + chr(2) + string(tqResourceByURIUsr.tiCompany_ID).
    end.
end.