Когда я задал обрботку 10 дней он работал 00:05:59, когда я ему задал тужу обработку но в функции ПересчетВЯщики(ТМЦ, Количество) в первой же строке вызвал Возврат - он работал 00:03:34 (на 2 минуты и 25 секунд меньше). Т.е. именно функция ПересчетВЯщики() сильно тормозит. К подчиненному справочнику Справочник.ЕдИз надо как-то иначе обращаться (не в функции, в функции опять же циклы). Т.е. е справочнику Справочник.ЕдИз надообращатьс через Запрос строго через запрос, может выполнять для этого второй Запрос. Подскажите как это сделать?

Сам понял что спросил?

тс долго терпел

воткнуть галку сортировка на реквизит Ед в справочнике ЕдИзм
искать потом через ВыбратьЭлементыПоРеквизиту

Какой фееричный бред

Вы просто не знаете содержание предыдущих серий.

(3) Сейчас так попробую

а так, как у тебя скуль, то любое обращение к внешней функции в тексте запроса будет всегда медленно, це не дбф.

(3) В функции наисал так:
Функция ПересчетВЯщики(ТМЦ, Количество)
   Спр.ИспользоватьВладельца(ТМЦ);
   Спр.ВыбратьЭлементыПоРеквезиту("Ед");
   Пока Спр.ПолучитьЭлемент() = 1 Цикл
       Если (Спр.ПометкаУдаления()=0)И(Спр.Ед = Перечисление.Единицы.ящик) Тогда
           Возврат Количество/?(Спр.Коэффициент=0,1,Спр.Коэффициент);
       КонецЕсли;
   КонецЦикла;
   Возврат Количество;
КонецФункции  
Выскакивает модальное диалоговое окно с надписью:
Поле агрегатного объекта не обнаружено (ВыбратьЭлеменыПоРеквезиту): 36

(8)в русском реквизИт через И.
Базван v.2?

Одно непонятно, конфа автора вовсю использует 1cpp для расчета останков прямым запросом, в том числе, в модулях проведения, + класс на перехватчике для собственного логгирования..
Откуда там автор взялся с незнанием элементарщины ?!

(10) Так уж получилось. но, поверьте - неделя-две и от этого незнания и следа не будет

(10) Кстати, пока все дома - для DBF ф-я "ЗначениеВСтрокуБД()" работает?

(3) При попытке сохранить метаданные выдает модальное диалогово окно  Ошибка последовательности функций (это сервер ругается)

(12) Как проверить (пример кода плиз)

(11) :))))))))))))))

(12) работает

+(13) Причем данная БД - тестовая и с ней работаю только я

+(13) с даной проблемой обратился к нашему сисадмину - сейчас он посмотрит

(11) не верю. ты уже доказал, что тебе 5 лет мало...

(18) Эти пять лет были совсем другие задачи

(18) может, автор в другом измерении живет, для него 5-лет..это по нашенски - 5 минут
:)

(19) ну, по твоим темам этого не скажешь.

(17) Сисадмин в данном случае ничего сделать не может.
А иначе этот запрос никак нельзя сделать?

(22) можно

начнеи его с select

(24) Т.е? Синтаксис SQL м как дальше?

http://www.1cpp.ru/forumfiles/Attachments/mod_002.zip

(26) Его можно запустить в QA
Что такое QA?

http://tinyurl.com/cj3vmhr

(28) Софт я закачал, но... достукатьсяиз него к серверу не получиться без шефа..
А запрос это попробывал через 1С (код иакой:
Процедура Сформировать()
   Запрос=СоздатьОбъект("Запрос");
   ТекстЗапроса = "
       |SELECT
       |    Спр.Code as Код,
       |    Спр.Descr as Наименование
       |FROM
       |    sc433 as Спр";
       ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
       ТЗ.ВыбратьСтроку();
КонецПроцедуры
так выдает
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(10)}: Поле агрегатного объекта не обнаружено (ВыполнитьИнструкцию)

+(29) и чето делать7

(30) вариант 1.: почитать документацию
вариант 2.: спросить у шефа

(31) к чтению ТС не приучен

Просто Выполнить а не ВыполнитьИнструукцию - это уже поменял, но:
ТЗ = Запрос.Выполнить(ТекстЗапроса);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(10)}:     <<?>> Спр.Code as Код,
Запрос[3] : Ожидается  '=' перед 'Спр'
ТЗ.ВыбратьСтроку();
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(11)}: Значение не представляет агрегатный объект (ВыбратьСтроку)
т.е. насколько я понимаю Спр.Code as Код, надо писать иначе. Как?

+(33) написал так: Код=Спр.Code as Код,
- он и на такой синтаксис ругается...

(33) чего, не в состоянии ужо прочесть одну страничку в ворде из (26) ?

С каких это пор у объекта Запрос появился метод ВыполнитьИнструкцию()?
Наверное все таки на использовать OdbcRecordSet?

(35) В состоянии, но там такого нет!

(37) мда тогда я пошел.

(37) не пиз..ди!
2-ая страничка сверху.

(39) Вторая страница с ферху:
Для DBF версии рекомендуется использовать объект “ OLEDBData”(для версии 1С++ 2.0.0.0 и выше) следующим образом:
       База = СоздатьОбъект("OLEDBData");
       Соединение = "Provider=VFPOLEDB.1;Deleted=Yes;Data Source=" + КаталогИБ()+ ";Mode=ReadWrite;Extended Properties="";User ID="";Password="";Mask Password=False;Collating Sequence=RUSSIAN;DSN=""";
       Рез = База.Соединение(Соединение);
       Запрос = База.СоздатьКоманду();
А что делать, если на компьютере не установлен драйвер фокса? Дык, качать!

Запрос = СоздатьОбъект("ODBCRecordset");
Внимание! SQL версия не требует дополнительной инструкции подключения к базе, метод "УстБД1С()"  нужен для подключения к другой(не текущей) базе.
ТекстЗапроса = "
|SELECT
|    Спр.Code as Код,
|    Спр.Descr as Наименование
|FROM
|    sc433 as Спр";

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

Вот и выполнился наш первый запрос. Это конечно хорошо, но справочников в конфигурации много, смотреть каждый раз в DDS ой как не хочется, да и читать такие запросы совсем не удобно. Если использовать ADO, а не 1С++, то так и придется делать. Но скажем спасибо разработчикам 1С++, что в ней есть метапарсер имен, который сам переведет все идентификаторы объектов в их реальные имена. А делается это так:

ТекстЗапроса = "
|SELECT
|    Спр.Code as Код,
|    Спр.Descr as Наименование
|FROM
|    $Справочник.Номенклатура as Спр";

Заменяются следующие имена:
$Справочник.ХХХ – справочник
$Документ.ХХХ – документ
$ДокументСтроки.ХХХ – табличная часть документа
А также регистры, журналы расчетов (об этом поговорим позднее)

Немножко усложним пример. Выберем дополнительно реквизит “ТипНоменклатуры”
ТекстЗапроса = "
|SELECT
|    Спр.Code as Код,
|    Спр.Descr as Наименование,
|    $Спр.ТипНоменклатуры as ТипНоменклатуры
|FROM
|    $Справочник.Номенклатура as Спр";

Замечание: Чтобы избежать коллизий, всегда пользуйтесь алиасами.

Как вы уже заметили, мы не стали искать соответствий имен в DDS, а переложили эту задачу на метапарсер. Для того чтобы парсер понял, что это реквизит нужно перевести на язык SQL ставим знак $ перед именем таблицы: $Спр.ТипНоменклатуры
Правда, не все имена метапарсер преобразовывает в поля таблиц. Есть исключения – это предопределенные имена:
Для справочников
ИД (Ссылка)        ID    
Код            Code
Наименование    Descr
Родитель        ParentID
Владелец        ParentExt
ЭтоГруппа        IsFolder

И где здась обТЗ = Запрос.Выполнить(ТекстЗапроса);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(10)}:     <<?>> Спр.Code as Код,
Запрос[3] : Ожидается  '=' перед 'Спр'
ну и т.д.

+(40) у нас SQL

(40) может стоить сходить к окулисту, или черничьки поесть ?

Запрос = СоздатьОбъект("ODBCRecordset");

(10) O_o

Ёпрст4 большое спасибо, в этом форуме ты мне уже не первый раз помагаешь, остальные в основном ругаються.
ТС запросом:Запрос = СоздатьОбъект("ODBCRecordset"); поменял
а вот здесь ругается:
ТЗ.ВыбратьСтроку();
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(11)}: Значение не представляет агрегатный объект (ВыбратьСтроку)
ТЗ у нас вроде как и не определена, здесь ндо ТЗ создать как таблицу значений?

+(45) Объявил ТЗ как таблицаЗначений - все-равно ругается:
ТЗ.ВыбратьСтроку();
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(12)}: Значение не представляет агрегатный объект (ВыбратьСтроку)

ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса)

(47) не в коня корм...

ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(11)}: State 42S02, native 208, message [Microsoft][ODBC SQL Server Driver][SQL Server]Invalid object name 'sc433'.
А какой прграммой лучше смотреть 1Cv7.DDS?

программа notepad.exe

(47) нахрен тебе ДДС сдался?
ну, блокнотом посмотри... фаром. вордом. тотал командером. райтом...

и если че, в твоей конфе нет справочника Номенклатура, у тя есть ТМЦ

(51) Проверить правильность имен полей

(53) ран тебе еще, метапарсер обманывать

