Код

create function id36toint(@idc as char(6)) returns int as
begin
  declare @i int, @id int, @weight int
  set @i = 6
  set @id = 0
  set @weight = 1
  while @i > 0
  begin
    declare @code int
    set @code = ascii(substring(@idc, @i, 1));
    if @code = 0x20
	break
    if @code > 0x39
	set @code = @code - 0x37
    else
	set @code = @code - 0x30
    set @id = @id + @code * @weight
    if @i > 1
	set @weight = @weight * 36
    set @i = @i - 1
  end
  return @id
end
 

Код

create function inttoid36(@id as int) returns char(6) as
begin
  declare @i int, @idc varchar(6), @weight int, @Leading int
  set @idc = ''
  set @weight = 60466176
  set @Leading = 1

  if @id = 0
    set @idc = '     0'
  else
  begin
    set @i = 0
    while @i < 6
    begin
	declare @code int
	set @code = @id / @weight;
	if @code > 9
	begin
	  set @idc = @idc + char(@code + 0x37)
	  set @Leading = 0
	end
	else
	  if @code = 0 and @Leading = 1
	   set @idc = @idc + ' '
	  else
	  begin
	    set @idc = @idc + char(@code + 0x30)
	    set @Leading = 0
	  end
	set @id = @id % @weight
	set @i = @i + 1
	if @i < 6
	  set @weight = @weight / 36
    end
  end
  return @idc
end
 

Код

...
    select
	@ИДДокумента = case when max(iddoc) is null
	  then '     1   '
	  else dbo.inttoid36(dbo.id36toint(left(max(iddoc), 6)) + 1) + '   '
	end
    from _1sjourn
...
 

Код

Функция ф36to10(ID36)
	i=6; id=0; weight=1;

	Пока i>0 Цикл
		СимвКод = КодСимв(Сред(ID36,i,1));
		Если СимвКод=20 Тогда Продолжить; КонецЕсли;
		Если СимвКод>39 Тогда
			СимвКод=СимвКод-37;
		Иначе
			СимвКод=СимвКод-30;
		КонецЕсли;
		id=id+СимвКод*weight;
		Если i>0 Тогда
			weight=weight * 36;
		КонецЕсли;
		i=i-1;
	КонецЦикла;

	Возврат id;
КонецФункции 

Код

Функция ф10to36(ID10)
	idc=""; weight=60466176; learding=1;

	Если ID10=0 Тогда
		id = "     0";
	Иначе
		i=0;
		Пока i<6 Цикл
			СимвКод = цел(ID10 / weight);
			Если СимвКод>9 Тогда
				id=id+Симв(СимвКод+37);
				learding=0;
			Иначе
				Если (СимвКод=0) И (learding=1) Тогда
					id=id+" ";
				Иначе
					id=id+Симв(СимвКод+30);
					learding=0;
				КонецЕсли;
			КонецЕсли;
			ID10 = ID10 % weight;
			i=i+1;
			Если i<6 Тогда
				weight=цел(weight/36);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;

	Возврат id;
КонецФункции