Имеется регистр Реклама

Структура -
Измерения - Издание
           Контрагент
           Рубрика
           Номер
           Документ
           менеджер
Реквизиты - ВидПлатежа
           КодОперации
Ресурсы   - Сумма


как преобразовать вот такой запрос


ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)

    |Период с ДатаНач по ДатаКон;
    |ТекДок     = Регистр.Реклама.Документ;
    |Издание    = Регистр.Реклама.Издание;
    |Контрагент = Регистр.Реклама.Контрагент;
    |Рубрика    = Регистр.Реклама.Рубрика;
    |Размер     = ент.ПеремещениеРекламы.Размер;
    |ВидПлатежа = Регистр.Реклама.ВидПлатежа;
    |Выпуски    = Регистр.Реклама.Номер;
    |Менеджер   = Регистр.Реклама.Менеджер;
    |Сумма      = Регистр.Реклама.Сумма;
    |КодОперации= Регистр.Реклама.КодОперации;
    |Функция СуммаНач    = НачОст(Сумма);
    |Функция СуммаКон    = КонОст(Сумма);   
    |Функция СуммаБанк   = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.БН));
    |Функция СуммаНал    = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Н));
    |Функция СуммаНал1   = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Н1));
    |Функция СуммаБеспл  = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Бесплатно));
    |Функция СуммаБартер = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Бартер));
    |Функция СуммаУвеличения = Расход(Сумма) когда((КодОперации=Перечисление.КодОперации.Перемещение));
    |Функция СуммаУменьшения = Приход(Сумма) когда((КодОперации=Перечисление.КодОперации.Перемещение));
    |Группировка Рубрика;
    |Группировка Контрагент без групп;
    |Группировка Выпуски;
    |Группировка ТекДок;
    |"//}}ЗАПРОС



в запрос 1с++

сорри забыл сказать
база СКУЛЬ

проблема в том что не могу понять как получить реквизиты регистров при использовании "РЕГИСТРЫОСТАТКИОБОРОТЫ"

тогда проще объединить ВТ Остатки и ВТ Обороты таблицу движений Регистра(здесь можно фильтровать по реквизитам), так как оптимизировать отбор оборотов при такой фильтрации все равно не получится

а зачем объединять, есл иможно заюзать ВТ РегистрОстаткиОбороты?
или что то пропустил?

DrACe писал(а) 16. Января 2007 :: 09:51:

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

ни у кого идей не возникло??? как сделать

Так чего тебе нужно в итоге-то?
Вроде и так все быстро?

ЕСЧЕ раз, все с начала и по проядку:


Имеется регистр Реклама 

Структура - 
Измерения - Издание
          Контрагент
          Рубрика
          Номер
          Документ
          менеджер
Реквизиты - ВидПлатежа
          КодОперации
Ресурсы   - Сумма


как преобразовать вот такой запрос 


ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
 
    |Период с ДатаНач по ДатаКон;
    |ТекДок     = Регистр.Реклама.Документ;
    |Издание    = Регистр.Реклама.Издание;
    |Контрагент = Регистр.Реклама.Контрагент;
    |Рубрика    = Регистр.Реклама.Рубрика;
    |Размер     =
ент.ПеремещениеРекламы.Размер;
    |ВидПлатежа = Регистр.Реклама.ВидПлатежа;
    |Выпуски    = Регистр.Реклама.Номер;
    |Менеджер   = Регистр.Реклама.Менеджер;
    |Сумма      = Регистр.Реклама.Сумма; 
    |КодОперации= Регистр.Реклама.КодОперации;
    |Функция СуммаНач    = НачОст(Сумма);
    |Функция СуммаКон    = КонОст(Сумма);    
    |Функция СуммаБанк   = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.БН));
    |Функция СуммаНал    = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Н));
    |Функция СуммаНал1   = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Н1));
    |Функция СуммаБеспл  = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Бесплатно));
    |Функция СуммаБартер = Приход(Сумма) когда((ВидПлатежа=Перечисление.ВидыПлатежей.Бартер));
    |Функция СуммаУвеличения = Расход(Сумма) когда((КодОперации=Перечисление.КодОперации.Перемещение));
    |Функция СуммаУменьшения = Приход(Сумма) когда((КодОперации=Перечисление.КодОперации.Перемещение));
    |Группировка Рубрика;
    |Группировка Контрагент без групп;
    |Группировка Выпуски;
    |Группировка ТекДок;
    |"//}}ЗАПРОС
 


в запрос 1с++

база СКУЛЬ.

