MSSQL üzerinde TC Numarası Doğrulama Fonksiyonu

Her icad iş başa düşünce ortaya çıkarmış misali, elimdeki binlerce kimlik verisinin veritabanı üzerinde sorgulanması ve kontrolü aşamasında TC numaraları için bu güne kadar 2 kontrol tekniğimiz vardı

1. TC numarası kolonundaki veri BOŞ mu?
2. TC numarası kolonundaki veri 11 karakter mi?

peki ama ya oradaki veri 11 karakterli olduğu halde hatalı yazılmışsa? O zaman bu bilginin doğru olduğunu nasıl anlayacağız?

Bu soru üzerine oturdum MSSQL üzerinde aşağıdaki  fonksiyonu yazdım.

Bu fonksiyon sayesinde basit bir Select cümleciği ile tüm tablo sorgulanarak hatalı kayıtlara ulaşılabiliniyor.

Transact-SQL

SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author: Burak ŞEKERCİOĞLU -- Create date: 23.01.2012 -- Description: TC Numarası Doğrulama Fonksiyonu -- ============================================= alter FUNCTION fn_tcdogrula ( @tcno as nvarchar(11) ) RETURNS int AS BEGIN declare @bilgi10 bit declare @bilgi11 bit declare @karakter int declare @tek int declare @cift int declare @cikti int declare @basamak10 int declare @basamak11 int declare @tum int declare @sonuc bit set @tek=0 set @cift=0 set @karakter=0 set @sonuc=0 set @cikti=0 set @basamak10=0 set @basamak11=0 set @tum=0 WHILE (@karakter<9) begin set @karakter=@karakter +1 if (@karakter % 2=1 ) begin set @tek = @tek + cast(substring(@tcno,@karakter,1) as int) end if (@karakter % 2=0) begin set @cift=@cift + cast(substring(@tcno,@karakter,1) as int) end end set @cikti=(@tek * 7 ) - @cift set @basamak10=@cikti % 10 if (@basamak10 = cast(substring(@tcno,10,1) as int)) begin set @bilgi10=1 end set @karakter=0 while (@karakter<10) begin set @karakter=@karakter +1 set @tum=@tum + cast(substring(@tcno,@karakter,1) as int) end set @basamak11=@tum % 10 if (@basamak11 = cast(substring(@tcno,11,1) as int)) begin set @bilgi11=1 end if (@bilgi10=1 and @bilgi11=1) begin set @sonuc=1 end return @sonuc END GO

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author:        Burak ŞEKERCİOĞLU -- Create date: 23.01.2012 -- Description:    TC Numarası Doğrulama Fonksiyonu -- ============================================= alter FUNCTION fn_tcdogrula ( @tcno as nvarchar(11) ) RETURNS int AS   BEGIN   declare @bilgi10 bit declare @bilgi11 bit declare @karakter int declare @tek int declare @cift int declare @cikti int declare @basamak10 int declare @basamak11 int declare @tum int declare @sonuc bit set @tek=0 set @cift=0 set @karakter=0 set @sonuc=0 set @cikti=0 set @basamak10=0 set @basamak11=0 set @tum=0 WHILE (@karakter<9) begin set @karakter=@karakter +1 if (@karakter % 2=1 ) begin set @tek = @tek + cast(substring(@tcno,@karakter,1) as int)   end if (@karakter %  2=0) begin set @cift=@cift + cast(substring(@tcno,@karakter,1) as int) end end set @cikti=(@tek * 7 ) - @cift set @basamak10=@cikti % 10   if (@basamak10 = cast(substring(@tcno,10,1) as int)) begin set @bilgi10=1 end set @karakter=0 while (@karakter<10) begin set @karakter=@karakter +1 set @tum=@tum + cast(substring(@tcno,@karakter,1) as int) end set @basamak11=@tum % 10   if (@basamak11 = cast(substring(@tcno,11,1) as int)) begin set  @bilgi11=1 end   if (@bilgi10=1 and @bilgi11=1) begin set @sonuc=1 end   return @sonuc END GO

Örnek Kullanım:

bu komut ile kimlikler tablosunda tcnumarası hatalı olan kişileri listeler.