&НаКлиенте
Процедура РассчитатьРасходНа1000(Команда)
Для Каждого Строка Из Элементы.Список.ВыделенныеСтроки Цикл
ДанныеМашины = Элементы.Список.ДанныеСтроки(Строка);
Если ДанныеМашины <> Неопределено Тогда
РасходНа1000 = ДанныеМашины.РасходНа100 * 10;
Сообщить("Автомобиль: " + ДанныеМашины.Наименование);
Сообщить("Расход на 1000 км составит: " + РасходНа1000 + " л.");
Сообщить("------------------------------");
КонецЕсли;
КонецЦикла;
КонецПроцедуры