Оплата Поставщики с документов

Процедура СуммаДокументаПриИзменении(Элемент)
    ТЧ.Очистить();
    Если не Контрагент.Пустая() тогда
        запрос=новый запрос;
        запрос.Текст="ВЫБРАТЬ
                     |    ВзаиморасчетыОстатки.Контрагент,
                     |    СУММА(-ВзаиморасчетыОстатки.ДолгОстаток) КАК Долг
                     |ИЗ
                     |    РегистрНакопления.Взаиморасчеты.Остатки(&Дата, Контрагент В ИЕРАРХИИ (&Контрагент)) КАК ВзаиморасчетыОстатки
                     |ГДЕ
                     |    ВзаиморасчетыОстатки.ДолгОстаток < 0
                     |
                     |СГРУППИРОВАТЬ ПО
                     |    ВзаиморасчетыОстатки.Контрагент";
        Запрос.УстановитьПараметр("Дата",Дата);
        Запрос.УстановитьПараметр("Контрагент",Контрагент);
        ОбщаяСумма=СуммаДокумента;
        стр=неопределено;
        выборка=Запрос.Выполнить().Выбрать();
        Пока Выборка.Следующий() цикл
            спесСумма=Мин (ОбщаяСумма,Выборка.долг);
            //////если спесСумма=0 тогда
            //////    прервать;
            //////КонецЕсли;
            ОбщаяСумма=ОбщаяСумма-спесСумма;
            стр=ТЧ.Добавить();
            Стр.Контрагент=Выборка.Контрагент;
            стр.Долг=Выборка.Долг;
            стр.DonBorc=Выборка.Контрагент.DonBorc;
            стр.Сумма=спесСумма;
        КонецЦикла;
        если стр<>неопределено тогда
            стр.Сумма=стр.Сумма+ ОбщаяСумма;
        Конецесли;


    Конецесли;

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