Код

Процедура УдалитьЛишниеЦены(_КонДата,Команда)
	спрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
	спрЦены = СоздатьОбъект("Справочник.Цены");
	Периодический = СоздатьОбъект("Периодический");
	спрНоменклатура.ВыбратьЭлементы();
	Пока спрНоменклатура.ПолучитьЭлемент() = 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(:КонДата))";
			Команда.УстановитьТекстовыйПараметр("КонДата",_КонДата);
			Команда.УстановитьТекстовыйПараметр("СпрЦены",спрЦены.ТекущийЭлемент());
			Команда.Выполнить(ТекстЗапроса);
		КонецЦикла;
		Состояние("Обработан" + спрНоменклатура.ТекущийЭлемент());
	КонецЦикла;

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

Код

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
 |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 =$ИсторияРеквизита.цены.цена
 |";