Tipo,
Buen día.
Hoy les voy a hacer un post rápido que es muy útil en la vida cotidiana, especialmente para aquellos que crean rutinas de integración con Sefaz, Hacienda y otros organismos gubernamentales y necesitan una rutina para validar el registro estatal para todos los estados de Brasil, o incluso para aquellos que quieren tener este campo en su sistema con datos validados e intactos.
Para realizar esta comprobación encontré en un blog una función muy completa, desarrollada por Rodrigo Ebner, que satisface bien esta necesidad.
Ejemplos de uso
Veamos cómo usamos esta función para validar el registro estatal:
-- Validando inscrição estadual do Pará
SELECT dbo.fncValida_Inscricao_Estadual_Geral('PA', '596142080')
SELECT dbo.fncValida_Inscricao_Estadual_Geral('PA', '586142080')
-- Validando inscrição estadual do Espírito Santo
SELECT dbo.fncValida_Inscricao_Estadual_Geral('ES', '355206196')
SELECT dbo.fncValida_Inscricao_Estadual_Geral('ES', '355206197')
-- Validando inscrição estadual de São Paulo
SELECT dbo.fncValida_Inscricao_Estadual_Geral('SP', '556261170177')
SELECT dbo.fncValida_Inscricao_Estadual_Geral('SP', '556261170177')Código fuente de la función
Ahora que hemos visto cómo se usa esta UDF (función definida por el usuario), echemos un vistazo a su código fuente para comprender cómo se validan los números y cómo puede crear esta función en su entorno también:
Ver código fuenteCREATE FUNCTION [dbo].[fncValida_Inscricao_Estadual_Geral]
(
@Ds_UF varchar(2),
@Ds_Inscricao_Estadual varchar(18)
)
RETURNS BIT
BEGIN
DECLARE @counter INT;
DECLARE @b INT;
DECLARE @soma INT;
DECLARE @dig INT;
--auxiliares
DECLARE @p INT;
DECLARE @d INT;
DECLARE @i VARCHAR(18);
DECLARE @die VARCHAR(13);
IF LEN(@Ds_Inscricao_Estadual) > 0 AND LEN(@Ds_UF) = 2
BEGIN
--retira caracteres especiais da IE
SET @Ds_Inscricao_Estadual = REPLACE(REPLACE(REPLACE(LTRIM(RTRIM(@Ds_Inscricao_Estadual)), '.', ''), '-', ''), '/', '');
-- verifica IE para o estado AC
IF @Ds_UF = 'AC'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 13 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '01'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 4;
SET @soma = 0;
WHILE @counter < 12
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 12, 1)
RETURN (0);
--calcula segundo digito verificador
SET @counter = 1;
SET @b = 5;
SET @soma = 0;
WHILE @counter < 13
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 13, 1)
RETURN (0);
END
--AC
-- verifica IE para o estado AL
ELSE IF @Ds_UF = 'AL'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '24'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE (@counter < 9)
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @soma = @soma * 10;
SET @dig = @soma - FLOOR(@soma / 11) * 11;
IF (@dig = 10)
SET @dig = 0;
IF (@dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1))
RETURN (0);
END
--AL
-- verifica IE para o estado AM
ELSE IF @Ds_UF = 'AM'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
IF @soma < 11
SET @dig = 11 - @soma;
ELSE
IF @soma % 11 <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - ( @soma % 11 );
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--AM
-- verifica IE para o estado AP
ELSE IF @Ds_UF = 'AP'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @p = 0;
SET @d = 0;
SET @i = SUBSTRING(@Ds_Inscricao_Estadual, 1, 8);
IF @i >= 3000001 AND @i <= 3017000
BEGIN
SET @p = 5;
SET @d = 0;
END
ELSE
IF @i >= 3017001 AND @i <= 3019022
BEGIN
SET @p = 9;
SET @d = 1;
END
SET @counter = 1;
SET @b = 9;
SET @soma = @p;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@i, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig = 10
SET @dig = 0;
ELSE
IF @dig = 11
SET @dig = @d;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--AP
-- verifica IE para o estado BA
ELSE IF @Ds_UF = 'BA'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 8
RETURN(0);
--calcula segundo digito verificador
SET @counter = 1;
SET @b = 7;
SET @soma = 0;
WHILE @counter < 7
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
IF SUBSTRING(@Ds_Inscricao_Estadual, 1, 1) IN ( '0', '1', '2', '3', '4', '5', '8' )
SET @dig = 10 - ( @soma % 10 );
ELSE
BEGIN
SET @dig = 11 - ( @soma % 11 );
IF @dig <= 1
SET @dig = 0;
END
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 8, 1)
RETURN (0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 8;
SET @soma = 0;
WHILE @counter < 9
BEGIN
IF @counter <> 7
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @b = @b - 1;
END
SET @counter = @counter + 1;
END
IF SUBSTRING(@Ds_Inscricao_Estadual, 1, 1) IN ( '0', '1', '2', '3', '4', '5', '8' )
SET @dig = 10 - ( @soma % 10 );
ELSE
BEGIN
SET @dig = 11 - ( @soma % 11 );
IF @dig <= 1
SET @dig = 0;
END
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 7, 1)
RETURN (0);
END
--BA
-- verifica IE para o estado CE
ELSE IF @Ds_UF = 'CE'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) > 9
RETURN(0);
SET @die = @Ds_Inscricao_Estadual;
IF ( LEN(@Ds_Inscricao_Estadual) < 9 )
BEGIN
WHILE LEN(@die) <= 8
BEGIN
SET @die = '0' + @die;
END
END
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@die, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--CE
-- verifica IE para o estado DF
ELSE IF @Ds_UF = 'DF'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 13 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '07'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 4;
SET @soma = 0;
WHILE @counter < 12
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 12, 1)
RETURN (0);
--calcula segundo digito verificador
SET @counter = 1;
SET @b = 5;
SET @soma = 0;
WHILE @counter < 13
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 13, 1)
RETURN (0);
END
--DF
-- verifica IE para o estado ES
ELSE IF @Ds_UF = 'ES'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig < 2
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--ES
-- verifica IE para o estado GO
ELSE IF @Ds_UF = 'GO'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) NOT IN ( '10', '11', '15' )
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF ( @dig = 1 )
BEGIN
IF SUBSTRING(@Ds_Inscricao_Estadual, 1, 8) >= 10103105 AND SUBSTRING(@Ds_Inscricao_Estadual, 1, 8) <= 10119997
SET @dig = 1;
ELSE
SET @dig = 0
END
ELSE
IF @dig > 1
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--GO
-- verifica IE para o estado MA
ELSE IF @Ds_UF = 'MA'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '12'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--MA
-- verifica IE para o estado MG
ELSE IF @Ds_UF = 'MG'
BEGIN
IF SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) = 'PR' OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 5) = 'ISENT'
RETURN(1);
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 13
RETURN(0);
SET @die = SUBSTRING(@Ds_Inscricao_Estadual, 1, 3) + '0' + SUBSTRING(@Ds_Inscricao_Estadual, 4, 11);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 1;
SET @soma = 0;
WHILE @counter < 13
BEGIN
IF ( SUBSTRING(@die, @counter, 1) * @b ) >= 10
SET @soma = @soma + ( ( SUBSTRING(@die, @counter, 1) * @b ) - 9 );
ELSE
SET @soma = @soma + ( SUBSTRING(@die, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b + 1;
IF @b = 3
SET @b = 1;
END
SET @dig = ( ( FLOOR(@soma / 10) + 1 ) * 10 ) - @soma;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 12, 1)
RETURN (0);
--calcula segundo digito verificador
SET @counter = 1;
SET @b = 3;
SET @soma = 0;
WHILE @counter < 13
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 11;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 13, 1)
RETURN (0);
END
--MG
-- verifica IE para o estado MT
ELSE IF @Ds_UF = 'MT'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) < 9
RETURN(0);
SET @die = @Ds_Inscricao_Estadual;
IF ( LEN(@Ds_Inscricao_Estadual) < 11 )
BEGIN
WHILE LEN(@die) <= 11
BEGIN
SET @die = '0' + @die;
END
END
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 3;
SET @soma = 0;
WHILE @counter < 11
BEGIN
SET @soma = @soma + ( SUBSTRING(@die, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 11, 1)
RETURN (0);
END
--MT
-- verifica IE para o estado MS
ELSE IF @Ds_UF = 'MS'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '28'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--MS
-- verifica IE para o estado PA
ELSE IF @Ds_UF = 'PA'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '15'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--PA
-- verifica IE para o estado PA
ELSE IF @Ds_UF = 'PA'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '15'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--PA
-- verifica IE para o estado PB
ELSE IF @Ds_UF = 'PB'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--PB
-- verifica IE para o estado PR
ELSE IF @Ds_UF = 'PR'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 10
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 3;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 7;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
--calcula segundo digito verificador
SET @counter = 1;
SET @b = 4;
SET @soma = 0;
WHILE @counter < 10
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 7;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 10, 1)
RETURN (0);
END
--PR
-- verifica IE para o estado PE
ELSE IF @Ds_UF = 'PE'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 8;
SET @soma = 0;
WHILE @counter < 8
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 8, 1)
RETURN (0);
--calcula segundo digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--PE
-- verifica IE para o estado PI
ELSE IF @Ds_UF = 'PI'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--PI
-- verifica IE para o estado RJ
ELSE IF @Ds_UF = 'RJ'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 8
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 2;
SET @soma = 0;
WHILE @counter < 8
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 7;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 8, 1)
RETURN (0);
END
--RJ
-- verifica IE para o estado RN
ELSE IF @Ds_UF = 'RN'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @soma = @soma * 10;
SET @dig = @soma % 11;
IF @dig = 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--RN
-- verifica IE para o estado RS
ELSE IF @Ds_UF = 'RS'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 10 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 3) > '467'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 2;
SET @soma = 0;
WHILE @counter < 10
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 10, 1)
RETURN (0);
END
--RS
-- verifica IE para o estado RO
ELSE IF @Ds_UF = 'RO'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 14
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 6;
SET @soma = 0;
WHILE @counter < 14
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 9;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = @dig - 10;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 14, 1)
RETURN (0);
END
--RO
-- verifica IE para o estado RR
ELSE IF @Ds_UF = 'RR'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9 OR SUBSTRING(@Ds_Inscricao_Estadual, 1, 2) <> '24'
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 1;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b + 1;
END
SET @dig = @soma % 9;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--RR
-- verifica IE para o estado SC
ELSE IF @Ds_UF = 'SC'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = @soma % 11;
IF @dig <= 1
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--SC
-- verifica IE para o estado SP
ELSE IF @Ds_UF = 'SP'
BEGIN
IF SUBSTRING(@Ds_Inscricao_Estadual, 1, 1) = 'P'
BEGIN
SET @die = SUBSTRING(@Ds_Inscricao_Estadual, 2, 9);
SET @soma = ( SUBSTRING(@die, 1, 1) * 1 ) + ( SUBSTRING(@die, 2, 1) * 3 ) + ( SUBSTRING(@die, 3, 1) * 4 ) + ( SUBSTRING(@die, 4, 1) * 5 ) + ( SUBSTRING(@die, 5, 1) * 6 ) + ( SUBSTRING(@die, 6, 1) * 7 ) + ( SUBSTRING(@die, 7, 1) * 8 ) + ( SUBSTRING(@die, 8, 1) * 10 );
SET @dig = @soma % 11;
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 10, 1)
RETURN (0);
END
ELSE
BEGIN
IF LEN(@Ds_Inscricao_Estadual) < 12
RETURN(0);
SET @soma = ( SUBSTRING(@Ds_Inscricao_Estadual, 1, 1) * 1 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 2, 1) * 3 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 3, 1) * 4 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 4, 1) * 5 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 5, 1) * 6 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 6, 1) * 7 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 7, 1) * 8 ) + ( SUBSTRING(@Ds_Inscricao_Estadual, 8, 1) * 10 );
SET @dig = @soma % 11;
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
SET @counter = 1;
SET @b = 3;
SET @soma = 0;
WHILE @counter < 12
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
IF @b = 1
SET @b = 10;
END
SET @dig = @soma % 11;
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 12, 1)
RETURN (0);
END
END
--SP
-- verifica IE para o estado SE
ELSE IF @Ds_UF = 'SE'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 9
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 9
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @counter = @counter + 1;
SET @b = @b - 1;
END
SET @dig = 11 - ( @soma % 11 );
IF @dig >= 10
SET @dig = 0;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 9, 1)
RETURN (0);
END
--SE
-- verifica IE para o estado TO
ELSE IF @Ds_UF = 'TO'
BEGIN
--verifica tamanho da IE
IF LEN(@Ds_Inscricao_Estadual) <> 11 OR SUBSTRING(@Ds_Inscricao_Estadual, 3, 2) NOT IN ( '01', '02', '03', '99' )
RETURN(0);
--calcula primeiro digito verificador
SET @counter = 1;
SET @b = 9;
SET @soma = 0;
WHILE @counter < 11
BEGIN
IF @counter NOT IN ( 3, 4 )
BEGIN
SET @soma = @soma + ( SUBSTRING(@Ds_Inscricao_Estadual, @counter, 1) * @b );
SET @b = @b - 1;
END
SET @counter = @counter + 1;
END
SET @dig = @soma % 11;
IF @dig < 2
SET @dig = 0;
ELSE
SET @dig = 11 - @dig;
IF @dig <> SUBSTRING(@Ds_Inscricao_Estadual, 11, 1)
RETURN (0);
END
--TO
ELSE
RETURN(0);
END
ELSE
RETURN(0);
--retorna true
RETURN(1);
END
Y eso es todo amigos,
Hasta la próxima.
Dirceu Resende
Arquitecto de Bases de Datos y BI · Microsoft MVP · MCSE, MCSA, MCT, MTA, MCP.
Comentários (0)
Carregando comentários…