Имя: Пароль:
1C
1C 7.7
v7: Проблема с разбиением по складам в печ форме
0 serg-lom89
 
20.05.13
13:53
Подскажиете пжл,нужно что бы разбивалось по складам на которые поступает.Сразу секция склад а под ним поставщики

у меня что то криво((
   Если Контр.Выбран()=1 Тогда
       ТекстЗапроса = ТекстЗапроса+"
       |Условие(Контр=Контрагент);";
   КонецЕсли;    

   Если ВыбМХ.Выбран()=1 Тогда
       ТекстЗапроса = ТекстЗапроса+"
       |Условие(ВыбМХ=Склад);";
   КонецЕсли;    
   
   Если (Запрос.Выполнить(ТекстЗапроса)=0) Тогда
       Возврат;
   КонецЕсли;
   
   Если Развернуто=0 Тогда
       Таб.ИсходнаяТаблица("Кратко");
       Таб.ПараметрыСтраницы(1,100,,10,10,10,10,,,1);
   Иначе
       Таб.ИсходнаяТаблица("Развернуто");
       Таб.ПараметрыСтраницы(2,100,,10,10,10,10,,,1);
   КонецЕсли;
   Таб.ВывестиСекцию("Шапка");
   ТекСклад="";
   Ном=0;
   Пока Запрос.Группировка("Контрагент")= 1 Цикл  
       Если ТекСклад="" тогда
           ТекСклад=Запрос.Склад;
           Таб.ВывестиСекцию("Склад");
       КонецЕсли;
       Если ТекСклад=Запрос.Склад тогда
           ТекСклад=Запрос.Склад;
           Таб.ВывестиСекцию("Склад");
       КонецЕсли;
       Ном=Ном+1;
       Таб.ВывестиСекцию("Строка");
   КонецЦикла;
   Таб.ВывестиСекцию("Итог");
   
в чем ошибка?
1 Chum
 
20.05.13
13:56
Если ТекСклад=Запрос.Склад тогда
           ТекСклад=Запрос.Склад;


May be:

       Если ТекСклад <> Запрос.Склад тогда
           ТекСклад=Запрос.Склад;
3 aka AMIGO
 
20.05.13
13:58
покажи запрос
а в цикле вначале группировку склад, потом контрагент
в таком-же порядке и группировки в запросе
4 serg-lom89
 
20.05.13
13:58
(1) нет...тогда под каждым МХ идет Контрагент..(скока Конрагентов стока и кладов=))
5 Mikeware
 
20.05.13
14:01
ошибка там же, где и всегда.....
--------
зы. берешь карандаш, листок бумаги, и _выполняешь_ написанный тобой код... как будто компьютер - это ты... и тогда сразу поймешь, что ты сделал неправильно...
6 serg-lom89
 
20.05.13
14:04
|Группировка Склад Упорядочить по Склад.Наименование Без Групп;
       |Группировка Контрагент Упорядочить по Контрагент.Наименование Без Групп;
с запросама не работал так что не знаю..правильно ли ..можно групровать 2 сразу?
7 aka AMIGO
 
20.05.13
14:08
(6) да, порядок правильный
теперь два цикла:
Пока Запрос.Группировка(1)=1 Цикл
...
Пока запрос.Группировка(2)=1 Цикл
...
конецЦикла
КонецЦикла
8 serg-lom89
 
20.05.13
14:28
разобрался.) (7) Спасибо=)
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший