project QadFinancials > class BAccountingInterface > method GetCompanyList

Description

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


Parameters


ocCompanyCodeoutputcharacterComany Codes.
oiReturnStatusoutputintegerReturn 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.