когда((ВидПлатежа=Перечисление.ВидыПлатежей.БН));  - ВидПлатежа - РЕКВИЗИТ РЕГИСТРА
в данном запросе используется услови по РЕКВИЗИТАМ регистра
точнее условия по которым я не могу вставить в конструкцию ОСТАтКИИОБОроты запроса 1с++

и еще как организовать вот это
|Размер     =
ент.ПеремещениеРекламы.Размер;
то есь ТЕКУЩИЙ ДОКУМЕНТ на 1с++



насчет срочности это не супер срочно, меня не четвертуют и ничего не сделают со мной просто хотелось бы облегчить жизни бедным бухам
представьте 5 минут сверки отчета равняются  8 тире 10 минутам ожидания формирования отчета.... бедные
бухи...

могу скинуть полностью модуль отчета.. если это облегчит понимание задачи

первый вариант не канает
представь если запрос формируется 208 сек при таких ИЗМЕРЕНИЯХ запроса, то если добавить...
и все переделывать придется
хотя со временем эту конфу всю переделать хочется на 1с++ по крайней мере отчеты
писал не я сделано все сложновато (доолго все формируется) жутко долго
ок жду
а можно в асю кинуть када будет готово
можно сразу и на мыло
skom(сабака)рамблер(тчк)ру
если не сложно кАнечНо

(14) "когда((ВидПлатежа=Перечисление.ВидыПлатежей.БН)); "

When $РегРекл.ВидПлатежа='   9YF   '
Конечно, у тебя будет не 9YF, а другой - свой код., соответствущий Перечисление.ВидыПлатежей.БН.

Уже говорили выше - тебе поможет объединение вт остатков и вт оборотов. Хотя на самом деле, имхо, лучше использовать вт оборотов и таблицу движений регистра. Из таблицы движений получить нужные тебе движения, отобранные по реквизитам и сгрупировать их. Типа этого:

ТекстЗапроса = "
|Select
|  $r.Рубрика,
|  $r.Контрагент,
|  $r.Номер,
|  j.DATE_TIME_IDDOC,
|  SUM( case when $r.ВидПлатежа = '" + MetaDataWork.ЗначениеВСтрокуБД(Перечисление.ВидыПлатежей.БН) + "' AND r.DebKred = 1 then $r.Сумма else 0 end) СуммаБанк,
|  SUM( case when $r.ВидПлатежа = '" + MetaDataWork.ЗначениеВСтрокуБД(Перечисление.ВидыПлатежей.Н) + "' AND r.DebKred = 1 then $r.Сумма else 0 end) СуммаНал,
|  SUM( case when $r.ВидПлатежа = '" + MetaDataWork.ЗначениеВСтрокуБД(Перечисление.ВидыПлатежей.Н1) + "' AND r.DebKred = 1 then $r.Сумма else 0 end) СуммаНал1
|
|From $Регистр.Реклама r (nolock) inner join _1sJourn j (nolock) ON r.IDDOC = j.IDDOC
|Where j.DATE_TIME_IDDOC Between :вДатаНач And :вДатаКон~
|Group By $r.Рубрика, $r.Контрагент, $r.Номер, j.DATE_TIME_IDDOC
|";
 

, а затем к этому приджойнить остатки из ВТ остатков

Не суетись. 
Описываю как прикручивать функции ...
(Если успею сделаю функци для таких как у тебя случаев сделаю автоматом в конвертере)
подсказка для функции:
добавляеш в таблицу с итогами регистра  debkred например
     |   debkred
     |from $Регистр.ПартииНаличие t1 (NOLOCK)
при сумировании используешь case(аналог if в SQL)
ПриходС=Sum(case when debkred>0 then 0 else vt_Обороты.Сумма end),

Можешь просто подождать функции как у тебя  я постараюсь прикрутить к конвертеру сегодня.

Постараюсь сегодня помочь тебе  решить твою задачу.
Подумай как ты будеш прекручивать группировки,
пока времени прикрутить группировки к конвертеру нет.

Выкладываю конвертер напиши что он тебе выдал для твоего случая.

