damned,
Есть несколько моментов.
1. Перед вопросом проверим есть ли строки. Если нет вопрос не нужен
2. Перед тем как проверять есть ли замена надо проверить выбран ли Товар
3. Забыли про стоимость. В вашем задании написано "1 м кабеля" заменить на "прокладка 1 м кабеля".
Следовательно нужно также считать стоимость по строке, и итог по стоимости? а не только цену.
Возможно что забыли про НДС (если есть реквизиты).
Мне кажется так будет поизящнее.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Процедура Замена()
Если КоличествоСтрок() = 0 Тогда
Возврат;
КонецЕсли;
Ответ = Вопрос ("Заменить все материалы на соответствующие работы ? Обратный процесс не возможен.", 4 , 0 );
Если Ответ <> 6 Тогда // Не согласны
//Не хотите? Тогда просто завершим процедуру.
Возврат;
КонецЕсли;
Табло = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(Табло);
//Обработка строк
Табло.ВыбратьСтроки();
//Перебор по строкам
Пока Табло.ПолучитьСтроку() = 1 Цикл
//Проверим выбран ли товар
Если Табло.Товар.Выбран() = 0 Тогда
//Товар не выбран => менять нечего
Продолжить;
КонецЕсли;
//Проверим выбрана ли для для товара замена
Если Табло.Товар.Замена.Выбран() = 0 Тогда
//Замены нет, эту строку менять не будем
Продолжить;
КонецЕсли;
Сообщить("Меняем " + Табло.Товар + " на " + Табло.Товар.Замена + " цена работы " + Табло.Товар.Замена.Цена);
Табло.Цена = Табло.Товар.Замена.Цена;
Табло.Товар = Табло.Товар.Замена;
//Здесь вставить строку для расчета стоимости или суммы что там у вас
//Возможно также что нужно обновить значение реквизита ставка НДС и суммы НДС пересчитать (если есть).
КонецЦикла;
// Возвращаем всё в таблицу
ЗагрузитьТабличнуюЧасть(Табло);
Пересчет("Цена");
КонецПроцедуры // Замена()
