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
iiSharedSetID | input | integer | Sharedset ID. |
ocCurrencyIDList | output | character | Currency ID list, serperated by ",". |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.