УНФ Поэтапное производство

&НаСервере
Процедура АдаптацияСоздатьЗаказыНаПроизводствоПослеНаСервере()
	кол = 1;
	Пока не кол = 0 цикл
		об = Документы.ЗаказНаПроизводство.СоздатьДокумент();
		об.Дата = ТекущаяДата();
		об.Заполнить(Объект.Ссылка);
		Если об.Продукция.Количество()=0 тогда
			прервать;			
		КонецЕсли;	
		об.Организация = Справочники.Организации.НайтиПоКоду("00-000001");//("Наша фирма");
		об.СтруктурнаяЕдиница = Справочники.СтруктурныеЕдиницы.НайтиПоКоду("НФ-000005");//("04 Производство");
		об.СтруктурнаяЕдиницаРезерв = Справочники.СтруктурныеЕдиницы.НайтиПоКоду("НФ-000009");//("Материалы Ж");			
		об.Комментарий = Объект.Комментарий;
		об.Финиш = Объект.ДатаОтгрузки;
		
		колСтрок = об.Продукция.Количество();
		Если об.Продукция.Количество()>1  тогда
			к = об.Продукция.Количество()-1;
			пока к >0 цикл
				об.Продукция.Удалить(к);
				к = к-1;
			КонецЦикла;	
		КонецЕсли;		
		//Если об.Продукция.Получить(0).Количество = 1 и колСтрок = 1 тогда
		//	кол = 0;
		//иначе 
			об.Продукция.Получить(0).Количество = 1;
			об.Запасы.Очистить();
			СтекСпецификацийУзлов = Новый Массив;
			об.ЗаполнитьЗапасыПоСпецификации(СтекСпецификацийУзлов);			
		//КонецЕсли;
		
		об.СтруктурнаяЕдиницаОпераций = Справочники.СтруктурныеЕдиницы.НайтиПоНаименованию("04 Производство");
		об.Исполнитель = Справочники.Бригады.НайтиПоНаименованию("Бригада Цех");
		об.Операции.Очистить();
		об.ЗаполнитьОперацииПоСпецификации();
		Для каждого опер из об.Операции цикл
			опер.КоличествоПлан = 1;
			опер.Нормочасы = опер.НормаВремени * опер.КоличествоПлан;	
		КонецЦикла;
		
		об.Записать(РежимЗаписиДокумента.Проведение);
		сообщить("создан заказ на производство "+строка(об.Ссылка));
		
	КонецЦикла;		
		

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