Вот я в свое время баловался - написал такую функцию в SQL SERVER 2000 - может поможет кому:
-- генерирует код для 1С
CREATE FUNCTION dbo.KOD (@param CHAR(9))
RETURNS CHAR (9)
AS
BEGIN
Declare @st VARCHAR(7), @ndo SMALLINT, @npo SMALLINT, @st1 CHAR(1), @n SMALLINT , @z SMALLINT, @rez VARCHAR(9), @sym CHAR(1), @f BIT

-- отбрасываем пустышки
SET @st = LTRIM(RTRIM(@param))
-- вычисляем пробелы до
If len(@st) = 6
set @ndo=0
else if len(@st) = 5
set @ndo=1
else if len(@st) = 4
set @ndo=2
else if len(@st) = 3
set @ndo=3
else if len(@st) = 2
set @ndo=4
else if len(@st) = 1
set @ndo=5
-- пробелы после
set @npo=3
-- длина кода символов
Set @n = 9 - @npo - @ndo


Set @z = 0
--- идем справа налево
-- выделяем символ
rou:
Set @sym = SUBSTRING(@st,@n, 1 )

If @sym = '0'
set @st1 = '1'
If @sym = '1'
set @st1 = '2'
If @sym = '2'
set @st1 = '3'
If @sym = '3'
set @st1 = '4'
If @sym = '4'
set @st1 = '5'
If @sym = '5'
set @st1 = '6'
If @sym = '6'
set @st1 = '7'
If @sym = '7'
set @st1 = '8'
If @sym = '8'
set @st1 = '9'
If @sym = '9'
set @st1 = 'A'
If @sym = 'A'
set @st1 = 'B'
If @sym = 'B'
set @st1 = 'C'
If @sym = 'C'
set @st1 = 'D'
If @sym = 'D'
set @st1 = 'E'
If @sym= 'E'
set @st1 = 'F'
If @sym = 'F'
set @st1 = 'G'
If @sym = 'G'
set @st1 = 'H'
If @sym = 'H'
set @st1 = 'I'
If @sym = 'I'
set @st1 = 'J'
If @sym= 'J'
set @st1 = 'K'
If @sym= 'K'
set @st1 = 'L'
If @sym = 'L'
set @st1 = 'M'
If @sym= 'M'
set @st1 = 'N'
If @sym = 'N'
set @st1 = 'O'
If @sym = 'O'
set @st1 = 'P'
If @sym = 'P'
set @st1 = 'Q'
If @sym= 'Q'
set @st1 = 'R'
If @sym = 'R'
set @st1 = 'S'
If @sym = 'S'
set @st1 = 'T'
If @sym= 'T'
set @st1 = 'U'
If @sym= 'U'
set @st1 = 'V'
If @sym= 'V'
set @st1 = 'W'
If @sym= 'W'
set @st1 = 'X'
If @sym = 'X'
set @st1 = 'Y'
If @sym= 'Y'
set @st1 = 'Z'

If @sym <> 'Z'
BEGIN
--- и ничего больше делать не надо
SET @rez = SUBSTRING(@st, 1,@n-1) + @st1 + ISNULL(@rez,'') + SPACE(@npo)
GOTO EXT
END

-- только в этом случае надо анализировать следующий разряд
-- следующий разряд увеличиваем на единицу или добавляем новый разряд если его нет
If @sym= 'Z'
BEGIN
SET @st1 = '0'
SET @z = @z + 1
SET @n = @n - 1
If @n = 0
BEGIN
--- добавить новый разряд
SET @rez = '10' + ISNULL(@rez,'') + SPACE(@npo)
GOTO EXT
END

If @n>0
BEGIN
SET @st = left(@st,@n)
SET @rez = '0' + ISNULL(@rez,'')
GOTO rou
END
END


EXT:
SET @rez = SPACE(9-LEN(@rez)) + @rez

RETURN @rez
END