method GetSharedSetCompanyCurrencyIDs

Description

This method is used to get all currency ids in the sharedset which the current company use.

Parameters

iiSharedSetID	input	integer	Sharedset ID.
ocCurrencyIDList	output	character	Currency ID list, serperated by ",".
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BExchangeRate.ApiCalculateDerivedExchangeRates

program code (program3/bexchangerate.p)

<Q-3 run CompanySharedSetBySharedSet (all) (Read) (NoCache)
   (input iiSharedSetID, (SharedSetId)
    input ?, (CompanyId)
    output dataset tqCompanySharedSetBySharedSet) in BCompany >
for each tqCompanySharedSetBySharedSet:
    <Q-2 run CompanyPropertyForAllData (all) (Read) (NoCache)
       (input tqCompanySharedSetBySharedSet.tiCompany_ID, (CompanyId)
        output dataset tqCompanyPropertyForAllData) in BCompanyProperty >
    for each tqCompanyPropertyForAllData:
    
         if(not can-do(ocCurrencyIDList,string(tqCompanyPropertyForAllData.tiCurrency_ID))) then do:
             if(ocCurrencyIDList = ? or ocCurrencyIDList = "") then
                ocCurrencyIDList = string(tqCompanyPropertyForAllData.tiCurrency_ID).
             else
                 ocCurrencyIDList = ocCurrencyIDList + ',':U + string(tqCompanyPropertyForAllData.tiCurrency_ID).
         end.
     end.
end.