(54) Да никого я не хочу обманывать; просто ейчас выдает:
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(11)}: State 42S02, native 208, message [Microsoft][ODBC SQL Server Driver][SQL Server]Invalid object name 'sc433'.

(55) см (52)

(56) Да я и сгначала задал ТМЦ - ошибка посмотерл в файл там:
#==TABLE no 25     : Справочник ТМЦ
# Name    |Descr                         |SQLTableNam|RecordLock
T=SC92    |Справочник ТМЦ                |SC92       |R        
#-----Fields-------

Задал Descr - ошибка
оказыввается Справочник ТМЦ - SC92

=(57) Ращбираюсь дальше

(57) пляттттть...
 $Справочник.ТМЦ as Спр";

(59) тупость затягивает, не так ли ?
:))

(60) главное - не заразиться...

вообще, настроение хреновое. товарищ умер.работать обломно. Домой ехать лень. к нему - на его жену смотреть тяжело...
вот и флужу...

(59) До этого уже дошел - работает, а вот
$Спр.ТипТМЦ as ТипТМЦ - не хочет:
Meta name parser error: поле таблицы не найдено "$Спр.ТипТМЦ"

(63)Открой наконец пофигуратор, протри очки и посмотри - у справочника ТМЦ нет реквизита ТипТМЦ .
и не было.

(64) Спасибо

Разбираюсь с документом http://www.1cpp.ru/forumfiles/Attachments/mod_002.zip так вот незнаю как мне определить НачДата и КонДата для запроса:
ТекстЗапроса = "
       |SELECT
       |    Жур.IDDoc as [Док $Документ],
       |    Жур.IDDocDef as Док_вид
       |FROM
       |    _1SJourn as Жур
       |WHERE
       |    Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |    Жур.IDDocDef = $ВидДокумента.РасходнаяНкладная";
Поставил на форму два поля ввода выбора даты: НачДата и КонДата - не проходит:
44)}: Meta name parser error: не указан параметр ":НачДата"
Что здесь не так?

(66) УстановитьТекстовыйПараметр

читай статью, там всё есть

(68) Читаю, сделал так:
Запрос=СоздатьОбъект("ODBCRecordset");
   ТекстЗапроса = "
       |SELECT
       |    Жур.IDDoc as [Док $Документ],
       |    Жур.IDDocDef as Док_вид
       |FROM
       |    _1SJourn as Жур
       |WHERE
       |    Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |    Жур.IDDocDef = $ВидДокумента.РасходнаяНкладная";

   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.УстановитьТекстовыйПараметр("НачДата", НачДата);
   ТЗ.УстановитьТекстовыйПараметр("КонДата", КонДата);
   ТЗ.ВыбратьСтроку();
Дак ругается все равно:
: Meta name parser error: не указан параметр ":НачДата"
ТЗ.УстановитьТекстовыйПараметр("НачДата", НачДата);
я как-то не так вызываю?

плять. ТЗ -то тут причем?

(69) думать то когда будешь ?
Устанавливать параметры запроса надо ДО его выполнения.

ну и (70).. это я даже не увидел :))))))))))))))

писец какой-то... сначала выполняет запрос, потом параметры ему пытается передать....
причем параметры пытается передать результатам запроса

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

без слов...

+(74) Дык и так не работает:
Meta name parser error: не указан параметр ":НачДата"

был бы ты 86 нола 0 посоветовал бы  позвать взрослых...
на по факту - либо у тебя маразм, либо дебильность в средней стадии

(75) А если со словами? Как это сдалать???

(77) Вот здесь как раз без слов.
Ты знаещь в какой обстановке я работаю?

Ёпрст4 как установить текстовый параметр?

+(80) Написал так:
Запрос=СоздатьОбъект("ODBCRecordset");
   ТЗ = СоздатьОбъект("Запрос");
   ТЗ.УстановитьТекстовыйПараметр("НачДата", НачДата);
   ТЗ.УстановитьТекстовыйПараметр("КонДата", КонДата);
   ТекстЗапроса = "
       |SELECT
       |    Жур.IDDoc as [Док $Документ],
       |    Жур.IDDocDef as Док_вид
       |FROM
       |    _1SJourn as Жур
       |WHERE
       |    Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |    Жур.IDDocDef = $ВидДокумента.РасходнаяНкладная";

   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();
Все-равно ругается:
Поле агрегатного объекта не обнаружено (УстановитьТекстовыйПараметр

АААААААААААААААААААААААААААААААААААААААААААААААААААААААААА!

ладно, на вот:
екстЗапроса = "
       |SELECT .........

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

(82) Да нчего страшного, просто скажи как...

(83) Спасибо

(79) неужели в окопе под бомбами?

(86) поверь, хуже

(87) вмазанный шоле?

(88) Вмазаная у меня жена (уже не первый месяц)... :(

(89) дык брось её нахрен

это не лечится

(83) Ну тут тип документа видимо я неправильно задаю ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС.ERT(44)}: Meta name parser error: объект не найден "$ВидДокумента.РасходнаяНакладная"
пробывал так:
|    Жур.IDDocDef = $ВидДокумента.Реализацция";
тоже ругается как в украинской конфе обозвали $ВидДокумента?

РасходнаяНакладная

(89) а двое детей?

если что, она <> РасходнаяНкладная как у тебя в (81)

(95) Да так работает просто я в первы раз допустил опечатку РасходнаяНкладная

(94) оставь себе, жену лишить родительских прав через суд, предоставив справки с наркушки

Хотя, похрен, дал ей денех на дозняк - сама всё подпишет и отдаст

ну а дальше - пинка под зад и давай - до свиданья!

(96) Дак дело в том, что такая фигнгя продолэаетс уже лет 5-6, и я с детьми разговаривал, Они говорят: №Если выбирать - то мы будем жить с мамой"

(100) им лет то сколько ?
Да и.. привыкнут без мамы.

Новую им найдешь, здоровую.

(101) Дочери 18,5 - студентка, сыну - 15,5 (школьник)

(103) :)))))
да уж..
Тут даже думать не надо - дети сами по себе в таком возрасте,
разводись не думая, жене пинка под зад.

(104) Да мне ее жалко и детей. Что их ждет если они будут с мамой - алкоголичкой?

(105) она еще и бухает ? :))
наркоша -алкоголик.. зачет

(106) насчет наркоты - мы с тобой тут не поняли друг-друга; нарктой она не балуется

(107) пилять.. всё у тебя через одно место, даже с терминами.

по поводу запроса сделал так:
ТекстЗапроса = "
       |SELECT
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС
       |INNER JOIN
       |    $Документ.РасходнаяНакладная as Док ON Док.IDDoc = ДокС.IDDoc
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.ТМЦ";
;
   Запрос=СоздатьОбъект("ODBCRecordset");
   Запрос.УстановитьТекстовыйПараметр("НачДата", НачДата);
   Запрос.УстановитьТекстовыйПараметр("КонДата", КонДата);
   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();
Дык ругается:
State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 11: Incorrect syntax near 'Жур'
Чем ему Жур не нравится?

А жену тогда кодируй, раз в месяц, пока не поумнееет

(109) and Жур.Date_Time....

(108) может здесь разлчия в украинском и руссокм языках. У нас (87) вмазанный шоле? - это пьяния чи що :)

и вот это
INNER JOIN
       |    $Документ.РасходнаяНакладна
тут как бэ не нужно

(112) вмазанный - находящийся в наркотическом опьянении

(111) Написал так:
|SELECT
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС
       |INNER JOIN
       |    $Документ.РасходнаяНакладная as Док ON Док.IDDoc = ДокС.IDDoc
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       AND Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.ТМЦ";
выдает:
State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 11: Incorrect syntax near 'Жур'.

(115) см (111)

and пропущен в условии

(116) блин смотрб в книгу вижу фигу

Написал так:
|INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       AND Жур.Closed & 1 = 1
Ругается:
State 42000, native 156, message [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword 'AND'.

(115)
Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       AND Жур.Closed & 1 = 1
смотрим внематочно

Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND   AND Жур.Closed & 1 = 1

нафига 2 and подряд?

(121) Уже исправил, спасибо. Изучаю дадьше

Ёпрст4  по поводу запроа к подчиненному справочнику что-то типа так (понятно что здесь совсем не то, но...):
ТекстЗапроса = "
|SELECT
|    Жур.IDDoc [Док $Документ],
|    Жур.IDDocDef Док_вид
|FROM
|    _1Sjourn Жур
|INNER JOIN
|    _1SCRDOC Отбор ON Отбор.ChildID = Жур.IDDoc AND
|                      Отбор. MDID = 0 AND
|                    Отбор.ParentVal = :ВыбДок* AND
|                    Отбор.Child_Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~";  
?
Но как мне дотучаться до справочника по конкретному ТМЦ?

(123) не угадал.

можно либо коррелированный подзапрос в селекте, для получения коэффициента, либо соединение с подзапросом, в котором будут выбраны вся номенклатура и коэффициенты для нужной единицы измерения)

(125) УхЮ как сложно... Голова совсем не варит

+(125) С подзапросами никогда не работал, а об соединении с подзапросмо молчу

чего-то я не понимаю написал так:
ТекстЗапроса = "                            
       |SELECT
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    $ДокС.Ед as [Товар $Справочник.ЕдИзм],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.ТМЦ";
ругается:
State 42000, native 8120, message [Microsoft][ODBC SQL Server Driver][SQL Server]Column 'ДокС.SP1175' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause.

