Учет ресурсов по спецификациям. Автозаполнение загрузки ресурсов в заказе на производство

&Вместо("ЗаполнитьОперацииПоСпецификации")
Процедура Расш1_ЗаполнитьОперацииПоСпецификации()
Операции.Очистить();
Если НЕ ПолучитьФункциональнуюОпцию("ИспользоватьТехоперации") Тогда
Возврат;
КонецЕсли;

ПроизводствоСервер.ЗаполнитьКлючиСвязи(Продукция);

Операции.Очистить();
//infostart //Mogilnikova
РесурсыПредприятия.Очистить();
//\\ infostart
Если ПоложениеИсполнителя=Перечисления.ПоложениеРеквизитаНаФорме.ВТабличнойЧасти Тогда
СоставБригады.Очистить();
КонецЕсли;

ТаблицаПродукция = Продукция.Выгрузить();
ИспользоватьРезервирование = Константы.ФункциональнаяОпцияРезервированиеЗапасов.Получить();

Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("Запасы", ТаблицаПродукция.Скопировать(, "НомерСтроки, Номенклатура, Спецификация"));
Запрос.Текст =
"ВЫБРАТЬ

ТабличнаяЧасть.НомерСтроки КАК НомерСтроки,

ТабличнаяЧасть.Спецификация КАК Спецификация,

ТабличнаяЧасть.Спецификация КАК ВложеннаяСпецификация,

ИСТИНА КАК ЭтоУзел,

ТабличнаяЧасть.Номенклатура КАК Операция,
//infostart //Mogilnikova
//
1 КАК НормаВремени

1 КАК НормаВремени,

ЗНАЧЕНИЕ(Справочник.Ключевыересурсы.ПустаяСсылка) как РесурсПредприятия,

1 как ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ ВременнаяТаблица

ИЗ

&Запасы КАК ТабличнаяЧасть

ГДЕ

ТабличнаяЧасть.Спецификация <> ЗНАЧЕНИЕ(Справочник.Спецификации.ПустаяСсылка)

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

0 КАК Уровень,

МИНИМУМ(ВременнаяТаблица.НомерСтроки) КАК Порядок,

0 КАК НомерСтроки,

ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка) КАК Этап,

ВременнаяТаблица.Спецификация КАК Спецификация,

ВременнаяТаблица.ВложеннаяСпецификация КАК ВложеннаяСпецификация,

ВременнаяТаблица.ЭтоУзел КАК ЭтоУзел,

ВременнаяТаблица.Операция КАК Операция,
//infostart //Mogilnikova
//
ВременнаяТаблица.НормаВремени КАК НормаВремени

ВременнаяТаблица.НормаВремени КАК НормаВремени,

ВременнаяТаблица.РесурсПредприятия как РесурсПредприятия,

ВременнаяТаблица.ДлительностьРаботы как ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ ТаблицаОпераций

ИЗ

ВременнаяТаблица КАК ВременнаяТаблица



СГРУППИРОВАТЬ ПО

ВременнаяТаблица.Спецификация,

ВременнаяТаблица.Операция,

ВременнаяТаблица.ВложеннаяСпецификация,

ВременнаяТаблица.ЭтоУзел,
//infostart //Mogilnikova
//
ВременнаяТаблица.НормаВремени

ВременнаяТаблица.НормаВремени,

ВременнаяТаблица.РесурсПредприятия,

ВременнаяТаблица.ДлительностьРаботы
//\\ infostart

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ ВременнаяТаблица";
Запрос.Выполнить();
ПроизводствоСервер.РазузловатьОперации(Запрос, Неопределено, "Продукция");

Запрос.УстановитьПараметр("Продукция", ТаблицаПродукция);
Запрос.УстановитьПараметр("ВидОперации", ВидОперации);
Запрос.УстановитьПараметр("ТипСтруктурнойЕдиницы", ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СтруктурнаяЕдиница, "ТипСтруктурнойЕдиницы"));
Запрос.Текст =
"ВЫБРАТЬ

Продукция.НомерСтроки КАК НомерСтроки,

Продукция.КлючСвязи КАК КлючСвязиПродукция,

Продукция.ЗаказПокупателя КАК ЗаказПокупателя,

ВЫРАЗИТЬ(Продукция.Номенклатура КАК Справочник.Номенклатура) КАК Номенклатура,

