---

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

    Если ЗначениеЗаполнено(Объект.ДатаНачала)
        И ЗначениеЗаполнено(Объект.ВидСтрахования) Тогда

        Объект.ДатаОкончания =
            ДобавитьМесяц(Объект.ДатаНачала,
                Объект.ВидСтрахования.СрокДействия);

    КонецЕсли;

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