Расширение табличного поля списка записей регистра накопления.НастройкаПорядка

Движения: собственные регистраторы, период сентября и readonly список

На настоящих сохранённых учебных строках разберём источник списка регистра, период, товар и настройки интерфейса; без записи из просмотра.

Подготовка

1. НОВАЯ отдельная файловая база 8.5.1.1343, конфигурация УчебныеСпискиРегистров85, совместимость НеИспользовать, обычное приложение, толстый клиент. Не рабочая база/копия. Нет расширений, разделителей, общих реквизитов, подписок, внешних/фоновых обработчиков; одна сессия. Здесь 1С и UI не запускались: runtimeVerifiedScenarios=0.

2. Общий модуль УчебныеРегистры85: неглобальный, Клиент (обычное приложение)=Да, Сервер=Нет, Привилегированный=Нет. Полный общий модуль ниже, основной блок — модуль формы списка. Вставляйте один выбранный вариант, не оба модуля одновременно.

3. Обработка УчебныеРегистры85 → обычная основная форма Пульт → Выполнить, действие ВыполнитьНажатие. Полный модуль формы отдельно.

4. Регистр накопления Уч85Остатки вида Остатки: одно измерение КодТовара Строка(50), Индексировать; ресурс Количество Число(12,3), неотрицательное. Единственный регистратор документ Уч85Движение. Документ: Номер Строка(3), автонумерация выключена, проведение разрешено; реквизиты КодТовара Строка(50), Количество Число(12,3), табличных частей нет. В движениях документа только Уч85Остатки, Запись движений при проведении=Записывать выбранные. Модуль регистра пустой.

5. В документ Уч85Движение → Модуль объекта вставьте полный отдельный модуль подготовки ниже. F7 и обновление только новой учебной базы. ВРУЧНУЮ создайте и проведите только свои 001: 01.09 00:00:00/BOOK/10; 002: 15.09 12:00:00/BOOK/15; 003: 30.09 23:59:59/PEN/5; 004: 01.10 00:00:00/BOOK/20, все 2026. Подготовка действительно сохраняет документы/движения, не обещает откат и не выполнялась здесь. В рабочую базу этот модуль не добавлять.

6. Обработка Уч85СписокДвижений → обычная основная форма Список. Реквизит Записи типа РегистрНакопленияСписок.Уч85Остатки; поле Виды связано именно с ним. Визуальные колонки Период/КодТовара/Количество с одноимёнными данными; ТолькоПросмотр=Да, без стандартных команд записи/добавления/удаления. Для движений также Регистратор/НомерСтроки/Активность/ВидДвижения.

7. Кнопки ТолькоКнига, Восстановить, Настраиваемый, АвтоОбновление, РазрешитьПериод, Закрыть; назначьте действия *Нажатие и ПриОткрытии. Оставьте стандартный диалог настройки списка в контекстном меню. Основной блок — модуль этой формы. У истории цен ещё Первые/Последние с одноимёнными действиями *Нажатие.

8. F7 и запуск Пульта толстого клиента только после своей подготовки. Просмотр не вызывает Записать/проведение/удаление/изменение итогов/сеть/почту/файлы/печать. Не вставляйте варианты одновременно.

Перем Подготовлено;
Перем РазрешалисьИзмененияПериода;

Процедура ПодготовитьДоОткрытия() Экспорт
    Подготовлено = Ложь;
    РазрешалисьИзмененияПериода = Ложь;
    УчебныеРегистры85.ПрочитатьСвоюПодготовку();
    Если ЭтаФорма.Открыта() Или ТипЗнч(Записи) <> Тип("РегистрНакопленияСписок.Уч85Остатки") Тогда
        ВызватьИсключение "Нужен собственный настоящий реквизит списка регистра";
    КонецЕсли;
    Колонки = Записи.Колонки;
    Для Каждого Имя Из СтрРазделить("Период,КодТовара,Количество,Регистратор,НомерСтроки,Активность,ВидДвижения", ",") Цикл
        Если Колонки.Найти(Имя) = Неопределено Тогда
            Колонки.Добавить(Имя);
        КонецЕсли;
    КонецЦикла;
    Поле = ЭлементыФормы.Виды;
    НастроитьПрофиль(Ложь);
    Настройка = Новый НастройкаПериода;
    Настройка.РедактироватьКакИнтервал = Истина;
    Настройка.РедактироватьКакПериод = Ложь;
    Настройка.УстановитьПериод(Дата(2026, 9, 1, 0, 0, 0), Дата(2026, 9, 30, 23, 59, 59), Ложь);
    Настройка.ВариантНастройки = ВариантНастройкиПериода.Интервал;
    Если Настройка.ПолучитьДатуНачала() <> Дата(2026, 9, 1, 0, 0, 0)
        Или Настройка.ПолучитьДатуОкончания() <> Дата(2026, 9, 30, 23, 59, 59) Тогда
        ВызватьИсключение "Не совпали точные границы своего сентября";
    КонецЕсли;
    Поле.СтандартныйПериод = Настройка;
    Если ТипЗнч(Поле.СтандартныйПериод) <> Тип("НастройкаПериода") Тогда
        ВызватьИсключение "Нужна НастройкаПериода, а не одноимённый другой тип";
    КонецЕсли;

    ВосстановитьПериод();
    Подготовлено = Истина;
