Fórum Validação de CPF e CNPJ #513278

/* 
Calculo do Digito Verificador para CPF 
por: Antonio Rodrigues dos Santos Filho - antonio@aikon.com.br 

Instruções 
1- O CPF deve ser passado contendo apenas os numero. Não coloque os '.' e '/' 
2- O resultado da função será o Digito Verificador em char(2) 
Exemplo: 

declare @dv as char(2) 
set @dv = dbo.CalculaCPF ('123456789') 
print @dv 

obs: Neste caso o DV = 09 
qualquer erro, o resultado do DV será -- 
*/ 

create function dbo.CalculaCPF (@cpf as varchar(10)) 
returns char(2) 
as 

Begin 
	declare @soma as int, 
	@dv as char(2), 
	@dv1 as int, 
	@dv2 as int, 
	@i as int, 
	@somando as int 

	set @cpf = substring(@cpf, 1, 9) 
	set @dv = '--' 
	-- Teste 1. O cpf nao pode ser tudo 1 ou 2 e etc 
	if not (@cpf = '111111111' or @cpf = '222222222' or @cpf = '333333333' or @cpf = '444444444' or @cpf = '555555555' or @cpf = '666666666' or @cpf = '777777777' or @cpf = '888888888' or @cpf = '999999999' or @cpf = '000000000') 
	begin 
		-- Teste 2. Verifica se o cpf tem os 9 digitos preenchidos 
		If rtrim(Len(@cpf)) = 9 
		begin 
			--Calcula DV1 (1o Digito Verificador) 
			set @soma = 0 
			set @somando = 10 
			set @i = 1 
		while @i < 10 
		begin 
			set @soma = @soma + Substring(@cpf, @i, 1) * @somando 
			set @somando = @somando - 1 
			set @i = @i +1 
		end 
		set @dv1 = 11 - (@soma - (@soma/11) * 11) 
		If @dv1 > 9 set @dv1 = 0 
		-- Calcula DV2 (2o Digito Verificador) 
		set @cpf = @cpf + ltrim(str(@dv1)) 
		set @soma = 0 
		set @somando = 11 
		set @i = 1 
		while @i < 11 
		begin 
			set @soma = @soma + Substring(@cpf, @i, 1) * @somando 
			set @somando = @somando - 1 
			set @i = @i +1 
		end 
		set @dv2 = 11 - (@soma - (@soma/11) * 11) 
		If @dv2 > 9 set @dv2= 0 
		if @dv1 <> 0 
		begin 
			set @dv = ltrim(str(@dv1 * 10 + @dv2)) 
		end else begin 
			set @dv = '0' + ltrim(str(@dv2)) 
		end 
	End 
End 
Return (@dv) 
End 

/* 
Calculo do Digito Verificador para CNPJ 
por: Antonio Rodrigues dos Santos Filho - antonio@aikon.com.br 

Instruções 
1- O CPF deve ser passado contendo apenas os numero. Não coloque os '.' e '/' 
2- O resultado da função será o Digito Verificador em char(2) 
Exemplo: 

declare @dv as char(2) 
set @dv = dbo.CalculaCNPJ ('123456780001') 
print @dv 

obs: Neste caso o DV = 95 
qualquer erro, o resultado do DV será -- 
*/ 

alter function dbo.CalculaCNPJ (@cnpj as varchar(13)) 
returns char(2) 
as 
Begin 
	declare @soma as int, 
	@dv as char(2), 
	@dv1 as int, 
	@dv2 as int, 
	@i as int, 
	@somando as int, 
	@cnpj1 as char(8) 

	set @cnpj1 = substring(@cnpj, 1, 8) 
	set @dv = '--' 
	
	-- Teste 1. O cpf nao pode ser tudo 1 ou 2 e etc 
	if not (@cnpj1 = '11111111' or @cnpj1 = '22222222' or @cnpj1 = '33333333' or @cnpj1 = '44444444' or @cnpj1 = '55555555' or @cnpj1 = '66666666' or @cnpj1 = '77777777' or @cnpj1 = '88888888' or @cnpj1 = '99999999' or @cnpj1 = '00000000') 
	begin 
		-- Teste 2. Verifica se o cpf tem os 9 digitos preenchidos 
		If rtrim(Len(@cnpj)) = 12 
		begin 
			--Calcula DV1 (1o Digito Verificador) 
			set @soma = 0 
			set @somando = 5 
			set @i = 1 
			while @i < 5 
			begin 
				set @soma = @soma + Substring(@cnpj, @i, 1) * @somando 
				set @somando = @somando - 1 
				set @i = @i +1 
			end 
			set @somando = 9 
			set @i = 5 
			while @i < 13 
			begin 
				set @soma = @soma + Substring(@cnpj, @i, 1) * @somando 
				set @somando = @somando - 1 
				set @i = @i +1 
			end 
			set @dv1 = 11 - (@soma - (@soma/11) * 11) 
			If @dv1 > 9 set @dv1 = 0 
			-- Calcula DV2 (2o Digito Verificador) 
			set @cnpj = @cnpj + ltrim(str(@dv1)) 
			set @soma = 0 
			set @somando = 6 
			set @i = 1 
			while @i < 6 
			begin 
				set @soma = @soma + Substring(@cnpj, @i, 1) * @somando 
				set @somando = @somando - 1 
				set @i = @i +1 
			end 
			set @somando = 9 
			set @i = 6 
			while @i < 14 
			begin 
				set @soma = @soma + Substring(@cnpj, @i, 1) * @somando 
				set @somando = @somando - 1 
				set @i = @i +1 
			end 
			set @dv2 = 11 - (@soma - (@soma/11) * 11) 
			If @dv2 > 9 set @dv2= 0 
			if @dv1 <> 0 begin 
			set @dv = ltrim(str(@dv1 * 10 + @dv2)) 
		end else begin 
			set @dv = '0' + ltrim(str(@dv2)) 
		end 
	end 
end 
return (@dv) 
end