Roteiro de crítica da inscrição estadual - PARANÁ


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES, Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

Roteiro de crítica da inscrição estadual - PARANÁ

Formato da Inscrição: NNNNNNNN-DD

Cálculo do Primeiro Dígito: Módulo 11 com pesos de 2 a 7, aplicados da direita para esquerda, sobre as 8 primeiras posições.

Cálculo do Segundo Dígito: Módulo 11 com pesos de 2 a 7, aplicados da direita para esquerda, sobre as 9 primeiras posições (inclui o primeiro dígito).

1º Passo:

Multiplicar, da direita para esquerda, cada algarismo por pesos de 2 a 7, respectivamente, somar os resultados, calcular o módulo 11 e subtrair de 11.
Se resto for 1 ou 0, veja observação abaixo.

1 2 3 4 5 6 7 8 (inscrição)

3 2 7 6 5 4 3 2 (pesos)

(8 x 2) + (7 x 3) + (6 x 4) + (5 x 5) + (4 x 6) + (3 x 7) + (2 x 2) + (1 x 3)

16 + 21 + 24 + 25 + 24 + 21 + 4 + 3 = 138

Cálculo de módulo 11 (resto da divisão por 11)

138 / 11 = 12 => resto 6 (módulo11)

11 - 6 = 5 (1º dígito verificador)

2º Passo:

Acrescentar o 1º dígito calculado ao CAD.

123.45678-5

3º Passo:

Repetir 2º passo a inscrição do 3º passo.

1 2 3 4 5 6 7 8 5 (inscrição)

4 3 2 7 6 5 4 3 2 (pesos)

(5 x 2) + (8 x 3) + (7 x 4) + (6 x 5) + (5 x 6) + (4 x 7) + (3 x 2) + (2 x 3) + (1 x 4)

10 + 24 + 28 + 30 + 30 + 28 + 6 + 6 + 4 = 166

Cálculo de módulo 11 (resto da divisão por 11)

166 / 11 = 15 => resto 1 (módulo 11)

11 - 1 = 10

Obs: Como cada dígito significa um algarismo, no caso do resto ser 1 ou 0, gerando "dígitos" 10 e 11, definimos o dígito como sendo 0.

4º Passo:

Resultado final - inscrição 123.45678-50

Exemplo do algoritmo em Access Visual Basic

Public Function verifica_CAD_PR(CAD As Variant) As Boolean


Dim Cad1 As String, CAD2 As String
Dim Soma As Integer, Digito As Integer
Dim i As Integer, j As Integer
Dim Controle As String , Mult As String

'Identifica as 2 partes do CAD
CAD = Format (CAD,"0000000000")
CAD1 = Left$ (CAD, 8)
CAD2 = Right$ (CAD,2

'Inicializa a variável Controle
Controle = ""

' Multiplicadores que fazem parte do algoritmo de checagem
Mult = "32765432"

'Loop de verificação
For j = 1 To 2
Soma = 0
For i = 1 To 8
Soma = Soma + (Val(Mid$(CAD1,i,1)) * (Val(Mid$(Mult,i,1)))
Next i
If (j  = 2) Then Soma = Soma + (2 * Digito)
Digito = 11 - (Soma Mod 11)
If (Digito = 10 Or Digito = 11) Then Digito = 0
Controle = Controle + Trim$(Str$(Digito))
'Sequência de multiplicadores para Cálculo do segundo dígito
Mult = "43276543"
Next j

'Compara dígitos calculados (Controle) com dígitos informados (CAD2)
If (Controle <> CAD2) Then
verifica_CAd_Pr = False
Else
verifica_CAD_PR = True
End If

End Function


© Copyright Sintegra