project QadFinancials > class BExchangeRate > method GetSharedSetCompanyCurrencyIDs

Description

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


Parameters


iiSharedSetIDinputintegerSharedset ID.
ocCurrencyIDListoutputcharacterCurrency ID list, serperated by ",".
oiReturnStatusoutputintegerReturn 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.