8.х Документ корректировка долга

УТ 10.3.6.8
Документ создаю внешней обработкой операция списание задолжности, проблема не могу подставить нужный договор подскажите как, и второе как указать Увеличение или Уменьшение долга, таблица одна, помогите разобраться.

Вот обработочка, правда под УТ 10.2, групповое закрытие долгов контрагентов менеджера. РАботает "справка".
Смотри процедуру ЗаказыПокупателейВыбор.

Не много не то что мне нужно, либо я не вижу
делаю создание документов корректировка долга данные берутся из файла ДБФ

Код:

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

ЗапросКонтрагента=Новый Запрос;
ЗапросКонтрагента.УстановитьПараметр("Контрагент", Контрагент);
ЗапросКонтрагента.Текст=

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

Для Каждого Стр Из Результат Цикл
Табл.ДоговорКонтрагента=Стр.Договор;
КонецЦикла;

Табл.Сумма=ФайлВВР.C;
Табл.КурсВзаиморасчетов=1;
Табл.СуммаРегл= Табл.Сумма;
Док.Записать();
Иначе

КонецЕсли;
Иначе
Сообщить ("В справочнике не обнаружено контрагента "+СокрЛП(ФайлВВР.A));
КонецЕсли;
Если НЕ ФайлВВР.ВКонце() Тогда
ФайлВВР.Следующая();//перебираем табличную часть
Иначе Прервать; 
КонецЕсли;
КонецЦикла;

и еще в табл части вообще строка не создается

Код:

Стр=Док.СуммыДолга.Добавить();			
стр.ДоговорКонтрагента = "";
Стр.Сумма=ФайлВВР.C;
Стр.КурсВзаиморасчетов=1;
Стр.СуммаРегл= Стр.Сумма;

почему то строка в табл вообще не добавляется и как программно указать Уменьшение или увеличение долга

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

Какой признак? В 8 у всех контрагентов должен быть договор.