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

17.08.19

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

+20 –

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Учет ресурсов по спецификациям: .cfe 34,56Kb 20	20	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

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);
КонецЕсли;

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

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

Вступайте в нашу телеграмм-группу Инфостарт

+20 –

См. также

SALE! 50%

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

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

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

~~96600~~ 48300 руб.

30.11.2022 38263 402 37

Переработка давальческого сырья в 1С:КА 2.5

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

Учет у переработчика теперь и в КА 2.5. без внесения изменений в конфигурацию.

18300 руб.

22.02.2019 83109 402 102

275

Маркировка 2026 для УТ 10.3 (Новые товарные группы)

Разработка Адаптация типовых решений Производство готовой продукции (работ, услуг) Розничная торговля 1С:Управление торговлей 10 Россия Платные (руб)

Доработка для 1С:Управление торговлей 10.3 (релиз 10.3.88.3) добавляет поддержку маркировки новых категорий товаров согласно постановлениям Правительства РФ 2025–2026 гг. Конфигурация УТ 10.3 снята с поддержки — новые маркируемые категории в типовую поставку больше не попадают. Доработка закрывает этот пробел: новые виды номенклатуры, обмен с ГИС МТ «Честный Знак». Поставляется в виде файла .cf

14640 руб.

23.04.2026 1540 12 13

MESlite. Упрощенное планирование производства для 1С:ERP, КА, БП ,УНФ, УТ

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

Расширение для 1С, которое реализует ключевые функции MES-системы прямо в вашей конфигурации. Вы получите инструменты для планирования производства, управления ресурсами, формирования заданий цехам и анализа выпуска продукции. Интеграция с 1С обеспечит сквозной учет без дублирования данных. Решение позволяет контролировать простои оборудования, потребность в материалах и качество продукции, помогая повысить эффективность производства без перехода на сложные специализированные системы.

60000 руб.

25.06.2025 7925 10 3

SALE! 50%

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

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

~~96600~~ 48300 руб.

08.12.2021 36701 537 77

Расширение Модуль Автосервис для 1С УТ 11, УНФ, Бухгалтерия, ERP, КА

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

Модуль «Автосервис» для 1С — это профессиональный инструмент для автоматизации станций технического обслуживания. Решение позволяет вести полный цикл работ: от быстрой записи клиента и планирования постов до расчета заработной платы исполнителей. Поддерживает работу нескольких филиалов в одной базе без ограничений по лицензиям пользователей, интегрируется с типовыми конфигурациями 1С (например, Управление Торговлей 11, УНФ, Бухгалтерия, КА, ERP) для учета товаров и услуг.

18900 руб.

09.03.2016 52396 131 1

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

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

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

17080 руб.

13.03.2018 70370 267 80

123

Пульт управления производством для 1С:УНФ 3.0

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

Разработка “Пульт управления производством для 1С:УНФ 3.0” содержит цифровые инструменты и средства для производственного и технологического программного обеспечения автоматизации производства - подсистему Технологического контроля с АРМ Контролёра, Учет рекламации, АРМ Начальника производства, АРМ Рабочего цеха

36000 руб.

22.02.2022 28466 38 4

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. a.rezyhin 26 04.07.22 16:23 Сейчас в теме

Спасибо за идею, пригодилось!

2. user1239397 21.12.23 16:47 Сейчас в теме

Добрый день. Возможна доработка под версию УНФ 3?

Для отправки сообщения требуется регистрация/авторизация

Автор:

Мария Могильникова (Mogilnikova)

Рейтинг: 103

Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.

Публикация:

№ 1109469

Создание 17.08.19 13:00

Обновление 17.08.19 13:00

Статистика:

Просмотры 13068

Загрузки 20

Рейтинг 20

Комментарии 2

Характеристики:

Код открыт Да

Рубрики Производство готовой продукции (работ, услуг)

Кому Пользователь

Тип файла Расширение (cfe)

Платформа 1С:Предприятие 8

Конфигурация 1С:Управление нашей фирмой 1.6

Операционная система Не имеет значения

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Управленческий учет

Доступ к файлу Абонемент ($m)

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

Файлы

См. также

Журнал

База знаний

Лаборатория

Анализ & Управление

Сопровождение 1С

Корпоративные решения

Обучение

Маркетплейс

Проектный офис

Мероприятия

Видеозаписи

Биржа заказов

Форум

Мерч

О компании