Документ установка цен номенклатуры не делает движений по регистрам

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

	Для Каждого СтрокаТЗ из ТЗ Цикл
		
		Цена = Число(СтрокаТЗ.Цена);
		Если Цена <> 0 Тогда 
			
			Наименование = СтрокаТЗ.Наименование;
			Строка =  НовыйДокумент.Товары.Добавить();
	        Строка.Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Код77", СтрокаТЗ.Код);
			Строка.ВидЦены = ТипЦеныДокумента;
			Строка.Цена = Цена;
			Строка.ЦенаИзмененаВручную = Истина;
			
		КонецЕсли;
	КонецЦикла;              
	
	НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
	Сообщить("Запись проведена");
КонецПроцедуры