IAdhocDsoDimension.Type

Copy example

Sub UserProc;
Var
    mb: IMetabase;
    adhoc: IAdhocReport;
    sync: IAdhocSynchronization;
    dims: IAdhocDimsSynchronization;
    dimindex: IAdhocDimSyncIndex;
    syncdims: IAdhocSyncDimensions;
    syncitem: IAdhocDimSyncItem;
    dsodim: IAdhocDsoDimension;
    dimtype: AdhocDimensionType;
Begin
    mb := MetabaseClass.Active;
    // Get dashboard
    adhoc := mb.ItemById("DASHBOARD_SELECTIONMANAGER").Edit As IAdhocReport;
    // Get data about dimensions synchronization
    sync := adhoc.Synchronization;
    // Get collection of synchronized dimensions
    dims := sync.Dimensions;
    // Get index of synchronized dimension
    dimindex := dims.Item(1);
    // Get collection of synchronized indexes
    syncdims := dimindex.Dimensions;
    // Get synchronized index
    syncitem := syncdims.Item(0);
    // Get synchronized dimension
    dsodim := syncitem.Dimension;
    // Get and display the dimension type to the console
    dimtype := dsodim.Type;
    Debug.WriteLine("Dimension type - " + dimtype.ToString);
End Sub UserProc;