0
8troyan8
01.04.12
✎
13:41
|
Здраствуйте ! Подскажите плиз. Хочу зделать отчетик, вобщем-то все работает... но не хочет фильтровать по контрагенту. Может условие неправильное ?
|Условие (Наз в Контрагент);
Процедура Сформировать()
Перем ВыбДата;
Запрос=СоздатьОбъект("Запрос");
мКонтрагент=Контрагент;
ТЗ="
|Период с ВыбДата по ВыбДата1;
|Контр = Регистр.Взаиморасчеты.Контрагент;
|Дог = Регистр.Взаиморасчеты.Договор;
|Сум = Регистр.Взаиморасчеты.Сумма;
|Функция СумКонОст = КонОст(Сум);
|Группировка Контр упорядочить по Контр.Код;
|Условие (Наз в Контрагент);
|";
Если Запрос.Выполнить(ТЗ)=0 Тогда
Сообщить("Запрос не выполнен");
Возврат;
КонецЕсли;
ИтогоМы=0;
ИтогоНам=0;
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Пока Запрос.Группировка("Контр")=1 Цикл
ТЭ=Запрос.Контр;
Долг=Запрос.СумКонОст;
Если ТЭ.ЭтоГруппа()=1 Тогда
НазГр=СокрЛП(ТЭ.Наименование);
Если Долг=0 Тогда
ИначеЕсли Долг>0 Тогда
Мы=Долг;
Нам=0;
ИначеЕсли Долг<0 Тогда
Мы=0;
Нам=-Долг;
КонецЕсли;
Таб.ВывестиСекцию("Группа");
Иначе
Наз="("+СокрЛП(Строка(ТЭ.Код))+") "+СокрЛП(ТЭ.Наименование);
Если Долг=0 Тогда
Продолжить;
ИначеЕсли Долг>0 Тогда
Мы=Долг;
Нам=0;
ИтогоМы=ИтогоМы+Мы;
ИначеЕсли Долг<0 Тогда
Мы=0;
Нам=-Долг;
ИтогоНам=ИтогоНам+Нам;
КонецЕсли;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(1,100,1);
Таб.Показать("");
КонецПроцедуры
|
|