IAdhocDimSyncItem.IsGeneral

Copy example

Sub UserProc;
Var
    mb: IMetabase;
    Adhoc: IAdhocReport;
    DimsSync: IAdhocDimsSynchronization;
    i, j: Integer;
    Index: IAdhocDimSyncIndex;
    Item: IAdhocDimSyncItem;
Begin
    // Get current repository
    mb := MetabaseClass.Active;
    // Get dashboard
    Adhoc := mb.ItemById("ADHOC_SYNCDEM").Edit As IAdhocReport;
    // Get synchronized dimensions
    DimsSync := Adhoc.Synchronization.Dimensions;
    // Execute iterations by all synchronization indexes
    // and specify that the last dimension in each index is main one
    For i := 0 To DimsSync.Count - 1 Do
        Index := DimsSync.Item(i);
        For j := 0 To Index.Dimensions.Count - 1 Do
            Item := Index.Dimensions.Item(j);
            Item.IsGeneral := False;
        End For;
        Index.GeneralDimSyncItem := Item;
    End For;
    // Save changes
    (Adhoc As IMetabaseObject).Save;
End Sub UserProc;