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