КонецПроцедуры

Процедура ПриОткрытии()
    Если Подготовлено <> Истина Тогда
        ВызватьИсключение "Открывайте только через подготовленный собственный Пульт";
    КонецЕсли;
    ВосстановитьПериод();
    Записи.Обновить();
    Сообщить("Проверьте три прихода сентября: 001 BOOK 10, 002 BOOK 15, 003 PEN 5. Октябрьский 004 скрыт.");
КонецПроцедуры

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

Процедура ПроверитьФиксированныйПериод()
    Если РазрешалисьИзмененияПериода = Истина Тогда
        ВызватьИсключение "После разрешения ручного интервала закройте и откройте новый собственный опыт";
    КонецЕсли;
КонецПроцедуры

Процедура ВосстановитьПериод()
    ПроверитьФиксированныйПериод();
    Записи.Отбор.Сбросить();
    ПериодОтбора = Записи.Отбор.Найти("Период");
    Если ПериодОтбора = Неопределено Тогда
        ВызватьИсключение "В собственном периодическом списке нужен отбор Период";
    КонецЕсли;
    ПериодОтбора.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы;
    ПериодОтбора.ЗначениеС = Дата(2026, 9, 1, 0, 0, 0);
    ПериодОтбора.ЗначениеПо = Дата(2026, 9, 30, 23, 59, 59);
    ПериодОтбора.Использование = Истина;
    Записи.Порядок.Установить("Период Возр, КодТовара Возр");
КонецПроцедуры

Процедура ТолькоКнигаНажатие(Кнопка)
    ПроверитьСвойСписок();

    ВосстановитьПериод();
    Записи.Отбор.КодТовара.Установить("BOOK", Истина);
    Записи.Обновить();
    Сообщить("Проверьте два сентябрьских прихода BOOK: 001=10 и 002=15. Это движения, не остаток товара.");
КонецПроцедуры

Процедура ВосстановитьНажатие(Кнопка)
    ПроверитьСвойСписок();

    ВосстановитьПериод();
    НастроитьПрофиль(Ложь);
    Записи.Обновить();
    Сообщить("Проверьте три прихода сентября: 001 BOOK 10, 002 BOOK 15, 003 PEN 5. Октябрьский 004 скрыт.");
КонецПроцедуры

Процедура НастроитьПрофиль(Интерактивно)
    Поле = ЭлементыФормы.Виды;
    ОтборТовара = Поле.НастройкаОтбора.Найти("КодТовара");
    ПорядокПериода = Поле.НастройкаПорядка.Найти("Период");
    ОтборПериода = Поле.НастройкаОтбора.Найти("Период");
    Если ОтборТовара = Неопределено Или ПорядокПериода = Неопределено Или ОтборПериода = Неопределено Тогда
        ВызватьИсключение "Нет собственных элементов настройки товара и периода";
    КонецЕсли;
    Поле.ТолькоПросмотр = Истина;
    Поле.АвтоОбновление = Ложь;
    Поле.ПериодАвтоОбновления = 10;
    Поле.ВосстанавливатьТекущуюСтроку = Ложь;
    Поле.ИзменятьАвтоОбновление = Интерактивно;
    Поле.ПроверкаОтображенияНовойСтроки = ВариантПроверкиОтображенияНовойСтроки.СообщатьОНесоответствииОтбору;
    Поле.РазрешитьНастройкуПериода = Ложь;
    ОтборТовара.Доступность = Интерактивно;
    ПорядокПериода.Доступность = Интерактивно;
    ОтборПериода.Доступность = Ложь;

    Если Не Поле.ТолькоПросмотр Или Поле.АвтоОбновление Или Поле.ПериодАвтоОбновления <> 10
        Или Поле.ВосстанавливатьТекущуюСтроку Или Поле.ИзменятьАвтоОбновление <> Интерактивно
        Или Поле.РазрешитьНастройкуПериода Или ОтборТовара.Доступность <> Интерактивно
        Или ПорядокПериода.Доступность <> Интерактивно Или ОтборПериода.Доступность
        Или Поле.ПроверкаОтображенияНовойСтроки <> ВариантПроверкиОтображенияНовойСтроки.СообщатьОНесоответствииОтбору Тогда
        ВызватьИсключение "Не подтвердился собственный профиль поля регистра";
    КонецЕсли;
