//ОбъектыКодирования – имя регистра сведений
//Хозяин – измерение регистра сведений
СписокНапечатанныхКодов = РегистрыСведений.ОбъектыКодирования;
ФормаСписокНапечатанныхКодов = СписокНапечатанныхКодов.ПолучитьФормуСписка();
ФормаСписокНапечатанныхКодов.Отбор.Хозяин.Значение = ЭтотОбъект.Ссылка;
ФормаСписокНапечатанныхКодов.Отбор.Хозяин.Использование = Истина;
ФормаСписокНапечатанныхКодов.Открыть();
//При открытии формы списка установить отбор по владельцу
//Форма списка, отбор
ЭтаФорма.Отбор.Владелец.Значение =
Справочники.Пользователи.НайтиПоНаименованию
(ПараметрыСеанса.ТекущийПользователь).ОсновноеПодразделение;
ЭтаФорма.Отбор.Владелец.Использование = Истина;
//Сделать отбор не доступным
ЭтаФорма.ЭлементыФормы.ДокументСписок.НастройкаОтбора.Подразделение.Доступность = Ложь;
Запрос.УстановитьПараметр("ТекущийДок", ЭтотОбъект.Ссылка);
Запрос.Текст = "
|ВЫБРАТЬ
| Поле1,
| Поле2,
| ВЫБОР
| КОГДА
| (Регистратор ССЫЛКА Документ.НалоговаяНакладная)
| ТОГДА
| ВЫРАЗИТЬ (Регистратор.Договор.НаименованиеПолное КАК СТРОКА(100))
| КОГДА
| (Регистратор ССЫЛКА Документ.ГТД)
| ТОГДА
| Регистратор.Контрагент.Наименование
| КОНЕЦ КАК ДоговорИлиКонтрагент
|ИЗ" +
?(Экспортируем = Истина, "РегистрНакопления.НалоговыеОбязательства КАК Рег", "РегистрНакопления.НалоговыйКредит КАК Рег") + "
|ГДЕ
| Фильтр = &ТекущийДок
| И НЕ
| Рег.Регистратор ССЫЛКА Документ.ИмпортНДСНалоговыеОбязательстваКредит
|";
Результат = Запрос.Выполнить();
Тз = Новый ТаблицаЗначений;
Тз = Результат.Выгрузить();
Тз.ВыбратьСтроку();
//"ДокРегистратор" – измерение, по которому устанавливается отбор (условие)
НаборЗаписейРегистра = РегистрыСведений.ОбъектыКодирования.СоздатьНаборЗаписей();
НаборЗаписейРегистра.Отбор.ДокРегистратор.Значение = ЭтотОбъект.Ссылка;
НаборЗаписейРегистра.Отбор.ДокРегистратор.Использование = Истина;
НаборЗаписейРегистра.Записать(Истина);
НаборЗаписейРегистра = РегистрыСведений.ОбъектыКодирования.СоздатьНаборЗаписей();
ЗаписьНабораЗаписей = НаборЗаписейРегистра.Добавить();
ЗаписьНабораЗаписей.Измерение1 = "ЗначениеИзмерения1";
ЗаписьНабораЗаписей.Хозяин = ЭтотОбъект.Ссылка;
НаборЗаписейРегистра.Записать(ЛОЖЬ); //ЛОЖЬ - из регистра "ОбъектыКодирования" уже существующие записи принадлежащие текущему документу НЕ удалять.
