v8.2 УП: Битая Ссыль как решить ????

 Процедура ОбработкаПроведения(Отказ, РежимПроведения)
	Если ЗначениеНеЗаполнено(ДатаВступления) Тогда
		Предупреждение("Не заполнена дата вступления приказа на стоимость обучения. Проведение документа отменено");
		Отказ = Истина;
		Возврат;
	КонецЕсли;
			
	Для каждого Строка из Товары  Цикл
		
		Если ЗначениеНеЗаполнено(ВУЗ) или ЗначениеНеЗаполнено(Строка.ПрограммаОбучения) или ЗначениеНеЗаполнено(Строка.ФормаОбучения) или ЗначениеНеЗаполнено(Строка.Специальность)
			или ЗначениеНеЗаполнено(Строка.Сумма)  или ЗначениеНеЗаполнено(Строка.Валюта) или ЗначениеНеЗаполнено(Строка.ПериодичностьОплаты) Тогда 
			Предупреждение("В строке "+Строка.НомерСтроки+" не установлены все реквизиты для установки стоимости обучения");
			Если ЭтотОбъект.Проведен Тогда
			    ЭтотОбъект.Проведен = Ложь;
			    ЭтотОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
			КонецЕсли;	
			Прервать;
		КонецЕсли;	
		
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
		|	ПриказПоСтоимостиОбучения.Ссылка,
		|	ПриказПоСтоимостиОбучения.Товары.(
		|		Справочник
		|	),
		|	СтоимостьОбучения.Ссылка КАК СсылкаСправочник
		|ИЗ
		|	Документ.ПриказПоСтоимостиОбучения КАК ПриказПоСтоимостиОбучения
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СтоимостьОбучения КАК СтоимостьОбучения
		|		ПО ПриказПоСтоимостиОбучения.Товары.Справочник = СтоимостьОбучения.Ссылка	
		|ГДЕ
		|	СтоимостьОбучения.ВУЗ = &ВУЗ
		|	И СтоимостьОбучения.ФормаОбучения = &ФормаОбучения
		|	И СтоимостьОбучения.ПрограммаОбучения = &ПрограммаОбучения
		|	И СтоимостьОбучения.Специальность = &Специальность
		|	И СтоимостьОбучения.ДатаВступления = &Дата";
		
		Запрос.УстановитьПараметр("ВУЗ", ВУЗ);
		Запрос.УстановитьПараметр("ФормаОбучения",Строка.ФормаОбучения);
		Запрос.УстановитьПараметр("ПрограммаОбучения", Строка.ПрограммаОбучения);
		Запрос.УстановитьПараметр("Специальность", Строка.Специальность);
		Запрос.УстановитьПараметр("Дата", ДатаВступления);
		
		Результат = Запрос.Выполнить();
		Выборка = Результат.Выбрать();
		
		Если Выборка.Следующий() Тогда
			СправочникСсылка = Выборка.СсылкаСправочник.ПолучитьОбъект();
		Иначе
			СправочникСсылка = Справочники.СтоимостьОбучения.СоздатьЭлемент();
		КонецЕсли;
		
		СправочникСсылка.ВУЗ = ВУЗ;
		СправочникСсылка.ФормаОбучения = Строка.ФормаОбучения;
		СправочникСсылка.ПрограммаОбучения = Строка.ПрограммаОбучения;
		СправочникСсылка.Специальность = Строка.Специальность;
		СправочникСсылка.Сумма = Строка.Сумма;
		СправочникСсылка.Валюта = Строка.Валюта;
		СправочникСсылка.ПериодичностьОплаты = Строка.ПериодичностьОплаты;
		СправочникСсылка.НомерПриказа = НомерПриказа;
		СправочникСсылка.ДатаВступления = ДатаВступления;
		СправочникСсылка.Наименование = СокрЛП(Строка.ПрограммаОбучения)+" "+СокрЛП(Строка.Специальность)+" "+СокрЛП(Строка.ФормаОбучения)+" "+СокрЛП(ВУЗ)+" "+Формат(ДатаВступления, "ДФ=dd.MM.yyyy");
		СправочникСсылка.Записать();
		Строка.Справочник = СправочникСсылка.Ссылка;
		
		//Запись истории номенклатуры
		Запрос2 = Новый Запрос;
		Запрос2.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
		|	Номенклатура.Ссылка
		|ИЗ
		|	Справочник.Номенклатура КАК Номенклатура
		|ГДЕ
		|	Номенклатура.Группы.ПрограммаОбучения = &ПрограммаОбучения
		|	И Номенклатура.Группы.ВУЗ = &ВУЗ
		|	И Номенклатура.Группы.ФормаОбучения = &ФормаОбучения
		|	И Номенклатура.Группы.Специальность = &Специальность";
		
		Запрос2.УстановитьПараметр("ВУЗ", ВУЗ);
		Запрос2.УстановитьПараметр("ПрограммаОбучения", Строка.ПрограммаОбучения);
		Запрос2.УстановитьПараметр("ФормаОбучения", Строка.ФормаОбучения);
		Запрос2.УстановитьПараметр("Специальность", Строка.Специальность);
		
		Результат = Запрос2.Выполнить();
		НоменклатураВыборка = Результат.Выбрать();
		
		Пока НоменклатураВыборка.Следующий() Цикл
			
			
			ПолеТаблица = Новый ТаблицаЗначений;
			
			ПолеТаблица.Колонки.Добавить("ДатаВступления");
			ПолеТаблица.Колонки.Добавить("Валюта");
			ПолеТаблица.Колонки.Добавить("Сумма");
			Запрос = Новый Запрос;
			Запрос.Текст = "ВЫБРАТЬ
			|	СтоимостьОбучения.Ссылка,
			|	СтоимостьОбучения.ВУЗ,
			|	СтоимостьОбучения.ФормаОбучения,
			|	СтоимостьОбучения.ПрограммаОбучения,
			|	СтоимостьОбучения.Специальность,
			|	СтоимостьОбучения.Сумма,
			|	СтоимостьОбучения.Валюта,
			|	СтоимостьОбучения.ПериодичностьОплаты,
			|	СтоимостьОбучения.Номенклатура,
			|	СтоимостьОбучения.НомерПриказа,
			|	СтоимостьОбучения.ДатаВступления
			|ИЗ
			|	Справочник.СтоимостьОбучения КАК СтоимостьОбучения
			|ГДЕ
			|	СтоимостьОбучения.ВУЗ = &ВУЗ
			|	И СтоимостьОбучения.ФормаОбучения = &ФормаОбучения
			|	И СтоимостьОбучения.ПрограммаОбучения = &ПрограммаОбучения
			|	И СтоимостьОбучения.Специальность = &Специальность";
			
			
			Запрос.УстановитьПараметр("ВУЗ", ВУЗ);
			Запрос.УстановитьПараметр("ПрограммаОбучения", Строка.ПрограммаОбучения);
			Запрос.УстановитьПараметр("ФормаОбучения", Строка.ФормаОбучения);
			Запрос.УстановитьПараметр("Специальность", Строка.Специальность);
			
			Результат = Запрос.Выполнить();
			Выборка = Результат.Выбрать();
			Если Выборка.Количество() = 0 Тогда
				
				Продолжить;
			КонецЕсли;
			Пока Выборка.Следующий() Цикл
				НоваяСтрока = ПолеТаблица.Добавить();
				НоваяСтрока.ДатаВступления = Выборка.ДатаВступления;
				НоваяСтрока.Валюта = Выборка.Валюта;
				НоваяСтрока.Сумма = Выборка.Сумма;
			КонецЦикла;	
			Для каждого СтрокаСтоимости из ПолеТаблица Цикл
				НоваяДата = СтрокаСтоимости.ДатаВступления;
				НоваяВалюта = СтрокаСтоимости.Валюта;
				НоваяСумма = СтрокаСтоимости.Сумма;
				
				Запрос1 = Новый Запрос;
				Запрос1.Текст = "ВЫБРАТЬ
				|	ЦеныНоменклатуры.Период КАК Период,
				|	ЦеныНоменклатуры.Регистратор,
				|	ЦеныНоменклатуры.Номенклатура,
				|	ЦеныНоменклатуры.Валюта,
				|	ЦеныНоменклатуры.Цена,
				|	ЦеныНоменклатуры.ТипЦен
				|ИЗ
				|	РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры
				|ГДЕ
				|	ЦеныНоменклатуры.Период = &Дата
				|	И ЦеныНоменклатуры.Валюта = &Валюта
				|	И ЦеныНоменклатуры.Цена = &Сумма
				|	И ЦеныНоменклатуры.Номенклатура = &Номенклатура";
				
				Запрос1.УстановитьПараметр("Номенклатура", НоменклатураВыборка.Ссылка);
				Запрос1.УстановитьПараметр("Дата", НоваяДата);
				Запрос1.УстановитьПараметр("Валюта", НоваяВалюта);
				Запрос1.УстановитьПараметр("Сумма", НоваяСумма);
				
				Результат = Запрос1.Выполнить();
				Выборка = Результат.Выбрать();
				Если Выборка.Количество() = 0 Тогда		
					ПерСтоим =  Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
					ПерСтоим.Дата = НоваяДата;
					
					Если НоваяВалюта.Пустая() Тогда
						Сообщить("Не установлена валюта стоимости. Принята валюта руб!");
						НоваяВалюта = Справочники.Валюты.НайтиПоКоду("810"); 
						СпрЦенТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в РУБ");
						СпрСтоимТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в РУБ");
					КонецЕсли;
					СпрСтоимВалюта = НоваяВалюта.Ссылка; 
					Если Найти(ВРег(НоваяВалюта), "РУБ") <> 0 Тогда
						СпрСтоимТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в РУБ");
						СпрЦенТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в РУБ");
					ИначеЕсли Найти(ВРег(НоваяВалюта), "USD") <> 0  Тогда
						СпрСтоимТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в USD");
						СпрЦенТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в USD");
					ИначеЕсли Найти(ВРег(НоваяВалюта), "УЕ") <> 0 Тогда
						СпрСтоимТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в УЕ");
						СпрЦенТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основной в УЕ");
					КонецЕсли;
					СпрСтоимЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("год");
					СпрСтоим = ПерСтоим.Товары.Добавить();   
					СпрЦен = ПерСтоим.ТипыЦен.Добавить();
					СпрЦен.ТипЦен = СпрЦенТипЦен;
					СпрСтоим.ТипЦен = СпрСтоимТипЦен;
					СпрСтоим.Цена = НоваяСумма;
					СпрСтоим.Валюта = СпрСтоимВалюта;
					СпрСтоим.ЕдиницаИзмерения = СпрСтоимЕдиницаИзмерения;
					СпрСтоим.Номенклатура = НоменклатураВыборка.Ссылка;
					Попытка
						ПерСтоим.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
						Сообщить("Создан документ "+СокрЛП(ПерСтоим)+" для записи истории номенклатуры!");
					Исключение
						Сообщить("Документ установки цен номенклатуры с такими параметрами уже существует");
					КонецПопытки;
				КонецЕсли;
			КонецЦикла;
			
		КонецЦикла;
	КонецЦикла;
	ЭтотОбъект.Записать(РежимЗаписиДокумента.Запись);
	
КонецПроцедуры
Проблема при записи справочника изза этого не могу идти далее   

 ЭтотОбъект.Записать(РежимЗаписиДокумента.Запись);