EnumCurrencies2

Returns arrays containing the currency IDs and labels of the application’s currencies, with the option to return only those currencies for which the DisplayInICT attribute is enabled. The arrays have a one-to-one correspondence.

Syntax

<HsvCurrencies>.EnumCurrencies2 vbICTOnly, pvaralIDs, pvarabstrLabels

Argument	Description
vbICTOnly	Boolean (ByVal). Specifies whether to filter currencies. Pass TRUE to return only currencies for which the DisplayInICT attribute is enabled, FALSE to return all currencies.
pvaralIDs	Variant. Returns an array of currency IDs. The array is returned as a Long subtype.
pvarabstrLabels	Variant. Returns an array of currency labels. The array is returned as a String subtype.

Example

The following example prints the labels of the currencies for which the DisplayInICT attribute is enabled to Visual Basic’s Immediate window.

Dim cCurrencies As HsvCurrencies, vaIDs As Variant, vaLabels As Variant
'g_cMetadata is an HsvMetadata object reference
Set cCurrencies = g_cMetadata.Currencies
cCurrencies.EnumCurrencies2 True, vaIDs, vaLabels
For i = LBound(vaLabels) To UBound(vaLabels)
  Debug.Print vaLabels(i)
Next i
End Sub