Вставить, сдвинуть и удалить только свои незаписанные строки

Позиции считаются с нуля. После перемещения индекс меняется, а сама запись остаётся тем же объектом коллекции.

Подготовка

1. Создайте новую пустую файловую базу с именем корня УчебныеНаборыРасчета85. Это отдельный учебный стенд, не ЗУП, КА2, УНФ, УТ или БП. Других документов, регистров и справочников в нём не должно быть.

2. Создайте план видов расчёта УчебныеВиды85: тип кода Строка, длина кода 10, наименования 100; использование периода действия выключено, зависимость от видов расчёта Не использовать. Реквизиты и табличные части не добавляйте.

3. В предопределённых видах плана создайте УчебноеНачисление с кодом DEMO и наименованием Учебная сумма. Не задавайте зависимости или вытесняющие виды. Это вид учебного расчёта, не формула зарплаты.

4. Создайте документ УчебныйРегистратор85 без реквизитов и табличных частей. Создайте регистр расчёта УчебныеСуммы85: периодичность Месяц, план УчебныеВиды85; период действия и базовый период выключены; график и перерасчёты не задавайте. На вкладке Движения собственного документа отметьте только этот регистр.

5. Добавьте в регистр измерение МеткаОперации: Строка(80), Проверка заполнения — Выдавать ошибку; единственный ресурс Сумма: Число(15,2). Других измерений, ресурсов и реквизитов не добавляйте. Обновите конфигурацию учебной базы, чтобы создать предопределённый вид.

6. Оставьте модули документа и набора пустыми, без подписок на события. Создайте серверный общий модуль УчебныеЗаписиРасчета с флагом Сервер, без Привилегированный. Вставьте полный модуль выбранного урока и вызовите ВыполнитьПример из своей серверной команды учебной обработки.

7. ПолучитьСсылку своего менеджера с новым UUID формирует непустое ссылочное значение собственного типа. Объект документа не создаётся и не записывается; непустая ссылка не доказывает существование документа. Наборы меняются только в памяти; вызовов Записать нет. Отдельный урок чтения ограничен своими новыми плановыми ссылками.

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

Процедура ВыполнитьПример() Экспорт
    Набор = СоздатьСвойНабор();
    СвояСсылка = Набор.Получить(0).Регистратор;
    Вставленная = Набор.Вставить(1);
    ЗаполнитьСвоюЗапись(Вставленная, СвояСсылка, "Упаковка", 60);
    Сообщить(Набор.Количество() = 3 И Набор.Итог("Сумма") = 860);
    Сообщить(Набор.Индекс(Вставленная) = 1);
    Набор.Сдвинуть(Вставленная, -1);
    Сообщить(Набор.Получить(0) = Вставленная);
    Набор.Сдвинуть(0, 2);
    Сообщить(Набор.Индекс(Вставленная) = 2);
    Набор.Удалить(Вставленная);
    Сообщить(Набор.Количество() = 2 И Набор.Итог("Сумма") = 800);
    Набор.Удалить(1);
    Сообщить(Набор.Количество() = 1 И Набор.Получить(0).Сумма = 750);
    Набор.Очистить();
    Сообщить(Набор.Количество() = 0);
КонецПроцедуры

