---

&НаСервере
Процедура ЗаполнитьПоПолису()

    Если ЗначениеЗаполнено(Объект.Полис) Тогда

        ДанныеПолиса = Объект.Полис.ПолучитьОбъект();

        Объект.Клиент = ДанныеПолиса.Клиент;
        Объект.ВидСтрахования = ДанныеПолиса.ВидСтрахования;

    КонецЕсли;

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