Переставить только собственные группировки строк таблицы

Учебные задачи

Вставка и сдвиг работают с нулевыми индексами элементов настройки. Удаление из Строки не удаляет товары и не очищает Колонки.

Где и как запускать

Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.

Подготовка

  1. В отдельной учебной базе 8.5.1.1343 создайте серверный общий модуль УчебныеЗадачи. Фрагмент без директив вставьте в тело ВыполнитьПример() Экспорт и вызовите своей учебной командой.

  2. Схема СКД строится программно, макет в конфигурации не нужен. Источник Local выполняет запрос из двух собственных константных строк, без справочников, документов и регистров.

  3. Каждое упражнение запускайте отдельно. Книга: 3 × 250 = 750; Ручка: 1 × 50 = 50; общая сумма 800. Результат хранится в памяти, не записывается в файл или базу.

  4. Для исследования поставьте точку останова перед последними проверками. ТаблицаЗначений и процессоры СКД здесь создаются и используются на сервере; напрямую в тонкий клиент таблица не возвращается.

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

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

  1. Первая группировка Товары уже создана общей подготовкой. Вставляем Количество перед ней.

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

  3. Сдвинуть с положительным смещением 1 переносит Вторая на одну позицию вправо.

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

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

  1. Восемь сравнений Истина; последовательность числа строковых группировок: 2 → 1 → 0.

  2. В собственной коллекции Колонки остаётся один элемент.

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

Проверены все восемь методов коллекции на созданных в примере объектах.

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

  1. Получить(0) после Очистить недопустим: сначала проверяйте Количество.

  2. Позиции элементов настройки не являются номерами записей информационной базы.

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

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.