
EsbOtlAddAliasCombination() adds an alias combination to a member for a single alias table.
EsbOtlAddAliasCombination (hOutline, hMember, pszAliasTable, pszAlias, pszCombination)
ByVal hOutline As Long ByVal hMember As Long ByVal pszAliasTable As String ByVal pszAlias As String ByVal pszCombination As String
| hOutline | Outline context handle. |
| hMember | Handle of member to create an alias combination for. |
| PszAliasTable | Alias table to add the combination to. If this parameter is "", the default alias table is used. |
| pszAlias | Alias. |
| PszCombination | Member combination to associate with the alias. This can be a cross-dimensional member list. |
Returns 0 if successful; otherwise one of the following:
OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_ALIASSHARED
OTLAPI_ERR_ILLEGALCOMBOALIAS
OTLAPI_ERR_ILLEGALALIASSTRING
OTLAPI_ERR_DUPLICATEALIAS
Declare Function EsbOtlAddAliasCombination Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember
As Long, ByVal pszAliasTable As String, ByVal pszAlias As String, ByVal
pszCombination As String) As Long
Sub ESB_EsbOtlAddAliasCombination()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim MbrInfo As ESB_MBRINFO_T
Dim hMemberJan As Long
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES,
ESB_YES, hOutline)
If sts = 0 Then
sts = EsbOtlFindMember(hOutline,
"Jan", hMemberJan)
End If
If sts = 0 And hMemberJan <> 0 Then
sts = EsbOtlAddAliasCombination(hOutline,
hMemberJan, "Default", "alias combination",
"Year->Market")
End If
End Sub
EsbOtlDeleteAliasCombination()
EsbOtlGetNextAliasCombination()