ТИС ВЕДОМОСТЬ по контрагентам Суммовая разница!

ну вот к примеру :

Процедура ОплатаОтгрузкиПокупателем(РегВзаим,РегКнига,ТаблДолгов,ТаблИтогов,СписокПогСумм,
ПогаситьУпр,ПогаситьРуб,ПогаситьНП,ПогаситьСебестоимость, ТекДата, ТаблицаОтрицательныхРазниц = "")

СуммаВал = СписокПогСумм.Получить("СуммаВал");
СуммаУпр = СписокПогСумм.Получить("СуммаУпр");
СуммаРуб = СписокПогСумм.Получить("СуммаРуб");
СуммаНП = СписокПогСумм.Получить("СуммаНП");
СуммаНДС = СписокПогСумм.Получить("СуммаНДС");
Себестоимость = СписокПогСумм.Получить("Себестоимость");
Оценка = СписокПогСумм.Получить("ОценкаРуб");

// установим общие для всех движений атрибуты
РегВзаим.СтавкаНП = ТаблИтогов.СтавкаНП;
РегВзаим.ВидДолга = ТаблИтогов.ВидДолга;
РегВзаим.КредДокумент = ТаблИтогов.КредДокумент;
РегВзаим.ДокументОплаты = ТаблДолгов.КредДокумент;
// реквизит
РегВзаим.ДоговорКомитента = "";

СуммРазницаУпр = СуммаУпр - ПогаситьУпр;
СуммРазницаРуб = СуммаРуб - ПогаситьРуб;

// суммовая разница
Если (СуммРазницаУпр<>0) или (СуммРазницаРуб<>0) Тогда

СуммоваяРазницаНДС = глСуммоваяРазницаНДС(ТаблИтогов.КредДокумент.Фирма.ЮрЛицо, ТекДата, СуммРазницаРуб, "Продажа");
Если СуммоваяРазницаНДС<>0 Тогда

ТаблДвижений = СоздатьОбъект("ТаблицаЗначений");
ТаблДвижений.НоваяКолонка ("СтавкаНДС");
ТаблДвижений.НоваяКолонка ("СтавкаНП");
ТаблДвижений.НоваяКолонка ("СуммаРуб");
ТаблДвижений.НоваяКолонка ("СуммаНДС");
ТаблДвижений.НоваяКолонка ("СуммаНП");

ВремКнига = СоздатьОбъект("Регистр.КнигаПродаж");
ВремКнига.ВыбратьДвиженияДокумента(ТаблИтогов.КредДокумент);
Пока ВремКнига.ПолучитьДвижение() = 1 Цикл
Если (ВремКнига.Приход = 1)
и (ВремКнига.КодОперации <> глКО.СуммоваяРазница)
и (ВремКнига.ВидДолга = ТаблИтогов.ВидДолга)
и (ВремКнига.СтавкаНП = ТаблИтогов.СтавкаНП)
Тогда
ТаблДвижений.НоваяСтрока();
ТаблДвижений.СтавкаНДС = ВремКнига.СтавкаНДС;
ТаблДвижений.СтавкаНП = ВремКнига.СтавкаНП;
ТаблДвижений.СуммаРуб = ВремКнига.СуммаРуб;
ТаблДвижений.СуммаНДС = ВремКнига.СуммаНДС;
ТаблДвижений.СуммаНП = ВремКнига.СуммаНП;
КонецЕсли;
КонецЦикла;
КоэффСР = ?(ТаблДвижений.Итог("СуммаРуб") = 0,0,СуммРазницаРуб/ТаблДвижений.Итог("СуммаРуб"));
ОстатокСР = СуммРазницаРуб;

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

// отразим суммовую разницу в книге продаж
// измерения
РегКнига.ВидДолга = ТаблИтогов.ВидДолга;
РегКнига.КредДокумент = ТаблИтогов.КредДокумент;
РегКнига.СтавкаНДС = ТаблДвижений.СтавкаНДС;
// ресурсы
Если ТаблДвижений.НомерСтроки = ТаблДвижений.КоличествоСтрок() Тогда
РегКнига.СуммаРуб = ОстатокСР;
Иначе
РегКнига.СуммаРуб = Окр(ТаблДвижений.СуммаРуб * КоэффСР,2,1);
КонецЕсли;
РегКнига.СуммаНДС = Окр(ТаблДвижений.СуммаНДС * КоэффСР,2,1);
РегКнига.СуммаНП = Окр(ТаблДвижений.СуммаНП * КоэффСР,2,1);

ОстатокСР = ОстатокСР - РегКнига.СуммаРуб;
СуммаНПСР = СуммаНПСР + РегКнига.СуммаНП;

// реквизиты
РегКнига.СтавкаНП = ТаблДвижений.СтавкаНП;
РегКнига.ДокументОплаты = ТаблДолгов.КредДокумент;
РегКнига.КодОперации = глКО.СуммоваяРазница;

УчитыватьНДСПоквартально = РегКнига.КредДокумент.ЮрЛицо.УчитыватьНДСПоквартально.Получить(РегКнига.КредДокумент.ДатаДок);

Если УчитыватьНДСПоквартально = 0 Тогда
ГраницаДопЛиста = НачМесяца(ТекДата);
Иначе
ГраницаДопЛиста = НачКвартала(ТекДата);
КонецЕсли;

// Отрицательные суммовые разницы должны попадать в дополнительный лист, если они возникают в мае 2006 года и позже.
// Если выручка определяется по оплате (остаки с 2005 года), то суммовые разницы попадать в доп.лист не должны
Если (ТекДата >= НачМесяца(глДатаПостановления283)) И (СуммРазницаРуб < 0) И (ГраницаДопЛиста > ?(УчитыватьНДСПоквартально = 1, НачКвартала(РегКнига.КредДокумент.ДатаДок), НачМесяца(РегКнига.КредДокумент.ДатаДок)))
И НЕ((РегКнига.КредДокумент.ДатаДок < глНачало2006года)
И (РегКнига.КредДокумент.ЮрЛицо.МетодОпределенияВыручки.Получить(РегКнига.КредДокумент.ДатаДок) = Перечисление.МетодыОпределенияВыручки.ПоОплате)) Тогда
РегКнига.ЗаписьДополнительногоЛиста = 2;
РегКнига.КорректируемыйПериод = РегКнига.КредДокумент.ДатаДок;
Иначе
РегКнига.ЗаписьДополнительногоЛиста = 0;
РегКнига.КорректируемыйПериод = Дата(0);
КонецЕсли;

РегКнига.ДвижениеПриходВыполнить();

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

ЗапомнимКО = РегВзаим.КодОперации;
РегВзаим.СуммаВал = 0;
РегВзаим.СуммаУпр = СуммРазницаУпр;
РегВзаим.СуммаРуб = СуммРазницаРуб;
РегВзаим.Себестоимость = 0;
РегВзаим.ОценкаРуб = 0;

РегВзаим.КодОперации = глКО.СуммоваяРазница;

РегВзаим.ДвижениеПриходВыполнить();

РегВзаим.КодОперации = ЗапомнимКО; // восстановим исходный КО

КонецЕсли;

// ресурсы
РегВзаим.СуммаВал = СуммаВал;
РегВзаим.СуммаУпр = СуммаУпр; // по тек курсу, т.е. с учетом С.Разн.
РегВзаим.СуммаРуб = СуммаРуб; // по тек курсу, т.е. с учетом С.Разн.
РегВзаим.Себестоимость = ПогаситьСебестоимость;
РегВзаим.ОценкаРуб = Оценка;

РегВзаим.ДвижениеРасходВыполнить();

КонецПроцедуры // ОплатаОтгрузкиПокупателем()