Заполнение полей документа данными другого документа/справочника

[Георгий Ширинкин]

Доброго дня!
Помогите пожалуйста новичку.
Есть справочник "Контрагенты". Есть документ "Договор". В них обоих есть идентичные поля "ЮрАдрес", "ИНН", "КПП" и прочее. Эти поля изначально заполняются в справочнике.
Задача: Надо что-бы при выборе в документе "Договор" контрагента (СправочникСсылка.Контрагенты), заполнение сопутствующих полей договора элементами справочника происходило автоматически.
Благодарю!

[Rasty]

Пишите код в событие ПриИзминении Договора
типа Док.Инн = Договор.инн и т.д

[Георгий Ширинкин]

Пишите код в событие ПриИзминении Договора
типа Док.Инн = Договор.инн и т.д

Про обработчик события это понятно. А вот как описать сам механизм выборки нужных полей из выбранного контрагента (Справочник.Контрагенты) мне не ясно. Гугл меня тоже сегодня не балует =(

[Rasty]

Док.Инн = Договор.инн

[xdto]

Код Выделить Развернуть

Процедура КонтрагентПриИзменении(Элемент)
ДанныеРеквизитаКонтрагент = Контрагент.Ссылка;

ВыбранныйКонтрагент = ДанныеРеквизитаКонтрагент.Ссылка;
ПолучитьРеквизитыКонтрагента(ВыбранныйКонтрагент);

КонецПроцедуры

Код Выделить Развернуть

Функция ПолучитьРеквизитыКонтрагента(КонтрагентСсылка)
РеквизитыКонтрагента = Новый Структура;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               | Контрагенты.ЮрАдрес,
               | Контрагенты.ИНН,
               | Контрагенты.КПП
               |ИЗ
               | Справочник.Контрагенты КАК Контрагенты
   |ГДЕ
   | Контрагенты.Ссылка = &Ссылка";
                       
Запрос.УстановитьПараметр("Ссылка", КонтрагентСсылка);
Выборка = Запрос.Выполнить().Выбрать();
 
Если  Выборка.Следующий() Тогда
ЮрАдрес = Выборка.ЮрАдрес;
ИНН = Выборка.ИНН;
КПП = Выборка.КПП;
КонецЕсли;
РеквизитыКонтрагента.Вставить("ЮрАдрес", ЮрАдрес);
РеквизитыКонтрагента.Вставить("ИНН", ИНН);
РеквизитыКонтрагента.Вставить("КПП", КПП);
Возврат РеквизитыКонтрагента;


КонецФункции

[Георгий Ширинкин]

Благодарю всех откликнувшихся.
Перебрал разные варианты, остановился на этом:

Код Выделить Развернуть

&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)

// вариант 1
РеквизитыКонтрагента = ПолучитьРеквизитыКонтрагента(Объект.Контрагент);

Объект.ИНН = РеквизитыКонтрагента.ИНН;
Объект.КПП = РеквизитыКонтрагента.ИНН;
Объект.ЮрАдрес = РеквизитыКонтрагента.ЮрАдрес;

// вариант 2
//ПриИзмененииКонтрагентаНаСервере();

КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьРеквизитыКонтрагента(КонтрагентСсылка)
    РеквизитыКонтрагента = Новый Структура;

    РеквизитыКонтрагента.Вставить("ЮрАдрес" , КонтрагентСсылка.ЮрАдрес);
    РеквизитыКонтрагента.Вставить("ИНН" , КонтрагентСсылка.ИНН);
    РеквизитыКонтрагента.Вставить("КПП" , КонтрагентСсылка.КПП);

Возврат РеквизитыКонтрагента;   

КонецФункции

&НаСервере
Процедура ПриИзмененииКонтрагентаНаСервере()

Объект.ИНН = Объект.Контрагент.ИНН;
Объект.КПП = Объект.Контрагент.ИНН;
Объект.ЮрАдрес = Объект.Контрагент.ЮрАдрес;

КонецПроцедуры

Еще раз всем спасибо! =)