7.7 Не выводится номенклатура

Доброго времени суток! Написал обработку по созданию Заявки покупателя формируемой из буфера обмена с сайта интернет магазина. На форме создал многострочное поле ввода куда вставляются артикулы и количество и ТЗ , все читается и заполняется, только при создании документа Заявки покупателя не заполняется поле номенклатуры, при этом если вызываю Сообщить() то все показывается , а в документе никак. Помогите, что не так ?

Код:

Док	= СоздатьОбъект("Документ.ЗаявкаПокупателя");
Док.Новый();
Док.ВидОперации = Перечисление.ВидыОперацийЗаявок.НаПоставку;
Док.Фирма =НужнаяФирма;
Док.Склад=НужныйСклад;
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Док.НоваяСтрока();
Док.Номенклатура  = Строка(ТЗ.Наимен);
//Док.Номенклатура  = ТЗ.Наимен;
Док.Количество  = ТЗ.Количество;	
Сообщить(ТЗ.Наимен+"__"+ ТЗ.Количество);
КонецЦикла;
Док.Записать();
ОткрытьФормуМодально(Док.ТекущийДокумент()); 

При заполнении ТЗ я нахожу номенклатуру в справочнике :

Код:

Процедура Сформировать()
Ном = СоздатьОбъект("Справочник.Номенклатура");
Для Индекс=1 по СтрКоличествоСтрок(Текст) Цикл
// Разберем строку
СтрТекста = СтрПолучитьСтроку(Текст,Индекс);
СтрТекста  = СтрЗаменить(СтрТекста ," ",РазделительСтрок);
ТЗ.НоваяСтрока();
_Артикул= СтрПолучитьСтроку(СтрТекста,1);
Если Ном.НайтиПоРеквизиту("Артикул",_Артикул,1)=1 Тогда
Наим=Ном.Наименование;
ТЗ.Наимен = Наим;
ТЗ.Количество = СтрПолучитьСтроку(СтрТекста,2);
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Подскажите пожалуйста как из процедуры Сформировать() получить ссылку ?

Спасибо всем, все получилось!