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

17.08.19

Учетные задачи - Производство готовой продукции (работ, услуг)

–

Расширение, позволяющее указывать ресурсы предприятия, задействованные при выполнении операций в спецификации номенклатуры, а также автоматически заполнять плановые значения по загрузке ресурсов в заказе на производство. Управление нашей фирмой, редакция 1.6 (1.6.18.98) 1С:Предприятие 8.3 (8.3.13.1644)

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Учет ресурсов по спецификациям: .cfe 34,56Kb 16	.cfe		34,56Kb	16	Скачать

1С запилили в УНФ отличную штуку - ресурсы предприятия. Но как обычно продумали не до конца)) С одной стороны там можно указывать оборудование, с другой стороны сотрудников и бригады, но вот как привязать это к заказам на производство и посчитать сколько реально займет времени на изготовление продуктов и какое оборудование/бригады будут заняты, как построить расписание - не продумано.

Давайте сделаем первый шаг в этом направлении - предположим, что каждая операция выполняется на определенном оборудовании. Тогда в спецификации в табличной части операций надо просто добавить ещё одну колонку - ключевой ресурс.

Как пользоваться расширением:

Пусть реквизит "мощность" в справочнике ключевых ресурсов - это количество параллельно выполняемых операций, как если у вас стоит несколько одинаковых единиц оборудования.

1.) Включаем возможность планировать наши ресурсы.

2) заводим нашу номенклатуру

"Чайный лист" будет сырьем, а "чайный лист нарезанный" производимым нами полуфабрикатом.

3) теперь подключаем расширение и заводим спецификацию

На вкладке состава у нас все как обычно. 1 кг на входе - 1 кг продукта на выходе.

А вот на вкладке операций у меня появляется ресурс предприятия. Я буду считать, что за 1 час я могу нарезать 20 кг чая.

Мощность моему оборудованию я указала равную 2. У меня 2 таких машины на производстве.

переходим в заказ на производстве

На вкладке продукции добавляем "Чайный лист нарезанный", переходим на вкладку "Операции" и нажимаем "Заполнить по спецификации".

Заказ на производство автоматически считает, что на операцию уйдет 100(кг)/20(кг/ч)=5 часов

Но т.к. мощность оборудования равна двум то операция будет выполнена в два раза быстрее и два единицы оборудования смогут обработать сырье за 2 часа 30 минут.

После проведения заказа на производство видим в планировщике ресурсов наше оборудование и часы когда оно занято:

А теперь что для этого было сделано программно:

Во-первых в расширении действительно добавлена колонка в спецификацию и выведена на форму

Во - вторых я вытащила в расширение функцию "ЗаполнитьОперацииПоСпецификации" из модуля объекта Документ.ЗаказНаПроизводство и прописала в ней получение информации по длительности работы оборудования

Код как это сделать

&Вместо("ЗаполнитьОперацииПоСпецификации")
Процедура Расш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);
КонецЕсли;

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

Вот и всё. Если вы программист и есть аналогичная задача - просто возьмите код из поста и поставьте мне плюсик. Если вы пользователь - скачайте расширение и прикрепите к своей базе УНФ.

–

См. также

Комплексная автоматизация: переработка давальческого сырья в 1С:КА

Производство готовой продукции (работ, услуг) Бухгалтер Бухгалтерский учет 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Платные (руб)

Учет у переработчика теперь и в КА (полные возможности в ERP). Без внесения изменений в конфигурацию. Комплексная автоматизация

16800 руб.

22.02.2019 62421 232 85

171

Сервисный центр в 1С: Программа для сервисного центра по ремонту техники

Зарплата Производство готовой продукции (работ, услуг) Учет рабочего времени Рабочее место Бизнес-аналитик Пользователь Руководитель проекта Платформа 1С v8.3 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Торговля и склад 7.7 Бытовые услуги, сервис Оптовая торговля, дистрибуция, логистика Электротехника и микроэлектроника Управленческий учет Платные (руб)

Модуль или расширение «Сервисный центр для 1С» позволяет принимать в ремонт оборудование (компьютеры, бытовая техника и т.п.), оформлять заявки инженеров на посещение клиентов и вести начисление заработной платы для сотрудников.

14800 руб.

01.11.2012 90992 102 1

111

SALE! 50%

Отчет "Полный анализ себестоимости выпущенной продукции" для 1С:ERP (ЕРП), 1С:КА, 1С:ERP УХ

Производство готовой продукции (работ, услуг) Учет доходов и расходов Бухгалтер Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Комплексная автоматизация 2.х Бухгалтерский учет Управленческий учет Платные (руб)

