v7: Взаиморасчеты с Контрагентами(Комплексная)

Есть реализация+оплата(по одному и тому же договору),но почему то все равно висят долги по этим реализации:
http://clip2net.com/s/2mMQw
http://clip2net.com/s/2mMRG

Стандартный отчет по Ведомость по контрагенту допилен только здесь:
Если НазваниеГруппировки = "КредДокумент" Тогда
Если (Долги.ПолучитьЗначение(Долги.ТекущаяСтрока()) = "только контрагентов") и (Группировки.Пометка(9)=1) и (ТолькоНезакрытые=1) Тогда
Если (Запрос.КонОст <= 0) И (Запрос.КонОстП <= 0) Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Тестирование

Если Ном>= НомерГруппировкиПоКонтрагенту Тогда
ПредставлениеДолга = Долги.ПолучитьЗначение(Долги.ТекущаяСтрока());
Если ПредставлениеДолга = "только контрагентов" Тогда
Если Просроченные = 1 Тогда
Если (Запрос.КонОстП <= 0) и (НазваниеГруппировки <> "Документ") Тогда
Продолжить;
КонецЕсли;

Если (ПросроченоБолееДней=1) и (Ном = НомерГруппировкиПоКредДокументу) и
((Запрос.КредДокумент.Вид()="Реализация") или
(Запрос.КредДокумент.Вид()="РеализацияПрочее") или
(Запрос.КредДокумент.Вид()="РеализацияРозница") или
(Запрос.КредДокумент.Вид()="ОтчетКомиссионера") или
(Запрос.КредДокумент.Вид()="ВводОстатковПокупателя")) Тогда
ПечДолг3 = ДатаКонца - Запрос.КредДокумент.ДатаОплаты;
Если ПечДолг3<=ПросроченоДней Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли ПредставлениеДолга = "только наши" Тогда

Вся процедура

Процедура ВывестиГруппировку(Запрос,Ном)

Если Ном <= КоличествоГруппировок Тогда

СтрДолги = Долги.ПолучитьЗначение(Долги.ТекущаяСтрока());
НазваниеГруппировки = СписокГруппировок.ПолучитьЗначение(Ном);
Если НазваниеГруппировки = "Документ" Тогда
ТекОст = Запрос.НачОст;
ТекОстВ = Запрос.НачОстВ;
Если СтрДолги <> "все" Тогда
ТЗОстатков = СоздатьОбъект("ТаблицаЗначений");
ТЗОстатков.НоваяКолонка("ДатаОплаты", "Дата");
ТЗОстатков.НоваяКолонка("Долг", "Число");
ТЗОстатков.НоваяКолонка("ДолгВ", "Число");
КонецЕсли;
КонецЕсли;

Пока Запрос.Группировка(Ном) = 1 Цикл

Если НазваниеГруппировки = "Контрагент" Тогда
ПредставлениеДолга = Долги.ПолучитьЗначение(Долги.ТекущаяСтрока());
Если ПредставлениеДолга = "только контрагентов" Тогда
Если (Запрос.КонОст <= 0) И (Запрос.КонОстП <= 0) Тогда
Продолжить;
КонецЕсли;
ИначеЕсли ПредставлениеДолга = "только наши" Тогда
Если (Запрос.КонОст >= 0) И (Запрос.КонОстП >= 0) Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;

// Тестирование
Если НазваниеГруппировки = "КредДокумент" Тогда
Если (Долги.ПолучитьЗначение(Долги.ТекущаяСтрока()) = "только контрагентов") и (Группировки.Пометка(9)=1) и (ТолькоНезакрытые=1) Тогда
Если (Запрос.КонОст <= 0) И (Запрос.КонОстП <= 0) Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Тестирование

Если Ном>= НомерГруппировкиПоКонтрагенту Тогда
ПредставлениеДолга = Долги.ПолучитьЗначение(Долги.ТекущаяСтрока());
Если ПредставлениеДолга = "только контрагентов" Тогда
Если Просроченные = 1 Тогда
Если (Запрос.КонОстП <= 0) и (НазваниеГруппировки <> "Документ") Тогда
Продолжить;
КонецЕсли;