+(128) т.е. я в РАБОТАБЩИЙ ЗАПРОС:
   |SELECT
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.ТМЦ";
добавил еще одно поле для выбора
|SELECT
       |    $ДокС.Ед as [Товар $Справочник.ЕдИзм],
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
при этом GROUP BY меня перестал понимать :(

(129)дык в гроуп бай кто добавлять поле будет ?

(130) полный код запроса:
|SELECT
       |    $ДокС.Ед as [Товар $Справочник.ЕдИзм],
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
|FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС in
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.ТМЦ";

GROUP BY
       |    $ДокС.ТМЦ,$ДокС.Ед

(132) Спасибо. сейчас попробую

(132) Ура!!! Работает!! Сейчас буду пробывать делать реальный запрос

(132) Блин, что-то я круто туплю... Работало. Добавил в начале скрипта код:
  НачДата = НачМесяца(ТекущаяДата());
  КонДата = ТекущаяДата();
Стал он ругаться:
State 42000, native 156, message [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword 'in'.
Что за фи фигня? Или он у меня раньше не работал?

+(135) Кажется я понял: у меня раньше работал такой запрос:
|SELECT
|    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
|    SUM($ДокС.Кво) as Количество
|FROM
|    $ДокументСтроки.РасходнаяНакладная as ДокС
|INNER JOIN
|    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
|                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
|                       Жур.Closed & 1 = 1
|GROUP BY
|    $ДокС.ТМЦ";
ане этот:
|SELECT              
       |   $ДокС.Ед as [Товар $Справочник.ЕдИзм],
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС in
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.ТМЦ,$ДокС.Ед";

+(136) Насколько я понимаю, ошибка здесь:
   |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1

as ДокС in

че то у тя со зрением - однозначно

in выкини оттуда

(138) не со зрением,. а с головой

(139) Теперь, точно - роаботает, мне еще нужен номер документа
набрал:
|SELECT        
       |   $ДокС.DocNo as НомерДок,
       |   $ДокС.Ед as [Ед. измерения $Справочник.ЕдИзм],
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    $ДокС.DocNo,$ДокС.ТМЦ,$ДокС.Ед";
Выдает:
Meta name parser error: поле таблицы не найдено "$ДокС.DocNo

| Жур.DocNo

(142) Спасибо. А Жур - это типа синоним на журнал документов?

(143) яя, натюрлих

только не синоним, а псевдоним таблички  _1SJourn в тексте запроса

(145) Еще раз спасибо!

Тут еще подводных (для меня) камней море... Поставил:
|SELECT        
       |   Жур.DocNo as НомерДок,
       |   $ДокС.Ед as [Ед. измерения $Справочник.ЕдИзм],
       |    $ДокС.ТМЦ as [Товар $Справочник.ТМЦ],        
       |   $ДокС.Кф as [Коэффициент $Справочник.ЕдИзм.Коэффициент],
       |    SUM($ДокС.Кво) as Количество
       |FROM
       |    $ДокументСтроки.РасходнаяНакладная as ДокС
       |INNER JOIN
       |    _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc
       |                       AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
       |                       Жур.Closed & 1 = 1
       |GROUP BY
       |    Жур.DocNo,$ДокС.ТМЦ,$ДокС.Ед,$ДокС.Кф";
Дак он ругается:
Meta name parser error: поле таблицы не найдено "$ДокС.Кф"

+(147) Или здесь еще один подзпрос надо делать? если - даЮ то как?

Ау! Есьть кто живой? Как разрулить запрос (147)

Ёпрст4! Как ты мнре нужен!

Усе пошли домой.
До встречи завтра.

(151) Завтра так завтраЮ мне еще час ы 8 минут на работе голову ломать над этим запросом...

(147) В расходной в бухии там нет такого реквизита Кф. Есть "Коэффициент".

В твоем случае.

       |   $ДокС.Коэффициент as Коэффициент ,

Без типизации.

(153) Спасибо, работает

Опять пропустила все самое интересное. :)
Хотела уточнить у местных спецов - а у обычных семерочных запросов есть возможность обращения к подчиненным справочникам?
Не помню и сто лет их уже не писала :).

(155) делай запрос по нему

(155) и правильно, нефиг всякие гадости писать

Не забывай в селекте ставить команду (NOLOCK)
Иначе можешь писать заявление по собственному...
...дай другому поломать БД...

+(147) Жур.Closed & 1 = 1

Убери из связей.... не кошерно это там иметьэ

Познай для себя команду WHERE
А по сути гуг рулит, в плане поисков ответов по SQL

+ И это тоже AND Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND

Убери в условие

+ INNER JOIN - на SQL 2000 он отрабатывает медленней, нежели попросту выполнить команду LEFT(Right) OUTER JOIN?

(161) У них смысл разный. Поэтому оценивать медленнее/быстрее не слишком осмысленное занятие.

(162)Смысл разный и бесполезный.
Может и писать меньше, но медленней работает, проверено :)

(163) Что значит "бесполезный"?
Кроме того, тупо сравнивать время выполнения запросов в SQL - тоже не информативно. Сравнивать надо планы запросов.

Разве медленнее?
А вообще, некоторые условия превращают левое/правое соединение во внутреннее :).

(159) Какой дает выигрыш перенос условия из соединения в Where?

ТекстЗапроса="
|select        
|   Жур.iddoc as [Док $Документ.РасходнаяНакладная]
|   ,$ДокС.ТМЦ as [Товар $Справочник.ТМЦ]
|   ,sum($ДокС.Кво*$ДокС.Коэффициент) as КоличествоВБазовойЕдиницеИзмерения
|   ,sum($ДокС.Кво*$ДокС.Коэффициент/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
|from
|    $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
|inner join
|    _1sjourn as Жур (nolock) on Жур.IDDoc = ДокС.IDDoc
|      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
|      and Жур.Closed&1 = 1
|left join (
|             select  
|                   max($Спр.Коэффициент) as Коэффициент
|                    ,Спр.parentext as Владелец
|             from $Справочник.Единицы as Спр (nolock)
|             where $Спр.Ед =:ВыбЕдиница
|                   and $Спр.Коэффициент>0
|                   and Спр.ismark=0
|             group by Спр.parentext
|           ) as СпрЕдиницы on СпрЕдиницы.Владелец = $ДокС.ТМЦ
|
|group by
|    Жур.iddoc,$ДокС.ТМЦ
|";
Запрос.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
..................

(166) есть мнение, что никакого :)
Просто человеку почему-то не нравится. А мне наоборот - нравится, считаю что в inner join все условия д.б. именно там. Но ему и inner join тоже не нравится, так что логично :)

(167) Неправильный запрос мы с вами сделали! Дело в том, что данный запрос показывает коэффициент ТМЦ по документа, а не берет коэффициент данного ТМЦ для еденицы ищмерения ящик!
Т.е. здесь таки надо делать еще один подзапрос

(169) Еще подумай

(167) Хотя я просмотрел код Ёпрст4 - это вроде должно работать.

(170) 169 я написал не просотрев твой код. Сейчас проверю в скрипте (там надо многое изменить - так что рещультат будет минут через 7)

(172) У всех прошу прощения за опечатки

+(172) Выдает ошибку:
Запр.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
{\\SERVER12\VPKTEST$\EXTFORMS\ЗАПРОС01.ERT(101)}: Значение не представляет агрегатный объект (УстановитьТекстовыйПараметр)

(174) нам отсюда не видно, что есть Запр в твоём коде

(175) Дело в том что код менялся много раз
Запр это Запрос

+(176) И меняться код еще будет не мало раз...

Дело в том что результаты работы запроса нужно выдать в Таблицу а не в ТблицуЗначений

(178) да уж, мне бы твои проблемы

(179) а (174) что за фигнгя и как с ней бороться?

(180) зачем бороться ?
Запр сделать объектом одбсрекордсет

(181) Моя невнимательность!
Но, дело в том, что он показывает количество ТМЦ в ящиках по ВСЕХ документах (вернее не все,а по документах РасходнаяНакладная (надо еще сюда же и по документу РасходнаяНакладнаяН)

(168)Останемся каждый при своем...

+(182) Но м количество проданых ящиков по всех документах - тожу надо

(182) тогда тебе еще стоит ознакомится с юнион алл

(184)Сделай двумя запросами :)
(185)А я разочаровался в этом методе :(

(182) насколько позволяют мои знания английского - это объеденение всех?
Это SQL?

(186) зря

Ёпрст4 так что мне разобраться с юнион алл?

(189)
сделать запросы к табличным частям документов, объеденить их через юнион алл, отфильтровать их через внутреннее соедиенение
с журналом доков. всё.

(190) Думаешь я это, на данном этапе моиз щнаний, смогу сделать сам?

(191) думаю нет, но мот попытаешься хотя бы ?

(192) Конечно попытаюсь (хотя попытка, зная, что она обречена - что даст?)

+(193) Мне уже страшно :(

(190) Данный запрос как раз обращается к табличным частым документов...

ну из простого можно попробовать union all

+(194) Пока изучаю, вернее углубляю свои знания SQL

ТекстЗапроса="
|select        
|   Жур.iddoc as [Док $Документ]
|   Жур.iddocdef as [Док_вид $ВидДокумента]
|   ,Таб.Товар as [Товар $Справочник.ТМЦ]
|   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
|   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
|from
|    (
|      select
|        $ДокС.ТМЦ as Товар
|        ,ДокС.iddoc as Документ
|        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
|      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
|    
|      union all
|
|      select
|        $ДокН.ТМЦ
|        ,ДокН.iddoc
|        ,$ДокН.Кво*$ДокН.Коэффициент
|      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
|    )as Таб
|
|inner join
|    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
|      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
|      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
|      and Жур.Closed&1 = 1
|left join (
|             select  
|                   max($Спр.Коэффициент) as Коэффициент
|                    ,Спр.parentext as Владелец
|             from $Справочник.Единицы as Спр (nolock)
|             where $Спр.Ед =:ВыбЕдиница
|                   and $Спр.Коэффициент>0
|                   and Спр.ismark=0
|             group by Спр.parentext
|           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
|
|group by
|    Жур.iddoc,Жур.iddocdef,Таб.Товар
|";
Запрос.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
..................

(198) Осталось только предположить, что ящик, это единица с максимальным коэффициентом

(199) дык там же ищется максимум, только среди "ящиков"..
защита от дурака, мало ли. как они там единиц поназаводили..

(198) Я восхищет!
НО, выдает ошибку: State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 4: Incorrect syntax near 'Жур'.

(201)зпт воткни тут:
,Жур.iddocdef

(202) Спасибо

(202) :))))))))))