Продукция.Спецификация КАК Спецификация,

Продукция.Количество КАК Количество,

Продукция.ЕдиницаИзмерения КАК ЕдиницаИзмерения

ПОМЕСТИТЬ Продукция

ИЗ

&Продукция КАК Продукция

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

Продукция.ЗаказПокупателя КАК ЗаказПокупателя,

Продукция.НомерСтроки КАК НомерСтроки,

Продукция.КлючСвязиПродукция КАК КлючСвязиПродукция,

Продукция.Количество КАК Количество,

ВЫБОР

КОГДА НЕ ФункциональнаяОпцияИспользоватьЭтапыПроизводства.Значение

ИЛИ &ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийЗаказНаПроизводство.Разборка)

ИЛИ &ТипСтруктурнойЕдиницы <> ЗНАЧЕНИЕ(Перечисление.ТипыСтруктурныхЕдиниц.Подразделение)

ТОГДА ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка)

ИНАЧЕ ТаблицаОпераций.Этап

КОНЕЦ КАК Этап,

ТаблицаОпераций.Операция КАК Операция,

ВЫБОР

КОГДА ТаблицаОпераций.Операция ССЫЛКА Справочник.Номенклатура

ТОГДА ТаблицаОпераций.Операция.ЕдиницаИзмерения

ИНАЧЕ ЗНАЧЕНИЕ(Справочник.КлассификаторЕдиницИзмерения.ПустаяСсылка)

КОНЕЦ КАК ЕдиницаИзмерения,

ВЫБОР

КОГДА ТаблицаОпераций.Операция ССЫЛКА Справочник.Номенклатура

ТОГДА ТаблицаОпераций.Операция.ФиксированнаяСтоимость

ИНАЧЕ ИСТИНА

КОНЕЦ КАК ФиксированнаяСтоимость,

ВЫБОР

КОГДА ТИПЗНАЧЕНИЯ(Продукция.ЕдиницаИзмерения) = ТИП(Справочник.КлассификаторЕдиницИзмерения)

ТОГДА 1

ИНАЧЕ ВЫРАЗИТЬ(Продукция.ЕдиницаИзмерения КАК Справочник.ЕдиницыИзмерения).Коэффициент

КОНЕЦ КАК Коэффициент,

ЕСТЬNULL(ТаблицаОпераций.НормаВремени, 0) * ВЫБОР

КОГДА ТИПЗНАЧЕНИЯ(Продукция.ЕдиницаИзмерения) = ТИП(Справочник.ЕдиницыИзмерения)

И Продукция.ЕдиницаИзмерения <> ЗНАЧЕНИЕ(Справочник.ЕдиницыИзмерения.ПустаяСсылка)

ТОГДА ВЫРАЗИТЬ(Продукция.ЕдиницаИзмерения КАК Справочник.ЕдиницыИзмерения).Коэффициент

ИНАЧЕ 1

КОНЕЦ КАК НормаВремени,

ТаблицаОпераций.Уровень КАК Уровень,

ТаблицаОпераций.Порядок КАК Порядок,
//infostart //Mogilnikova
//
ТаблицаОпераций.НомерСтроки КАК НомерСтрокиОперации

ТаблицаОпераций.НомерСтроки КАК НомерСтрокиОперации,

ТаблицаОпераций.РесурсПредприятия КАК РесурсПредприятия,

ЕСТЬNULL(ТаблицаОпераций.ДлительностьРаботы, 0) * ВЫБОР

КОГДА ТИПЗНАЧЕНИЯ(Продукция.ЕдиницаИзмерения) = ТИП(Справочник.ЕдиницыИзмерения)

И Продукция.ЕдиницаИзмерения <> ЗНАЧЕНИЕ(Справочник.ЕдиницыИзмерения.ПустаяСсылка)

ТОГДА ВЫРАЗИТЬ(Продукция.ЕдиницаИзмерения КАК Справочник.ЕдиницыИзмерения).Коэффициент

ИНАЧЕ 1

КОНЕЦ * ВЫБОР

КОГДА ТаблицаОпераций.РесурсПредприятия = ЗНАЧЕНИЕ(Справочник.Ключевыересурсы.ПустаяСсылка)

ТОГДА 0

ИНАЧЕ 1

КОНЕЦ * 3600 КАК ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ Операции

ИЗ

