IAdhocDimSyncItem.IsGeneral

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    Adhoc: IAdhocReport;
    DimsSync: IAdhocDimsSynchronization;
    i, j: Integer;
    Index: IAdhocDimSyncIndex;
    Item: IAdhocDimSyncItem;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем аналитическую панель
    Adhoc := mb.ItemById("ADHOC_SYNCDEM").Edit As IAdhocReport;
    // Получаем синхронизируемые измерения
    DimsSync := Adhoc.Synchronization.Dimensions;
    // Выполняем итерации по всем индексам синхронизации
    // и указываем, что последнее измерение в каждом индексе является основным
    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;
    // Сохраняем изменения
    (Adhoc As IMetabaseObject).Save;
End Sub UserProc;