+(202) Мне надо не только РасходнаяНакладная, но и РасходнаяНакладнаяН - если бы не было as просто через запятую указал...
Попробывал через запятую (from  $ДокументСтроки.РасходнаяНакладная, $ДокументСтроки.РасходнаяНакладнаяН as ДокС (nolock))
1С тупо ЗАВИСЛА.
Как здесь быть?

(205) п...ц
а в (198) по твоему что?!

ааа..... печалька

(206) Нужен мозг. Срочно.

(206) select * from * where *

(206) Он не знает SQL

(206) ОГРОМНОЕ СПАСИБО, извини за невнимательность

+(211) А как в этом же запросе показать сколько ящиков ушло по каждой из накладных и вообще сколько ящиков товаров было продано за заданный период?

дык он тебе и так всё это покажет.
у тя на выходе табличка

документ товар количество количествоВЯщиках

сворачивай по документу - будет количество в разрезе
документ количество ящики..

(213) Извини, тут сказывается мой малый опыт работы в таком плане...
Мне нужно эти данные показать на екране в виде Таблицы, а не Таблицу значений показать..
Что тут делать и как?

ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолчитьСтроку()=1 Цикл
 Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.Показать("ёёё...");

|select        
|    Док as [Док $Документ]
|   ,Док_вид as [Док_вид $ВидДокумента]
|   ,Товар as [Товар $Справочник.ТМЦ]  
|   ,КоличествоВБазовойЕдиницеИзмерения
|   ,КоличествоВЯщиках
|   ,SUM(КоличествоВЯщиках) OVER (PARTITION BY Док,Док_вид) КоличествоВЯщикахПоДокументу
|   ,SUM(КоличествоВЯщиках) OVER () КоличествоВЯщикахВсегоПоВсемДокументам
|from
|(
|select        
|    Жур.iddoc as [Док]
|   ,Жур.iddocdef as [Док_вид]
|   ,Таб.Товар as [Товар]
|   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
|   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
|from
|    (
|      select
|        $ДокС.ТМЦ as Товар
|        ,ДокС.iddoc as Документ
|        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
|      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
|    
|      union all
|
|      select
|        $ДокН.ТМЦ
|        ,ДокН.iddoc
|        ,$ДокН.Кво*$ДокН.Коэффициент
|      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
|    )as Таб
|
|inner join
|    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
|      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
|      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
|      and Жур.Closed&1 = 1
|left join (
|             select  
|                   max($Спр.Коэффициент) as Коэффициент
|                    ,Спр.parentext as Владелец
|             from $Справочник.Единицы as Спр (nolock)
|             where $Спр.Ед =:ВыбЕдиница
|                   and $Спр.Коэффициент>0
|                   and Спр.ismark=0
|             group by Спр.parentext
|           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
|
|group by
|    Жур.iddoc,Жур.iddocdef,Таб.Товар
|) Документы
|";
Запрос.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);


select        
|   Жур.iddoc as [Док $Документ]
|   Жур.iddocdef as [Док_вид $ВидДокумента]
|   ,Таб.Товар as [Товар $Справочник.ТМЦ]
|   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
|   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффицие

Ну в общем идея использовать предложение OVER

(215) Спасибо - сейчас попробую
(216) А это что за код?

(216) погоди, ща скажет , что у него 2000 скуль..
:))
и болт с овером

(219) Запросто :)

Запустил с периодом выборки один день, - просчитало все за секунду...
Запустил с периодом выборки - месяц (ноябрь) - зависла... :(

+(221) Пардон. не зависла - просто ушла в себя

+(222) Т.е. в результате таки выдала информацию по запросе (но писала что программа "не отвечает)"

(223) основное время занимает не запрос.выполнитьинструкцию, а ТЗ.Показать()

(224) я тоже так думаю, сейчас буду переделывать это под таблицу (вместо таблицаЗначений)

Что-то я таки туплю, как в таблице мне из даного  запроса показать товар
В запросе мы написали:
$ДокС.ТМЦ as Товар
Пытаюсь вывести Запр.Товар
Выдает:
Поле агрегатного объекта не обнаружено (Товар)

+(226) И номер документа как показать?

++(226) Ну и количесвто ящиков по документу. и количество ящиков по всех документах вместе

(226)ознакомься с теорией, что ли
http://www.1cpp.ru/docum/icpp/html/ODBC.html

(227) жур.docno

а ну ясно-красно почему коматозит :))_))

(229) С теорией я ознакомлюсь - тут читать на несколько часов...
А как мне показать Товар из запроса?

(229)

select
|        $ДокС.ТМЦ as Товар
|        ,ДокС.iddoc as Документ
|        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
|      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
|    
|      union all
|
|      select
|        $ДокН.ТМЦ
|        ,ДокН.iddoc
|        ,$ДокН.Кво*$ДокН.Коэффициент
|      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)

Ну тут ты погорячился, ИМХО :))))
Запрос по ВСЕМ ТЧ БД :)
Он же сначала выборку обработает и только потом будет вычислять inner join :)

Да и я не глядя OVER при-рисовал.

(231) Перепости код полностью

(231) а сам думать пробовал?

(234) Многие не приучены

(235) так вы бы хоть деньги с него брали, что ли...

(234) А есть экземпляры, коим нечем, вот пример

http://www.youtube.com/watch?v=Dsi55vRmLXU

это отсюда

"Красный декабрь": студенты РГТЭУ строят баррикады в ожидании ОМОНа
http://top.rbc.ru/society/26/12/2012/838466.shtml

(236) Нам не жалко :)

(232) ну и что ?
думаешь, если в подзапросе соединять какждый вид с журналом будет быстрее ? Нет.

>>>Запрос по ВСЕМ ТЧ БД :)

да и не по всем, а только по двум пока..

(240) План будет не оптимальным

(240) Просто интересно, а паренек в состоянии план запроса посмотреть?

(241) нормальный там план будет, можешь проверить..
куча соединений на фильтрацию документов в самом юнионе будет не быстрее.

(239) Кстати, думаю, что да.

(232) Это я знаю, но как показать товар хотябы в окне сообщений?

(245)
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
 Сообщить(ТЗ.Товар);
КонецЦикла;

(229) выдает поле агрегатного объекта не обнаружено

(243) Там не куча, там одно + однотипные
и c индексами будет нормально, по 1sjourn пойдет по DOCTYPE, а
ТЧ по IDDOC

Вывести номер документа как?
ТЗ.Жур.docno     ошибка
Жур.docno    ошибка
Как вывести?

(247) Полностью код покажи с начала запроса до низу

(249) Это не восьмерка, да и восьмерке за количество точек более одной в полях наказывать надо

Жур.docno это в запрос надо добавить

(252) Маленькое уточнение, КАК :)

(251)
типо так в 77 нельзя? да вроде и наказывать здесь не за что
ОКЕИ = Товар.ЕдиницаИзмерения.ОКЕИ

(248) да, твоя правда.. не оптимальный план.. в 2 раза
:)

время компиляции запроса отличается.

(254) Это прямой запрос, речь о прямом запросе к БД 77.
В восьмерке, конструкция вида Товар.ЕдиницаИзмерения.ОКЕИ приведет к неявному соединению

(250) Полностью код запроса:

ТекстЗапроса = "                            
       |select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар";

(259) Этот кусок у меня есть. Что ниже этого чуда?

(260)Запр=СоздатьОбъект("ODBCRecordset");
   Запр.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
   Запр.УстановитьТекстовыйПараметр("НачДата", НачДата);
   Запр.УстановитьТекстовыйПараметр("КонДата", КонДата);
   ТЗ = Запр.ВыполнитьИнструкцию(ТекстЗапроса);
   //Таб.ВывестиСекцию("Шапка");
   ТЗ.ВыбратьСтроки();                          
   Пока ТЗ.ПолучитьСтроку()=1 Цикл
       Таб.ВывестиСекцию("Строка");
   КонецЦикла;
   Кон=ТекущееВремя();
   
   //Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Расход","");
   
   
   Сообщить("Обрабатывалось с "+Нач+" до "+Кон);

>> по 1sjourn пойдет по DOCTYPE
неа.. в плане тупо индекс скан всегда..
не хочет бегать по индексу..

(262) Странно-странно.

не знаю, может als у мну старый, но вот:
ВыполнитьИнструкцию(<?>,<?>,<?>)
Синтаксис:
ExecuteStatement(strTextSQL, obVT, bEraseVT)
Назначение:
Выполняет SQL запрос, при ошибке парсинга или при ошибке на ODBC драйвере формируется исключение. Если запрос возвращает набор строк, метод возвращает объект с результатом запроса, если запрос не возвращает набор строк (не select, а DML или прочий), возвращается количество обработанных строк. Если запрос содержит несколько SQL инструкций (multistatement batch), результаты возвращаются только от первой инструкции. Однако, на драйвер уходит весь текст запроса (По спецификации ODBC, будут ли выполнены остальные инструкции в пакете зависит от драйвера. Для драйвера SQL Server они выполняются), остальные результаты игнорируются. Если запрос возвращает набор данных, и в наборе данных нет ни одной строки, это не является ошибкой. Если запрос не параметризированный - метод гарантированно закрывает курсор.
Возвращает: объект с результатом запроса (ТаблицаЗначений или наследник), или число - количество обработанных строк.
Параметры:
- strTextSQL (Строка): текст запроса, если пустая строка запрос считается параметризированным. По умолчанию пустая строка.
- obVT (объект): ТаблицаЗначений или наследник от нее для приема результатов запроса, именно этот объект и будет возвращаемым значением. Это должен быть именно ТаблицаЗначений или наследник, а не объект реализующий ее интерфейс. Если тип объекта - пустое значение, создается объект типа ТаблицаЗначений. По умолчанию: пустое значение.
- bEraseVT (Число): 1 - очистить таблицу и создать колонки. 0 - не создавать. По умолчанию - 1.

(261) Версия 1с++ какая?

(265) а как узнать?

+(266) програмно

так какой запрос то оптимизируем в итоге?

//Т.е. у мну выглядело бы так:
ТЗ = СоздатьОбъект("ТаблицаЗначений");
Запр.ВыполнитьИнструкцию(ТекстЗапроса,ТЗ);

//-- далее итератор вывода  и прочее --

(268) см (259)

(268) да пофик какой, атор один хрен результат работы любого запроса не в состоянии в моксель вывести

Вообще, я честно говоря, не понимаю.
Раз выражение ТЗ.Товар работает, то, по-идее, должно и работать выражение ТЗ.Жур.docno тоже бы должно было бы работать. Ан нет

(269) та нафига так явно то ?
:)
он и так ТЗ возвращает всегда. хотя для вывода, лучше ИТЗ..

(272) :)))))

ёёё..

(273) А что такое ИТЗ?

(271) Ты слишком к нему суров, может он РГТЭУ закончил и ему лечится от такого образования надо...

И как, в конце-концов из даного запроса показать чилсо ящиков и т.д?

(275) Объект из 1С++ Индексированная ТЗ

ну в принципе и у него отработает и у тебя правильно
(269)
Если тип объекта - пустое значение, создается объект типа ТаблицаЗначений. По умолчанию: пустое значение.

(273) Я последний раз 1С плюс-плюсил 6 лет назад, ты думаешь я следил за развитием проекта?

у мну ALS от 1C++ 1.8.1.6 :))))))))))

(272)
ну аналогия с товаром кривая какая то мож ТЗ.Док попробовать

(280) аа..

(282) Да, да, насоветуй, пусть еще по-тормознее будет.

(282) Работает

(283) кста, ТС стоило бы Толи-абсента статейку в кз почитать, да?

(286) не помогает, ему еще в начале дали

(285) А ТЗ.Док.НомерДок? :))))

:)

(287) Да, это уже патология. Ладно, не будем нервировать больного.

(289) как пить дать он щас так и сделает как в (288) :)))

(284) я так понял тут давно уже оптимизацией и не пахнет)) тут надо тупо чтоб взлетело)

(292) Ну если ты всю оптимизацию агитируешь убить на корню используя разыменвание полей... То можно в этой ветке по-обсуждать... Да что угодно

Ребята, я всем благодарен за дельные советы!
С 1С++ работаю - второй день

(294) да и с 1С 7.7 день пятый походу

(294) Если нужны прямые запросы... То надо хоть чуть-чуть почитать про SQL

+(296) Рекомендую Ицик Бен-Ган Основы t-SQL.
Достаточно грамотно и просто.

(297) Обязательно прочитаю (уже скачиваю)

Но, в каонце концов, как мне это сгрупировать по документах, чтобы я в каждой строке не писал номер документа товар количесвто
ачтобы выдал строка - номер документа
след строка - товар и его количесвто в ящиках
след строка - товар и его количесвто в ящиках
....
Всего ящиков в документе

(299) это тебе еще поучиться надо..

(300) НЕ спорю и учусь.
А как сделать (299)?

(300) Может его спросить таки что за сервер у него? Вдруг OVER проканаяет? :)

самое тупое, это отсортировать в запросе по позиции дока, потом при выводе

ПечДок="";
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
 Ежели ПечДок<>ТЗ.Док Тогда
    ПечДок = ТЗДок;
    ВывестиСекцию("Документ");
 КонецЕсли;
 ВывестиСекцию("Строка");
КонецЦикла;
ВывестиСекцию("Подвал");

ежели еще и переменную для подсчета в ящиках воткнешь унутрь цикла, так еще и поимеешь количество по накладной..

это самый примитив .

(302) не, всё равно не поймет, как ТЗ вывести потом :))
Тут пальцем показывать надо
:)

(303) Те етот код и будет выводить инфу из запроса на экран?

(305) исправишь ошибки синтаксиса - будет

(306) Исправил - работает

аминь

(307) ну круть теперь премию получишь наверно

(309) Премию? Ты не знаешь западно-украинских работодателей

(310) я уже хотел порадоваться, что коллективный разум (в лице безработного Ёпрст4) сделал те подарок к НГ в виде премии

С чего такая уверенность, что я безработный ?

Ёпрст4 - ОГРОМНОЕ СПАСИБО!!!!!!

(312) ну не в смысле без зарплатного я сам на работе сижу а без работы ибо лень НГ скоро с наступающим

Ребята, еще помогите (я уже почти час ищу - ничего не нашел)
Короче, запрос работает правильно, но... в окне сообщений постоянно (вцикле) вылетает:
Поле агрегатного объекта не обнаружено (ТМЦ)
Вот весь код скрипта:
Процедура ПриОткрытии()
   НачДата = НачМесяца(ПолучитьДатуТА())+19;
   КонДата = ПолучитьДатуТА();
КонецПроцедуры

               
Процедура Подч()  
   Нач=ТекущееВремя();
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("НоваяТаблица");
   ТекстЗапроса = "                            
       |select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар";
   
   Запр=СоздатьОбъект("ODBCRecordset");
   Запр.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
   Запр.УстановитьТекстовыйПараметр("НачДата", НачДата);
   Запр.УстановитьТекстовыйПараметр("КонДата", КонДата);
   ТЗ = Запр.ВыполнитьИнструкцию(ТекстЗапроса);
   //Таб.ВывестиСекцию("Шапка");
   ТЗ.ВыбратьСтроки();                          

   ПечДок="";
   ТЗ.ВыбратьСтроки();      
   ДокЯщ = 0;
   Итог=0;
   Пока ТЗ.ПолучитьСтроку()=1 Цикл
         Если ПечДок<>ТЗ.Док Тогда
           ПечДок = ТЗ.Док;
           Таб.ВывестиСекцию("Документ");
           ДокЯщ = 0;
       Иначе
           ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
           Итог= Итог + ДокЯщ;
         КонецЕсли;
     Таб.ВывестиСекцию("Строка");
   КонецЦикла;              
 
   Таб.ВывестиСекцию("Подвал");

   Кон=ТекущееВремя();
   
   //Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Расход","");
   
   
   Сообщить("Обрабатывалось с "+Нач+" до "+Кон);
КонецПроцедуры
В таблице выводятся:
ТЗ.Док
ТЗ.Товар        
ТЗ.КоличествоВЯщиках
Итог                    
Где это чертово ТМЦ?

в расщифровке

смотри свойства ячеек таблицы

(316) Спасибо. Я б до такого сам не догадался

Еще один вопрос, на сегодня надеюсь последний.
Код для вывод у меня такой:
   Пока ТЗ.ПолучитьСтроку()=1 Цикл
         Если ПечДок<>ТЗ.Док Тогда
           ПечДок = ТЗ.Док;
           Таб.ВывестиСекцию("Документ");
           ДокЯщ = 0;
           ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
       Иначе
           ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
           Итог= Итог + ДокЯщ;
         КонецЕсли;
     Таб.ВывестиСекцию("Строка");
   КонецЦикла;              
     Таб.ВывестиСекцию("ПодвалДок");
   Таб.ВывестиСекцию("Итог");

Где поставить Таб.ВывестиСекцию("ПодвалДок");, чтобы он у меня показывал число ящиков по документу, после каждого документа?

+(319) Да и количесвто ящиков он у меня неправильно считает :(

Кто-нибудь, помогите!

ВыведеноСтрокВДокументе=0;
Пока ТЗ.ПолучитьСтроку()=1 Цикл
         Если ПечДок<>ТЗ.Док Тогда
            Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;
            ПечДок = ТЗ.Док;
            Таб.ВывестиСекцию("Документ");
            ДокЯщ = 0;
            ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
            ВыведеноСтрокВДокументе=0;  
        Иначе
            ВыведеноСтрокВДокументе=ВыведеноСтрокВДокументе+1;  
            ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
            Итог= Итог + ДокЯщ;
         КонецЕсли;
     Таб.ВывестиСекцию("Строка");
   КонецЦикла;  
            Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;
         
//      Таб.ВывестиСекцию("ПодвалДок");
   Таб.ВывестиСекцию("Итог");

(321) Приступ непонимания только по средам или ежедневно? :)

