Редактирование ТТН в конфигураторе (1с 7.7)

Здравствуйте, подскажите, как мне исправить модуль ттн, чтобы выводились полные реквизиты Грузоотправителя и грузополучателя?

//*******************************************
Процедура ПриОткрытии()
//Отменяем стандартную обработку, чтобы не показывать форму
СтатусВозврата(0);

кКонт = Форма.Параметр.Получить("Контекст");

кТаб = СоздатьОбъект("Таблица");
кТаб.ИсходнаяТаблица("1Т");
//Переменные используемые в шапке печформы
ПечДата = кКонт.ДатаДок;
Если кКонт.ВариантОтправки=1 Тогда
ПечГрузоотправитель = Константа.НазваниеОрганизации;
ПечГрузоотправительОКПО = Константа.КодОКПО;
Иначе
ПечГрузоотправитель = кКонт.Грузоотправитель;
ПечГрузоотправительОКПО = кКонт.Грузоотправитель.ОКПО;
КонецЕсли;

Если кКонт.ВариантПолучения=1 Тогда
ПечГрузополучатель =кКонт.Контрагент;
ПечГрузополучательОКПО = кКонт.Контрагент.ОКПО;
Иначе
ПечГрузополучатель = кКонт.Грузополучатель;
ПечГрузополучательОКПО = кКонт.Грузополучатель.ОКПО;
КонецЕсли;

ПечПлательщик = кКонт.Контрагент;
ПечПлательщикОКПО = кКонт.Контрагент.ОКПО;

НомерСтраницы=1;
//Выводим шапку
кТаб.ВывестиСекцию("Шапка");

//Переменные товарного раздела
кТаб.ВывестиСекцию("Заголовок");
кКонт.ВыбратьСтроки();
Пока кКонт.ПолучитьСтроку()=1 Цикл
//Если кТаб.КоличествоСтраниц()>НомерСтраницы Тогда
// НомерСтраницы = кТаб.КоличествоСтраниц();
//КонецЕсли;

Товар = кКонт.Товар;
ПечКоличество = кКонт.Количество;
ПечЦена = кКонт.Цена;
ПечСумма = ПечКоличество*ПечЦена;

кТаб.ВывестиСекцию("Строка");
КонецЦикла;
ПечКоличествоСтрок = кКонт.КоличествоСтрок();

ИтогоСумма = кКонт.Итог("Сумма");

//Выводим секцию подвал
кТаб.ВывестиСекцию("Подвал");

///Оборотная сторона
// ------------------
кТаб.НоваяСтраница();

кТаб.ВывестиСекцию("ТР_Шапка");

кКонт.ВыбратьСтроки();
Пока кКонт.ПолучитьСтроку()=1 Цикл
Товар = кКонт.Товар;

кТаб.ВывестиСекцию("ТР_Строка");
КонецЦикла;
ПечИтогоМасса = кКонт.Итог("Количество");
кТаб.ВывестиСекцию("ТР_Подвал");
кТаб.Опции(0,0);
кТаб.ПараметрыСтраницы(2,,0,0,0,0);
кТаб.ТолькоПросмотр(1);
кТаб.Показать();
КонецПроцедуры

//__________________________________________________ ___________________________

//************************************************** ****************************
// СуммаПрописью(Сумма)
//
// Параметры:
// Сумма - число, на основе которого формируется сумма
//
// Возвращаемое значение:
// Сумма прописью
//
// Описание:
// Формирует сумму прописью в соответствии с файлом прописи, заданным в валюте.

Функция СуммаПрописью(Сумма)
Валюта = Константа.ОсновнаяВалюта;
Если ПустоеЗначение(Валюта) = 0 Тогда

Если ПустоеЗначение(Валюта.ИмяФайлаПрописи) = 1 Тогда
///Предупреждение("Для выбранной валюты не указан файл прописи.");
ИначеЕсли ФС.СуществуетФайл(КаталогИБ()+Валюта.ИмяФайлаПропи си) = 0 Тогда
// Предупреждение("Для выбранной валюты неверно указан файл прописи.");
Иначе
Пропись(КаталогИБ()+Валюта.ИмяФайлаПрописи);
КонецЕсли;

КонецЕсли;

СтрокаСуммы = Формат(Сумма, "ЧПДС");

// установим пропись по умолчанию
Пропись("");
Возврат СтрокаСуммы;

КонецФункции // СуммаПрописью()