Using the Strategy Intelligence Server SDK, it is possible to set the dynamic aggregation and subtotal functions for a metric as shown in the following screenshot:
The following code sample set the dynamic aggregation and subtotal functions for the metric "Profit" to the function "Mode":
Sample Code/Error
Private Sub Command1_Click()
Dim MyDataSource As New DSSDataSource
Dim MySource As IDSSSource
'Create Session
MyDataSource.Name = "server"
MyDataSource.Type = DssDataSourceTypeProjectMD7
MyDataSource.Location = "server"
MyDataSource.Mode = DssConnectionModeServerAccess
MyDataSource.Port = 0
MyDataSource.AuthMode = DssAuthStandard
MyDataSource.login = "Administrator"
MyDataSource.Passwd = ""
MyDataSource.ProjectName = "project"
MyDataSource.Init
Dim oSession As IDSSSession
Set oSession = MyDataSource.CreateSession
Set MySource = oSession.Component(DssRoleObjectSource)
' Find metric "Profit"
Dim oMetric As IDSSMetric
Dim metric_search As IDSSSearch
Set metric_search = MySource.NewObject(DssTypeSearch)
metric_search.Types.Add DssTypeMetric
metric_search.NamePattern = "Profit"
Set myResult = metric_search.Execute
Set oMetric = myResult.Item(1)
strOut ("Obtained Metric: " & oMetric.Info.Name)
'Obtain the subtotal you want to use; In this case "Mode"
Dim subtotal_search As IDSSSearch
Set subtotal_search = MySource.NewObject(DssTypeSearch)
'Subtotal and Metric Objects are the same Object Type 'Metric', but with different subtypes
subtotal_search.Types.Add DssTypeMetric
subtotal_search.NamePattern = "Mode"
Set mySubtotalResult = subtotal_search.Execute
Dim modeSubtotal As IDSSMetric
Set modeSubtotal = mySubtotalResult.Item(1)
strOut ("Obtained Subtotal: " & modeSubtotal.Info.Name)
'Set Total subtotal and Dynamic Aggregation
Dim k
Dim oSubtotals As IDSSMetricSubtotals
Set oSubtotals = oMetric.Subtotals
strOut ("----------------------------------------------------------------------")
For k = 1 To oSubtotals.Count
'Change the Total Subtotal function to the desired subtotal function "Mode"
If oSubtotals.Item(k).Name = "Total" Then
Set oSubtotals.Item(k).Implementation = modeSubtotal
strOut ("Total Subtotal is set to: " & oSubtotals.Item(k).Implementation.Info.Name)
End If
'Change the aggregation function to the desired subtotal function "Mode"
If oSubtotals.Item(k).Name = "Aggregation" Then
Set oSubtotals.Item(k).Implementation = modeSubtotal
strOut ("Dynamic Aggregation is set to: " & oSubtotals.Item(k).Implementation.Info.Name)
End If
Next k
strOut ("----------------------------------------------------------------------")
'save
oMetric.Info.Save
' Close Session
MyDataSource.Reset
End Sub
ADDITIONAL INFORMATION:
The Strategy SDK allows you to customize the standard Strategy Web interface, and extend and integrate the Strategy business intelligence functionality into other applications. However, before changing the way Strategy Web products look or behave, it is helpful to understand how the application is built. For more information regarding the Strategy Web architecture or the process of customizing Strategy Web, please refer to Strategy Developer Zone (https://resource.microstrategy.com/msdz/).
To access the Strategy Developer Zone, you must have access to the Strategy Knowledge Base, you must have purchased the Strategy SDK, and you must be current on your Strategy maintenance agreement. If you are a US-based business and believe that you satisfy all three of these conditions but you do not have access to the Strategy Developer Zone, please contact Strategy Technical Support at support@microstrategy.com or at (703) 848-8700. If you are an international business, please contact Strategy Technical Support at the appropriate email address or phone number found at http://www.microstrategy.com/Support/ContactUs.asp.
CUSTOMIZATION WARNING:
This customization is provided as a convenience to Strategy users and is only directly applicable to the version stated. While this code may apply to other releases directly, Strategy Technical Support makes no guarantees that the code provided will apply to any future or previous builds. In the event of a code change in future builds, Strategy Technical Support makes no guarantee that an updated version of this particular customization will be provided. In the event of a code change in future builds, Strategy may not be able to provide additional code on this matter even though this customization is provided at this time for this specific build. For enhancements to this customization or to incorporate similar functionality into other versions, contact your Account Executive to inquire about Strategy Consulting assistance.