КонецПроцедуры

Процедура НастраиваемыйНажатие(Кнопка)
    ПроверитьСвойСписок();
    НастроитьПрофиль(Истина);
    Сообщить("Проверьте доступность ручного отбора товара и порядка периода. Данные по-прежнему ТолькоПросмотр.");
КонецПроцедуры

Процедура АвтоОбновлениеНажатие(Кнопка)
    ПроверитьСвойСписок();
    Поле = ЭлементыФормы.Виды;
    Поле.ИзменятьАвтоОбновление = Ложь;
    Поле.ПериодАвтоОбновления = 10;
    Поле.АвтоОбновление = Не Поле.АвтоОбновление;
    Сообщить(СтрШаблон("АвтоОбновление=%1; период=%2; ручное изменение=%3",
        Поле.АвтоОбновление, Поле.ПериодАвтоОбновления, Поле.ИзменятьАвтоОбновление));
КонецПроцедуры

Процедура РазрешитьПериодНажатие(Кнопка)
    ПроверитьСвойСписок();
    ЭлементыФормы.Виды.РазрешитьНастройкуПериода = Истина;
    РазрешалисьИзмененияПериода = Истина;
    Сообщить("Команда интервала разрешена при недоступном ручном отборе Период. После опыта откройте новое собственное окно для фиксированных ожиданий.");
КонецПроцедуры

Процедура ЗакрытьНажатие(Кнопка)
    ПроверитьСвойСписок();
    ЭлементыФормы.Виды.АвтоОбновление = Ложь;
    ЭтаФорма.Закрыть();
КонецПроцедуры

Процедура ВыполнитьНажатие(Кнопка)
    УчебныеРегистры85.ВыполнитьПример();
КонецПроцедуры

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

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

Процедура ПрочитатьСвоюПодготовку() Экспорт
    ПроверитьСвойКонтекст();
    Описание = Метаданные.РегистрыНакопления.Уч85Остатки;
    Если Описание.ВидРегистра <> Метаданные.СвойстваОбъектов.ВидРегистраНакопления.Остатки Или Описание.Измерения.Количество() <> 1
        Или Описание.Измерения.Найти("КодТовара") = Неопределено Или Описание.Ресурсы.Количество() <> 1
        Или Описание.Ресурсы.Найти("Количество") = Неопределено Тогда
        ВызватьИсключение "Нужен только собственный регистр с КодТовара и Количество";
    КонецЕсли;
    Ожидания = ПолучитьОжиданияДвижений();
    СохраненныеДокументы = Новый Соответствие;
    ВыборкаДокументов = Документы.Уч85Движение.Выбрать();
    Пока ВыборкаДокументов.Следующий() Цикл
        Ожидание = Ожидания.Получить(ВыборкаДокументов.Номер);
        Если Ожидание = Неопределено Или СохраненныеДокументы.Получить(ВыборкаДокументов.Номер) <> Неопределено Тогда
            ВызватьИсключение "В своём стенде есть неизвестный или повторный документ";
        КонецЕсли;
        Если ВыборкаДокументов.Дата <> Ожидание.Период Или ВыборкаДокументов.КодТовара <> Ожидание.КодТовара
            Или ВыборкаДокументов.Количество <> Ожидание.Количество Или ВыборкаДокументов.ПометкаУдаления
            Или Не ВыборкаДокументов.Проведен Тогда
            ВызватьИсключение "Сначала вручную проведите только четыре свои точные учебные документа";
        КонецЕсли;
        СохраненныеДокументы.Вставить(ВыборкаДокументов.Номер, ВыборкаДокументов.Ссылка);
    КонецЦикла;
    Если СохраненныеДокументы.Количество() <> 4 Тогда
        ВызватьИсключение "Нужны четыре настоящих собственных регистратора";
    КонецЕсли;
    Ключи = Новый Массив;
    Выборка = РегистрыНакопления.Уч85Остатки.Выбрать();
    Пока Выборка.Следующий() Цикл
        Номер = Выборка.Регистратор.Номер;
        Ожидание = Ожидания.Получить(Номер);
        Если Ожидание = Неопределено Или Ключи.Найти(Номер) <> Неопределено Тогда
            ВызватьИсключение "Лишнее или повторное движение собственного регистра";
        КонецЕсли;
        Если Выборка.Регистратор <> СохраненныеДокументы.Получить(Номер) Или Выборка.НомерСтроки <> 1 Или Не Выборка.Активность
            Или Выборка.ВидДвижения <> ВидДвиженияНакопления.Приход Или Выборка.Период <> Ожидание.Период
            Или Выборка.КодТовара <> Ожидание.КодТовара Или Выборка.Количество <> Ожидание.Количество Тогда
            ВызватьИсключение "Не совпали реальные период, регистратор, строка, товар и количество";
        КонецЕсли;
        Ключи.Добавить(Номер);
    КонецЦикла;
    Если Ключи.Количество() <> 4 Тогда
        ВызватьИсключение "Нужны четыре сохранённые строки движений, не плановые GUID";
    КонецЕсли;
