Я по прямым запросам - нуль, если писать самому.. если смотреть на написанное - то чуток получше...
есть черный запрос
есть его аналог на DBF (фокспрошный драйвер) - писали за небольшую оплату... есть сомнения в оптимальности запроса и еще по одному пункту.
если кому - жаба не давит - просьба дать квалифицированное заключение/подправить запрос (вопрос оплаты решаем)
.
сабж:
описание выхода запроса (запрос формируем на !!!_ТА_!!!):
"штатная" ТиС, получить перечень "незакрытых" заявок покупателей (сумма или колво ненулевые) по условию:
а) - просроченные, т.е. где (Заявка.ДатаОтгрузки+КолвоДнейНаПринятиеРешения) >= ТекущаяДата()
б) - непросроченные, т.е. где (Заявка.ДатаОтгрузки+КолвоДнейНаПринятиеРешения) < ТекущаяДата()
d) Все
черный запрос такой:
    ТекстЗапроса = "
    |Заявка = Регистр.Заявки.ЗаявкаПокупателя;
    |Контрагент = Регистр.Заявки.ДоговорПокупателя.Владелец;
    |Менеджер = Регистр.Заявки.ДоговорПокупателя.Владелец.БВК_Менеджер;
    |Договор = Регистр.Заявки.ДоговорПокупателя;
    |Склад = Регистр.Заявки.ЗаявкаПокупателя.Склад;
    |Фирма = Регистр.Заявки.Фирма;
    |ДатаОтгрузки = Регистр.Заявки.ЗаявкаПокупателя.ДатаОтгрузки;
    |СуммаЗаявки = Регистр.Заявки.СтоимостьРасход;
    |КолЗаявки = Регистр.Заявки.КоличествоРасход;
    |Функция КонОстС = КонОст(СуммаЗаявки);
    |Функция КонОстК = КонОст(КолЗаявки);";
 
    Если парамРежимФормирования = -1
    Тогда //условий не накладываем, полный отчет
    Иначе
     ТекстЗапроса = ТекстЗапроса +"
     |Условие(ЗаявкаУжеПросрочена(ДатаОтгрузки)=парамРежимФормирования);";
    КонецЕсли;
   
    Если НАЙТИ(ВРЕГ(НазваниеНабораПрав()),"АДМИН")=0 Тогда
     ТекстЗапроса = ТекстЗапроса +"
     |Условие (Менеджер в глПользователь);";
    КонецЕсли;
   
    ТекстЗапроса = ТекстЗапроса +"
    |Группировка Контрагент Без Групп;
    |Группировка Заявка;
    |";
 
    Запрос = СоздатьОбъект("Запрос");
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли;
парамРежимФормирования = 1 если нужны просроченные
парамРежимФормирования = 0 если нужны непросроченные
..
используемая функция:

//ТекущаяДатаРаботы = ТекущаяДата() (=ТА)
//ДатаОтгрузки - Заявка.ДатаОтгрузки
Функция ЗаявкаУжеПросрочена(ДатаОтгрузки)
  Если (ТекущаяДатаРаботы - ДатаОтгрузки) > КолвоДнейНаПринятиеРешения
  Тогда Возврат 1; //просрочено
  Иначе Возврат 0; //непросрочено
  КонецЕсли;
