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

Выбрать читает отдельные записи, не свёрнутые итоги. Для этого менеджерского метода отбор содержит ровно одно индексированное поле.

Подготовка

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

2. Планы счетов → УчебныеСчета85: код Строка 20, Максимальное количество субконто 0, без флагов учёта. Создайте два предопределённых негрупповых счёта: УчебныйАктив, код DEMO-A, вид Активный; УчебныйПассив, код DEMO-P, вид Пассивный. Оба не забалансовые. Не создавайте счёт 41/60 и не называйте опыт реальным планом бухучёта.

3. Документы → УчебнаяОперация85: номер Строка 40, автонумерация выключена. Без пользовательских реквизитов, проведения, обработчиков, подписок, планов обмена и внешних вызовов.

4. Регистры бухгалтерии → УчебныеПроводки85: план УчебныеСчета85, Корреспонденция включена. Единственное измерение МеткаОперации: Строка 80, Балансовый включён, проверка заполнения Показывать ошибку. Единственный ресурс Сумма: Число 15,2, Балансовый включён. Реквизитов нет. Длина уточнения периода 3.

5. Создайте второй регистр УчебныеОдносторонние85 с теми же планом, измерением, ресурсом и длиной уточнения периода, но Корреспонденция выключена. У обоих единственный регистратор УчебнаяОперация85. Модули наборов и документа пустые, кроме отдельной экспортной учебной процедуры в последнем уроке.

6. Обновите конфигурацию базы данных и убедитесь, что предопределённые счета созданы как данные. Создайте серверный общий модуль УчебнаяБухгалтерияПримеры с флагом Сервер. Вставьте весь модуль одного урока, вызовите УчебнаяБухгалтерияПримеры.ВыполнитьПример() из серверной команды своей обработки.

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

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

9. В обоих собственных регистрах использование итогов включено. Для урока выборки по метке у измерения МеткаОперации включите Индексировать, затем обновите конфигурацию базы данных.

10. Метка каждой задачи содержит новый UUID. Не подставляйте DEMO-BOOK или метку другого опыта: отчёт должен читать только собственные временные проводки.

11. План без субконто: фактические вызовы Остатки имеют четыре аргумента, Обороты и ОборотыДтКт — пять. В плане с субконто набор аргументов будет другим.