Продукция КАК Продукция

ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаОпераций КАК ТаблицаОпераций

ПО Продукция.Спецификация = ТаблицаОпераций.Спецификация,

Константа.ФункциональнаяОпцияИспользоватьЭтапыПроизводства КАК ФункциональнаяОпцияИспользоватьЭтапыПроизводства

ГДЕ

Продукция.Номенклатура.ТипНоменклатуры В (ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Запас), ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Работа))

И НЕ ТаблицаОпераций.Операция ЕСТЬ NULL

И ТаблицаОпераций.Операция <> ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

Операции.ЗаказПокупателя КАК ЗаказПокупателя,

Операции.НомерСтроки КАК НомерСтроки,

Операции.КлючСвязиПродукция КАК КлючСвязиПродукция,

Операции.Количество КАК КоличествоПлан,

Операции.Этап КАК Этап,

Операции.Операция КАК Операция,

Операции.ФиксированнаяСтоимость КАК ФиксированнаяСтоимость,

Операции.Коэффициент КАК Коэффициент,

Операции.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
//infostart //Mogilnikova
//
Операции.НормаВремени КАК НормаВремени

Операции.НормаВремени КАК НормаВремени,

Операции.РесурсПредприятия КАК РесурсПредприятия,

Операции.ДлительностьРаботы КАК ДлительностьРаботы
//\\ infostart

ИЗ

Операции КАК Операции



УПОРЯДОЧИТЬ ПО

Операции.НомерСтроки,

Операции.Уровень,

Операции.Порядок,

Операции.НомерСтрокиОперации";

Выборка = Запрос.Выполнить().Выбрать();

КлючСвязи = 0;
Пока Выборка.Следующий() Цикл
НоваяСтрока = Операции.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, Выборка);
Если НЕ ИспользоватьРезервирование Тогда
НоваяСтрока.ЗаказПокупателя = Документы.ЗаказПокупателя.ПустаяСсылка();
КонецЕсли;
Если НЕ ПоложениеИсполнителя=Перечисления.ПоложениеРеквизитаНаФорме.ВТабличнойЧасти Тогда
НоваяСтрока.Исполнитель = Исполнитель;
КонецЕсли;
Если ПоложениеСтруктурнойЕдиницыОпераций=Перечисления.ПоложениеРеквизитаНаФорме.ВТабличнойЧасти Тогда
НоваяСтрока.СтруктурнаяЕдиница = Справочники.СтруктурныеЕдиницы.ОсновноеПодразделение;
Иначе
НоваяСтрока.СтруктурнаяЕдиница = СтруктурнаяЕдиницаОпераций;
КонецЕсли;
НоваяСтрока.Нормочасы = НоваяСтрока.НормаВремени * НоваяСтрока.КоличествоПлан;
КлючСвязи = КлючСвязи + 1;
НоваяСтрока.КлючСвязи = КлючСвязи;

//infostart //Mogilnikova
Если ЗначениеЗаполнено(Выборка.РесурсПредприятия) тогда
СтрокаРесурсов = РесурсыПредприятия.Добавить();
СтрокаРесурсов.РесурсПредприятия = Выборка.РесурсПредприятия;
СтрокаРесурсов.Мощность = Выборка.РесурсПредприятия.Мощность;
СтрокаРесурсов.Длительность = окр(Выборка.ДлительностьРаботы * НоваяСтрока.КоличествоПлан/СтрокаРесурсов.Мощность,0,РежимОкругления.Окр15как20);
СтрокаРесурсов.Старт = Старт;
СтрокаРесурсов.Финиш = Старт+окр(Выборка.ДлительностьРаботы * НоваяСтрока.КоличествоПлан/СтрокаРесурсов.Мощность,0,РежимОкругления.Окр15как20);
КонецЕсли;
//\\ infostart

КонецЦикла;

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

&Вместо("РазузловатьОперации")
Процедура Расш1_РазузловатьОперации(Запрос, ДокументыРазузлования, ИмяТЧ, УровеньВложенности)
Если Запрос.МенеджерВременныхТаблиц=Неопределено Тогда
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
КонецЕсли;

Если ТипЗнч(ДокументыРазузлования)=Тип("Массив") Тогда
МассивДокументов = ДокументыРазузлования;
Иначе
МассивДокументов = Новый Массив;
Если ЗначениеЗаполнено(ДокументыРазузлования) Тогда
МассивДокументов.Добавить(ДокументыРазузлования);
КонецЕсли;
КонецЕсли;