КонецФункции //ЗаявкаУжеПросрочена()
..
..
вот прямой запрос на фокспрошном драйвере
ТекстЗапроса = "
    |SELECT
    | т.Заявка as [Заявка $Документ.ЗаявкаПокупателя],
    | т.Договор as [Договор $Справочник.Договоры],
    | т.Фирма as [Фирма $Справочник.Фирмы],
    | т.Склад as [Склад $Справочник.Склады],
    | т.ДатаОтгрузки as ДатаОтгрузки,
    | т.Контрагент as [Контрагент $Справочник.Контрагенты],
    | т.Менеджер as [Менеджер $Справочник.Пользователи],
    | т.Количество as КонОстК,
    | т.Сумма as КонОстС,
    | т.Флаг as Флаг
    |FROM(
    |SELECT
    | $Рег.ЗаявкаПокупателя as Заявка,
    | $Рег.ДоговорПокупателя as Договор,
    | $Рег.Фирма as Фирма,
    | $Док.Склад as Склад,
    | $Док.ДатаОтгрузки as ДатаОтгрузки,
    | Спр1.id as Контрагент,
    | $Спр1.БВК_Менеджер as Менеджер,
    | SUM($Рег.КоличествоРасход) as Количество,
    | SUM($Рег.СтоимостьРасход) as Сумма,
    | IIF(:ДатаРаботы~~ >$Док.ДатаОтгрузки,1,0) as Флаг
    |FROM
    | $РегистрИтоги.Заявки as Рег
    | INNER JOIN $Документ.ЗаявкаПокупателя Док on Док.IDDoc = Right($Рег.ЗаявкаПокупателя,9)
    | INNER JOIN $Справочник.Договоры Спр on Спр.id = $Рег.ДоговорПокупателя
    | INNER JOIN $Справочник.Контрагенты Спр1 on Спр1.id = Спр.ParentExt
    |WHERE Рег.Period = :ДатуТА~~
    | GROUP BY узки,Спр1.id,$Спр1.БВК_Менеджер) as т
    |WHERE
    | т.Сумма+т.Количество>0";
    Если НАЙТИ(ВРЕГ(НазваниеНабораПрав()),"АДМИН")=0 Тогда
     ТекстЗапроса = ТекстЗапроса + "
     | and т.Менеджер = :ГлПользователь";
    КонецЕсли;
    Если парамРежимФормирования = -1
    Тогда //условий не накладываем, полный отчет
    Иначе
     ТекстЗапроса = ТекстЗапроса +"
     | and т.Флаг=:парамРежимФормирования";
    КонецЕсли;
    ТекстЗапроса = ТекстЗапроса +"
    | Order by т.Контрагент,т.Заявка";
   
    ДатаРаботы = ТекущаяДата()-ВыбДень;
    Запрос.УстановитьТекстовыйПараметр("ДатаРаботы" ,ДатаРаботы);
       Запрос.УстановитьТекстовыйПараметр("ГлПользователь" ,ГлПользователь);
     Запрос.УстановитьТекстовыйПараметр("ДатуТА" ,НачМесяца(РабочаяДата()));
       Запрос.УстановитьТекстовыйПараметр("парамРежимФормирования" ,парамРежимФормирования);
       ТЗЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);

..
..
Монопольно - Управление опертивными итогами - периодичность сохранения остатков
.. и тут как раз вылазит бяка!
вызывает вопрос вот это:
   |WHERE Рег.Period = :ДатуТА~~
в совокупности
Запрос.УстановитьТекстовыйПараметр("ДатуТА" ,НачМесяца(РабочаяДата()));
.. при этом похоже что запрос будет цеплять лишние данные...

Спасибо!

2 kiruha
1. понял, но думаю что смутно понял:
как написать "чтоб попал в индекс"?
2. вопрос в том - зачем здесь в запросе начало месяца, если идет обращение к итогам НА ТА? (или итоги на ТА невозможно получит сразу а надо "считать" от начала месяца плюс-минус движения?) и зачем начало месяца, если у меня периодичность сохранения остатков = 5 дней?
3. втыкнул процентов на 10% - не более, т.е. практически не втыкнул (так, на уровне подсознания) - SQL для чайников пролистал бегло, тщательнее - времени не особо... отсюда тот же вопрос: как сделать правильно...? почему не лефт - не знаю... по той же причине...
4. да, именно так и есть - потом из результатов запроса вытягиваю через точку нужные реквизиты - но это пока несущественно - если можно то как тоже сделать?
..
как написано выше - вопрос оплаты решаем.

Цитата:

Цитата:

Случай вполне стандартный, надо писать так:
Цитата:

Запрос.мд.ПолучитьНачПериода(ПолучитьДатуТА()));

Сорри, что есть Запрос.мд ?  Да и ПолучитьНачПериода()  тоже.

В результате имеем: "деньги не для этого форума" и никто вообщем-то толково запрос не переписал.. даже за денежку.. все самому придется, блин...

Ещё надо заметить, что Чеб хочет, чтобы это работало как на ДБФ, так и на СКЛ версии, поэтому перед формированием запроса необходимо сделать:

МетаИнфо=СоздатьОбъект("MetaInfoClasses");
	флЭтоСКЛ=МетаИнфо.ЭтоSQL_Версия(); 

и далее в запросе везде, где идёт сравнение дат надо ставить:

":ДатаРаботы~"+?(флЭтоСКЛ=1,"","~")+">$Док.ДатаОтгрузки" 

+ ес-но, если будешь использовать совет, который дал тебе Кирюха:

WHERE г.ЗаявкаПокупателя
|	   LIKE (DTOS(:ДатуТА~~ )"+L_(9+9+9+9)+") 

то также надо обращать на это внимание, либо просто оставить как было:

"Рег.Period = :ДатуТА~"+?(флЭтоСКЛ=1,"","~") 

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

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

Цитата:

Тебя не поймёшь... То ты говоришь, чтоб запрос отрабатывал на ЛЮБОЙ базе, то у тебя оказывается, что для СКЛ у тебя отдельный запрос.
Ну тогда бери и собирай все из этой ветки в одну кучу, пробуй и потом спрашивай что у тебя не получилось, что сделать лучше и показывай уже новый запрос.