Загрузка данных

&НаСервере
Функция ПолучитьТариф()

    Отбор = Новый Структура;
    Отбор.Вставить("ВидСтрахования", Объект.ВидСтрахования);

    Тарифы = РегистрыСведений.ТарифыСтрахования.СрезПоследних(
        Объект.Дата,
        Отбор
    );

    Если Тарифы.Количество() > 0 Тогда
        Возврат Тарифы[0].Тариф;
    КонецЕсли;

    Возврат 0;

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



&НаКлиенте
Процедура СтраховыеРискиСтраховаяСуммаПриИзменении(Элемент)

    ТекущаяСтрока = Элементы.СтраховыеРиски.ТекущиеДанные;

    Если ТекущаяСтрока <> Неопределено Тогда

        ТекущаяСтрока.Тариф = ПолучитьТариф();

        ТекущаяСтрока.СтраховаяПремия =
            ТекущаяСтрока.СтраховаяСумма * ТекущаяСтрока.Тариф / 100;

    КонецЕсли;

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