Команда Сформировать Из Ут10 В Ут11

[serq82]

доброе утро!
только начал изучать 1с, в УТ 10 делал документ ЗаданиеНаПроизводство, в ЗаказПокупателя добавлял кнопку СформироватьЗаданиеНаПроизводствоНажатие, вот код

Код Выделить Развернуть

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

Для Каждого СтрокаТЧ Из Товары Цикл
  НайденныйВидПрофиля = МассивВидовПрофилей.Найти(СтрокаТЧ.Номенклатура.ВидПрофиля);
  Если НайденныйВидПрофиля = Неопределено Тогда
   МассивВидовПрофилей.Добавить(СтрокаТЧ.Номенклатура.ВидПрофиля);
  КонецЕсли;
КонецЦикла;

Для Каждого ЭлементМассива Из МассивВидовПрофилей Цикл
  СоздатьДокументЗаданиеНаПроизводство(ЭлементМассива);
КонецЦикла;

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

тут у меня смотря по какой ВидПрофиля для каждого создавался документ ЗаданиеНаПроизводство, ну и сам документ

Код Выделить Развернуть

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

ЗаданиеНаПроизводство = Документы.ЗаданиеНаПроизводство.СоздатьДокумент();
//ЗаданиеНаПроизводство.Номер  = Номер;
ЗаданиеНаПроизводство.Дата = ТекущаяДата();
ЗаданиеНаПроизводство.ДокументОснование  = Ссылка;
ЗаданиеНаПроизводство.ДатаОтгрузки = ДатаОтгрузки;
ЗаданиеНаПроизводство.Контрагент = Контрагент;
//ЗаданиеНаПроизводство.Организация = Организация;
ЗаданиеНаПроизводство.Подразделение = Подразделение;
ЗаданиеНаПроизводство.Комментарий = Комментарий;
Для Каждого СтрокаТЧ Из Товары Цикл

  Если СтрокаТЧ.Номенклатура.ВидПрофиля <> ЭлементМассива Тогда
   Продолжить;
  КонецЕсли;
  СтрокиТабл = ЗаданиеНаПроизводство.Товары.Добавить();
  СтрокиТабл.Номенклатура = СтрокаТЧ.Номенклатура;
  СтрокиТабл.Длина = СтрокаТЧ.Длина;
  СтрокиТабл.Ширина = СтрокаТЧ.Ширина;
  СтрокиТабл.Количество = СтрокаТЧ.Количество;
КонецЦикла;
ЗаданиеНаПроизводство.Записать(РежимЗаписиДокумента.Запись);

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

подскажите как мне теперь все это перенести в УТ 11, в управляемую форму?

[Dethmontt]

Переписать разбивая на директивы компиляции