Склонение фамилии человека в SERVER 2005

if exists 
(
  select * from sysobjects 
  where id = object_id (N'[dbo].[DeclensionSurname]') and 
        xtype in (N'FN', N'IF', N'TF')
)
drop function [dbo].[DeclensionSurname]
GO
 
CREATE FUNCTION DeclensionSurname (@case varchar (3), @pol char (1), @surname char (100))
returns char (100)
as
 
begin
   declare @endings table
   (
     [im]  char (50) null,
     [rod] char (50) null,
     [dat] char (50) null,
     [vin] char (50) null,
     [tvr] char (50) null,
     [prd] char (50) null,
     [pol] char (1) null     
   )   
   declare @ending varchar (50), @plus varchar (50), @step int
   select @step = charindex (' ', ltrim (rtrim (@surname)))
   if @step <> 0 
   begin 
      select @plus = ltrim (substring (@surname, @step, len (@surname))) 
      select @surname = left (@surname, @step - 1) 
   end
   else 
   select @plus = '' 
   insert into @endings
   select 'ий', 'ого', 'ому', 'ого', 'им', 'ому', 'м'
   union all 
   select 'в', 'ва', 'ву', 'ва', 'вым', 'ву', 'м'
   union all 
   select 'н', 'на', 'ну', 'на', 'ным', 'ну', 'м'
   union all 
   select 'к', 'ка', 'ку', 'ка', 'ком', 'ку', 'м'
   union all 
   select 'с', 'са', 'су', 'са', 'сом', 'су', 'м'
   union all 
   select 'овец', 'овца', 'овцу', 'овца', 'овцом', 'овцу', 'м'
   union all 
   select 'иц', 'ица', 'ицу', 'ица', 'ицем', 'ицу', 'м'
   union all 
   select 'ч', 'ча', 'чу', 'ча', 'чем', 'чу', 'м'
   union all 
   select 'а', 'у', 'у', 'ну', 'ем', 'е', 'м'
   union all 
   select 'ый', 'ого', 'ому', 'ого', 'ым', 'ому', 'м'
   union all 
   select 'ая', 'ой', 'ой', 'ую', 'ой', 'ой', 'ж'
   union all 
   select 'ва', 'вой', 'вой', 'ву', 'вой', 'вой', 'ж'
   union all 
   select 'на', 'ной', 'ной', 'ну', 'ной', 'ной', 'ж'
   union all 
   select 'ша', 'ши', 'ше', 'шу', 'шой', 'ше', 'ж'
   union all 
   select @surname, @surname, @surname, @surname, @surname, @surname, @pol
   select @step = 1
   select @ending = right (@surname, @step) 
   if @pol = 'м'
   while @ending not in ('в', 'н', 'ий', 'к', 'с', 'овец', 'иц', 'ч', 'а', 'ый', @surname)
   begin
      select @step = @step + 1
      select @ending = right (@surname, @step) 
   end
   else
   while @ending not in ('ва', 'на', 'ая', 'ша', @surname)
   begin
      select @step = @step + 1
      select @ending = right (@surname, @step) 
   end
   select @surname = case when @case = 'rod' then left (@surname, len (@surname) - @step) + rod + ' ' + @plus
                          when @case = 'dat' then left (@surname, len (@surname) - @step) + dat + ' ' + @plus
                          when @case = 'vin' then left (@surname, len (@surname) - @step) + vin + ' ' + @plus
                          when @case = 'tvr' then left (@surname, len (@surname) - @step) + tvr + ' ' + @plus
                          when @case = 'prd' then left (@surname, len (@surname) - @step) + prd + ' ' + @plus
                          else 'Incorrect Declension Format !!!' 
                     end
   from @endings
   where im = @ending and 
         pol = @pol
   return @surname
end
GO
 
select [было] = 'Иванов', [пол] = 'м', [order] = '  Ответственным назначить' + space (200), 
       [стало] = dbo.declensionsurname ('rod', 'м', 'Иванов')
union all
select 'Иванов', 'м', '  Дать в подотчет', dbo.declensionsurname ('dat', 'м', 'Иванов')
union all
select 'Иванова', 'ж','  Предлагаю во всем винить', dbo.declensionsurname ('vin', 'ж', 'Иванова')
union all
select 'Иванов', 'м','  Прошу не путать меня с', dbo.declensionsurname ('tvr', 'м', 'Иванов')
union all
select 'Иванов', 'м','  А это мы поручим', dbo.declensionsurname ('prd', 'м', 'Гейтс')

DECLARE @LName NVARCHAR(50) -- Last Name 
DECLARE @FName NVARCHAR(50) -- First Name
DECLARE @SName NVARCHAR(50) -- Second Name
DECLARE @MName NVARCHAR(50) -- Mail Name
DECLARE @HName NVARCHAR(50) -- Iitials
DECLARE @Sex INT            -- Sex
DECLARE @NLen INT           -- Last Name Lenght
 
 
-- Get Name properties from inserted values
SET @LName = (SELECT (LTRIM(RTRIM(CN_LName))) FROM INSERTED)
SET @FName = (SELECT (LTRIM(RTRIM(CN_FName))) FROM INSERTED)
SET @SName = (SELECT (LTRIM(RTRIM(CN_SName))) FROM INSERTED)
SET @Sex = (SELECT (CN_Sex) FROM INSERTED)
 
-- Calc Name lenght
SET @NLen = LEN(@LName)
 
-- Create Mail Name
IF @LName <> '***' AND @NLen > 3  BEGIN
    SET @MName = 
    CASE
        WHEN (RIGHT(@LName,2) = 'ов' AND @Sex = 1) THEN @LName + 'у'
        WHEN (RIGHT(@LName,2) = 'ев' AND @Sex = 1) THEN @LName + 'у'
        WHEN (RIGHT(@LName,2) = 'ин' AND @Sex = 1) THEN @LName + 'у'
        WHEN (RIGHT(@LName,2) = 'ын' AND @Sex = 1) THEN @LName + 'у'
        WHEN (RIGHT(@LName,2) = 'ий' AND @Sex = 1) THEN LEFT(@LName,(@NLen-2)) + 'ому'
        WHEN (RIGHT(@LName,2) = 'ой' AND @Sex = 1) THEN LEFT(@LName,(@NLen-2)) + 'ому'
        WHEN (RIGHT(@LName,3) = 'ова' AND @Sex = 0) THEN LEFT(@LName,(@NLen-1)) + 'ой'
        WHEN (RIGHT(@LName,3) = 'ева' AND @Sex = 0) THEN LEFT(@LName,(@NLen-1)) + 'ой'
        WHEN (RIGHT(@LName,3) = 'ина' AND @Sex = 0) THEN LEFT(@LName,(@NLen-1)) + 'ой'
        WHEN (RIGHT(@LName,3) = 'кая' AND @Sex = 0) THEN LEFT(@LName,(@NLen-2)) + 'ой'
        ELSE @LName
    END
    -- Create Initials
    IF (@FName IS NOT  NULL) AND LEN(@FName) > 1 BEGIN
        SET @HName = UPPER(LEFT(@FName,1)) + '.'
        IF (@SName IS NOT NULL) AND LEN(@SName) > 1 BEGIN
            SET @HName = @HName + UPPER(LEFT(@SName,1)) + '.'
        END
    END
    ELSE BEGIN
        SET @HName = NULL
    END
END 
ELSE BEGIN
    SET @MName = @LName
END