Имя: Пароль:
1C
1C 7.7
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
Спасибо большое ! Заработало ! ))
Я просто новичек еще много нюансов незнаю
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший