|
v7: Отчетик не фильтрует по контрагенту | ☑ | ||
|---|---|---|---|---|
|
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); Таб.Показать(""); КонецПроцедуры |
|||
|
1
Voronve
01.04.12
✎
13:43
|
|Условие (Наз в Контрагент);
на |Условие (Контр в Контрагент); |
|||
|
2
aka AMIGO
01.04.12
✎
13:45
|
или так:
|Условие (Контр = Контрагент); |
|||
|
3
8troyan8
01.04.12
✎
13:47
|
Спасибо большое ! Заработало ! ))
Я просто новичек еще много нюансов незнаю |
| Форум | Правила | Описание | Секции | Поиск |