Данный отчет показывает себестоимость выпущенной продукции с разузлованием полуфабрикатов любых уровней, входящих в ее состав, до статей затрат и материалов. Отчет работает независимо от метода оценки стоимости товаров и подходит для любых производственных компаний с многопередельным производством. Отчет можно использовать как в типовой 1С:ERP, так и в отраслевых решениях на ее базе (например, 1С:ERP Управление птицеводческим предприятием и т.д.). Отчет подходит для анализа затрат на гособоронзаказы ГОЗ.

~~70000~~ 35000 руб.

08.12.2021 24508 18 72

SALE! 50%

Отчет "Полный анализ себестоимости реализованной продукции" для 1С:ERP (ЕРП), 1С:КА, 1С:ERP УХ

Данный отчет показывает себестоимость реализованной продукции в разузлованном виде, как с выделением входящих в нее полуфабрикатов любых уровней, так и свернутый до статей затрат и материалов, видов работ. Отчет работает независимо от метода оценки стоимости товаров и подходит для любых производственных компаний с многопередельным производством. Отчет можно использовать как в типовой 1С:ERP, так и в отраслевых решениях на ее базе (например, 1С:ERP Управление птицеводческим предприятием, Молокозавод и т.д.).Отчет подходит для анализа затрат на гособоронзаказы ГОЗ.

~~70000~~ 35000 руб.

30.11.2022 11970 13 22

АРМ Начальника производства и АРМ Рабочего цеха для 1С:УНФ. Цифровое производство малого и среднего бизнеса

Рабочее место Производство готовой продукции (работ, услуг) Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Управленческий учет Платные (руб)

Расширение для 1С:УНФ с комплектом из двух АРМ: «АРМ для начальника производства» и «АРМ для рабочего цеха». «АРМ Начальника производства» позволяет анализировать общую картину состояния заказов покупателей и наличие конечных комплектующих и сырья для производства заказанной продукции. Есть возможность направлять заказы в производственную работу (в случае, если заказанную продукцию нужно произвести), резервировать и отгружать готовую продукцию. «АРМ рабочего цеха» позволяет обычным работникам оперативно закрывать производственные задания (оформлять документы выпуска) сразу в программе 1С.

14400 руб.

15.09.2017 49767 81 41

Печатные формы КС-2 и КС-3 в "1С:Бухгалтерия 3.0"

Печатные формы Производство готовой продукции (работ, услуг) Бухгалтер Платформа 1С v8.3 Бухгалтерский учет Оперативный учет 1С:Бухгалтерия 3.0 Строительство Россия Бухгалтерский учет Платные (руб)

Откройте для себя заполнение КС-2 и КС-3 в "1С:Бухгалтерия 3.0". Вы получаете удобство, скорость и систему, чтобы заполнить, распечатать и сохранить формы КС-2 и КС-3 из документов "Оказание производственных услуг" или "Реализация товаров услуг". Вы можете заполнить дополнительную информацию о материалах из документов "Требование-накладная" и указать сведения, которые не предусмотрены типовой конфигурацией "1С:Бухгалтерия 3.0". Так же доступно множество настроек для формирования КС-2 и КС-3.

3240 руб.

13.02.2019 89537 403 44

385

УТ 11, КА 2, ERP 2: Настраиваемые под каждую организацию печать и подпись ответственных лиц в печатных формах (ТОРГ-12, Счёт-фактура, УПД, УКД, Заказ клиента, Акт сверки, М-15 и др.)

Печатные формы Взаиморасчеты Оптовая торговля Производство готовой продукции (работ, услуг) Акт сверки Бухгалтер Пользователь Оперативный учет Управляемые формы 1С:Управление торговлей 11 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Задайте для каждой организации свою печать и для каждого физического лица свою подпись. Выберите в документе печатную форму "... с печатью и подписью" - и автоматически сформируется табличный документ с печатью и подписями той организации и ответственных лиц, которые указаны в документе.

12000 руб.

13.03.2018 57294 187 76

117

АСТ: Обмен с ФГИС Меркурий из 1С

Оптовая торговля Производство готовой продукции (работ, услуг) Обмен с ГосИС Программист Бухгалтер Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Оптовая торговля, дистрибуция, логистика Пищевая промышленность Россия Бухгалтерский учет Платные (руб)

Автоматический обмен данными с системой ФГИС Меркурий из 1С через ВетИС API: загрузка данных по хозяйствующим субъектам, предприятиям; типов, групп, видов, наименований продукции, сопоставление данных и запись их в базу данных; создание на основании расходных документов транспортных партий, отправка на сервер, печать полученных ветеринарных свидетельств, запрос остатков складского журнала, проведение инвентаризаций, оформление производственных партий.

10000 руб.

08.12.2017 102292 235 110

144