как сделать пере заполнение документа?

добрый день

для создание документа делаю так

Процедура СоздатьРеализациюНажатие(Элемент)
// Вставить содержимое обработчика.

Если ПустаяСтрока(НН_РеализацияТоваровУслуг)=0 Тогда
Предупреждение("Для данного дкумента уже есть отгрузка товаров, на одну завку ОДИН документ отгрузки товаров "+НН_РеализацияТоваровУслуг, 30);
Возврат;
Иначе
Записать();
//Попытка
// НачатьТранзакцию();
ДокОтгрузка =Документы.РеализацияТоваровУслуг.СоздатьДокумент();
// // Заполнение шапки
ДокОтгрузка.Дата = Дата;
ДокОтгрузка.Грузополучатель = Грузополучатель;
ДокОтгрузка.АдресДоставки = АдресДоставки;
ДокОтгрузка.ВалютаДокумента = ВалютаДокумента;
ДокОтгрузка.ДоговорКонтрагента = ДоговорКонтрагента;
ДокОтгрузка.Комментарий = Комментарий;
ДокОтгрузка.Контрагент = Контрагент;
ДокОтгрузка.КратностьВзаиморасчетов = КратностьВзаиморасчетов;
ДокОтгрузка.КурсВзаиморасчетов = КурсВзаиморасчетов;
ДокОтгрузка.Организация = Организация;
ДокОтгрузка.Ответственный = Ответственный;
ДокОтгрузка.Склад = Склад;
ДокОтгрузка.СуммаВключаетНДС = СуммаВключаетНДС;
ДокОтгрузка.СуммаДокумента = СуммаДокумента;
ДокОтгрузка.ТипЦен = ТипЦен;
ДокОтгрузка.УчитыватьНДС = УчитыватьНДС;
ДокОтгрузка.БанковскийСчетОрганизации = СтруктурнаяЕдиница;
ДокОтгрузка.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
ДокОтгрузка.СчетУчетаРасчетовСКонтрагентом = Планысчетов.Хозрасчетный.РасчетыСПокупателями;
ДокОтгрузка.СчетУчетаРасчетовПоАвансам = Планысчетов.Хозрасчетный.РасчетыПоАвансамПолученным;
ДокОтгрузка.НН_НомерЗаказа = СокрЛП(НомерЗаявки);
ДокОтгрузка.КоличествоПалетов = КоличествоПалетов;
ДокОтгрузка.ВидПередачи = Перечисления.ВидыПередачиТоваров.СоСклада;

Для Каждого ТекСтрокаТовары Из Товары Цикл
НоваяСтрока = ДокОтгрузка.Товары.Добавить();
НоваяСтрока.ЕдиницаИзмеренияМест = ТекСтрокаТовары.ЕдиницаИзмеренияМест;
НоваяСтрока.ЗначениеУсловияАвтоматическойСкидки = ТекСтрокаТовары.ЗначениеУсловияАвтоматическойСкидки;
НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
НоваяСтрока.КоличествоМест = ТекСтрокаТовары.КоличествоМест;
НоваяСтрока.Коэффициент = ТекСтрокаТовары.Коэффициент;
НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
НоваяСтрока.ПроцентАвтоматическихСкидок = ТекСтрокаТовары.ПроцентАвтоматическихСкидок;
НоваяСтрока.ПроцентСкидкиНаценки = ТекСтрокаТовары.ПроцентСкидкиНаценки;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
НоваяСтрока.СтавкаНДС = ТекСтрокаТовары.СтавкаНДС;
НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
НоваяСтрока.СуммаНДС = ТекСтрокаТовары.СуммаНДС;

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

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

а как сделать чтобы этот документ пере заполнить?