Процедура Сформировать()
Перем Пере,Запрос, ТекстЗапроса, Ист;
Т = СоздатьОбъект("ТаблицаЗначений");
Т.НоваяКолонка("Контрагент","Справочник.Контрагенты");
Т.НоваяКолонка("Сумма","Число",15,2);
Т.НоваяКолонка("Ра","Документ.ПлатежноеПоручение");
Ра= СоздатьОбъект("Документ.ПлатежноеПоручение");
Ра.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
Т.Сортировать("Сумма");
i=0;
Пока Ра.ПолучитьДокумент()=1 Цикл
Если ВыбКлиент.Принадлежит(Ра.ТекущийДокумент().Контрагент)=0 Тогда
Продолжить;
КонецЕсли;
Т.НоваяСтрока();
Т.Сортировать("Сумма");
ПечКон= Ра.Контрагент;
ПечСум=Ра.Сумма;
ПечДок=Ра.ТекущийДокумент();
i=i+1;
Таб.ВывестиСекцию("Текущийдокумент");
КонецЦикла;
Таб.Опции(1, 1, 0, 0);
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры