РегистрРасчетаНаборЗаписей.<Имя регистра расчета>.ЭтотОбъект

Свойства · ThisObject

Тип: РегистрРасчетаНаборЗаписей.<Имя регистра расчета>. Содержит набор записей. Предназначено для получения набора в модуле набора записей.

Полное описание, параметры и ограничения

РегистрРасчетаНаборЗаписей.<Имя регистра расчета>.ЭтотОбъект (CalculationRegisterRecordSet.<Calculation register name>.ThisObject)

РегистрРасчетаНаборЗаписей.<Имя регистра расчета> (CalculationRegisterRecordSet.<Calculation register name>)

ЭтотОбъект (ThisObject)

Доступен, начиная с версии 8.0.

Использование:
Только чтение.
Описание:
Тип: РегистрРасчетаНаборЗаписей.<Имя регистра расчета>.
Содержит набор записей. Предназначено для получения набора в модуле набора записей.
Доступность:

Сервер, толстый клиент, внешнее соединение.

Использование в версии:

Доступен, начиная с версии 8.0.

Методическая информация

Практические примеры

Использовать ЭтотОбъект именно в модуле своего набора записей

В наборе есть свой модуль. Его экспортная функция получает тот экземпляр, у которого она вызвана, а не произвольный глобальный набор.

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

Два места вставки: первая функция в модуле своего набора, остальной код в серверном общем модуле.

Подготовка

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

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

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

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

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

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

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

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

  9. Первую функцию ПроверитьСвойНаборИзнутри разместите только в модуле набора записей УчебныеСуммы85. Весь код начиная с Процедура ВыполнитьПример — в серверном общем модуле. Это два места, не один общий текст для вставки.

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

Процедура ВыполнитьПример() Экспорт
    Набор = СоздатьСвойНабор();
    Сообщить(Набор.ПроверитьСвойНаборИзнутри() = 2);
КонецПроцедуры

Процедура ПроверитьУчебнуюСхему()
    Если Метаданные.Документы.Количество() <> 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. В собственный модуль набора добавить единственную экспортную функцию, которая только читает этот экземпляр.

  2. В общем модуле создать новый набор двух полностью заполненных строк 750/50.

  3. Вызвать Набор.ПроверитьСвойНаборИзнутри. Внутри ЭтотОбъект имеет конкретный тип своего регистра.

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

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

  1. Четыре сообщения Истина: три внутри модуля своего набора, одно в вызывающем общем модуле.

  2. При ошибке места вставки исправьте размещение функции; не заменяйте её бессодержательным получением свойства.

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

Контекстный объект и место выполнения разобраны на реальном вызове экспортной функции собственного набора.

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

  1. ЭтотОбъект здесь доступен в модуле набора, не является глобальной переменной произвольного общего модуля.

  2. Свойство только для чтения, присваивать его нельзя.

  3. ПроверитьСвойНаборИзнутри — учебный экспортный метод своего модуля, не встроенный метод всех регистров.

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

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

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

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

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