и еще... код сам по себе кривой до безобразия

ВыведеноСтрокВДокументе=0;
Пока ТЗ.ПолучитьСтроку()=1 Цикл
         Если ПечДок<>ТЗ.Док Тогда
            Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;
            ПечДок = ТЗ.Док;
            Таб.ВывестиСекцию("Документ");
            ДокЯщ = 0;
           
            ВыведеноСтрокВДокументе=0;  

        КонецЕсли;  
            ВыведеноСтрокВДокументе=ВыведеноСтрокВДокументе+1;  
            ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
            Итог= Итог + ДокЯщ;

     Таб.ВывестиСекцию("Строка");
   КонецЦикла;  
            Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;
         
//      Таб.ВывестиСекцию("ПодвалДок");

   Таб.ВывестиСекцию("Итог");

(323-324) Приступ немонимания... Хотите верьте. хотите нет, но в этом году в феврале месяце умерла моя мама, а в ноябре умерла моя сеестра..
Может потому я торможу

(325) Так он никогда Подвал док не выведет
Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;

(326) Ну и что? У меня жена умерла в ноябре, я же не ною.

(327) Вы и вправду верите в то, что не зайдет?

(329) Пардон, опять торможу

(330) Вооттт. Именно-с.

Опять какая-то фигня: задаю формат(Итог, "ЧЦ=15; ЧД=2; ЧРД='.'")
Выдает:
59Ц26

(332) открой наконец СП и прочти про функцию Формат

Доброе утро! Скрипт работает - все нормально, но...
Теоретический вопрос запрос у нас задается так:
|select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   $Спр.Коэффициент as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар";
Так вот, в подзапросе union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
as Количество - добавил я (хотя и без этого оно работало нормально). Но, по идее, если нет as Количество во втором подзапросе, то через что будет работать  union all?
Второе в строке max($Спр.Коэффициент) as Коэффициент зачем вызывается max? (Хотя без max выдает ошибку: Column '???.SP115' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause.)
Т.е. зачем вроде понятно - чтобы не выдавал ошибку.. Но почему так?

(334)
1.
http://msdn.microsoft.com/ru-ru/library/ms180026(v=sql.100).aspx

не надо там никаких псевдонимов в селекте во втором запросе и всех последующих.

2. Это "защита от дурака" - если введут несколько единиц измерения "ящик" на одну номенклатуру с разными(одинаковыми/нулевыми) коэффицентами - берем тупо с максимальным коэффициентом

(333) Открыл, прочел, исправил. а код (332) я брал с какого-то сайта :(

(335) А почему без max выдаетошибку?

(337)Познай для себя программу "Query Analyzer" - помогает

(338) Программа бесплатная? А то на этой фиирме только лицензионное по

(339)Оно в составе сервера :)

(339) Вы это серьезно?

+ SQL сервера

(337) потому, что гроуп бай

и тебе как бэ, скуль дословно ответил:

Column '???.SP115' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause

Прдон еще один (елементарный вопрос) могу я в ячейке таблицы выдать текст в котором к нему прибавлется значение переменной (в данном случае Всего ящиков за заданный период с НачДата по КонДата)?

можешь

(346) Как? Выражение, шаблон. фиксированный шаблон?

свойства ячейки - Шаблон

в формулу:
Всего ящиков за [ПериодСтр(НачДата,КонДата)]  [ВсегоЯщиков]

+(347) Может там какой то синтксис которого я не знаю?

(348) Спасибо - дело в синтаксисе

Все-таки еще один вопрос (на этот раз думаю, что последний)
Если в данном запросе не показывать каждвй товар иего количество
, то ону бдет работать быстрее?
Сейчас я сделал тупо когда установлен флажок Подробно - строка Строка (ТМЦ, количество) - показывается, когда флаг не установлен, то эта строка не показывается.
А может еще и запрос поменять? Если да, то как?

(351) свёрнуто чтоб по документам было ?

выкидываешь из селекта
,$ДокС.ТМЦ as [Товар $Справочник.ТМЦ]

и из гроуп бай тоже
и привет

(353) Спасибо. сейчас попробую. А так запрос будет быстрее работать или это там какая милисекунда?
Например подробно за прошлый месяц он у меня работет 2.5 минуты

(354) можно еще улучшить, если присоединение журнала делать на каждый документ отдельно в подзапросе с юнионами.

(355) Ну, пока и так работает моего опыта и знаний на это пока не хватает. А (355) это для подробнорго отчета или нет или для обоих?

для обоих

2.5 минуты.. это слишком долго.
Где-то еще есть обращение к серваку, надеюсь, в результате запроса дату свою и другие атрибуты документа не получаешь как

ТЗ.Док.ДатаДок ?

(357) Так и думал. попробую сам, а не получитьсчя - обращусь  к тебе

(359) ТЗ.Док обращаюсь просто так

меня до 7-го не будет ужо.. через 8 минут

(361) Тми за 8 минут сможешь такой запрос написать?

