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

17.08.19

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

+20 –

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Учет ресурсов по спецификациям: .cfe 34,56Kb 17	17	Скачать (1 SM)	Купить за 1 850 руб.

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 –

См. также

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

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

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

36000 руб.

22.02.2022 19671 15 2

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 27730 27 73

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

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

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

18000 руб.

22.02.2019 67485 271 93

194

SALE! 50%

Отчет "Полный анализ себестоимости реализованной продукции"

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

~~70000~~ 35000 руб.

30.11.2022 17355 23 28

АСТ: Обмен с ФГИС Меркурий из 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: загрузка данных по хозяйствующим субъектам, предприятиям; типов, групп, видов, наименований продукции, сопоставление данных и запись их в базу данных; создание на основании расходных документов транспортных партий, отправка на сервер, печать полученных ветеринарных свидетельств, запрос остатков складского журнала, проведение инвентаризаций, оформление производственных партий.

11500 руб.

08.12.2017 105253 238 110

147

Модуль "Интеграция с 1С:Документооборот 2.1 и 3.0" для УПП/КА/УТ 10.3/БГУ 1.0/ЗБУ 1.0. 1С-Совместимо

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

Продукт "Интеграция с 1С:Документооборот" позволяет использовать функции программы "1С:Документооборот 8" напрямую из учетной системы (1С:УПП; 1С:КА, 1С:УТ 10.3, 1С:БГУ 1.0, 1С:ЗБУ 1.0, 1С:УПП для Казахстана и отраслевых решений, разработанных на их основе) на платформе "1С:Предприятие 8": выполнять и ставить задачи, просматривать документы, скан-копии и прочие файлы, штрих-кодировать документы отправлять письма, вести учет рабочего времени - не входя в "1С:Документооборот 8", работая в одной программе, что значительно сокращает время и делает работу более комфортной и эффективной. Продукт прошел сертификацию 1С-Совместимо

96000 руб.

11.06.2015 57889 36 20

Расчет себестоимости товаров в 1С УТ 11 и КА 2 при проведении документа

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

Оперативный расчет себестоимости в 1С (не отложенный, как в типовом решении) при проведении документов в УТ 11,как в УТ 10,КА 2 как в КА 1.

9600 руб.

22.11.2018 90295 295 380

243

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

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

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

16800 руб.

01.11.2012 95451 113 1

121