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 Sub
EsbListCurrencyDatabases()