EsbOtlDeleteLevelName() deletes the name for a specific level within a dimension. Level names are explicitly added to the outline with EsbOtlSetLevelName().
EsbOtlDeleteLevelName (hOutline, pszDimension, usLevel)
ByVal hOutline As Long ByVal pszDimension As String ByVal usLevel As Integer
| hOutline | Outline context handle. |
| pszDimension | Name of dimension that contains the level name. |
| usLevel | Number of level for which to delete name. Leaf members are level 0. |
Returns 0 if successful; otherwise one of the following:
OTLAPI_NO_GENLEVELNAME
OTLAPI_ERR_NOTADIM
Declare Function EsbOtlDeleteLevelName Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal pszDimension
As String, ByVal usLevel As Integer) As Long
Sub ESB_OtlDeleteLevelName()
Dim sts As Long
Dim Dimension As String
Dim LevelNum As Integer
Dim Object As ESB_OBJDEF_T
Dim hOutline 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)
'************************************
'******* Delete Level Name **********
'************************************
Dimension = "Year"
LevelNum = 1
LevelName = "Month"
If sts = 0 Then
sts = EsbOtlDeleteLevelName(hOutline,
Dimension, LevelNum)
End If
End Sub
EsbOtlGetLevelName()
EsbOtlGetLevelNames()
EsbOtlSetLevelName()