Имя: Пароль:
1C
 
Всякая пакость в запрос лезет
0 Pilot
 
19.10.04
14:57
Написал запрос выгружаю его в таблицу на форме и получаю что одна кое какие вещи которых не было выскакивают, и ссылки на документ у них нет, а правильных всех есть (поле Документз-пустое) пачему это происходит.
   Запрос=СоздатьОбъект("Запрос");
   ТекстЗапроса=
   "//{{Запрос(Сформировать)
   |Период с ДатаС по ДатаПо;
   |ОбрабатыватьДокументы Проведенные;
   |ДокАсисноз=Документ.Асисно.ТекущийДокумент;
   |Контраз=Документ.Асисно.Контрагент;
   |ТипСудназ=Документ.Асисно.ТипСудна;
   |ТипРейсаз=Документ.Асисно.ТипРейса;  
   |ВидРейсаз=Документ.Асисно.ВидРейса;
   |Маршрутз=Документ.Асисно.Маршрут;
   |Номз=Документ.Асисно.ТМЦ;    
   |Ставказ=Документ.Асисно.Цена;
   |СумБезНалз=Документ.Асисно.СуммаБезНалогов;
   |НДСз=Документ.Асисно.СуммаНДС;
   |Всегоз=Документ.Асисно.Сумма;    
   |Колз=Документ.Асисно.Количество;
   |Литрыз=Документ.Асисно.Литры;
   |Группировка Контраз;
   |Группировка Маршрутз;
   |Группировка Номз;
//    |Группировка ДокАсисноз;    
//    |Группировка СтрокаДокумента;
   |Функция СумСтавк=Сумма(Ставказ);
   |Функция СумСумБезНал=Сумма(СумБезНалз);
   |Функция СумНДС=Сумма(НДСз);
   |Функция СумВсего=Сумма(Всегоз);
     |Функция СумКол=Сумма(Колз);";    
   Если (Контр.Выбран()=1)И(Контр.ЭтоГруппа()=0) Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Условие (КонтраЗ=Контр);";
   ИначеЕсли Контр.ЭтоГруппа()=1 Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Условие (КонтраЗ в Контр);";
   КонецЕсли;

   Если (ТипРейса.Выбран()=1) Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Условие (ТипРейсаЗ=ТипРейса);";
   КонецЕсли;
   
   Если (ВидРейса.Выбран()=1) Тогда
       ТекстЗапроса=ТекстЗапроса+"
       |Условие (ВидРейсаЗ=ВидРейса);";
   КонецЕсли;    
 
   Если Ном1.Выбран()=1 Тогда
       Если (Ном1.Выбран()=1)И(Ном1.ЭтоГруппа()=0) Тогда
           ТекстЗапроса=ТекстЗапроса+"
           |Условие ((НомЗ=Ном1)";
       ИначеЕсли Ном1.ЭтоГруппа()=1 Тогда
           ТекстЗапроса=ТекстЗапроса+"
           |Условие ((НомЗ в Ном1)";
       КонецЕсли;
       Если (Ном2.Выбран()=1)И(Ном2.ЭтоГруппа()=0) Тогда
           ТекстЗапроса=ТекстЗапроса+" или (НомЗ=Ном2)";
       ИначеЕсли Ном2.ЭтоГруппа()=1 Тогда
           ТекстЗапроса=ТекстЗапроса+" или (НомЗ в Ном2)";
       КонецЕсли;
   
       Если (Ном3.Выбран()=1)И(Ном3.ЭтоГруппа()=0) Тогда
           ТекстЗапроса=ТекстЗапроса+"или (НомЗ=Ном3)";
       ИначеЕсли Ном3.ЭтоГруппа()=1 Тогда
           ТекстЗапроса=ТекстЗапроса+"или (НомЗ в Ном3)";
       КонецЕсли;
   
       Если (Ном4.Выбран()=1)И(Ном4.ЭтоГруппа()=0) Тогда
           ТекстЗапроса=ТекстЗапроса+"или (НомЗ=Ном4)";
       ИначеЕсли Ном4.ЭтоГруппа()=1 Тогда
           ТекстЗапроса=ТекстЗапроса+"или (НомЗ в Ном4)";
       КонецЕсли;
       ТекстЗапроса=ТекстЗапроса+");";
   КонецЕсли;
       ТекстЗапроса=ТекстЗапроса+"
   |"//}}Запрос
   ;
   Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
       Возврат;
   КонецЕсли;    
   
   Если Запрос.Выгрузить(ТабЗначен,3,1)=0 тогда
       Сообщить("Жопа");
   КонецЕсли;
1 SnarkHunter
 
19.10.04
15:01
"Написал запрос выгружаю его в таблицу на форме и получаю что одна кое какие вещи которых не было выскакивают, и ссылки на документ у них нет, а правильных всех есть (поле Документз-пустое) пачему это происходит. " - вот это шедевр...
2 France
 
19.10.04
15:02
(0) если убрать вторую снизу строку, все заработает..
3 pauls
 
19.10.04
15:31
(2) LOL
(0) Чего-то "тяжеловатый" запрос какой-то, ИМХО все на самом деле проще
4 Pilot
 
20.10.04
06:12
Чо блин никто подсказать ламеру не может, не фиг смеяться. Ну не втыкаюсь я как запрос формируется, ну подскажите чего там творится. И кстати нужны ли группировки по документам и строкам документов?
5 Фокусник
 
20.10.04
08:07
Перед Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда вставь Сообщить(ТекстЗапроса) и кинь то что вывелось сюда, а то эти твои условия разгрeбать не охота.
6 SKrin
 
20.10.04
08:14
выгрузи его в таблицу и открой в форме
7 SnarkHunter
 
20.10.04
08:23
(6)А он что делает? Цитата: "Написал запрос выгружаю его в таблицу на форме"...
8 pauls
 
20.10.04
09:26
(7) Куйню он делает, бред какой-то...
9 SnarkHunter
 
20.10.04
09:40
Согласен...
10 Pilot
 
20.10.04
11:14
Сам уже разобрался.
11 pauls
 
20.10.04
11:16
(10) А где спасибо? :)
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.