КонецПроцедуры

Функция ПолучитьОжиданияДвижений()
    Ожидания = Новый Соответствие;
    Ожидания.Вставить("001", Новый Структура("Период,КодТовара,Количество", Дата(2026, 9, 1, 0, 0, 0), "BOOK", 10));
    Ожидания.Вставить("002", Новый Структура("Период,КодТовара,Количество", Дата(2026, 9, 15, 12, 0, 0), "BOOK", 15));
    Ожидания.Вставить("003", Новый Структура("Период,КодТовара,Количество", Дата(2026, 9, 30, 23, 59, 59), "PEN", 5));
    Ожидания.Вставить("004", Новый Структура("Период,КодТовара,Количество", Дата(2026, 10, 1, 0, 0, 0), "BOOK", 20));
    Возврат Ожидания;
КонецФункции

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    Если Метаданные.РежимСовместимости <> Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать Тогда
        Отказ = Истина;
        ВызватьИсключение "Проводить можно только собственные документы указанного учебного стенда";
    КонецЕсли;
    Ожидания = ПолучитьОжиданияДвижений();
    Ожидание = Ожидания.Получить(ЭтотОбъект.Номер);
    Если Ожидание = Неопределено Тогда
        Отказ = Истина;
        ВызватьИсключение "Разрешены только свои номера 001/002/003/004";
    КонецЕсли;
    Если ЭтотОбъект.Дата <> Ожидание.Период Или ЭтотОбъект.КодТовара <> Ожидание.КодТовара
        Или ЭтотОбъект.Количество <> Ожидание.Количество Тогда
        Отказ = Истина;
        ВызватьИсключение "Не совпали дата, товар и количество собственного документа";
    КонецЕсли;
    Набор = ЭтотОбъект.Движения.Уч85Остатки;
    Набор.Записывать = Истина;
    Набор.Очистить();
    СтрокаДвижения = Набор.ДобавитьПриход();
    СтрокаДвижения.Период = ЭтотОбъект.Дата;
    СтрокаДвижения.КодТовара = ЭтотОбъект.КодТовара;
    СтрокаДвижения.Количество = ЭтотОбъект.Количество;
    СтрокаДвижения.Активность = Истина;
КонецПроцедуры

Функция ПолучитьОжиданияДвижений()
    Ожидания = Новый Соответствие;
    Ожидания.Вставить("001", Новый Структура("Период,КодТовара,Количество", Дата(2026, 9, 1, 0, 0, 0), "BOOK", 10));
    Ожидания.Вставить("002", Новый Структура("Период,КодТовара,Количество", Дата(2026, 9, 15, 12, 0, 0), "BOOK", 15));
    Ожидания.Вставить("003", Новый Структура("Период,КодТовара,Количество", Дата(2026, 9, 30, 23, 59, 59), "PEN", 5));
    Ожидания.Вставить("004", Новый Структура("Период,КодТовара,Количество", Дата(2026, 10, 1, 0, 0, 0), "BOOK", 20));
    Возврат Ожидания;
КонецФункции

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

1. Основной блок — полный модуль своей обычной формы списка. Записи — источник прикладного типа, Виды — табличное поле; расширение возникает благодаря типу источника, не создаётся через Новый.

2. Общий модуль перед открытием и каждым действием сверяет настоящие четыре сохранённые строки с собственной подготовкой. Не передаём неизвестный ИсходныйОбъект и не подставляем случайные ссылки.

3. Колонки источника readonly как свойство. Добавляем только отсутствующие Период/КодТовара/ресурс; визуальные колонки заранее связаны с теми же полями. Порядок источника явно Период Возр, КодТовара Возр.

4. СтандартныйПериод принимает НастройкаПериода и назначается до открытия. Обе границы сентября проверяются до присваивания; ВариантНастройки write-only, его не читаем.

5. Фактический отбор Период использует ИнтервалВключаяГраницы и значения 01.09 00:00:00…30.09 23:59:59. ТолькоКнига программно добавляет индексированное измерение КодТовара=BOOK, не ресурс и не неизвестное поле.

6. Четыре собственных документа ранее вручную проведены только для подготовки: полный модуль объекта приведён отдельно. Он создаёт один приход своего регистра на документ; просмотр заново проверяет реальные Регистратор/НомерСтроки=1/Активность/Период/товар/количество.

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

8. НастройкаОтбора/НастройкаПорядка readonly коллекции управления UI. Их nullable элементы проверяются. Доступность настройки товара/порядка не меняет значения фильтров и не запрещает программный отбор.

9. Настраиваемый/Восстановить меняют UI-профиль, но ТолькоПросмотр сохраняется. ПроверкаОтображенияНовойСтроки задаётся как политика: новый ввод выключен, сообщение платформы о несоответствии не объявляется испытанным.

10. АвтоОбновление включает/выключает только перечитывание списка каждые 10 секунд, минимум по справке 5. ИзменятьАвтоОбновление управляет ручной настройкой; ВосстанавливатьТекущуюСтроку выключен для нового независимого окна.

11. РазрешитьНастройкуПериода включает отдельную команду интервала при недоступном ручном отборе Период. Уже после разрешения фиксированные действия блокируются до нового окна, чтобы ручная смена периода не подменяла ожидаемые строки.

12. Обновить перечитывает записи, не записывает регистр, не пересчитывает итоги и не возвращает ТаблицаЗначений. Закрыть выключает таймер и закрывает только свою форму.

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

1. Будущий тест: три полных блока вставить в разные указанные модули, назначить действия/события, связать поле и колонки, F7; открывать через собственный Пульт.

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

3. ТолькоКнига оставляет две сентябрьские BOOK. Восстановить возвращает исходный набор своего регистра.

4. Настраиваемый меняет доступности стандартного диалога; просмотр остаётся readonly. Проверить фактические флаги автообновления и период 10, не объявлять неизменные строки доказательством таймера.

5. РазрешитьПериод: проверить отдельную команду интервала. Восстановить после этого отклоняется; закрыть окно и открыть новый опыт с исходным сентябрём.

6. Закрыть свою форму. Стандартным списком проверить прежние сохранённые строки; код просмотра ничего не записывает и не проводит.

7. В просмотре сентября ровно три реальные строки 001/002/003, 003 на последней секунде месяца; 004 от 01.10 исключён. Ключ строки движения не равен ссылке регистратора; здесь не присваиваем ТекущаяСтрока.

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

Будущий опыт показывает подготовленные строки собственного регистра, фильтрует BOOK и возвращает исходный профиль. Просмотр не изменяет данные, runtimeVerifiedScenarios=0.

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

1. Список регистра и таблица формы — не одно и то же. ТекущаяСтрока этого расширения содержит ключ записи регистра, а не ссылку справочника; этот урок не подменяет его случайным GUID.

2. Readonly свойства Колонки/Отбор/Порядок источника и НастройкаОтбора/НастройкаПорядка поля не заменяются новыми объектами.

3. ТолькоПросмотр и Доступность UI не являются правами доступа к базе. Показ проверки новой строки не означает выполненный ввод или успешный запуск 1С.

4. ВосстанавливатьТекущуюСтроку выключен; восстановление позиции не испытывается. Автообновление не означает изменение итогов, проведение или обмен.

5. После разрешения ручного периода нужен новый собственный опыт. Сообщения ожидаемых строк не доказывают текущий состав поля.

6. Все UI-проверки и подготовка данных остаются будущими ручными действиями только в новом собственном стенде; runtimeVerifiedScenarios=0.

7. Подготовка через проведение сохраняет документы и движения собственного стенда: это не беззаписный опыт. Сам просмотр readonly. Безопасный режим на время обычного ОбработкаПроведения отключается по native-замечанию; это не песочница.

8. Нельзя переносить СпособРедактирования/ИзменятьСпособРедактирования от регистра сведений на расширение накопления: этих свойств у него нет.

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