Процедура ОбработкаПроведения()
    тз = СоздатьОбъект("ТаблицаЗначений");
    тз.НоваяКолонка("Фирма");
    тз.НоваяКолонка("Контрагент");
    тз.НоваяКолонка("Договор");
    тз.НоваяКолонка("СтавкаНДС");
    тз.НоваяКолонка("Счет");
    тз.НоваяКолонка("КредДокумент");
    тз.НоваяКолонка("Валюта");
    тз.НоваяКолонка("Долг");
    тз.НоваяКолонка("ДолгОсн");
    тз.НоваяКолонка("КодОперации");
    тз.НоваяКолонка("СуммаСНДС_НУ");
    тз.НоваяКолонка("НДС");
    тз.НоваяКолонка("Флаг_НУ");
    
    ВремРегистры = СоздатьОбъект("Регистры");
    РегистрВзаиморасчетов = ВремРегистры.ВзаиморасчетыПоставщиков;
    РегистрВзаиморасчетов.ВыбратьДвиженияДокумента(Документ);
    Пока РегистрВзаиморасчетов.ПолучитьДвижение() = 1 Цикл
        тз.НоваяСтрока();
        тз.Фирма = РегистрВзаиморасчетов.Фирма;
        тз.Контрагент = РегистрВзаиморасчетов.Контрагент;
        тз.Договор = РегистрВзаиморасчетов.Договор;
        тз.СтавкаНДС = РегистрВзаиморасчетов.СтавкаНДС;
        тз.Счет = РегистрВзаиморасчетов.Счет;
        тз.КредДокумент = РегистрВзаиморасчетов.КредДокумент;
        тз.Валюта = РегистрВзаиморасчетов.Валюта;
        тз.Долг = РегистрВзаиморасчетов.Долг;
        тз.ДолгОсн = РегистрВзаиморасчетов.ДолгОсн;
        тз.КодОперации = РегистрВзаиморасчетов.КодОперации;
        тз.СуммаСНДС_НУ = РегистрВзаиморасчетов.СуммаСНДС_НУ;
        тз.НДС = РегистрВзаиморасчетов.НДС;
        тз.Флаг_НУ = РегистрВзаиморасчетов.Флаг_НУ;
    КонецЦикла;
    
    НомерСтроки = 1;
    ПогашаемаяСумма = Сумма;
    
    РегистрВзаиморасчетовДвижения = ВремРегистры.ВзаиморасчетыПоставщиков;
    тз.ВыбратьСтроки();
    
    Пока тз.ПолучитьСтроку() = 1 Цикл
        РегистрВзаиморасчетовДвижения.ПривязыватьСтроку(НомерСтроки);
        РегистрВзаиморасчетовДвижения.Фирма    = тз.Фирма;
        РегистрВзаиморасчетовДвижения.Контрагент = тз.Контрагент;
        РегистрВзаиморасчетовДвижения.Договор = тз.Договор;
        РегистрВзаиморасчетовДвижения.СтавкаНДС = тз.СтавкаНДС;
        РегистрВзаиморасчетовДвижения.Счет = тз.Счет;
        РегистрВзаиморасчетовДвижения.КредДокумент = тз.КредДокумент;
        РегистрВзаиморасчетовДвижения.Валюта = тз.Валюта;
        РегистрВзаиморасчетовДвижения.Долг = Мин(ПогашаемаяСумма, тз.СуммаСНДС);
        РегистрВзаиморасчетовДвижения.ДолгОсн = Мин(ПогашаемаяСумма, тз.СуммаСНДСОсн);
        РегистрВзаиморасчетовДвижения.КодОперации = тз.КодОперации;
        РегистрВзаиморасчетовДвижения.Флаг_НУ = тз.Флаг_НУ;  
        Если тз.Флаг_НУ = 1 Тогда
            РегистрВзаиморасчетов.СуммаСНДС_НУ = Мин(ПогашаемаяСумма, тз.СуммаСНДС_НУ);
        КонецЕсли;
        РегистрВзаиморасчетов.НДС = Мин(ПогашаемаяСумма * 0.2, тз.НДС);
        РегистрВзаиморасчетов.ДвижениеПриходВыполнить();
        ПогашаемаяСумма = ПогашаемаяСумма - Мин(ПогашаемаяСумма, тз.СуммаСНДС);
        Если ПогашаемаяСумма = 0 Тогда
            Прервать;
        КонецЕсли;
        НомерСтроки = НомерСтроки + 1;
    КонецЦикла;
КонецПроцедуры

РегистрВзаиморасчетовДвижения.Фирма    = тз.Фирма;

ВремРегистры = СоздатьОбъект("Регистры");
РегистрВзаиморасчетовДвижения = ВремРегистры.ВзаиморасчетыПоставщиков;

РегистрВзаиморасчетовДвижения = Регистр.ВзаиморасчетыПоставщиков;