Data source types: Essbase
HypIsExpense(vtSheetName, vtDimensionName, vtMemberName)
ByVal vtDimensionName As Variant
ByVal vtMemberName As Variant
vtSheetName: For future use. Currently the active sheet is used.
vtDimensionName: The name of the dimension where the member belongs. If vtDimensionName is Null or Empty, the active dimension is used.
Declare Function HypIsExpense Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtMemberName As Variant) As Variant
Sub CheckExpense()
vtret = HypIsExpense(Empty, "Measures", "Opening Inventory")
If vtret = -1 Then
MsgBox ("Opening Inventory has expense flag set")
ElseIf vtret = 0 Then
MsgBox ("Expense flag has not been set")
Else
MsgBox ("Error value returned is" & vtret)
End If
End Sub