VBA to add attribute members

Question

Does anyboy had any problem addind attribute members (Essbase 11.1.2.0)?
To add normal member, is fine.
When I change to attrbute member I got no error, but cannot see my new member.
My code:
Dim init As ESB_INIT_T
Dim ObjDef As ESB_OBJDEF_T
Dim ProcState As ESB_PROCSTATE_T
Dim MbrInfo As ESB_MBRINFO_T
Dim lngCount As Long
Dim strAttrParent As String
Dim strAttr As String
Dim lngInst As Long
Dim lngCtx As Long
Dim lngStatus As Long
Dim lngOutline As Long
Dim lngMember As Long
Dim intItems As Integer
'Init API
init.Version = ESB_API_VERSION
lngStatus = EsbInit(init, lngInst)
'Log in
lngStatus = EsbLogin(lngInst, "EssServer", "admin", "pwd", intItems, lngCtx)
'Open the outline
lngStatus = EsbSetActive(lngCtx, "Sample", "Basic", intItems)
With ObjDef
.AppName = "Sample"
.DbName = "Basic"
.FileName = "Basic"
.hCtx = lngCtx
.Type = ESB_OBJTYPE_OUTLINE
End With
lngStatus = EsbOtlOpenOutline(lngCtx, ObjDef, ESB_YES, ESB_YES, lngOutline)
If lngStatus = 0 Then
lngStatus = EsbOtlFindMember(lngOutline, "Market", lngMember) <-------------- It will work for Market Dim, If I change to "Pkg Type" it wont.
End If
If lngStatus = 0 And lngMember <> 0 Then
MbrInfo.szMember = "Attr1" <-------------------- this is my new member
MbrInfo.usConsolidation = ESB_UCALC_NOOP
MbrInfo.fTwoPass = ESB_FALSE
MbrInfo.fExpense = ESB_FALSE
MbrInfo.usConversion = ESB_CONV_NONE
MbrInfo.usTimeBalance = ESB_TIMEBAL_NONE
MbrInfo.usSkip = ESB_SKIP_NONE
MbrInfo.usShare = ESB_SHARE_DYNCALCNOSTORE
MbrInfo.usStorage = ESB_DIMTYPE_SPARSE
MbrInfo.usCategory = ESB_CAT_ATTRIBUTE
MbrInfo.usStorageCategory = ESB_STORECAT_ATTRIBUTE
MbrInfo.Attribute = ESB_ATTRMBRDT_STRING
lngStatus = EsbOtlAddMember(lngOutline, MbrInfo, ESB_NULL, lngMember, hNewMember)
End If
'Write the outline
lngStatus = EsbOtlWriteOutline(lngOutline, ObjDef)
'Restructure
lngStatus = EsbOtlRestructure(lngCtx, ESB_DOR_ALLDATA)
'Call EsbGetProcessState until completed
lngStatus = EsbGetProcessState(lngCtx, ProcState)
While ProcState.State <> ESB_STATE_DONE
Application.Wait DateAdd("s", 10, Now())
lngStatus = EsbGetProcessState(lngCtx, ProcState)
Wend
'Unlock the outline
lngStatus = EsbUnlockObject(lngCtx, ESB_OBJTYPE_OUTLINE, "Sample", "Basic", "Basic")
'Close the outline
lngStatus = EsbOtlCloseOutline(lngOutline)
'Log out of server
lngStatus = EsbLogout(lngCtx)
'Terminate API instance
lngStatus = EsbTerm(lngInst)
Thanks

Answer 1

hi,
To add user defined attributes to territory management
1. define the additional attribute by appending the additional attributes to  CRMM_TERRATTRIB
2. Maintain additional attributes (by giving field name selection group, ref object type)
3.Implement Badi for additional attributes (not mandatory)
4.Activate additional attributes.
spro path:customer relationship management->master data->territory management->additional attributes( for steps 1,2,3 )
customer relationship management->master data->territory management->activate/deactivate attributes ( for 4 th step)
regards,
Priyanka