project QadFinancials > class BDebtor > method GetCompanyList


Parameters


iiDebtorSharedSetIDinputinteger
ocCompanyCodeoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bdebtor.p)

/* Get company list from one sharedset id */
if iiDebtorSharedSetID <> ? and
   iiDebtorSharedSetID <> 0
then do:
    <Q-81 run CompanyBySharedSet (all) (Read) (NoCache)
       (input '', (CompanyId)
        input iiDebtorSharedSetID, (SharedSetId)
        output dataset tqCompanyBySharedSet) in BCompany >
    
    /* Get the Company List in CompanySharedSet */ 
    for each tqCompanyBySharedSet where
             tqCompanyBySharedSet.tiSharedSet_ID = iiDebtorSharedSetID
          by tqCompanyBySharedSet.tcCompanyCode:
        <Q-56 assign vlFcQueryRecordsAvailable = ResourceByURIUsr (NoCache)
           (input tqCompanyBySharedSet.tiCompany_ID, (CompanyId)
            input 'urn:cbf:' + vcFcComponentName + '.' + vcActivityCode, (ResourceURI)
            input viUsrId, (UsrId)
            input ?, (CompanyIsActive)) in BResource >

        if vlFcQueryRecordsAvailable <> false
        then do:
            if ocCompanyCode <> ""
            then assign ocCompanyCode = ocCompanyCode + chr(2).

            assign ocCompanyCode = ocCompanyCode + tqCompanyBySharedSet.tcCompanyCode + chr(2) + string(tqCompanyBySharedSet.tiCompany_ID).
        end.
    end.
end.
else assign ocCompanyCode = "".