Переключение на Главную Страницу Страницы: 1 2 [3] 4 5  ОтправитьПечать
Очень популярная тема (более 25 ответов) ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !? (число прочтений - 20094 )
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #30 - 02. Апреля 2013 :: 09:08
Печать  
leshik писал(а) 02. Апреля 2013 :: 08:56:
Я вот смотрю на автора и думаю - почему же отказался от предложения переписать отчет с 0?
Аудитория - есть варианты?

А кто отказывался ?! Можем начать прямо сейчас  Класс
п.с. В личку не заглядываешь ?
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #31 - 02. Апреля 2013 :: 09:13
Печать  
Eprst писал(а) 02. Апреля 2013 :: 08:54:
Круто конечно, в создаваемой табличке в скуле пытаться столбцы типизировать

Мы не ищем легких путей ))
Я мягкой точкой чуствую, что надо половину ТЗ-шек убрать, но чем их заменить не знаю
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
leshik
1c++ donor
Отсутствует



Сообщений: 820
Местоположение: Пятигорск
Зарегистрирован: 22. Апреля 2007
Пол: Мужской
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #32 - 02. Апреля 2013 :: 09:16
Печать  
Неа не заглядываю Улыбка
Выхи сложновато - а вот по будням вечером это дааа...

GandolF писал(а) 02. Апреля 2013 :: 09:08:
leshik писал(а) 02. Апреля 2013 :: 08:56:
Я вот смотрю на автора и думаю - почему же отказался от предложения переписать отчет с 0?
Аудитория - есть варианты?

А кто отказывался ?! Можем начать прямо сейчас  Класс
п.с. В личку не заглядываешь ?

  
Наверх
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #33 - 02. Апреля 2013 :: 09:57
Печать  
leshik писал(а) 02. Апреля 2013 :: 09:16:
вот по будням вечером это дааа...

У меня дома  инет отключили  Со сжатыми губами
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #34 - 02. Апреля 2013 :: 11:11
Печать  
Не ну, что за черный вторник  Нерешительный
Вчера работал, а сегодня:
Meta name parser error: не указан параметр ":НачДата"
при том что
Код
Выбрать все
Запрос.УстановитьТекстовыйПараметр("НачДата", ДатаНачала);
Запрос.УстановитьТекстовыйПараметр("КонДата", ДатаКонца);
ТекстЗапроса = "
|SELECT
 .....
|FROM
|	$Документ.РеализацияЗаМесяц AS Док (NOLOCK)
 .....
|WHERE
|	Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
|	Жур.Closed & 1 = 1
|"; 


Кто-нибудь понимает, почему он параметр НачДата не видит ?
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
trad
1c++ power user
1c++ donor
1c++ moderator
Отсутствует



Сообщений: 3046
Местоположение: Киров
Зарегистрирован: 23. Мая 2006
Пол: Мужской
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #35 - 02. Апреля 2013 :: 13:25
Печать  
либо объект Запрос не тот, либо выполняется другой запрос перед указанным
  

1&&2&&3
Наверх
 
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #36 - 03. Апреля 2013 :: 06:07
Печать  
trad писал(а) 02. Апреля 2013 :: 13:25:
либо объект Запрос не тот, либо выполняется другой запрос перед указанным

текст модуля:
Код
Выбрать все
Запрос=СоздатьОбъект("ODBCRecordset");
Запрос.УстановитьТекстовыйПараметр("НачДата", ДатаНачала);
Запрос.УстановитьТекстовыйПараметр("КонДата", ДатаКонца);
ТекстЗапроса = "
|SELECT
 .....
|FROM
|	$Документ.РеализацияЗаМесяц AS Док (NOLOCK)
 .....
|WHERE
|	Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
|	Жур.Closed & 1 = 1
|";  


Как он может быть НЕ ТОТ ?

п.с. который день на форуме и создается впечатление, что участники кроме переливания воды в корыто больше ничего и предложить-то не могут... В чем проблема: не понятен вопрос? не хватает навыков? или просто лень?
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
trad
1c++ power user
1c++ donor
1c++ moderator
Отсутствует



Сообщений: 3046
Местоположение: Киров
Зарегистрирован: 23. Мая 2006
Пол: Мужской
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #37 - 03. Апреля 2013 :: 07:04
Печать  
приведи текст модуля
от
Запрос=СоздатьОбъект("ODBCRecordset");
до
Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
  