// Выборка спецификаций из ТЧ документа
Если Запрос.МенеджерВременныхТаблиц.Таблицы.Найти("ТаблицаОпераций")=Неопределено Тогда
Если МассивДокументов.Количество()=0 ИЛИ ПустаяСтрока(ИмяТЧ) Тогда
Возврат;
КонецЕсли;
ПервыйДокумент = МассивДокументов[0];
Запрос.УстановитьПараметр("МассивДокументов", МассивДокументов);
Если ПервыйДокумент.Метаданные()=Метаданные.Документы.ЗаказПокупателя И ИмяТЧ="Запасы" И Запрос.МенеджерВременныхТаблиц.Таблицы.Найти("ВТЗаказПокупателяЗапасы")<>Неопределено Тогда
Запрос.Текст =
"ВЫБРАТЬ

0 КАК Уровень,

МИНИМУМ(ТабличнаяЧасть.НомерСтроки) КАК Порядок,

0 КАК НомерСтроки,

ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка) КАК Этап,

ТабличнаяЧасть.Спецификация КАК Спецификация,

ТабличнаяЧасть.Спецификация КАК ВложеннаяСпецификация,

ИСТИНА КАК ЭтоУзел,

ТабличнаяЧасть.Номенклатура КАК Операция,
//infostart //Mogilnikova
//
1 КАК НормаВремени

1 КАК НормаВремени,

ЗНАЧЕНИЕ(Справочник.Ключевыересурсы.ПустаяСсылка) КАК РесурсПредприятия,

1 КАК ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ ТаблицаОпераций

ИЗ

ВТЗаказПокупателяЗапасы КАК ТабличнаяЧасть

ГДЕ

ТабличнаяЧасть.Спецификация <> ЗНАЧЕНИЕ(Справочник.Спецификации.ПустаяСсылка)



СГРУППИРОВАТЬ ПО

ТабличнаяЧасть.Номенклатура,

ТабличнаяЧасть.Спецификация";
Иначе
Запрос.Текст =
"ВЫБРАТЬ

0 КАК Уровень,

МИНИМУМ(ТабличнаяЧасть.НомерСтроки) КАК Порядок,

0 КАК НомерСтроки,

ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка) КАК Этап,

ТабличнаяЧасть.Спецификация КАК Спецификация,

ТабличнаяЧасть.Спецификация КАК ВложеннаяСпецификация,

ИСТИНА КАК ЭтоУзел,

ТабличнаяЧасть.Номенклатура КАК Операция,
//infostart //Mogilnikova
//
1 КАК НормаВремени

1 КАК НормаВремени,

ЗНАЧЕНИЕ(Справочник.Ключевыересурсы.ПустаяСсылка) КАК РесурсПредприятия,

1 КАК ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ ТаблицаОпераций

ИЗ

Документ.ЗаказПокупателя.Запасы КАК ТабличнаяЧасть

ГДЕ

ТабличнаяЧасть.Ссылка В(&МассивДокументов)

И ТабличнаяЧасть.Спецификация <> ЗНАЧЕНИЕ(Справочник.Спецификации.ПустаяСсылка)



СГРУППИРОВАТЬ ПО

ТабличнаяЧасть.Спецификация,

ТабличнаяЧасть.Номенклатура";
Запрос.Текст = СтрЗаменить(Запрос.Текст, "ЗаказПокупателя.Запасы", ПервыйДокумент.Метаданные().Имя+"."+ИмяТЧ);
КонецЕсли;
Запрос.Выполнить();
КонецЕсли;

Запрос.УстановитьПараметр("УровеньВложенности", УровеньВложенности);
Запрос.УстановитьПараметр("ИспользоватьЭтапыПроизводства", ПолучитьФункциональнуюОпцию("ИспользоватьЭтапыПроизводства"));
Запрос.Текст =
"ВЫБРАТЬ

ТаблицаОпераций.Уровень КАК Уровень,

ТаблицаОпераций.Порядок КАК Порядок,

ТаблицаОпераций.НомерСтроки КАК НомерСтроки,

ТаблицаОпераций.Этап КАК Этап,

ТаблицаОпераций.Спецификация КАК Спецификация,

