Код

Функция ПолучитьКодЭлемента()

	//код вида [01][01][01]([Группа][ПодГруппа][Элемент]), т.е. аналогично справочнику ТМЦ для групп. Элемент тут - контейнер
    //для первой группы н-р: 01, для первой подгруппы 0101, для первого элемента 010101

	КодРодителя = ?(ПустоеЗначение(Родитель) = 1,"",СокрЛП(Родитель.Код));
	текУровень  = Родитель.Уровень()+1;

	RS = СоздатьОбъект("ODBCRecordSet");
	RS.УстБД1С();

	ТекстЗапроса = "
	|set nocount on
	|
	|declare @i int
	|declare @tmp table(code char("+(текУровень*2)+") not null primary key)
	|
	|set @i = 1
	|
	|while @i<=99
	|begin
	| insert into @tmp values(right('"+КодРодителя+"'+'0'+ltrim(str(@i)),"+(текУровень*2)+"))
	|
	| set @i = @i + 1
	|end
	|
	|select top 1
	| tmp.code
	|from
	| @tmp tmp
	|where
	| not exists(select * from $Справочник.ТехнологииЭтапыСтроительства спр (nolock) where parentid = '"+Метадата.ЗначениеВСтрокуБД(Родитель)+"' and спр.code = tmp.code) and
	| not exists(select * from _1sdnlock lck (nolock) where dnprefix = '"+Прав(Формат("","С10") + ),10)+"' and docno = tmp.code)
	|";


	НовыйКод = "";
	Попытка
		НовыйКод = RS.ВыполнитьСкалярный(ТекстЗапроса);
	Исключение
		Сообщить(RS.ПолучитьОписаниеОшибки(),"!!!");
		Возврат 0;
	КонецПопытки;


	Если ПустоеЗначение(НовыйКод) = 1 Тогда
		Сообщить("Невозможно получить код для элемента: при существующем шаблоне кода количество элеметов в группе не может превышать 99!","!!!");
		//менять шаблон кода
		Возврат 0;
	КонецЕсли;

	//если этот код блокируется
	ТекстЗапроса = "
	|insert into _1sdnlock
	|select
	| '"+Прав(Формат("","С10") + ),10)+"' dnprefix,
	| '"+НовыйКод+"'														     docno
	|
	|select @@error
	|";

	рез = RS.ВыполнитьСкалярный(ТекстЗапроса);

	Если рез = 2627 Тогда  //Violation of PRIMARY KEY constraint

		НовыйКод = ПолучитьКодЭлемента();
	КонецЕсли;

	Возврат НовыйКод;
КонецФункции	// ПолучитьКодЭлемента	  

Код

select top 1
  cast(Nom1.code as int)+1 as СледующийКод
from $Справочник.Товары as Nom1
where cast((select top 1 Nom2.code from $Справочник.Товары as Nom2 where Nom2.Code > Nom1.code order by Nom2.code) as int) - cast(Nom1.code as int) > 1
  or (select top 1 Nom2.code from $Справочник.Товары as Nom2 where Nom2.Code > Nom1.code order by Nom2.code) is null
order by Nom1.code