Доброе время суток!
Есть справочник Товары и подчиненный ему справочник Единицы. В единицах беспорядочно установлены коды элементов. Нужно установить для базовой единицы (определяется по перечислению в справочнике Товары) код 1. Для единиц с типами уп, кор, палето далее по последовательности (имеется ввиду если есть несколько одинаковых типов).
В общем придумал такую схему: для определенного товара выгрузить все его единицы в таблицу добавив колонку параметр (базовая-1, уп-2, кор-3, палето-4). Отсортировать "Колонка-параметр,ИДЭлемента". Затем по номерам строк данной таблицы задать коды в справочнике Единицы.
Можно канешн создать параметризированный запрос для выгрузки единиц в 1с-кую ТЗ, сортировать, добавить столбец с номерами строк и «заапдейтить» единицы по этой ТЗ. Но хотелось бы сделать подобное через SQL. Первый раз задался такой идеей. Раньше хватало обычной выборки с различными соединениями. Никода не использовал запросы с циклами и условиями, но очень хочетца разобраться.   Да и скорость удивительная по сравнению с 1С.

В общем получилось что-то вроде:

if Exists (select * from tempdb..sysobjects where id = object_id('tempdb..#temp_ed') and sysstat & 0xf = 3 ) drop table #temp_ed
Create Table #temp_ed ( [row_id] int IDENTITY(1, 1) not null, [id] char(9), [p] int, PRIMARY KEY CLUSTERED (row_id) )
DECLARE @code as int
SET @code = (select max(code) from $Справочник.Товары (nolock))

WHILE @code > 0
BEGIN
delete from #temp_ed

if not Exists (select * from $Справочник.Товары (nolock) where code = @code) begin set @code = @code - 1 continue end

insert into #temp_ed (id, p)
select
e.id id,
case
when $e.спрЕдиница = $t.спрБазоваяЕдиница then 1
when $e.спрЕдиница = :Упаковка then 2
when $e.спрЕдиница = :Коробка then 3
when $e.спрЕдиница = :Палето then 4
else 5
end p
from $Справочник.Товары t (nolock)
inner join $Справочник.Единицы e (nolock) on t.id = e.parentext and t.code = @code
order by p, id

if @@ROWCOUNT > 0 begin
update e
set e.code = t.row_id
from $Справочник.Единицы e (nolock)
inner join #temp_ed t on t.id = e.id
end

set @code = @code - 1
END

GO
select
t.row_id,
t.id,
t.p,
e.code,
tov.code
from #temp_ed t
inner join $Справочник.Единицы e (nolock) on e.id = t.id
inner join $Справочник.Товары tov (nolock) on tov.id = e.parentext

if Exists (select * from tempdb..sysobjects where id = object_id('tempdb..#temp_ed') and sysstat & 0xf = 3 ) drop table #temp_ed

Получаю максимальный код в справочнике Товары. Далее обратный цикл по кодам товаров для получения единиц с параметром…
Тока не работает она, чтоб ее... С конкретным указанием кода все отлично, но с циклом что-то не так. Если убрать delete from #temp_ed, то в таблице две строки на выходе. С единицами двух товаров с последними по величине кодов.

Еще смущает то, что если в «set @code = @code - 1» поставить «+ 100» то ничего странного не происходит. Время обработки прежнее. Результат тоже  
Чет запутался .......

Select
  ИтЗапрос.Товар [Товар $Справочник.Товары]
, ИтЗапрос.Единица [Единица $Справочник.Единицы]
, ИтЗапрос.ПризнакСортировки as ПризнакСортировки
From
(
Select
 СпрТов.ID as Товар
,СпрЕд.ID as Единица
,CASE
  When $СпрТов.БазоваяЕдиница = СпрЕд.ID Then 1
  When $СпрЕд.спрЕдиница = :Упаковка Then 2
  ....
  END
  as ПризнакСортировки
From $Справочник.Товары as СпрТов (NOLOCK)
LEFT JOIN $Справочник.Единицы as СпрЕд (NOLOCK) on
(СпрТов.id = СпрЕд.parentext)
Where СпрТов.ISFOLDER = 2
) as ИтЗапрос
Order By ИтЗапрос.Товар, ИтЗапрос.ПризнакСортировки 

ну а потом пробежать по индексированной таблице и перекодировать

Inner Join (c) писал(а) 16. Апреля 2009 :: 12:47:

наоборот забывай про while.   sql   декларативный язык и
в "чистом" ansi sql нет и не может быть while.
ИХМО изучай код который для тебя leshik написал.

Z1 писал(а) 16. Апреля 2009 :: 12:50:


Жаль. Творческий процесс почти уничтожен.... Кстати решил "While" изучить после того как его здесь на форуме его увидел. Народ так лихо им оперировал, что сразу натолкнуло на мысль изучить его.

Цитата:

Для сортировки по полю ПризнакСортировки
А касательно задачи так и не понятно - что сделать то надо.
Выдели в отдельный пост только задачу - что есть и что надо сделать. А там подумаем.

leshik писал(а) 16. Апреля 2009 :: 13:54:


А сортировка по алиасу в одном запросе.  Не знаю как в оригинальном sql, но в 1с++ работает. Сортировка и группировка работает также и по case... типа в полях его прописываешь и в сортировке. Но это канешн страшновато выглядит

leshik, а ты как-то про индексированную таблицу упоминал. Я индексы обычно для ускорения обработки больших объемов применял и не знаю всех их возможностей (если они канешн есть ). Нельзя ли их в моем случае использовать? Типа индекс по двум полям (товар, единица) потом использовать при обработке всей таблицы.

