EsbOtlAddMember

Description

EsbOtlAddMember() adds a member to the outline and sets the member's attributes.

Syntax

EsbOtlAddMember (hOutline, pMemberInfo, hParent, hPrevSibling, phMember)
ByVal hOutline     As Long
      pMemberInfo  As ESB_MBRINFO_T
ByVal hParent      As Long
ByVal hPrevSibling As Long
      phMember     As Long

Parameters

hOutlineOutline context handle.
pMemberInfoMember information structure defining the member and its attributes.
hparentHandle of parent. This field is used only if the hPrevSibling field is ESB_NULL.
hPrevSiblingHandle of previous sibling.
phMemberHandle of new member returned from the API.

Return Value

Returns 0 if successful; otherwise one of the following:

OTLAPI_BAD_CONSOL
OTLAPI_BAD_MBRNAME
OTLAPI_ERR_ADDNAMEUSED
OTLAPI_ERR_BADSHARE
OTLAPI_ERR_BADSKIP
OTLAPI_ERR_BADSTORAGE
OTLAPI_ERR_BADSTORAGECATEGORY
OTLAPI_ERR_BADTIMEBAL
OTLAPI_ERR_CURTOOMANYDIMS
OTLAPI_ERR_ILLEGALBOOLEAN
OTLAPI_ERR_ILLEGALCURRENCY
OTLAPI_ERR_ILLEGALDATE
OTLAPI_ERR_ILLEGALNUMERIC
OTLAPI_ERR_ILLEGALTAG
OTLAPI_ERR_LEAFLABEL
OTLAPI_ERR_NOSHAREPROTO
OTLAPI_ERR_NOTIMEDIM

Notes

Example

Declare Function EsbOtlAddMember Lib "ESBOTLW"
(ByVal hOutline As Long, pMemberInfo As ESB_MBRINFO_T,
ByVal hParent As Long, ByVal hPrevSibling As Long,
phMember As Long) As Long

Sub ESB_OtlAddMember()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim MbrInfo As ESB_MBRINFO_T
Dim hMemberProfit As Long
Dim hNewMember 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, 
    "Profit", hMemberProfit) 
End If

If sts = 0 And hMemberProfit <> 0 Then
   MbrInfo.szMember = "Inventory"
    sts = EsbOtlAddMember(hOutline, MbrInfo,
     ESB_NULL, hMemberProfit, hNewMember)
End If
End Sub

See Also

EsbOtlAddDimension()
EsbOtlDeleteMember()
EsbOtlDeleteDimension()
EsbSetMemberInfo()
EsbOtlFindMember()