Если (ПросроченоБолееДней=1) и (Ном = НомерГруппировкиПоКредДокументу) и
((Запрос.КредДокумент.Вид()="Реализация") или
(Запрос.КредДокумент.Вид()="РеализацияПрочее") или
(Запрос.КредДокумент.Вид()="РеализацияРозница") или
(Запрос.КредДокумент.Вид()="ОтчетКомиссионера") или
(Запрос.КредДокумент.Вид()="ВводОстатковПокупателя")) Тогда
ПечДолг3 = ДатаКонца - Запрос.КредДокумент.ДатаОплаты;
Если ПечДолг3<=ПросроченоДней Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли ПредставлениеДолга = "только наши" Тогда
Если Просроченные = 1 Тогда
Если (Запрос.КонОстП >= 0) и (НазваниеГруппировки <> "Документ") Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если НазваниеГруппировки = "Документ" Тогда
НазваниеСекции="Документ";
Иначе
НазваниеСекции="Строка"+Ном;
КонецЕсли;

Если (НазваниеГруппировки = "Контрагент") И (Запрос.ЭтоГруппа(НазваниеГруппировки) = 1) Тогда
НазваниеСекции = НазваниеСекции + "Г";
КонецЕсли;

Если (Ном >= НомерГруппировкиПоДоговору) Тогда
Если Запрос.Договор.ВалютаВзаиморасчетов<>ВалютаОтчета Тогда
НазваниеСекции = НазваниеСекции + "В";
КонецЕсли;
КонецЕсли;

ПечТекстСтроки = Запрос.ПолучитьАтрибут(НазваниеГруппировки);
Если (ТипЗначенияСтр(ПечТекстСтроки) = "Документ") или
(ТипЗначенияСтр(ПечТекстСтроки) = "Справочник") Тогда
ТекРасшифровка = ПечТекстСтроки;
Иначе
ТекРасшифровка = "";
КонецЕсли;
ПечТекстСтроки = ?(ПустоеЗначение(ПечТекстСтроки)=1,глПредставлениеПустогоЗначения(НазваниеГруппировки),ПечТекстСтроки);

Если НазваниеГруппировки = "Договор" Тогда
ПечТекстСтроки = "" + ПечТекстСтроки + " ("+Строка(ПечТекстСтроки.ГлубинаКредита)+" дн.)";
КонецЕсли;

Если (НазваниеГруппировки = "Договор") и (Ном < НомерГруппировкиПоКонтрагенту) Тогда
ПечТекстСтроки = ""+СокрП(ТекРасшифровка.Владелец.Наименование)+"; "+ПечТекстСтроки;
ИначеЕсли НазваниеГруппировки = "Документ" Тогда
ПечТекстСтроки = ""+глПредставлениеДокумента(ПечТекстСтроки)+
" (" + СокрЛП(глИнформацияПоДокументуВЖурнале(ПечТекстСтроки)) + ")"+?(СокрЛП(ПечТекстСтроки.Комментарий)="",""," ("+СокрЛП(ПечТекстСтроки.Комментарий)+")");
ИначеЕсли НазваниеГруппировки = "КредДокумент" Тогда
ПечТекстСтроки = глПредставлениеДокумента(ПечТекстСтроки)+
" (" + СокрЛП(глИнформацияПоДокументуВЖурнале(ПечТекстСтроки)) + ")"+?(СокрЛП(ПечТекстСтроки.Комментарий)="",""," ("+СокрЛП(ПечТекстСтроки.Комментарий)+")");
КонецЕсли;

Если НазваниеГруппировки = "Документ" Тогда
ПечатьСтрокиДокумента(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка,ТекОст,ТекОстВ);
Иначе
ПечатьСтроки(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка);
КонецЕсли;

// если есть более детальная группировка - выведем ее
Если КоличествоГруппировок > Ном Тогда
ВывестиГруппировку(Запрос,Ном+1);
КонецЕсли;

КонецЦикла;
КонецЕсли;

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