v8: создание,перезапись документа

 Процедура СформироватьЗаданиеНаПроизводствоНажатие(Элемент)



	МассивВидыНоменклатуры = Новый Массив;

		

	Для Каждого СтрокаТЧ Из Товары Цикл	

		НайденныйВидНоменклатуры = МассивВидыНоменклатуры.Найти(СтрокаТЧ.Номенклатура.ВидНоменклатуры);

		Если НайденныйВидНоменклатуры = Неопределено Тогда

			МассивВидыНоменклатуры.Добавить(СтрокаТЧ.Номенклатура.ВидНоменклатуры);

		КонецЕсли;

	КонецЦикла;

	

	Для Каждого ЭлементМассива Из МассивВидыНоменклатуры Цикл

		СоздатьДокументЗаданиеНаПроизводство(ЭлементМассива);

	КонецЦикла;

	

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

Процедура СоздатьДокументЗаданиеНаПроизводство(ЭлементМассива)

	

	ЗаданиеНаПроизводство = Документы.ЗаданиеНаПроизводство.СоздатьДокумент();

	//ЗаданиеНаПроизводство.Номер  = Номер;

	ЗаданиеНаПроизводство.Дата = ТекущаяДата();

	ЗаданиеНаПроизводство.ДокументОснование 	= Ссылка;

	ЗаданиеНаПроизводство.ДатаОтгрузки = ДатаОтгрузки;

	ЗаданиеНаПроизводство.Контрагент = Контрагент;

	//ЗаданиеНаПроизводство.Организация = Организация;

	ЗаданиеНаПроизводство.Подразделение = Подразделение;

	ЗаданиеНаПроизводство.Комментарий = Комментарий;

	Для Каждого СтрокаТЧ Из Товары Цикл

		

		Если СтрокаТЧ.Номенклатура.ВидНоменклатуры <> ЭлементМассива Тогда

			Продолжить;

		КонецЕсли;



		СтрокиТабл = ЗаданиеНаПроизводство.Товары.Добавить();

		СтрокиТабл.Номенклатура = СтрокаТЧ.Номенклатура;

		//СтрокиТабл.Длина = СтрокаТЧ.Длина;

		//СтрокиТабл.Ширина = СтрокаТЧ.Ширина;

		СтрокиТабл.Количество = СтрокаТЧ.Количество;



	КонецЦикла;

       

	ЗаданиеНаПроизводство.Записать(РежимЗаписиДокумента.Запись);



	

	

	Для Каждого СтрокаТЧ Из Товары Цикл

			

		Если СтрокаТЧ.Номенклатура.ВидНоменклатуры <> ЭлементМассива Тогда

			Продолжить;

		КонецЕсли;

		СтрокаТЧ.ЗаданиеНаПроизводство = ЗаданиеНаПроизводство.Ссылка;

		

	КонецЦикла;



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