Validar Inscrição Estadual - MG

[Caipira]

Boa Tarde Galera,

Alguém por gentileza teria um script para validação de Inscrição estadual do Estado de Minas ?

Obrigado

[.Andreia.]

não encontrei nenhum especifico usando só sql server, mas voce pode tentar adaptando de outra linguagem de programação (usando ela ou adaptando)

indicação: http://codigofonte.uol.com.br/codigo/asp/v...qualquer-estado

[Caipira]

Valeu andrea Obrigado.!

[Alex.Vasc]

Olá,

Segue abaixo função SQLServer 2005 para validação do IE (Inscrição Estadual) inicialmente para o estado de São Paulo. Quando terminar os demais eu faço outro post.

O retorno da função é:

0 - Validação com Erro

1 - Validação OK

Para testar:

I – Industriais e comerciantes (exceto produtores rurais a eles não equiparados):

> Formato: 12 dígitos sendo que o 9º e o 12º são dígitos verificadores

> Exemplo: Inscrição Estadual 110.042.490.114

---

II – Inscrição estadual de Produtor Rural (Não equiparado a industrial ou comerciante, cujas inscrições obedecem a Regra descrita no item anterior):

> Formato: - P0MMMSSSSD000

- 13 caracteres dos quais o 10º caracter contado a partir da esquerda ("D") é o dígito verificador

- Inicia sempre com "P" e apresenta a sequência 0MMMSSSSD000, onde:

0MMMSSSS-algarismos que serão utilizados no cálculo do dígito verificador "D"

"D" - Dígito verificador que consiste os 8 (oito)dígitos imediatamente anteriores

000 - 3 (três) dígitos que compõem o nº de inscrição mas não utilizados no cálculo do dígito verificador

> Exemplo: Inscrição Estadual P-01100424.3/002

Fonte de informações:

http://www.sefaz.mt.gov.br/portal/Tributar...cador/dv-SP.php

http://forum.imasters.uol.com.br/index.php...dos-os-estados/

Abraços,

Alexandre.

---------

if exists (select *

from sysobjects

where id = object_id ('ST_FN_CALCULADIGIE'))

drop function dbo.ST_FN_CALCULADIGIE

go

create function dbo.ST_FN_CALCULADIGIE (@vINSCRICAO varchar(16), @vESTADO char(2)) returns numeric(1)

as

begin

declare @nRETURN numeric(1)

declare @nPOS integer

declare @vIE varchar(14)

declare @nVALORBASE integer

declare @nDIGITO integer

declare @vCHAR char(1)

declare @nSOMA integer

if len(@vESTADO) != 2

return 0

else

set @vESTADO = upper(@vESTADO)

if len(@vINSCRICAO) = 0

return 0

else

set @vINSCRICAO = upper(@vINSCRICAO)

set @nPOS = 1

set @vIE = ''

--Retira CARACTERES inválidos da INSCRIÇÃO ESTADUAL.

while @nPOS <= len(@vINSCRICAO)

begin

set @vCHAR = substring(@vINSCRICAO, @nPOS, 1)

if charindex(@vCHAR, '0123456789P') > 0

set @vIE = @vIE + @vCHAR

set @nPOS = @nPOS + 1

end

if upper(@vESTADO) = 'SP'

begin

if substring(@vIE, 1, 1) = 'P'

begin

-- Exemplo: P011004243002

if len(@vIE) != 13

return 0

set @nVALORBASE = 1

set @nSOMA = 0

set @nPOS = 2

while @nPOS <= 9

begin

set @vCHAR = substring(@vIE, @nPOS, 1)

set @nSOMA = @nSOMA + (convert(integer, @vCHAR) * @nVALORBASE)

set @nPOS = @nPOS + 1

set @nVALORBASE = @nVALORBASE + 1

if @nVALORBASE = 2

set @nVALORBASE = 3

if @nVALORBASE = 9

set @nVALORBASE = 10

end

set @nDIGITO = @nSOMA % 11

if @nDIGITO > 9

set @nDIGITO = 0

if @nDIGITO != convert(integer, substring(@vIE, 10, 1))

set @nRETURN = 0

else

set @nRETURN = 1

end

else

begin

set @vIE = right(replicate('0', 12) + rtrim(ltrim(@vIE)), 12)

set @nVALORBASE = 1

set @nSOMA = 0

set @nPOS = 1

while @nPOS <= 7

begin

set @vCHAR = substring(@vIE, @nPOS, 1)

set @nSOMA = @nSOMA + (convert(integer, @vCHAR) * @nVALORBASE)

set @nPOS = @nPOS + 1

set @nVALORBASE = @nVALORBASE + 1

if @nVALORBASE = 2

set @nVALORBASE = 3

if @nVALORBASE = 9

set @nVALORBASE = 10

end

set @nDIGITO = @nSOMA % 11

if @nDIGITO > 9

set @nDIGITO = 0

if @nDIGITO != convert(integer, substring(@vIE, 9, 1))

return 0

else

begin

set @nVALORBASE = 3

set @nSOMA = 0

set @nPOS = 1

while @nPOS <= 11

begin

set @vCHAR = substring(@vIE, @nPOS, 1)

set @nSOMA = @nSOMA + (convert(numeric(1), @vCHAR) * @nVALORBASE)

set @nPOS = @nPOS + 1

set @nVALORBASE = @nVALORBASE - 1

if @nVALORBASE = 1

set @nVALORBASE = 10

end

set @nDIGITO = @nSOMA % 11

if @nDIGITO > 9

set @nDIGITO = 0

if @nDIGITO != convert(integer, substring(@vIE, 12, 1))

set @nRETURN = 0

else

set @nRETURN = 1

end

end

end

return @nRETURN

end

-------

Editado Agosto 20, 2010 por Alex.Vasc