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.