внешняя обработка 8.2

Как получить информацию о контрагенте?

Процедура КнопкаВыполнитьНажатие(Кнопка)

Перем ДоговорыКонтрагентов;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТехОбслуживание.ДоговорКонтрагента,
| ТехОбслуживание.Номер,
| ТехОбслуживание.Дата,
| ТехОбслуживание.Ссылка как ДокДоговор
|ИЗ
| Документ.ТехОбслуживание КАК ТехОбслуживание";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ДоговорТекущегоКонтрагента=Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();

ДоговорТекущегоКонтрагента.Организация = Справочники.Организации.НайтиПоКоду("000000001");
ДоговорТекущегоКонтрагента.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду("643");//Росссийский рубль
ДоговорТекущегоКонтрагента.Дата = ТекущаяДата();
ДоговорТекущегоКонтрагента.ВидВзаиморасчетов = Справочники.ВидыВзаиморасчетов.НайтиПоКоду("000000001");
ДоговорТекущегоКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
ДоговорТекущегоКонтрагента.Наименование = " № " + ВыборкаДетальныеЗаписи.Номер + " от " + Формат(ВыборкаДетальныеЗаписи.Дата, "ДФ='dd.MM.yyyy ""г.""'");
//-----------------------------------------------------------------
ДоговорТекущегоКонтрагента.Владелец = Справочники.Контрагенты. //////-----Вот здесь необходимо получить информацию о контрагенте

ДоговорТекущегоКонтрагента.Записать();

Договор = ВыборкаДетальныеЗаписи.ДокДоговор.ПолучитьОбъект();
Договор.Записать();
КонецЦикла;
КонецПроцедуры