Процедура ПроверитьУчебнуюСхему()
    Если Метаданные.Документы.Количество() <> 1 ИЛИ Метаданные.ПланыВидовРасчета.Количество() <> 1 ИЛИ Метаданные.РегистрыРасчета.Количество() <> 1 ИЛИ Метаданные.Справочники.Количество() <> 0 ИЛИ Метаданные.РегистрыСведений.Количество() <> 0 ИЛИ Метаданные.РегистрыНакопления.Количество() <> 0 ИЛИ Метаданные.РегистрыБухгалтерии.Количество() <> 0 Тогда
        ВызватьИсключение "Нужна отдельная пустая учебная конфигурация УчебныеНаборыРасчета85";
    КонецЕсли;
    План = Метаданные.ПланыВидовРасчета.Найти("УчебныеВиды85");
    Регистр = Метаданные.РегистрыРасчета.Найти("УчебныеСуммы85");
    Документ = Метаданные.Документы.Найти("УчебныйРегистратор85");
    Если План = Неопределено ИЛИ Регистр = Неопределено ИЛИ Документ = Неопределено Тогда
        ВызватьИсключение "Не найдены три собственных объекта учебной схемы";
    КонецЕсли;
    Если План.ТипКода <> Метаданные.СвойстваОбъектов.ТипКодаПланаВидовРасчета.Строка
        ИЛИ План.ДлинаКода <> 10 ИЛИ План.ДлинаНаименования <> 100
        ИЛИ План.ИспользованиеПериодаДействия
        ИЛИ План.ЗависимостьОтВидовРасчета <> Метаданные.СвойстваОбъектов.ИспользованиеБазыПланаВидовРасчета.НеИспользовать
        ИЛИ План.Реквизиты.Количество() <> 0 ИЛИ План.ТабличныеЧасти.Количество() <> 0
        ИЛИ Документ.Реквизиты.Количество() <> 0 ИЛИ Документ.ТабличныеЧасти.Количество() <> 0 Тогда
        ВызватьИсключение "План видов или документ отличаются от подготовки";
    КонецЕсли;
    Если Регистр.Периодичность <> Метаданные.СвойстваОбъектов.ПериодичностьРегистраРасчета.Месяц
        ИЛИ Регистр.ПериодДействия ИЛИ Регистр.БазовыйПериод
        ИЛИ Регистр.ПланВидовРасчета <> План
        ИЛИ Регистр.Измерения.Количество() <> 1 ИЛИ Регистр.Ресурсы.Количество() <> 1
        ИЛИ Регистр.Реквизиты.Количество() <> 0 ИЛИ Регистр.Перерасчеты.Количество() <> 0 Тогда
        ВызватьИсключение "Регистр должен быть помесячным, без периодов действия, базы и перерасчетов";
    КонецЕсли;
    Метка = Регистр.Измерения.Найти("МеткаОперации");
    Сумма = Регистр.Ресурсы.Найти("Сумма");
    Если Метка = Неопределено ИЛИ Сумма = Неопределено Тогда
        ВызватьИсключение "Нужны собственные поля МеткаОперации и Сумма";
    КонецЕсли;
    Если Метка.Тип.Типы().Количество() <> 1 ИЛИ НЕ Метка.Тип.СодержитТип(Тип("Строка"))
        ИЛИ Метка.Тип.КвалификаторыСтроки.Длина <> 80
        ИЛИ Метка.ПроверкаЗаполнения <> ПроверкаЗаполнения.ВыдаватьОшибку
        ИЛИ Сумма.Тип.Типы().Количество() <> 1 ИЛИ НЕ Сумма.Тип.СодержитТип(Тип("Число"))
        ИЛИ Сумма.Тип.КвалификаторыЧисла.Разрядность <> 15
        ИЛИ Сумма.Тип.КвалификаторыЧисла.РазрядностьДробнойЧасти <> 2 Тогда
        ВызватьИсключение "Типы полей и проверка заполнения отличаются от подготовки";
    КонецЕсли;
КонецПроцедуры

Функция СоздатьСвоюСсылкуРегистратора()
    ПлановаяСсылка = Документы.УчебныйРегистратор85.ПолучитьСсылку(Новый УникальныйИдентификатор);
    Если ТипЗнч(ПлановаяСсылка) <> Тип("ДокументСсылка.УчебныйРегистратор85") Или ПлановаяСсылка.Пустая() Тогда
        ВызватьИсключение "Нужна собственная непустая плановая ссылка регистратора";
    КонецЕсли;
    Возврат ПлановаяСсылка;
КонецФункции

Процедура ЗаполнитьСвоюЗапись(Запись, СвояСсылка, Метка, Сумма)
    Запись.Регистратор = СвояСсылка;
    Запись.ПериодРегистрации = Дата(2026, 10, 3);
    Запись.ВидРасчета = ПланыВидовРасчета.УчебныеВиды85.УчебноеНачисление;
    Запись.Активность = Истина;
    Запись.Сторно = Ложь;
    Запись.МеткаОперации = Метка;
    Запись.Сумма = Сумма;
КонецПроцедуры

Функция СоздатьСвойНабор()
    ПроверитьУчебнуюСхему();
    СвояСсылка = СоздатьСвоюСсылкуРегистратора();
    Набор = РегистрыРасчета.УчебныеСуммы85.СоздатьНаборЗаписей();
    Набор.Отбор.Регистратор.Установить(СвояСсылка);
    ЗаполнитьСвоюЗапись(Набор.Добавить(), СвояСсылка, "Книга", 750);
    ЗаполнитьСвоюЗапись(Набор.Добавить(), СвояСсылка, "Ручка", 50);
    Возврат Набор;
КонецФункции

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

1. Вставить Упаковка=60 между 750 и 50, затем заполнить стандартные поля и свои ресурс/измерение.

2. Сдвинуть запись на -1 по объекту, потом сдвинуть индекс 0 на +2. Повторно запросить Индекс.

3. Удалить упаковку по объекту, ручку по индексу 1, затем очистить оставшуюся коллекцию в памяти.

4. Не добавлять Записать после Очистить: это превратило бы безопасный опыт в изменение базы.

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

1. Семь сообщений Истина: 860 → 800 → 750 → пустой набор.

2. Данные информационной базы не удаляются.

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

Оба способа обращения к перемещаемой и удаляемой записи разобраны на конкретных суммах.

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

1. Проверяйте границы до получения строки; в примере размер известен из собственной фабрики.

2. Старый индекс не является постоянным идентификатором.

3. Очистить меняет память; Очистить вместе с записью с замещением — другой, потенциально разрушительный сценарий.

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