черт. вот ложанулся  тримнуть забыл...
обычно всегда без cast'a обходился. всмсле "where rtrim(ltrim(code)) = rtrim(ltrim(@code))".
А "(select max(code) from $Справочник.Товары (nolock))" нормально срабатывал и циферку возвращал  видимо тоже неявное преобразование

ЗЫ запрос перепишу без цикла. как оформлю выложу

Z1 писал(а) 21. Апреля 2009 :: 07:39:


Думаю это того не стоит. Тут основная проблема в общем запросе получить номера строк отсортированной таблицы единиц ОДНОГО товара, и по этим номерам проставить коды элементов этих единиц. Желательно без передачи данных в оперативку и обратно в SQL. Для этого и цикл в теле основного запроса. Ну без цикла - значит без цикла

Нихрена не понял наверное, но тут можно обойтись апдейтом для базовой единицы (соединение по владельцу и реквизиту БазоваяЕдиница) + апдейт для всех остальных единиц с кейсом на ОКЕИ или его аналог (ссылок же нет в номенклатуре для них?)
Карочи 2 простых куска кода по 4 строки

В общем пришлось отказаться от всего этого все уперлось в то что я не нашел каким образом в селекте счетчик сделать. а IDENTITY работает тока в инсерте. можно было б одним апдейтом с правильной расстановкой джойнов все оформить.
Забил я на все это и сделал через AddIn.ValTable с параметризированным апдейтом. Если кому интересно могу код выложить.

PVR писал(а) 27. Апреля 2009 :: 09:07:


Прошу прощения. Код писал за несколько дней до предыдущего поста, и забыл почуть как делал Хотел же поначалу через таблицу сделать, но вспомнил что "ТабРез.Загрузить(Запрос.ВыполнитьИнструкцию(ТЗ))" работает довольно долго с большим объемом данных, поскольку из запроса на выходе получаем таблицу значений, а потом перегружаем в VT. А тут весь справочник товаров (~35000) + у каждого несколько единиц. В итоге сделал через 2 параметризированных запроса. Вот текст:

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

	ТЗ="
	|select
	|t.id [Тов $Справочник.Товары]
	|from $Справочник.Товары t (nolock)
	|where t.ismark = 0 and t.isfolder = 2
	|";

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

	овка);
	ка);
	);

	ТЗ="
	|declare @Tov char(9)
	|set @Tov = ?
	|select
	|e.id [Ед $Справочник.Единицы],
	|case
	|when $e.спрЕдиница = $t.спрБазоваяЕдиница then 1
	|when $e.спрЕдиница = :Упаковка then 2
	|when $e.спрЕдиница = :Коробка then 3
	|when $e.спрЕдиница = :Палето then 4
	|else 5
	|end Парам
	|from $Справочник.Товары t (nolock)
	|inner join $Справочник.Единицы e (nolock) on t.id = e.parentext and t.ismark = 0 and t.id = @Tov
	|order by Парам, $e.спрКоэффициент, e.id
	|";

	Если Запрос.Подготовить(ТЗ)=0 Тогда
		Сообщить(Запрос.ПолучитьОписаниеОшибки(),"!");
		Возврат;
	Иначе
		Запрос.ДобПараметр(1,14,9,0);
	КонецЕсли;

	ТЗ="
	|declare @Ed char(9)
	|declare @N char(5)
	|set @Ed = ?
	|set @N = ?
	|update e
	|set e.code = @N
	|from $Справочник.Единицы e
	|where e.id = @Ed
	|";

	Если ЗапросОбн.Подготовить(ТЗ)=0 Тогда
		Сообщить(ЗапросОбн.ПолучитьОписаниеОшибки(),"!");
		Возврат;
	Иначе
		ЗапросОбн.ДобПараметр(1,14,9,0);
		ЗапросОбн.ДобПараметр(1,14,5,0);
	КонецЕсли;

	КолСтрок=ТабТов.КоличествоСтрок();

	ТабТов.ВыбратьСтроки();
	Пока ТабТов.ПолучитьСтроку()=1 Цикл
		Состояние("Товар: "+ТабТов.НомерСтроки+" из "+КолСтрок);

		Запрос.УстПараметр(1,ТабТов.Тов);
		ТабЕд=Запрос.ВыполнитьИнструкцию();

		КоличЕд=ТабЕд.КоличествоСтрок();
		Если КоличЕд<1 Тогда
			Продолжить;
		КонецЕсли;

		ТабЕд.НоваяКолонка("Ном","Строка",5,0);

		Для Сч=1 По КоличЕд Цикл
			пСч=Строка(Сч);
			Пробелы="";
			Для н=1 По 5-СтрДлина(пСч) Цикл
				Пробелы=Пробелы+" ";
			КонецЦикла;
			ТабЕд.УстановитьЗначение(Сч,"Ном",Пробелы+пСч);
		КонецЦикла;

		ТабЕд.УдалитьКолонку("Парам");

		ЗапросОбн.ВыполнитьSQL_ИзТЗ(ТабЕд);
	КонецЦикла;

 

Работает немолниеносно, как хотелось, но оч. быстро   .

ЗЫ. Для тех кто не сталкивался.... Пришлось с кодами пошаманить немножко. Грабли там небольшие. Если заапдейтить коды элементов просто строкой из числа без пробелов, то при интерактивной записи элемента говорит "неверно задан код". И если один из кодов потом руками перезаписать и посмотреть что выдаст запрос по этим кодам, то видно отличие результата в пробелах. 1С при записи дописывает слева пробелы до длины кода.

Inner Join (c) писал(а) 27. Апреля 2009 :: 05:53:


Попробуй поискать "нумерация строк в запросе" или нечто подобное на sql.ru, думаешь ты первый?
Самое простое - во временную таблицу сбросить