ТаблицаОпераций.ВложеннаяСпецификация КАК ВложеннаяСпецификация,

ТаблицаОпераций.ЭтоУзел КАК ЭтоУзел,

ТаблицаОпераций.Операция КАК Операция,
//infostart //Mogilnikova
//
ТаблицаОпераций.НормаВремени КАК НормаВремени

ТаблицаОпераций.НормаВремени КАК НормаВремени,

ТаблицаОпераций.РесурсПредприятия как РесурсПредприятия,

ТаблицаОпераций.ДлительностьРаботы как ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ ВремТаблицаОпераций

ИЗ

ТаблицаОпераций КАК ТаблицаОпераций

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ ТаблицаОпераций

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

ТаблицаОпераций.Уровень КАК Уровень,

ТаблицаОпераций.Порядок КАК Порядок,

ТаблицаОпераций.НомерСтроки КАК НомерСтроки,

ТаблицаОпераций.Этап КАК Этап,

ТаблицаОпераций.Спецификация КАК Спецификация,

ТаблицаОпераций.ВложеннаяСпецификация КАК ВложеннаяСпецификация,

ТаблицаОпераций.ЭтоУзел КАК ЭтоУзел,

ТаблицаОпераций.Операция КАК Операция,

СУММА(ТаблицаОпераций.НормаВремени) КАК НормаВремени,
//infostart //Mogilnikova
//
НЕОПРЕДЕЛЕНО КАК Исполнитель

НЕОПРЕДЕЛЕНО КАК Исполнитель,

ТаблицаОпераций.РесурсПредприятия как РесурсПредприятия,

СУММА(ТаблицаОпераций.ДлительностьРаботы) как ДлительностьРаботы
//\\ infostart

ПОМЕСТИТЬ ТаблицаОпераций

ИЗ

(ВЫБРАТЬ

ТаблицаОпераций.Уровень КАК Уровень,

ТаблицаОпераций.Порядок КАК Порядок,

0 КАК НомерСтроки,

ТаблицаОпераций.Этап КАК Этап,

ТаблицаОпераций.Спецификация КАК Спецификация,

НЕОПРЕДЕЛЕНО КАК ВложеннаяСпецификация,

ЛОЖЬ КАК ЭтоУзел,

ТаблицаОпераций.Операция КАК Операция,
//infostart //Mogilnikova
//
ТаблицаОпераций.НормаВремени КАК НормаВремени

ТаблицаОпераций.НормаВремени КАК НормаВремени,

ТаблицаОпераций.РесурсПредприятия как РесурсПредприятия,

ТаблицаОпераций.ДлительностьРаботы как ДлительностьРаботы
//\\ infostart

ИЗ

ВремТаблицаОпераций КАК ТаблицаОпераций

ГДЕ

НЕ ТаблицаОпераций.ЭтоУзел



ОБЪЕДИНИТЬ ВСЕ



ВЫБРАТЬ

ТаблицаОпераций.Уровень,

ТаблицаОпераций.Порядок,

ВЫБОР

КОГДА ТаблицаОпераций.НомерСтроки = 0

ТОГДА СпецификацииОперации.НомерСтроки

ИНАЧЕ ТаблицаОпераций.НомерСтроки

КОНЕЦ,

ВЫБОР

КОГДА НЕ &ИспользоватьЭтапыПроизводства

ТОГДА ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка)

КОГДА ТаблицаОпераций.Этап = ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка)

ТОГДА СпецификацииОперации.Этап

ИНАЧЕ ТаблицаОпераций.Этап

КОНЕЦ,

ТаблицаОпераций.Спецификация,

НЕОПРЕДЕЛЕНО,

ЛОЖЬ,

ЕСТЬNULL(СпецификацииОперации.Операция, ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)),

ТаблицаОпераций.НормаВремени * ВЫБОР

КОГДА СпецификацииОперации.НормаВремени ЕСТЬ NULL

ТОГДА 1

ИНАЧЕ ВЫБОР

КОГДА СпецификацииОперации.КоличествоПродукции = 0

ТОГДА 0

ИНАЧЕ СпецификацииОперации.НормаВремени / СпецификацииОперации.КоличествоПродукции

КОНЕЦ
//infostart //Mogilnikova
//
КОНЕЦ

КОНЕЦ,

