Έλεγχος εγκυρότητας ΑΦΜ σε T-SQL

Απ: Έλεγχος εγκυρότητας ΑΦΜ σε T-SQL

Anonymous — Wed, 02 Aug 2006 00:32:43 GMT

select dbo.checkAFM('23456 0')
select dbo.checkAFM('23456')

Ισως πρεπει να τροποποιηθει λιγο...και να προστεθει ελεγχος της εισαγωγης του χρηστη.

Απ: Έλεγχος εγκυρότητας ΑΦΜ σε T-SQL

Anonymous — Wed, 02 Aug 2006 00:58:33 GMT

-- returns 1 if valid, 0 if not valid
ALTER function checkAFM_m(@vatId varchar(9)) RETURNS BIT
AS
BEGIN
DECLARE @sum int,
@isValid bit

--Initialize variables
SELECT @sum = 0, @isValid = 0

--check @vatID length
IF LEN(@vatId) <> 9
RETURN @isValid

WHILE LEN(@vatId) > 1
BEGIN
SELECT @sum = @sum + POWER(2, LEN(@vatId)-1)* LEFT(@vatId, 1), @vatID = RIGHT(@vatId, LEN(@vatId)-1)
END

--check if user submitted '000000000'
IF @sum = 0
RETURN @isValid

SET @sum = (@sum % 11)%10

SELECT @isValid = 1
WHERE @sum = CAST(@vatID AS tinyint)

RETURN @isValid
END

Απ: Έλεγχος εγκυρότητας ΑΦΜ σε T-SQL

Anonymous — Wed, 02 Aug 2006 01:21:00 GMT

--additional
--check @vatID length -- and type
IF LEN(@vatId) <> 9 OR ISNUMERIC(@vatId) = 0
RETURN @isValid