Всего наилучшего.

           |Select
           |  $Рег.Менеджер as [Менеджер $Справочник.Менеджеры],
           |  $Рег.Рубрика as [Рубрика $Справочник.Рубрики],
           |  $Рег.Контрагент as [Контрагент $Справочник.Контрагенты],
           |  $Рег.Номер as Номер,
           |  SUM(case when Рег.DebKred = 1 then -$Рег.Сумма else 0 end) as ВыходРекламы,
           |  SUM(case when $Рег.ВидПлатежа = :Банк AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Банк,
           |  SUM(case when $Рег.ВидПлатежа = :Нал AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Наличка,
           |  SUM(case when $Рег.ВидПлатежа = :Допл AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Доплата,
           |  SUM(case when $Рег.ВидПлатежа = :Беспл AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Бесплатно,
           |  SUM(case when $Рег.ВидПлатежа = :Барт AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Бартер
           |From $Регистр.Реклама as Рег
           |INNER JOIN  _1sJourn as Жур ON Рег.IDDOC = Жур.IDDOC
           |Where $Рег.Издание = :ВыбИздание  AND Жур.DATE_TIME_IDDOC Between :ДатаНач AND :ДатаКон~
           |GROUP BY
           |      $Рег.Менеджер, $Рег.Рубрика, $Рег.Контрагент, $Рег.Номер
           |";

как в этом запросе получить в выходной ТЗ документ из регистра по виду документа "ПриемРекламы" что бы ... в общем последний документ данного типа

сорри за неясность
из этого запроса мне нужно еще одно значение для полноты картины
надо в колонку (новую) ТЗ (ну по выполнении запроса результат в ТЗ)
получить ссылку на документ, по виду дока "Прием рекламы" и самый последний по дате!!!

стараюсь...
и все таки хотелось бы примерчик плз...

так должена  была  выглядеть часть твоего исходного
запроса связаная с движениями
vt_Продажы.ТекДок as [ТекДок $Документ],
vt_Продажы.Издание as [Издание $Справочник.Издания],
vt_Продажы.Контрагент as [Контрагент $Справочник.Контрагенты],
vt_Продажы.Рубрика as [Рубрика $Справочник.Рубрики],
vt_Продажы.Размер as [Размер $Справочник.РазмерРекламы],
COALESCE(Размер1,Размер2) as as [Размер $Справочник.РазмерРекламы],
vt_Продажы.ВидПлатежа as [ВидПлатежа $Перечисление.ВидыПлатежей],
vt_Продажы.Выпуски as Выпуски,
vt_Продажы.Менеджер as [Менеджер $Справочник.Менеджеры],
vt_Продажы.Сумма as Сумма,
vt_Продажы.КодОперации as [КодОперации $Перечисление.КодОперации]
vt_Продажы.debkred as debkred
from(
|select vt_Продажы2.*,              
|$Документ.ПеремещениеРекламы.Размер as Размер2  
| from(      select vt_Продажы1.*,              
|            $Документ.ПриемРекламы.Размер as Размер1  
|             from(                                                                                    
                 | $Рег.Менеджер.Документ   as ТекДок,
                 | $Рег.Издание Издание,
                 | $Рег.Контрагент as Контрагент ,
                 | $Рег.Рубрика as Рубрика,
                 | Жур.IDDOC   as ТекущийДокум,
                 | $Рег.ВидПлатежа as ВидПлатежа,
                 | $Рег.Номер as Выпуски,
                 | $Рег.Менеджер as Менеджер,    
                 | $Рег.Сумма as Сумма,    
                 | $Рег.КодОперации as КодОперации
                 |From $Регистр.Реклама as Рег
                 |INNER JOIN _1sJourn as Жур ON Рег.IDDOC = Жур.IDDOC
                 |Where Жур.DATE_TIME_IDDOC Between :ДатаНач AND :ДатаКон~) as vt_Продажы1
           | Left outer join $Документ.ПриемРекламы as Документ on  Документ.IDDOC=vt_Продажы1.ТекущийДокумент) as vt_Продажы2
| Left outer join $Документ.ПеремещениеРекламы as Документ on Документ.IDDOC=vt_Продажы2.ТекущийДокумент)
) as vt_Продажы
SUM(case when $Рег.ВидПлатежа = :Банк AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Банк,
          |  SUM(case when vt_Продажы.ВидПлатежа = :Нал AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Наличка,
          |  SUM(case when vt_Продажы.ВидПлатежа = :Допл AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Доплата,
          |  SUM(case when vt_Продажы.ВидПлатежа = :Беспл AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Бесплатно,
          |  SUM(case when vt_Продажы.ВидПлатежа = :Барт AND Рег.DebKred = 0 then $Рег.Сумма else 0 end) as Бартер
GROUP BY
          |      vt_Продажы.Менеджер, vt_Продажы.Рубрика, vt_Продажы .Контрагент,vt_Продажы.Выпуски
Тебе  написаное  помогло или все же отвечать на твой вопрос?
Хотя мне он кажеться страным но тебе видней.