project QadFinancials > class BDebtor > method GetCompanyList
Parameters
iiDebtorSharedSetID | input | integer | |
ocCompanyCode | output | character | |
oiReturnStatus | output | integer | Return 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 = "".