müsteri çekleri dizayni yazi ile tutar problemi

 

CREATE FUNCTION [dbo].[fna_RakamiYaziyaDonustur](@Sayi bigint)
RETURNS varchar(max)
AS
BEGIN

DECLARE @Basamak int, @Sayac int, @Grup int, @Yazi varchar(max), @GrupSayi varchar(3), @GrupBaslangic int,@GrupYazi varchar(max), @Karakter int

SET @Sayac = 1
SET @Basamak = LEN(@Sayi)
SET @Grup = (CASE WHEN @Basamak % 3 <> 0 THEN (@Basamak - (@Basamak % 3))/3 + 1 ELSE @Basamak / 3 END)
SET @GrupBaslangic = 1
SET @Yazi = ''
SET @GrupYazi = ''
SET @Karakter = 1

IF @Grup >= 1
BEGIN

WHILE @Grup <> 0
BEGIN

SET @GrupSayi = SUBSTRING(CAST(@Sayi AS varchar(255)),@GrupBaslangic,(CASE WHEN @GrupBaslangic = 1 THEN @Basamak-((@Grup-1)*3) ELSE 3 END))

SET @GrupSayi = REPLICATE('0',3-LEN(CAST(@GrupSayi AS int)))+@GrupSayi

SET @Sayac = 1

WHILE @Sayac <= 3
BEGIN

SET @GrupYazi =
(CASE WHEN @Sayac IN (1,3) THEN
  (CASE SUBSTRING(CAST(@GrupSayi AS varchar(3)),@Sayac,1)
   WHEN 0 THEN ''
   WHEN 1 THEN (CASE WHEN (@Sayac = 1 AND LEN(@GrupSayi) = 1) THEN 'bir' ELSE '' END)
   WHEN 2 THEN 'iki'
   WHEN 3 THEN 'üç'
   WHEN 4 THEN 'dört'
   WHEN 5 THEN 'bes'
   WHEN 6 THEN 'alti'
   WHEN 7 THEN 'yedi'
   WHEN 8 THEN 'sekiz'
   WHEN 9 THEN 'dokuz'
   END) ELSE
  (CASE SUBSTRING(CAST(@GrupSayi AS varchar(3)),@Sayac,1)
   WHEN 0 THEN ''
   WHEN 1 THEN 'on'
   WHEN 2 THEN 'yirmi'
   WHEN 3 THEN 'otuz'
   WHEN 4 THEN 'kirk'
   WHEN 5 THEN 'elli'
   WHEN 6 THEN 'altmis'
   WHEN 7 THEN 'yetmis'
   WHEN 8 THEN 'seksen'
   WHEN 9 THEN 'doksan'
   END)
END) +
(CASE WHEN @Sayac = 1 AND LEN(CAST(@GrupSayi AS int)) = 3 THEN ' yüz' ELSE '' END)

SET @Yazi = @Yazi + @GrupYazi + (CASE LEN(@GrupYazi) WHEN 0 THEN '' ELSE ' ' END)

IF @Sayac = LEN(@GrupSayi)
BEGIN
   BREAK;
END

SET @Sayac = @Sayac + 1

END

SET @Yazi = @Yazi +

(CASE @Grup WHEN 9 THEN 'septilyon '
WHEN 8 THEN 'seksilyon '
WHEN 7 THEN 'kentilyon '
WHEN 6 THEN 'katrilyon '
WHEN 5 THEN 'trilyon '
WHEN 4 THEN 'milyar '
WHEN 3 THEN 'milyon '
WHEN 2 THEN 'bin '
WHEN 1 THEN ''
END)

SET @GrupBaslangic = (CASE WHEN @GrupBaslangic = 1 AND (@Basamak % 3) <> 0 THEN @GrupBaslangic + (@Basamak % 3) ELSE @GrupBaslangic + 3 END)

SET @Grup = @Grup - 1

END

END

RETURN RTRIM(@Yazi)

END