ЕСТЬNULL(СпецификацииОперации.РесурсПредприятия, ЗНАЧЕНИЕ(Справочник.Ключевыересурсы.ПустаяСсылка)),

ТаблицаОпераций.НормаВремени * ВЫБОР

КОГДА СпецификацииОперации.НормаВремени ЕСТЬ NULL

ТОГДА 1

ИНАЧЕ ВЫБОР

КОГДА СпецификацииОперации.КоличествоПродукции = 0

ТОГДА 0

ИНАЧЕ СпецификацииОперации.НормаВремени / СпецификацииОперации.КоличествоПродукции

КОНЕЦ

КОНЕЦ
//\\ infostart

ИЗ

ВремТаблицаОпераций КАК ТаблицаОпераций

ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Спецификации.Операции КАК СпецификацииОперации

ПО ТаблицаОпераций.ВложеннаяСпецификация = СпецификацииОперации.Ссылка

ГДЕ

ТаблицаОпераций.ЭтоУзел



ОБЪЕДИНИТЬ ВСЕ



ВЫБРАТЬ

ТаблицаОпераций.Уровень + 1,

СпецификацииСостав.НомерСтроки,

0,

ВЫБОР

КОГДА НЕ &ИспользоватьЭтапыПроизводства

ТОГДА ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка)

КОГДА ТаблицаОпераций.Этап = ЗНАЧЕНИЕ(Справочник.ЭтапыПроизводства.ПустаяСсылка)

ТОГДА СпецификацииСостав.Этап

ИНАЧЕ ТаблицаОпераций.Этап

КОНЕЦ,

ТаблицаОпераций.Спецификация,

СпецификацииСостав.Спецификация,

ИСТИНА,

СпецификацииСостав.Номенклатура,

ТаблицаОпераций.НормаВремени * ВЫБОР

КОГДА СпецификацииСостав.КоличествоПродукции = 0

ТОГДА 0

ИНАЧЕ СпецификацииСостав.Количество / СпецификацииСостав.КоличествоПродукции
//infostart //Mogilnikova
//
КОНЕЦ

КОНЕЦ,

ЕСТЬNULL(ТаблицаОпераций.РесурсПредприятия, ЗНАЧЕНИЕ(Справочник.Ключевыересурсы.ПустаяСсылка)),

ТаблицаОпераций.НормаВремени * ВЫБОР

КОГДА СпецификацииСостав.КоличествоПродукции = 0

ТОГДА 0

ИНАЧЕ СпецификацииСостав.Количество / СпецификацииСостав.КоличествоПродукции

КОНЕЦ
//\\ infostart

ИЗ

ВремТаблицаОпераций КАК ТаблицаОпераций

ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Спецификации.Состав КАК СпецификацииСостав

ПО ТаблицаОпераций.ВложеннаяСпецификация = СпецификацииСостав.Ссылка

ГДЕ

ТаблицаОпераций.ЭтоУзел

И СпецификацииСостав.ТипСтрокиСостава = ЗНАЧЕНИЕ(Перечисление.ТипыСтрокСоставаСпецификации.Узел)

И СпецификацииСостав.Спецификация <> ЗНАЧЕНИЕ(Справочник.Спецификации.ПустаяСсылка)

И &УровеньВложенности < 50) КАК ТаблицаОпераций



СГРУППИРОВАТЬ ПО

ТаблицаОпераций.Уровень,

ТаблицаОпераций.Порядок,

ТаблицаОпераций.НомерСтроки,

ТаблицаОпераций.Этап,

ТаблицаОпераций.Спецификация,

ТаблицаОпераций.ВложеннаяСпецификация,

ТаблицаОпераций.ЭтоУзел,
//infostart //Mogilnikova
//
ТаблицаОпераций.Операция

ТаблицаОпераций.Операция,

ТаблицаОпераций.РесурсПредприятия
//\\ infostart

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ ВремТаблицаОпераций

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ ПЕРВЫЕ 1

ТаблицаОпераций.Спецификация КАК Спецификация

ИЗ

ТаблицаОпераций КАК ТаблицаОпераций

ГДЕ

ТаблицаОпераций.ЭтоУзел";

Результат = Запрос.Выполнить();
Если НЕ Результат.Пустой() Тогда
РазузловатьОперации(Запрос, МассивДокументов, ИмяТЧ, УровеньВложенности+1);
КонецЕсли;

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