Процедура ВыполнитьПример() Экспорт
    Если Метаданные.Документы.Количество() <> 1
        ИЛИ Метаданные.ПланыСчетов.Количество() <> 1
        ИЛИ Метаданные.РегистрыБухгалтерии.Количество() <> 2
        ИЛИ Метаданные.Документы.Найти("УчебнаяОперация85") = Неопределено
        ИЛИ Метаданные.ПланыСчетов.Найти("УчебныеСчета85") = Неопределено Тогда
        ВызватьИсключение "Разрешены только собственные документ, план счетов и два регистра";
    КонецЕсли;
    Если Метаданные.ПланыСчетов.УчебныеСчета85.МаксКоличествоСубконто <> 0 Тогда
        ВызватьИсключение "В этом опыте план счетов без субконто";
    КонецЕсли;
    Для Каждого ИмяРегистра Из СтрРазделить("УчебныеПроводки85,УчебныеОдносторонние85", ",") Цикл
        Описание = Метаданные.РегистрыБухгалтерии.Найти(ИмяРегистра);
        Если Описание = Неопределено Тогда
            ВызватьИсключение "Не найден собственный регистр " + ИмяРегистра;
        КонецЕсли;
        Если Описание.Корреспонденция <> (ИмяРегистра = "УчебныеПроводки85")
            ИЛИ Описание.ПланСчетов.Имя <> "УчебныеСчета85"
            ИЛИ Описание.Измерения.Количество() <> 1
            ИЛИ Описание.Ресурсы.Количество() <> 1
            ИЛИ Описание.Реквизиты.Количество() <> 0
            ИЛИ Описание.Измерения.Найти("МеткаОперации") = Неопределено
            ИЛИ Описание.Ресурсы.Найти("Сумма") = Неопределено
            ИЛИ Описание.ДлинаУточненияПериода <> 3 Тогда
            ВызватьИсключение "Схема собственного регистра отличается от учебной";
        КонецЕсли;
    КонецЦикла;
    СчетДебета = ПланыСчетов.УчебныеСчета85.УчебныйАктив;
    СчетКредита = ПланыСчетов.УчебныеСчета85.УчебныйПассив;
    Если СчетДебета.Пустая() ИЛИ СчетКредита.Пустая() Тогда
        ВызватьИсключение "Нужны два собственных предопределённых счёта";
    КонецЕсли;
    Если СчетДебета.ПолучитьОбъект() = Неопределено ИЛИ СчетКредита.ПолучитьОбъект() = Неопределено Тогда
        ВызватьИсключение "Данные собственных счетов не созданы";
    КонецЕсли;
    Менеджер = РегистрыБухгалтерии.УчебныеПроводки85;
    Начало = Дата(2026, 9, 15, 0, 0, 0);
    Конец = Дата(2026, 9, 16, 0, 0, 0);
    СвояМетка = "REPORT-" + Строка(Новый УникальныйИдентификатор);
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Урок нельзя запускать внутри чужой транзакции";
    КонецЕсли;
    НачатьТранзакцию();
    Попытка
        Документ = Документы.УчебнаяОперация85.СоздатьДокумент();
        Документ.Дата = Дата(2026, 9, 15, 10, 0, 0);
        Документ.Номер = "R-" + Строка(Новый УникальныйИдентификатор);
        Документ.Записать();
        СвояСсылка = Документ.Ссылка;
        Набор = СвойНаборПроводок(СвояСсылка, СчетДебета, СчетКредита);
        Для Каждого Запись Из Набор Цикл
            Запись.МеткаОперации = СвояМетка;
        КонецЦикла;
        Набор.Записать(Истина);
        ОтборМетки = Новый Структура("МеткаОперации", СвояМетка);
        Выборка = Менеджер.Выбрать(Начало, Конец, ОтборМетки, "МеткаОперации Возр");
        Количество = 0;
        Сумма = 0;
        Пока Выборка.Следующий() Цикл
            Количество = Количество + 1;
            Сумма = Сумма + Выборка.Сумма;
            Сообщить(Выборка.Регистратор = СвояСсылка);
            Сообщить(Выборка.Активность);
            Сообщить(Выборка.СчетДт = СчетДебета И Выборка.СчетКт = СчетКредита);
            Сообщить("Сохранённый номер: " + Строка(Выборка.НомерСтроки));
        КонецЦикла;
        Сообщить(Количество = 2 И Сумма = 800);
        ОтменитьТранзакцию();
    Исключение
        Если ТранзакцияАктивна() Тогда
            ОтменитьТранзакцию();
        КонецЕсли;
        ВызватьИсключение;
    КонецПопытки;
    После = Менеджер.СоздатьНаборЗаписей();
    После.Отбор.Регистратор.Установить(СвояСсылка);
    После.Прочитать();
    Сообщить(После.Количество() = 0);
    Сообщить(СвояСсылка.ПолучитьОбъект() = Неопределено);
КонецПроцедуры

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

Процедура ЗаполнитьСвоюПроводку(Запись, СвояСсылка, СчетДебета, СчетКредита, СуммаСтроки)
    Запись.Период = Дата(2026, 9, 15, 10, 0, 0);
    Запись.Регистратор = СвояСсылка;
    Запись.Активность = Истина;
    Запись.СчетДт = СчетДебета;
    Запись.СчетКт = СчетКредита;
    Запись.МеткаОперации = "DEMO-BOOK";
    Запись.Сумма = СуммаСтроки;
КонецПроцедуры

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

1. Включить Индексировать у своей МеткаОперации до опыта. Для порядка также используется это индексированное строковое поле.

2. Записать только два собственных движения в собственной транзакции, обеим записям назначить один уникальный маркер.

3. Передать границы периода и структуру ровно с одной меткой. Не добавлять СчетДт/СчетКт в этот отбор: у Выбрать другой контракт, чем у Остатки.

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

5. Проверить две записи и 800. Для одинаковой метки порядок двух сумм не фиксируется; сохранённый номер выводится отдельно от счётчика цикла.

6. Отменить свою транзакцию, проверить исчезновение только своих данных.

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

1. Для каждой из двух записей три сообщения Истина, затем общая проверка количества 2 и суммы 800 Истина.

2. После отмены последние две проверки Истина: по собственной ссылке пусто, документ не существует.

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

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

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

1. Одна структура не означает одинаковый контракт всех методов. Здесь Выбрать допускает только одно поле отбора.

2. Выборка не является изменяемой записью набора: свойства только читаются.

3. Порядок по одинаковой метке не гарантирует последовательность 750 затем 50. Проверяется сумма и количество, не случайный порядок.

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