КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных.Индекс

Вставить, переместить и удалить собственные группы серий

На временных группировках учимся управлять коллекцией: нулевой индекс, вставка, сдвиг, получение, удаление и очистка. Исходная группировка точек остаётся на месте.

Подготовка

1. Работайте в отдельной учебной базе на платформе 8.5.1.1343. Справочники, документы, регистры и готовые макеты не нужны.

2. Создайте общий модуль УчебныеДиаграммы85: Сервер — Да, Клиент — Нет, Привилегированный — Нет. Полностью вставьте код одного урока, а не оборачивайте его второй процедурой.

3. В своей учебной обработке добавьте команду. Из её серверного обработчика вызовите УчебныеДиаграммы85.ВыполнитьПример();. Не вызывайте серверные объекты СКД непосредственно из тонкого клиента.

4. Запрос содержит только три собственные константные строки: Север/Книга — 750, Север/Ручка — 50, Юг/Книга — 500. Продажи Севера — 800, Юга — 500, общая сумма — 1300.

5. Серии будут магазинами, точки — товарами, ресурс — суммой продаж. Значение Книга складывается до 1250, Ручка — до 50. Количество единиц по всем строкам — 6, а число строк источника — 3.

6. Каждый урок запускайте отдельно: он заново создаёт схему и настройки в памяти. Упражнения с настройками не формируют отчёт; отдельный урок показывает компоновку и вывод.

7. Для просмотра объектов поставьте точку останова перед последними Сообщить. ТабличныйДокумент результата урока вывода находится в серверной переменной Результат; код не печатает, не сохраняет файл и не открывает окно клиента.

8. Запуск в 1С здесь не проверялся. Приведены ожидаемые проверки собственной задачи, а не доказательство успешного формирования отчёта в любой конфигурации.

Процедура ВыполнитьПример() Экспорт
    Схема = Новый СхемаКомпоновкиДанных;
    Источник = Схема.ИсточникиДанных.Добавить();
    Источник.Имя = "УчебныеПродажи";
    Источник.ТипИсточникаДанных = "Local";
    Набор = Схема.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
    Набор.Имя = "СвоиТриСтроки";
    Набор.ИсточникДанных = Источник.Имя;
    Набор.АвтоЗаполнениеДоступныхПолей = Истина;
    Набор.Запрос = "ВЫБРАТЬ
    |    ""Север"" КАК Магазин,
    |    ""Книга"" КАК Наименование,
    |    3 КАК Количество,
    |    750 КАК Сумма
    |ОБЪЕДИНИТЬ ВСЕ
    |ВЫБРАТЬ ""Север"", ""Ручка"", 1, 50
    |ОБЪЕДИНИТЬ ВСЕ
    |ВЫБРАТЬ ""Юг"", ""Книга"", 2, 500";
    Для Каждого ИмяРесурса Из СтрРазделить("Сумма,Количество", ",") Цикл
        Ресурс = Схема.ПоляИтога.Добавить();
        Ресурс.ПутьКДанным = ИмяРесурса;
        Ресурс.Выражение = "Сумма(" + ИмяРесурса + ")";
    КонецЦикла;
    Настройки = Схема.НастройкиПоУмолчанию;
    Диаграмма = Настройки.Структура.Добавить(Тип("ДиаграммаКомпоновкиДанных"));
    Диаграмма.Имя = "УчебныеПродажиПоМагазинам";
    Диаграмма.Использование = Истина;
    Выбранное = Диаграмма.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
    Выбранное.Поле = Новый ПолеКомпоновкиДанных("Сумма");
    Выбранное.Использование = Истина;
    Серия = Диаграмма.Серии.Добавить();
    Серия.Имя = "Магазины";
    Серия.Использование = Истина;
    ПолеСерии = Серия.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
    ПолеСерии.Поле = Новый ПолеКомпоновкиДанных("Магазин");
    ПолеСерии.ТипГруппировки = ТипГруппировкиКомпоновкиДанных.Элементы;
    ПолеСерии.Использование = Истина;
    Точка = Диаграмма.Точки.Добавить();
    Точка.Имя = "Товары";
    Точка.Использование = Истина;
    ПолеТочки = Точка.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
    ПолеТочки.Поле = Новый ПолеКомпоновкиДанных("Наименование");
    ПолеТочки.ТипГруппировки = ТипГруппировкиКомпоновкиДанных.Элементы;
    ПолеТочки.Использование = Истина;
    Серии = Диаграмма.Серии;
    Дополнительная = Серии.Добавить();
    Дополнительная.Имя = "ВременнаяГруппа";
    Первая = Серии.Вставить(0);
    Первая.Имя = "КонтрольПорядка";
    Сообщить(Серии.Количество() = 3);
    Сообщить(Серии.Индекс(Первая) = 0 И Серии.Индекс(Серия) = 1);
    Сообщить(Серии.Получить(0) = Первая);
    Серии.Сдвинуть(Первая, 2);
    Сообщить(Серии.Индекс(Первая) = 2);
    Сообщить(Серии.Получить(0) = Серия);
    Серии.Удалить(Дополнительная);
    Сообщить(Серии.Количество() = 2 И Серии.Индекс(Первая) = 1);
    Серии.Удалить(Первая);
    Сообщить(Серии.Количество() = 1 И Серии.Получить(0) = Серия);
    Серии.Очистить();
    Сообщить(Серии.Количество() = 0);
    Сообщить(Диаграмма.Точки.Количество() = 1);
КонецПроцедуры

Разбор по шагам

1. Берём настоящую коллекцию Диаграмма.Серии. Сначала в ней уже есть Магазины из подготовки, а не пустой контейнер.

2. Добавить помещает временную группу в конец. Вставить(0) создаёт новый объект в начале и сдвигает индексы существующих.

3. Сдвинуть получает объект и относительное смещение 2, а Получить — нулевой индекс. После сдвига первым снова становится Магазины.

4. Удаляем ровно два созданных временных объекта, проверяя количество и индексы после каждой операции.

5. Очистить удаляет все группы только этой коллекции. Коллекция Точки остаётся отдельной и всё ещё содержит Товары.

Как проверить результат

1. Ожидаются девять сравнений Истина. Порядок меняется: КонтрольПорядка/Магазины/ВременнаяГруппа → Магазины/ВременнаяГруппа/КонтрольПорядка.

2. После очистки Серии имеют 0 элементов, Точки — 1. Этот намеренно разобранный черновик не передавайте в компоновщик как готовую диаграмму.

Ожидаемый результат

Отработан полный жизненный цикл элементов собственной коллекции, без удалений данных базы.

На что обратить внимание

1. Вставить в коллекции диаграммы принимает только индекс; передавать вторым параметром Тип группировки не требуется.

2. Сдвинуть — относительное смещение, не абсолютный индекс назначения.

3. Не используйте удалённые элементы как части живого дерева и не передавайте элемент из Точки в методы коллекции Серии.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.