Потребовалось 2 исправления:
//1.
//++
Макет = ОбработкаОбъект.ПолучитьМакет("HTMLStyles");//Обработки.АРМЗаписьНаРемонт.ПолучитьМакет("HTMLStyles");
//--
//-----------------------------------------------------------------------------------------------
//2.
//Процедура ПредложитьЗаполнитьРаботамиПоВидуРемонта(ЭтаФорма=Неопределено) Экспорт
//....
//++
//ЗаполнитьРаботамиПоВидуРемонта(РежимОбработкиРаботы,РежимОбработкиПланирование,ТаблицаРабот,ЭтаФорма);
ЗаполнитьРаботамиПоВидуРемонта_неТиповая(РежимОбработкиРаботы,РежимОбработкиПланирование,ТаблицаРабот,ЭтаФорма);
//--
КонецЕсли;
КонецЕсли;
КонецПроцедуры
// Заполнение табличных частей "Работы" и "Планирование" по виду ремонта
// Параметры: РежимРаботы,РежимПланирование - обработка табличных частей
// 0 - не обрабатывать,
// 1- заполнять без очистки,
// 2 - заполнять с очисткой,
// 3 - калькуляция, заполнять работы без исполнителей без очистки,
// 4 - калькуляция, заполнять работы без исполнителей с очисткой
Процедура ЗаполнитьРаботамиПоВидуРемонта_неТиповая(РежимРаботы=0, РежимПланирование=0, РаботыПоВидуРемонта, ЭтаФорма=Неопределено) Экспорт
Если РаботыПоВидуРемонта = Неопределено Тогда
Возврат;
КонецЕсли;
// Очистим табличные части в зависимости от режимов
Если РежимРаботы = 2 Тогда
ЭтотОбъект.Работы.Очистить();
ЭтотОбъект.Исполнители.Очистить();
КонецЕсли;
Если РежимРаботы = 4 Тогда
ЭтотОбъект.Работы.Очистить();
КонецЕсли;
Если РежимПланирование = 2 Тогда
ЭтотОбъект.Планирование.Очистить();
КонецЕсли;
// Заполним
МассивДобавленныхРабот = Новый СписокЗначений;
Для Каждого СтрокаРабот Из РаботыПоВидуРемонта Цикл
////ВидИспользованияАвтоработы = обПолучитьЗначениеСвойства(СтрокаРабот.Авторабота,ПланыВидовХарактеристик.СвойстваОбъектов.ВидИспользованияАвтоработы,Перечисления.ВидыИспользованияАвторабот.Производство);
Если РежимРаботы > 0 Тогда
// Поищем строку с такой работой в табличной части
ТекСтрока = ЭтотОбъект.Работы.Найти(СтрокаРабот.Авторабота,"Работа");
Если ТекСтрока <> Неопределено Тогда
ТекСтрока.Количество = ТекСтрока.Количество + СтрокаРабот.Количество;
ОбработкаРеквизита("Работы.Количество",ТекСтрока);
Иначе
ТекСтрока = ЭтотОбъект.Работы.Добавить();
ТекСтрока.Работа = СтрокаРабот.Авторабота;
ТекСтрока.Количество = СтрокаРабот.Количество;
ОбработкаРеквизита("Работы.Работа",ТекСтрока);
ТекСтрока.ИдентификаторРаботы = Новый УникальныйИдентификатор;
Если ЭтаФорма<>Неопределено Тогда
ЭтаФорма.ИдентификаторТекущейРаботы = ТекСтрока.ИдентификаторРаботы;
КонецЕсли;
МассивДобавленныхРабот.Добавить(ТекСтрока);
КонецЕсли;
КонецЕсли;
Если РежимПланирование > 0 Тогда
НоваяСтрока = ЭтотОбъект.Планирование.Добавить();
НоваяСтрока.Авторабота = СтрокаРабот.Авторабота;
ОбработкаРеквизита("Планирование.Авторабота",НоваяСтрока);
КонецЕсли;
КонецЦикла;
////Если ЭтаФорма<>Неопределено Тогда
//// Если МассивДобавленныхРабот.Количество() > 0 И РежимРаботы < 3 Тогда
//// зфЗНЗаполнениеИсполнителей(ЭтаФорма,МассивДобавленныхРабот);
//// КонецЕсли;
////КонецЕсли;
#Если Клиент Тогда
Если ЭтаФорма <> Неопределено Тогда
Если РежимРаботы > 1 Тогда
ВывестиПодвалСкидокРабот(ЭтаФорма);
КонецЕсли;
дкВывестиЗаголовокСуммаДокумента(ЭтаФорма);
КонецЕсли;
#КонецЕсли
КонецПроцедуры
Показать