EsbGetCurrencyRateInfo() gets a list of structures containing rate information for all members of the tagged currency partition dimension in the active database outline.
EsbGetCurrencyRateInfo (hCtx, pItems)
ByVal hCtx As Long pItems As Integer
hCtx | Essbase VB API context handle. |
pItems | Address of variable to receive the Items of rate info structures. |
Declare Function EsbGetCurrencyRateInfo Lib "ESBAPIW" (ByVal hCtx As Long, Items As Integer) As Long Sub ESB_GetCurrencyRateInfo () Dim Items As Integer Dim RateInfo As ESB_RATEINFO_T Dim sts As Long '************************ ' Get Currency Rates Info '************************ sts = EsbGetCurrencyRateInfo (hCtx, Items) For n = 1 To Items '************************* ' Get next Rates Info item 'from the list '************************* sts = EsbGetNextItem (hCtx, ESB_RATEINFO_TYPE, RateInfo) Next End SubEsbListCurrencyDatabases()