ТекстЗапроса="
|select        
|   Таб.Документ as [Док $Документ]
|   ,Таб.iddocdef as [Док_вид $ВидДокумента]
|   ,Таб.Товар as [Товар $Справочник.ТМЦ]
|   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
|   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
|from
|    (
|      select
|        $ДокС.ТМЦ as Товар
|        ,Жур.iddocdef
|        ,ДокС.iddoc as Документ
|        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
|      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
|      inner join _1sjourn as Жур (nolock) on Жур.IDDoc = ДокС.iddoc
|      and Жур.iddocdef  = $ВидДокумента.РасходнаяНакладная
|      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
|      and Жур.Closed&1 = 1
|    
|      union all
|
|      select
|        $ДокН.ТМЦ
|        ,Жур2.iddocdef
|        ,ДокН.iddoc
|        ,$ДокН.Кво*$ДокН.Коэффициент
|      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
|      inner join _1sjourn as Жур2 (nolock) on Жур2.IDDoc = ДокН.iddoc
|      and Жур2.iddocdef  = $ВидДокумента.РасходнаяНакладнаяН
|      and Жур2.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
|      and Жур2.Closed&1 = 1
|    )as Таб
|
|left join (
|             select  
|                   max($Спр.Коэффициент) as Коэффициент
|                    ,Спр.parentext as Владелец
|             from $Справочник.Единицы as Спр (nolock)
|             where $Спр.Ед =:ВыбЕдиница
|                   and $Спр.Коэффициент>0
|                   and Спр.ismark=0
|             group by Спр.parentext
|           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
|
|group by
|    Таб.Документ,Таб.iddocdef,Таб.Товар
|";
Запрос.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
..................

(363) ОГромное спасибо!

(363) Прочитаешь уже в следующем году. Но второй вариант, который по твоим словам должен был бы работать быстрее работал на 24 секунды дольше, чем прыдидущий

А ты его несколько раз запусти

(366) А что єто даст?

ПОнятно, что львиную долю времени занимает вывод рещультатов запроса, а не сам запрос. Т.е. если улучшений вариант и давал какую-то экономию то это милисекунды или того меньше

1. Вы замер сделайте именно на выполнение запроса.
2. Если правильно составлен запрос то вывод данных на печать не будет занимать "львиной доли" (если не тысячи строк выводятся на печать)
3. К (366) - Понятие план запроса вам знакомо?

(369) это как интересно запрос влияет на время формирования печатной формы? вроде, не связанные процессы

(370) Резк\ультаты работы запроса выводяться на экран или как?

(370) - может я неверно выразился, имелось ввиду что
если запросом получает все необходимые данные и нет необходимости их дальше преобразовывать, то на печать должно вывестись очень быстро.
Именно потому что они ну совсем не связанные процессы...

" то на печать должно вывестись очень быстро. " - читать как формирование печатной формы не должно занять много времени.

Сейчас внес дополнения в код и буду знать: общее время работы скрипта, время выполнения запроса, время вывода на экран - Вот и увидем реальные цифры.
+  О выводе на экран, толи у меня видеокарта медленная, то ли ввобще комп, но именно вывод на экран занимает очень много времени.
P.S. Когда я "приукрасил" немного таблицу (разные цвета для шапки, ну шапка - фыгня, а вот для ТМЦ и совсем другой цвет для суммыящиков по документу (а документов скрипт обрабатывает ну очень много) - время работы скрипта увеличилось вдове!

(374) Ты случайно объединений ячеек не добавил при приукрашательстве? Вдвое - подозрительно много.

Результаты работы улучшенной версий скрипт работал 13мин 49сек
Запрос работал: 7 секунд

(375) Добавлял

ну так убери нафиг
это тормоза, потери памяти, и потециально глюки при отображении

(378) Не знал. Спасибо. Уберу

по поводу скорости формирования mxl: http://www.rikcenter.ru/download/TestVivoda.zip

кратко: не выводить агрегатных данных, особенно в расшифровки - это основные тормоза. Ещё прикольно использовать подготовленные секции, но это уже следующим шагом.

Простой (первый неоптимизированний вариант скртипта): Общее время работы 13 минут 47 секунд (на 2 секунды меньше от оптимизированного).
Запрос в этой первой версии работал 3секунды - против 7 секунд в оптимизированной версии!

(380) Что за линк там в архиве файлы дбф, один вв файл и один мд файл к 1С. Что с ними делать и что они дают?

(382) это тестовая конфа, в которой сравниваются разные методы вывода в mxl

(383) Понял, а, не в курсе где обо всем этом можно почитать (скорость формирования)?

Ну ты посмотри там в код - всё примитивно. Это проще, чем русским языком объяснять. Помнится, этот тест мы сделали в ходе обсуждения на 1С++ форуме - можешь там поискать.

(385) Спасибо

Ребята! еще подскажите как мне из 1С в T-SQL "перевести"
Условие (ТМЦ в выбТМЦ)
?
WHERE ТМЦ in выбТМЦ
полный текст запроса :
|select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар";

+(387) И где это поставить в тексте запроса?

(387, 388) выбТМЦ у меня на форме отчета окно для выбора тмц

(388) а документацию будет читать пушкин? или тарас шевченко?

(389) Т.е. как этот параметр передать в запрос?
(390) Да я буду читать, но сейчас когда запрос уже готов и рабоатет надо доставить только этот выбор ТМЦ

Конечно у меня еще совсем нет опыта, сделал так:
  ТекстЗапроса = "                            
       |select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар
       | HAVING Товар in :выбТМЦ"
Дак ругается:
State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 43: Incorrect syntax near ''.

+(391) Параметр в запрос передаю так:
Запр.УстановитьТекстовыйПараметр("выбТМЦ", выбТМЦ);Запр.УстановитьТекстовыйПараметр("выбТМЦ", выбТМЦ);

Кто-нибудь ПОМОГИТЕ пожалуйста!!!!!!!!!!!!!!!!!!11

Отбор по списку или группе
Для таких случаев у объекта ODBCRecordset есть метод
УложитьСписокОбъектов(Список, Таблица, ВидСправочника) и
УложитьСписокОбъектов13(Список, Таблица)
Список – это список или группа. После  выполнения этого метода появляется таблица с именем Таблица и колонками Val, IsFolder
Однако не стоит злоупотреблять этим методом. Анализируя производительность можно увидеть, что этот метод на группах работает медленно и это совершенно очевидно, т.к. группа может содержать огромное число элементов, которые надо переписать во временную таблицу. ГОРАЗДО эффективней получить список подгрупп входящих в выбранную группу и делать условие по принадлежности к родителю, а не по ID

Пример: Выберем все документы реализации, у которых склад входит в выбранную группу

ТекстЗапроса = "
|SELECT
|    Док.IDDoc as [Док $Документ.Реализация]
|FROM
|    $Документ.Реализация as Док
|WHERE
|    $Док.Склад IN (SELECT Val FROM #Группа)";
RS.УложитьСписокОбъектов(ВыбГруппа, "#Группа", "Склады");

Замечание: Рекомендуется использовать локальные временные таблицы – префикс #. В этом случае не нужно заботиться об уникальности имени таблицы для разных пользователей, а также об их последующем удалении.
В ДБФ версии драйвер сам создает такие таблицы и сам же генерирует им имя.
Можно сделать универсальный способ получения имени таблицы, работающий как в ДБФ, так и в СКЛ:
   ИмяТаблицы="#Группа ";
   Запрос.УложитьСписокОбъектов(СписокРодителей,ИмяТаблицы);
   ТекстЗапроса=" (SELECT Val FROM "+ИмяТаблицы+")";
В случае СКЛ запрос выполнится из таблицы "#Группа", а в случае ДБФ система сгенерит имя и вернет ее в переменную ИмяТаблицы. В случае ДБФ имя временной таблицы выглядит так ‘f6d3b234a56c765f52da’ что, конечно не очень красиво для текста запроса(особенно если его еще и разбирать на ошибки нужно или на дополнения). Можно сделать запрос более красивым и универсальным: для этого воспользуемся методом УстановитьТекстовыйПараметр()

(395) Спасибо, попробую разобраться

скачай уже мануал к 1с++ там все, что надо хорошо расписано и с примерами - "MSSQL при помощи ВК 1С.doc"
или кинь мыло в асю или личку - отправлю

(397) Сча кину мыло

А как кинуть в личку?

+399 Аська у меня здесь пока не установлена :(

вот порвая ссылка в яндексе =)
Книга знаний: Эффективное использование MSSQL с помощью ВК 1C++
--
или адрес своего мыла тут напиши

[email protected]

Помогите совсем неопытному...
|WHERE
|    $Док.Склад IN (SELECT Val FROM #Группа)";
RS.УложитьСписокОбъектов(ВыбГруппа, "#Группа", "Склады");
но у меня в запросе по поводу ТМЦ нет WHERE

+(403) Полный текст запроса см. в (387)

(403) так добавь..? =)
а лучше, наврное, добавить в твои подзапросы..

Написал так:
  ТекстЗапроса = "                            
       |select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар
       | HAVING Таб.Товар IN (SELECT Val From #Группа)";
. . .
Запр=СоздатьОбъект("ODBCRecordset");
   Запр.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
   Запр.УстановитьТекстовыйПараметр("НачДата", НачДата);
   Запр.УстановитьТекстовыйПараметр("КонДата", КонДата);
   Запр.УложитьСписокОбъектов13(выбТМЦ, "#Группа");
   Нач3=ТекущееВремя();                        
   ТЗ = Запр.ВыполнитьИнструкцию(ТекстЗапроса);
Так он, запрос, ничего не находит. Понимаю ошибка в SQL (HAVING Таб.Товар IN (SELECT Val From #Группа)";)
А как иначе мне указать SQL что интересуют ТМЦ или Группы ТМЦ выбранная пользователем в окне выбора?

(405) Так WHERE Таб.Товар = #Группа И где именно в тексте запроса это добавить?

|from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
where Таб.Товар IN (SELECT Val From #Группа)
       |    
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
where Таб.Товар IN (SELECT Val From #Группа)
       |    )as Таб

тока ессно никаких таб.товар, а  $ДокС.ТМЦ IN (SELECT Val From #Группа)

Зделал так:
   |select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       | WHERE Таб.Товар IN (SELECT VAL FROM #Группа)
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар";
Выдает:
The column prefix 'Таб' does not match with a table name or alias name used in the query
:(

(409) =) жош

(411) Написал так:
| WHERE $ДокН.Товар IN (SELECT VAL FROM #Группа)
Выдает:
{\\SERVER12\VPKTEST$\EXTFORMS\ПРОДАЖА В ЯЩИКАХ 2.ERT(110)}: Meta name parser error: поле таблицы не найдено "$ДокС.Товар"

(412) =) ты издеваешься?

у тебя в документе в табличной части какое поле? вот его и подставляй.

+(412) когда написал так:
| WHERE $ДокС.ТМЦ IN (SELECT VAL FROM #Группа)
То запрос ничего не находит! :(:(

Можете вере не там надо ставить?
Подный текст запроса:
ТекстЗапроса = "                            
       |select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       | WHERE $ДокС.ТМЦ IN (SELECT VAL FROM #Группа)
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       | WHERE $ДокН.ТМЦ IN (SELECT VAL FROM #Группа)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар";

Запрос.УложитьСписокОбъектов(ВыбТовар, "#Группа","Товары");

ВыбТовар элемент формы справочник.товары

Выдает: Запр.УложитьСписокОбъектов(ВыбТМЦ, "#Группа","Товары");
{\\SERVER12\VPKTEST$\EXTFORMS\ПРОДАЖА В ЯЩИКАХ 2.ERT(108)}: Недопустимое значение третьего аргумента метода!

и ты из своего суперзапроса, сделай сначала чтобы маленькие запросы работали.. просто отбери товар по группе с реквизита формы

Все написал так  - работает
а написал так:Запр.УложитьСписокОбъектов(ВыбТМЦ, "#Группа","ТМЦ");

@#$ я х^ею =) у тебя справочник не Товары видимо называется...
я же кусок даже из мануала запостил.

(421) неможетбыть =)

(423) Сам не верю :

(423) Спасибо!

Всем огромное спасибо за помощь и подсказки! Запрос таки работает, но возникла такая проблема. Если в списке ТМЦ не ничего не выбрать - то и запрос ничего не вернет, хотя за данный период продажи и были... :(
чтобы освежить тему показываю весь текст запроса:
|select        
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
       |   ,Таб.Товар as [Товар $Справочник.ТМЦ]
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
       | WHERE $ДокС.ТМЦ IN (SELECT VAL FROM #Группа)
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
       | WHERE $ДокН.ТМЦ IN (SELECT VAL FROM #Группа)
       |    )as Таб
       |
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by
       |    Жур.iddoc,Жур.iddocdef,Таб.Товар"

+(426) Насколько я понимаю вся "загвоздака" здесь:
WHERE $ДокН.ТМЦ IN (SELECT VAL FROM #Группа)
т.е. если ТМЦ из текущего документа не выбрано в списке - то оно и пропускается...
Но как здесь быть НЕ ЗНАЮ. подскажите

+(426, 427) Но. если убрать WHERE $ДокН.ТМЦ IN (SELECT VAL FROM #Группа), то, естественно не будут выбираться товары выбранные пользовтелем в списке...

(428) тебя еще не убили?

+ Если не с помощью запроса, то текст запроса надо формировать в зависимости от отого есть ли выбранные ТМЦ, а через SQL это никак нельзя сделать?

(429) Как видиш

(429) Может ты чего подскажешь?

+ К тому же, если не делать WHERE по выбраным ТМЦ, то по чему их делать?

+(433) Тоесть если нет выбраных ТМЦ в списке выбора - WHERE совсем опустить?

что-то все сегодня спят?
Предыдущие вопросы - решены мною, но как програмно определить выбрал ли что0либо пользователь в окне выбора?

(431) а жаль.... пора бы... за нечитание документации

(434) формируй текст запроса динамически.

(437) Тоесть если
Если ВыбТМЦ.РазмерСписка()<0 Тогда
       //запрос без ВЕРЫ
ИНАЧЕ
               // Запрос с WHERE
КонецЕсли;
ТАк?

(438) меньше 1

(438)
Если ... тогда
ТекстЗапроса+="where всякая_херня";
конецЕсли

(440)З Не понял что ты имел в виду, но сделал как в (438) - работает и работает так как надо

(441) он имел ввиду, что текст запроса можно собирать по условиям, динамически. подозреваю, что ты скопировал весь текст запроса два раза =) с верой и без..
а можно обойтись одной строчкой

(442) "не поможет..."©

(442)-(443) Теперь скрипт у меня такой (код полностью даю):
//*******************************************
Процедура ПриОткрытии()
   НачДата = НачМесяца(ПолучитьДатуТА())+19;
   КонДата = ПолучитьДатуТА();
   Подробно=1;
КонецПроцедуры

               
Процедура Подч()  
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("НоваяТаблица");
   
   ТекстЗапроса = "
       |select    
       |   Жур.iddoc as [Док $Документ]
       |   ,Жур.iddocdef as [Док_вид $ВидДокумента]";
   Если Подробно=1 тогда
       ТекстЗапроса = ТекстЗапроса + "   ,Таб.Товар as [Товар $Справочник.ТМЦ]";
   КонецЕсли;                                                                    
   ТекстЗапроса = ТекстЗапроса + "
       |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
       |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
       |from
       |    (
       |      select
       |        $ДокС.ТМЦ as Товар
       |        ,ДокС.iddoc as Документ
       |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)";
   Если ВыбТМЦ.РазмерСписка()>0 ТОГДА
       ТекстЗапроса = ТекстЗапроса + "| WHERE $ДокС.ТМЦ IN (SELECT VAL FROM #Группа)";
   КонецЕсли;
   ТекстЗапроса = ТекстЗапроса + "
       |      union all
       |
       |      select
       |        $ДокН.ТМЦ
       |        ,ДокН.iddoc
       |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
       |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)";
   Если ВыбТМЦ.РазмерСписка()>0 ТОГДА
           ТекстЗапроса = ТекстЗапроса + "| WHERE $ДокН.ТМЦ IN (SELECT VAL FROM #Группа)";
   КонецЕсли;
   ТекстЗапроса = ТекстЗапроса + "
       |    )as Таб
       |inner join
       |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
       |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
       |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
       |      and Жур.Closed&1 = 1
       |left join (
       |             select  
       |                   max($Спр.Коэффициент) as Коэффициент
       |                    ,Спр.parentext as Владелец
       |             from $Справочник.ЕдИзм as Спр (nolock)
       |             where $Спр.Ед =:ВыбЕдиница
       |                   and $Спр.Коэффициент>0
       |                   and Спр.ismark=0
       |             group by Спр.parentext
       |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
       |
       |group by ";
   Если Подробно=1 тогда
       ТекстЗапроса = ТекстЗапроса + " Жур.iddoc,Жур.iddocdef,Таб.Товар";    
   ИНАЧЕ
       ТекстЗапроса = ТекстЗапроса + " Жур.iddoc,Жур.iddocdef";
   КонецЕсли;                                                                    
   

   Запр=СоздатьОбъект("ODBCRecordset");
   Запр.Отладка();
   Запр.УстановитьТекстовыйПараметр("ВыбЕдиница",Перечисление.Единицы.ящик);
   Запр.УстановитьТекстовыйПараметр("НачДата", НачДата);
   Запр.УстановитьТекстовыйПараметр("КонДата", КонДата);
   Запр.УложитьСписокОбъектов(ВыбТМЦ, "#Группа","ТМЦ");;                        
   ТЗ = Запр.ВыполнитьИнструкцию(ТекстЗапроса);
   Кон2=ТекущееВремя();
   Таб.ВывестиСекцию("Шапка");
   ТЗ.ВыбратьСтроки();                          

   ПечДок="";
   ТЗ.ВыбратьСтроки();      
   ДокЯщ = 0;
   Итог=0;          
   ВыведеноСтрокВДокументе=0;
   Пока ТЗ.ПолучитьСтроку()=1 Цикл
         Если ПечДок<>ТЗ.Док Тогда
            Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;
            ПечДок = ТЗ.Док;
            Таб.ВывестиСекцию("Документ");
            ДокЯщ = 0;
           
            ВыведеноСтрокВДокументе=0;  

        КонецЕсли;  
            ВыведеноСтрокВДокументе=ВыведеноСтрокВДокументе+1;  
            ДокЯщ = ДокЯщ + ТЗ.КоличествоВЯщиках;
            Итог= Итог + ДокЯщ;

     Если Подробно=1 тогда
         Таб.ВывестиСекцию("Строка");
     КонецЕсли
   КонецЦикла;  
            Если 0<ВыведеноСтрокВДокументе Тогда
                Таб.ВывестиСекцию("ПодвалДок");
            КонецЕсли;
   

   Таб.ВывестиСекцию("Итог");
     
   Кон=ТекущееВремя();
   
   Таб.Опции(0,0,Таб.ВысотаСекции("Шапка"),0);
   Таб.ТолькоПросмотр(1);
   Таб.Защита(0);
   Таб.Показать("Расход","");
КонецПроцедуры
// ===============================
Процедура ВыбратьТМЦ(Реж)
   Перем Фрм;
   Перем Тек;
   Если ВыбТМЦ.РазмерСписка()>0 Тогда
       Тек=ВыбТМЦ.ПолучитьЗначение(ВыбТМЦ.ТекущаяСтрока());
   КонецЕсли;
   ОткрытьПодбор("Справочник.ТМЦ",,Фрм,Реж,Тек);
   Фрм.ВыборГруппы(1);
КонецПроцедуры

// ===============================
Процедура ОбработкаПодбора(Выб)
   ВыбТМЦ.ДобавитьЗначение(Выб);
   ВыбТМЦ.ТекущаяСтрока(ВыбТМЦ.РазмерСписка());
КонецПроцедуры

(444) подробно не смотрел, но на первый взгляд потянет...
хотя в школу бы, в 10 класс не помешало бы вернуться...

Прочитал тему - жесть.

(435) "Предыдущие вопросы - решены мною" - ага, тобою, точно

(447)
В село по разбитой дороге вьезжает телега, загруженная углем, в которую запряжена старая тощая кляча...
в телеге на горе угля сидит мужичок...
и радостно кричит:
- Люди!!! Я вам уголь привез!!!
Кляча устало оборачивается:
- Ага, бл.., ТЫ привез...
©

(444)такое динамическое построение текста выглядит понятнее. Не так ли?

   ТекстЗапроса = "
   |select    
   |   Жур.iddoc as [Док $Документ]
   |   ,Жур.iddocdef as [Док_вид $ВидДокумента]
   |    /*ПолеТовар*/
   |   ,sum(Таб.Количество) as КоличествоВБазовойЕдиницеИзмерения
   |   ,sum(Таб.Количество/isnull(СпрЕдиницы.Коэффициент,1)) as КоличествоВЯщиках
   |from
   |    (
   |      select
   |        $ДокС.ТМЦ as Товар
   |        ,ДокС.iddoc as Документ
   |        ,$ДокС.Кво*$ДокС.Коэффициент as Количество
   |      from  $ДокументСтроки.РасходнаяНакладная as ДокС (nolock)
   |      /*Условие1*/
   |      union all
   |
   |      select
   |        $ДокН.ТМЦ
   |        ,ДокН.iddoc
   |        ,$ДокН.Кво*$ДокН.Коэффициент as Количество
   |      from  $ДокументСтроки.РасходнаяНакладнаяН as ДокН (nolock)
   |      /*Условие2*/
   |    )as Таб
   |
   |inner join
   |    _1sjourn as Жур (nolock) on Жур.IDDoc = Таб.Документ
   |      and Жур.iddocdef in ($ВидДокумента.РасходнаяНакладная,$ВидДокумента.РасходнаяНакладнаяН)
   |      and Жур.Date_Time_IDDoc BETWEEN :НачДата and :КонДата~
   |      and Жур.Closed&1 = 1
   |left join (
   |             select  
   |                   max($Спр.Коэффициент) as Коэффициент
   |                    ,Спр.parentext as Владелец
   |             from $Справочник.ЕдИзм as Спр (nolock)
   |             where $Спр.Ед =:ВыбЕдиница
   |                   and $Спр.Коэффициент>0
   |                   and Спр.ismark=0
   |             group by Спр.parentext
   |           ) as СпрЕдиницы on СпрЕдиницы.Владелец = Таб.Товар
   |group by Жур.iddoc, Жур.iddocdef /*ГруппТовар*/
   |";
   Если Подробно=1 Тогда
       ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*ПолеТовар*/", ",Таб.Товар as [Товар $Справочник.ТМЦ]");
       ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*ГруппТовар*/", ",Таб.Товар");
   КонецЕсли;
   Если ВыбТМЦ.РазмерСписка()>0 Тогда
       ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*Условие1*/", "WHERE $ДокС.ТМЦ IN (SELECT VAL FROM #Группа)");
       ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*Условие2*/", "WHERE $ДокН.ТМЦ IN (SELECT VAL FROM #Группа)");
   КонецЕсли;

(449) Спасибо за совет/подсказку - я просто не знал что так можно...