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

&НаСервере
Процедура УстановитьТарифы()

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

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

    Если Тарифы.Количество() > 0 Тогда
        Для Каждого СтрокаРиска Из Объект.СтраховыеРиски Цикл
            СтрокаРиска.Тариф = Тарифы[0].Тариф;
            СтрокаРиска.СтраховаяПремия =
                СтрокаРиска.СтраховаяСумма * СтрокаРиска.Тариф / 100;
        КонецЦикла;
    КонецЕсли;

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