EsbOtlSetAttributeSpecifications() sets attribute specifications for the outline.
EsbOtlSetAttributeSpecifications (hOutline, AttrSpecs)
ByVal hOutline As Long
AttrSpecs As ESB_ATTRSPECS_T
| hOutline | Handle to the outline |
| AttrSpecs | Attribute specifications |
This function requires no special privileges.
Sub ESB_OtlSetAttributeSpecifications()
Dim InAttrSpecs As ESB_ATTRSPECS_T
eraser
InAttrSpecs.GenNameBy = InputBox("Enter GenNameBy:" & vbCrLf & _
"0. ESB_GENNAMEBY_PREFIX" & vbCrLf & _
"1. ESB_GENNAMEBY_SUFFIX")
InAttrSpecs.UseNameOf = InputBox("Enter UseNameOf:" & vbCrLf & _
"0. ESB_USENAMEOF_NONE" & vbCrLf & _
"1. ESB_USENAMEOF_PARENT" & vbCrLf & _
"2. ESB_USENAMEOF_GRANDPARENTANDPARENT" & vbCrLf & _
"3. ESB_USENAMEOF_ALLANCESTORS" & vbCrLf & _
"4. ESB_USENAMEOF_DIMENSION")
InAttrSpecs.Delimiter = InputBox("Enter Delimiter:" & vbCrLf & _
"0. ESB_DELIMITER_UNDERSCORE" & vbCrLf & _
"1. ESB_DELIMITER_PIPE" & vbCrLf & _
"2. ESB_DELIMITER_CARET")
InAttrSpecs.DateFormat = InputBox("Enter DateFormat:" & vbCrLf & _
"0. ESB_DATEFORMAT_MMDDYYYY" & vbCrLf & _
"1. ESB_DATEFORMAT_DDMMYYYY")
InAttrSpecs.BucketingType = InputBox("Enter BucketingType:" & vbCrLf & _
"0. ESB_UPPERBOUNDINCLUSIVE" & vbCrLf & _
"1. ESB_ESB_LOWERBOUNDINCLUSIVE" & vbCrLf & _
"2. ESB_UPPERBOUNDNONINCLUSIVE" & vbCrLf & _
"3. ESB_ESB_LOWERBOUNDNONINCLUSIVE")
InAttrSpecs.DefaultTrueString = InputBox("Enter DefaultTrueString: ", , "ESB_DEFAULT_TRUESTRING")
InAttrSpecs.DefaultFalseString = InputBox("Enter DefaultFalseString: ", , "ESB_DEFAULT_FALSESTRING")
InAttrSpecs.DefaultAttrCalcDimName = InputBox("Enter DefaultAttrCalcDimName: ", , "ESB_DEFAULT_ATTRIBUTECALCULATIONS")
InAttrSpecs.DefaultSumMbrName = InputBox("Enter DefaultSumMbrName: ", , "ESB_DEFAULT_SUM")
InAttrSpecs.DefaultCountMbrName = InputBox("Enter DefaultCountMbrName: ", , "ESB_DEFAULT_COUNT")
InAttrSpecs.DefaultAverageMbrName = InputBox("Enter DefaultAverageMbrName: ", , "ESB_DEFAULT_AVERAGE")
InAttrSpecs.DefaultMinMbrName = InputBox("Enter DefaultMinMbrName: ", , "ESB_DEFAULT_MIN")
InAttrSpecs.DefaultMaxMbrName = InputBox("Enter DefaultMaxMbrName: ", , "ESB_DEFAULT_MAX")
sts = EsbOtlSetAttributeSpecifications(ghOutline, InAttrSpecs)
If sts = 0 Then
Out "ESB_OtlSetAttributeSpecifications passed: " & sts
Out "GenNameBy : " & InAttrSpecs.GenNameBy
Out "UseNameOf : " & InAttrSpecs.UseNameOf
Out "Delimiter : " & InAttrSpecs.Delimiter
Out "DateFormat : " & InAttrSpecs.DateFormat
Out "BucketingType : " & InAttrSpecs.BucketingType
Out "DefaultTrueString : " & InAttrSpecs.DefaultTrueString
Out "DefaultFalseString : " & InAttrSpecs.DefaultFalseString
Out "DefaultAttrCalcDimName : " & InAttrSpecs.DefaultAttrCalcDimName
Out "DefaultSumMbrName : " & InAttrSpecs.DefaultSumMbrName
Out "DefaultCountMbrName : " & InAttrSpecs.DefaultCountMbrName
Out "DefaultAverageMbrName : " & InAttrSpecs.DefaultAverageMbrName
Out "DefaultMinMbrName : " & InAttrSpecs.DefaultMinMbrName
Out "DefaultMaxMbrName : " & InAttrSpecs.DefaultMaxMbrName
Else
Out "ESB_OtlSetAttributeSpecifications failed" & sts
Exit Sub
End If
End Sub
EsbCheckAttributes()
EsbGetAssociatedAttributesInfo()
EsbGetAttributeInfo()
EsbGetAttributeSpecifications()
EsbOtlAssociateAttributeDimension()
EsbOtlAssociateAttributeMember()
EsbOtlDisassociateAttributeDimension()
EsbOtlDisassociateAttributeMember()
EsbOtlFindAttributeMembers()
EsbOtlGetAssociatedAttributes()
EsbOtlGetAttributeInfo()
EsbOtlGetAttributeSpecifications()
EsbOtlQueryAttributes()