УстановкаТА

Пытаюсь разобраться с обработкой Установка ТА от DMITRO

Вот код, который переносит итоги с 16.01.08 на 21.01.08

[code]
if exists (select * from tempdb..sysobjects where id = object_id('tempdb..#rgtmp') and sysstat & 0xf = 3 )
  drop table #rgtmp;

select
  $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
  $Регистр.КнигаПокупок.СуммаРуб, $Регистр.КнигаПокупок.СуммаНДС, $Регистр.КнигаПокупок.СуммаНП
into #rgtmp
from $РегистрИтоги.КнигаПокупок rg
where period={d '2008-01-11'};

delete
from $РегистрИтоги.КнигаПокупок
where period>={d '2008-01-11'}

insert $РегистрИтоги.КнигаПокупок
  select
    {d '2008-01-11'},
    $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
    sum($Регистр.КнигаПокупок.СуммаРуб),
    sum($Регистр.КнигаПокупок.СуммаНДС),
    sum($Регистр.КнигаПокупок.СуммаНП)
  from (
    select
     $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
     $Регистр.КнигаПокупок.СуммаРуб, $Регистр.КнигаПокупок.СуммаНДС, $Регистр.КнигаПокупок.СуммаНП
    from #rgtmp
    union all
    select
     $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
     case debkred when 0 then $ra.СуммаРуб else -$ra.СуммаРуб end,
     case debkred when 0 then $ra.СуммаНДС else -$ra.СуммаНДС end,
     case debkred when 0 then $ra.СуммаНП else -$ra.СуммаНП end
    from $Регистр.КнигаПокупок ra
     inner join _1sjourn journ on ra.iddoc=journ.iddoc
    where date_time_iddoc>'20080116     0     0   ' and date_time_iddoc<='20080121     0     0   '
    ) as tmp
  group by $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга
  having
    sum($Регистр.КнигаПокупок.СуммаРуб) <> 0 or
    sum($Регистр.КнигаПокупок.СуммаНДС) <> 0 or
    sum($Регистр.КнигаПокупок.СуммаНП) <> 0

insert $РегистрИтоги.КнигаПокупок
  select
    {d '2008-01-21'},
    $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
    sum($Регистр.КнигаПокупок.СуммаРуб),
    sum($Регистр.КнигаПокупок.СуммаНДС),
    sum($Регистр.КнигаПокупок.СуммаНП)
  from (
    select
     $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
     $Регистр.КнигаПокупок.СуммаРуб, $Регистр.КнигаПокупок.СуммаНДС, $Регистр.КнигаПокупок.СуммаНП
    from $РегистрИтоги.КнигаПокупок rg
    where period={d '2008-01-11'}
    union all
    select
     $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга,
     case debkred when 0 then $ra.СуммаРуб else -$ra.СуммаРуб end,
     case debkred when 0 then $ra.СуммаНДС else -$ra.СуммаНДС end,
     case debkred when 0 then $ra.СуммаНП else -$ra.СуммаНП end
    from $Регистр.КнигаПокупок ra
     inner join _1sjourn journ on ra.iddoc=journ.iddoc
    where date_time_iddoc>'20080121     0     0   ' and date_time_iddoc<='20080121     0     0   '
    ) as tmp
  group by $Регистр.КнигаПокупок.КредДокумент, $Регистр.КнигаПокупок.СтавкаНДС, $Регистр.КнигаПокупок.ВидДолга
  having
    sum($Регистр.КнигаПокупок.СуммаРуб) <> 0 or
    sum($Регистр.КнигаПокупок.СуммаНДС) <> 0 or
    sum($Регистр.КнигаПокупок.СуммаНП) <> 0

[/code]


Сначала мы записываем во временную таблицу все итоги, у которых Period=d '2008-01-11', то есть это итог на старую точку актуальности, прибавляем к нему приход-расход с 16 по 20 (вдруг есть движения после ТА) и записываем в таблицу итогов с полем Period 2008-01-11,это будут итоги, они же остатки на конец 20.01.08. Потом то же самое записываем на period d '2008-01-21' - здесь у нас будут лежать итоги на новую точку актуальности.

Я ведь все правильно понял?

В этой обработке судя по всем не совсем правильно определяется необходимость джойнить таблицу _1sjourn. По ее логике эта таблица цепляется если

Функция ЦеплятьЖурн(МДРегистр)
	Для Тек=1 По МДРегистр.Измерение() Цикл
		Если МДРегистр.Измерение(Тек).ОтборДвижений=1 Тогда
			Возврат 0;
		КонецЕсли;
	КонецЦикла;
	Если МДРегистр.БыстраяОбработкаДвижений=1 Тогда
		Возврат 0;
	Иначе
		Возврат 1;
	КонецЕсли;
КонецФункции

 

то есть если хоть у одного измерения строит "отбор" или стоит быстрая обработка движений, то считаем что в регистре есть поле date_time_iddoc и джойнить _1sjourn не надо, а в противном случае такого поля нет и джойнить его надо. Но вот у меня например есть регистры в который не стоит быстрой отбор движений и нет отбора ни по одному измерению, а это поле date_time_iddoc все равно есть из за этого запрос не выполняется, а так как обработки ошибок нет, то я и не знал что запрос не выполянется, и итоги не переносятся.

Всем спасибо за терпение, вопрос закрыт 

Ну тогда я буду один такой, с исправленной ошибкой 

Установка ТА. Отличия от оригинала:
1. Если в таблице движений регистра есть поле DATE_TIME_IDDOC, но при этом не стоит галочка Быстрая обработка движений, и не стоит "Отбор" ни по одному из измерений (оказывается такое бывает), итоги не переносились. См. выше.
2. Добавлена обработка ошибок (вывод в окно сообщений текста ошибки) при выполнении запроса.
3. Если отменены штатные блокировки 1С, то таблицы не блокировались, теперь блокируются.

Исправлено. Переделана функция, которая проверяет необходимость цепляния _1sjourn, теперь она проверяет не только измерения на галочку "отбор движений" но и реквизиты, так как поле DATE_TIME_IDDOC в таблице движений регистра создается и в этом случае.

Нет, но есть такая база. Могу грохнуть из нее данные и выложить, если интересно.

yudin писал(а) 18. Января 2008 :: 07:44:

ясно, спасибо