1&&2&&3
Наверх
 
IP записан
 
Satans Claws
God Member
*****
Отсутствует


1C++ rocks!

Сообщений: 721
Зарегистрирован: 29. Ноября 2010
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #38 - 03. Апреля 2013 :: 08:46
Печать  
Цитата:
Как он может быть НЕ ТОТ ?


Элементарно:
Код
Выбрать все
Запрос=СоздатьОбъект("ODBCRecordset");
Запрос.УстановитьТекстовыйПараметр("НачДата", ДатаНачала);
Запрос.УстановитьТекстовыйПараметр("КонДата", ДатаКонца);
ТекстЗапроса = " ...";

ЗапросСКЛ.Выполнить(ТекстЗапроса); 

  
Наверх
 
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #39 - 03. Апреля 2013 :: 09:41
Печать  
Satans Claws писал(а) 03. Апреля 2013 :: 08:46:
Цитата:
Как он может быть НЕ ТОТ ?


Элементарно:
Код
Выбрать все
Запрос=СоздатьОбъект("ODBCRecordset");
Запрос.УстановитьТекстовыйПараметр("НачДата", ДатаНачала);
Запрос.УстановитьТекстовыйПараметр("КонДата", ДатаКонца);
ТекстЗапроса = " ...";

ЗапросСКЛ.Выполнить(ТекстЗапроса); 


