Вывести дополнительную колонку в ТЧ (ошибки)

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

	//НоваяКолонка     = Элементы.Добавить("Комментарии", Тип("ПолеФормы"), Элементы.РаспоряженияНаОтгрузку);
	//НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
	//НоваяКолонка.ПутьКДанным = "Объект.РаспоряженияНаОтгрузку";
	//НоваяКолонка.Заголовок = "Комментарии"      
	

   ИдентификаторСтроки = ЭтаФорма.Элементы.РаспоряженияНаОтгрузку.ТекущаяСтрока;
   Ссылка = Объект.РаспоряженияНаОтгрузку.НайтиПоИдентификатору(ИдентификаторСтроки);


  	Запрос = Новый Запрос;
		Запрос.Текст = 
	"ВЫБРАТЬ
	|	ТоварыКОтгрузкеОбороты.ДокументОтгрузки КАК ДокументОтгрузки,
	|	ТоварыКОтгрузкеОбороты.ДокументОтгрузки.Комментарий КАК ДокументОтгрузкиКомментарий
	|ИЗ
	|	РегистрНакопления.ТоварыКОтгрузке.Обороты КАК ТоварыКОтгрузкеОбороты
	|ГДЕ
	|	ТоварыКОтгрузкеОбороты.ДокументОтгрузки.Ссылка = &Ссылка";  
	
	Запрос.УстановитьПараметр("Ссылка", Ссылка);
    РезультатЗапроса = Запрос.Выполнить();
	РезультатЗапроса.Выбрать();
	
	Для каждого  ТекСтрока Из Объект.РаспоряжениеНаОтгрузку  Цикл
		ТекСтрока.РаспоряженияНаОтгрузкуПоле1 = РезультатЗапроса.Выбрать.ДокументОтгрузкиКомментарий;	
	КонецЦикла; 

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

//НоваяКолонка.ПутьКДанным = "Объект.РаспоряженияНаОтгрузку";