функции есть только при group by

да.

а ты бери top 1 + order by desc

Че-то заморочил я тебе голову своей ср@ной энергией..
Вот так делай :

delete
from
	 1sconst
where
     Objid = :СпрЦены and id = :Реквизит
     and Date <
     (Select
	     MAX(Date)
     from
	     1sconst
     where Objid = :СпрЦены and id = :Реквизит and Date < :КонДата) 

у тебя там явно запятой нету..
Ты текст в отладке покажи.
Команда.УстановитьТекстовыйПараметр("Реквизит",МД.И

Спасибо всем! проблему решил.
Вот правильный текст запроса.
"
                 |delete
                 |from
                 |       1sconst
                 |where
                 |     Objid = :СпрЦены and id = $ИсторияРеквизита.Цены.Цена
                 |    and Date <
                 |   (Select
                 |     MAX(Date)
                 |from
                 |   1sconst
                 |where Objid = :СпрЦены and id = $ИсторияРеквизита.Цены.Цена and Date < ctod(:КонДата))"

ид реквизита нужно получать через $ИсторияРеквизита.Цены.Цена
такая конструкция не работает
МД.ИДРеквизитаСправочника("Цены","Цена"); (МД - объект типа MetaDataWork)

ммм...
Так тоже работает.
Столькнулся с проблемой следующего характера.
Вообще через прямой запрос решил делать потому, что объект периодический работает медленно 4 часа удаляет .
Написав запрос и запустив обработку обнаружил что через запрос медленне 12 часов уже молотит и конца нет. Может как то по другому можно сделать Номенклатуры 25000 цен по 5 на каждую номенклатуру.

Думаю что проблема в том что запрос написан только для одной позиции.
Вот только не знаю как написать запрос который бы отбирал бы данные кучей и удалял бы их одним махом.

тип цен пофигу. по всем типам нужно оставить только последнее значение.

Нет смотри всю процедуру:

Процедура УдалитьЛишниеЦены(_КонДата,Команда)
	спрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
	спрЦены = СоздатьОбъект("Справочник.Цены");
	Периодический = СоздатьОбъект("Периодический");
	спрНоменклатура.ВыбратьЭлементы();
	Пока спрНоменклатура.ПолучитьЭлемент() = 1 Цикл
		Если спрНоменклатура.ЭтоГруппа() = 1 Тогда
			Продолжить;
		КонецЕсли;
		спрЦены.ИспользоватьВладельца(спрНоменклатура.ТекущийЭлемент());
		спрЦены.ВыбратьЭлементы();
		Пока спрЦены.ПолучитьЭлемент() = 1 Цикл
			**********
			ТекстЗапроса = "
			|delete
			|from
			|	 1sconst
			|where
			|     Objid = :СпрЦены and id = $ИсторияРеквизита.Цены.Цена
			|    and Date <
			|   (Select
			|     MAX(Date)
			|from
			|   1sconst
			|where Objid = :СпрЦены and id = $ИсторияРеквизита.Цены.Цена and Date < ctod(:КонДата))";
			Команда.УстановитьТекстовыйПараметр("КонДата",_КонДата);
			Команда.УстановитьТекстовыйПараметр("СпрЦены",спрЦены.ТекущийЭлемент());
			Команда.Выполнить(ТекстЗапроса);
			*************
			ТекстЗапроса = "
			|delete
			|from
			|	 1sconst
			|where
			|     Objid = :СпрЦены and id = $ИсторияРеквизита.Цены.Единица
			|    and Date <
			|   (Select
			|     MAX(Date)
			|from
			|   1sconst
			|where Objid = :СпрЦены and id = $ИсторияРеквизита.Цены.Единица and Date < ctod(:КонДата))";
			Команда.УстановитьТекстовыйПараметр("КонДата",_КонДата);
			Команда.УстановитьТекстовыйПараметр("СпрЦены",спрЦены.ТекущийЭлемент());
			Команда.Выполнить(ТекстЗапроса);
		КонецЦикла;
		Состояние("Обработан" + спрНоменклатура.ТекущийЭлемент());
	КонецЦикла;

КонецПроцедуры
 

Leierkastenmann писал(а) 19. Января 2011 :: 09:34:

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

mozer писал(а) 19. Января 2011 :: 09:20:


Как-то ты всё сделал через 1 место..

В особенности перебор всего справочника номенклатуры.. когда надо было всего лишь 1 табличку 1sconst шерстить для этого.
Без выполнения кучи запросов, а выполнив всего лишь один :

тебе достаточно знать id реквизита Цена и всё..

+ ты не учитываешь цену для разных типов цен

Алгоритм такой:

делаешь селект с группировкой по objid +max(date)
далее удаляешь всё, что не в этой выборке.

Так спробуй:

id = Прав(_idtostr(МД.ИДРеквизитаСправочника("Цены","Цена")),4);
ТекстЗапроса="

 |delete
 |--select *
 |from 1sconst
 |where not exists
 |    (
 |     select *
 |     from (
 |		 select
 |		    c.Objid as Objid
 |		    ,max(c.date) as date
 |		 from 1sconst c
 |		 where c.id = '"+id+"'
 |		group by c.Objid
 |	    )t
 |    where t.objid=objid and t.date=date
 |	 )and id ='"+id+"'
 |"; 

Да нет, долбаный фокс не позволяет алияс на delete делать, вот так всё работает:

ТекстЗапроса="

 |delete
 |from 1sconst
 |where not exists
 |    (
 |     select *
 |     from (
 |		 select
 |		    c.Objid as Obj
 |		    ,max(c.date) as d
 |		 from 1sconst c
 |		 where c.id = $ИсторияРеквизита.цены.цена
 |		group by c.Objid
 |	    )t
 |    where t.obj=objid and t.d=date
 |	 )and id =$ИсторияРеквизита.цены.цена
 |"; 

удаляем все строки когда ид = нужному и вложенный подзапрос не вернул ни одной строки.

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