А имела место быть такая ошибка !?
Вот код:
Код
Выбрать все
	Запрос.УстановитьТекстовыйПараметр("НачДата", ДатаНачала_пред);
	Запрос.УстановитьТекстовыйПараметр("КонДата", ДатаКонца_пред);
	Запрос.УстановитьТекстовыйПараметр("ВыбАгент", ВыбАгент);
	Запрос.УстановитьТекстовыйПараметр("ВыбМенеджер", ВыбМенеджер);
	Запрос.УстановитьТекстовыйПараметр("ВыбНачОтд", ВыбНачОтд);
	Запрос.УстановитьТекстовыйПараметр("ВыбКлиент", ВыбКлиент);
	ТекстЗапроса = "
	|SELECT
	|	$Док.Клиент AS [Клиент $Справочник.Клиенты],
	|	$Док.ПунктРазгрузки AS [ПунктРазгрузки $Справочник.ПунктыРазгрузки],
	|	$ДокументСтроки_.Товар AS [Товар $Справочник.Товары],
	|	$СпрТов.БазоваяЕдиница AS [ЕдиницаИз $Справочник.ЕдиницыИзмерений],
	|	$ДокументСтроки_.КоличествоСВозврат AS [КоличествоСВозврат $Число],";
	|	$ДокументСтроки_.Количество AS [Количество $Число],";
	|	$СпрР.Регион AS [Регион $Справочник.Регион],
	|	$СпрПР.ТорговыйАгент AS [Агент $Справочник.Агенты],
	|	$СпрМ.Менеджер AS [Менеджер $Справочник.Менеджеры],
	|	$СпрНач.НачОтд AS [НачОтд $Справочник.НачРегОСб],
	|   :НачДата+'@'+$СпрНач.НачОтд as ИндексНП,
	|   :НачДата+'@'+$СпрНач.НачОтд+'@'+$СпрМ.Менеджер as ИндексНМП,
	|   :НачДата+'@'+$СпрНач.НачОтд+'@'+$СпрМ.Менеджер+'@'+$СпрПР.ТорговыйАгент as ИндексНМАП
	|FROM";
	|	$Документ.РеализацияЗаМесяц AS Док (NOLOCK)
	|	LEFT OUTER JOIN $Справочник.ПунктыРазгрузки AS СпрПР_2 (NOLOCK)  ON ((СпрПР_2.ID) = $Док.ПунктРазгрузки)
	|	соединения....
	|WHERE
	|	Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
	|	Жур.Closed & 1 = 1
	|";

	 Если (ВыбАгент.Выбран()=1) Тогда
	ТекстЗапроса= ТекстЗапроса+"
	|	AND $СпрПР_3.ТорговыйАгент=:ВыбАгент
	|";
	КонецЕсли;
	 Если (ВыбМенеджер.Выбран()=1) Тогда
	ТекстЗапроса= ТекстЗапроса+"
	|	AND $СпрМ_2.Менеджер=:ВыбМенеджер
	|";
	КонецЕсли;
	 Если (ВыбНачОтд.Выбран()=1) Тогда
	ТекстЗапроса= ТекстЗапроса+"
	|	AND $СпрНач_1.НачОтд=:ВыбНачОтд
	|";
	КонецЕсли;
	Если ВыбКлиент.Выбран()=1 Тогда
		Если ВыбКлиент.ЭтоГруппа()=1 Тогда
			Запрос.Выполнить("
			|DROP TABLE tmp_1");
			спФильтр = СоздатьОбъект("СписокЗначений");
			ТекстЗапроса= ТекстЗапроса+"
			|AND	$Док.Клиент in (select Val from #tmp_1)";
			спФильтр.ДобавитьЗначение(ВыбКлиент);
		Иначе
			ТекстЗапроса= ТекстЗапроса+"
			|AND	$Док.Клиент=:ВыбКлиент";
		КонецЕсли;
	КонецЕсли;
	ТекстЗапроса= ТекстЗапроса+"
	|ORDER BY
	|	$Док.Клиент,
	|	$ДокументСтроки_.Товар,
	|	$Док.ПунктРазгрузки,
	|	$СпрПР.ТорговыйАгент,
	|	$СпрПР.Регион
	|";


	Запрос.Отладка(1);
	ТабЗнач = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
	ТабЗнач.ВыбратьСтроку(); 


  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
berezdetsky
1c++ power user
Отсутствует


barba non facit sisadminum

Сообщений: 1986
Местоположение: Москва
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #40 - 03. Апреля 2013 :: 09:57
Печать  
GandolF писал(а) 03. Апреля 2013 :: 06:07:
trad писал(а) 02. Апреля 2013 :: 13:25:
либо объект Запрос не тот, либо выполняется другой запрос перед указанным

Как он может быть НЕ ТОТ ?

п.с. который день на форуме и создается впечатление, что участники кроме переливания воды в корыто больше ничего и предложить-то не могут... В чем проблема: не понятен вопрос? не хватает навыков? или просто лень?


GandolF писал(а) 03. Апреля 2013 :: 09:41:
                 Запрос.Выполнить("
                 |DROP TABLE tmp_1");


Похоже - не хватает навыков.  Язык
  

пароль как коньяк, чем больше звездочек, тем лучше
Наверх
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #41 - 03. Апреля 2013 :: 10:10
Печать  
berezdetsky писал(а) 03. Апреля 2013 :: 09:57:
Похоже - не хватает навыков.  Язык

Признаю это и не боюсь задавать "глупые" вопросы
Спасибо.
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #42 - 03. Апреля 2013 :: 10:15
Печать  
Гуру, помогите уложить в CASE выражение:
Код
Выбрать все
Если ТабЗнач.Товар.БазоваяЕдиница=Един Тогда
	ТЗ.Кол=ТабЗнач.Количество;
Иначе
	ТЗ.Кол=окр(ТабЗнач.Количество*ТабЗнач.Товар.КоэфКальк,2);
КонецЕсли; 


пишу:  case when $СпрТов.БазоваяЕдиница=:ЕдинИзм then $ДокументСтроки_.Количество else Произведение(???) end
Заранее спасибо!
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
vinogradoff
Full Member
***
Отсутствует



Сообщений: 107
Зарегистрирован: 06. Февраля 2010
Пол: Мужской
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #43 - 03. Апреля 2013 :: 10:59
Печать  
Код
Выбрать все
round($ДокументСтроки_.Количество * $n.КоэфКальк, 2) 



+
Код
Выбрать все
join $Справочник.Товары n (nolock) on n.id = $ДокументСтроки_.Товар 



если КоэфКальк не периодический
  
Наверх
 
IP записан
 
GandolF
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 70
Зарегистрирован: 06. Марта 2013
Re: ТЗ = Запрос.ВыполнитьИнструкцию(тЗапроса): ЧТО ДАЛЬШЕ !?
Ответ #44 - 03. Апреля 2013 :: 11:43
Печать  
vinogradoff писал(а) 03. Апреля 2013 :: 10:59:
Код
Выбрать все
round($ДокументСтроки_.Количество * $n.КоэфКальк, 2) 



+
Код
Выбрать все
join $Справочник.Товары n (nolock) on n.id = $ДокументСтроки_.Товар 



если КоэфКальк не периодический

Благодарствую, всё получилось  Подмигивание
  

Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1 2 [3] 4 5 
ОтправитьПечать