GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Visual Basic 6    Validar uma CEI
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
Validar uma CEI
 Login/Cadastrar
 
Iniciante

postado
Por acaso alquem sabe de uma rotina para validar o numero de uma CEI(Cadastro Especifico do INSS). Estou trabalhando em um projeto de folha de pagamento e preciso verificar se o número da matricula digitado está correto.
Se alguem souber, agradeço.
 
Postagens: 9 | Registrado: 17 May 2002Reply With QuoteReport This Post
Programador Júnior

postado Hide Post
No www.vbmania.com.br tem uma rotina
 
Postagens: 133 | Localização: Barreiras,BA,Brasil | Registrado: 25 July 2003Reply With QuoteReport This Post
Programador Júnior

postado Hide Post
Alguns dos caros colegas devem lembrar quando postei aqui duas mensagens perguntando como se validava o CEI, desde então estou trabalhando em uma rotina que fizesse a validação do CEI como no CNPJ e CPF.
Ja testei em mais de 40 números, que são o número de empresas cadastrada no sistema e até agora funcionou bem, já tentei usar numeros aletorios e ela trovou direitinho. Tenho certeza que a rotina etá funcionando direitinho, pois tive a ajuda de um colega que trabalha no INSS para desenvolve-la,então gostaria de deixar esta rotina aqui para que autorizar e se por ventura resolver questionar algum ponto, ou quem sabe um possivel erro. Pois ninguem é perfeito somos passivéis de erro.

Function isCEI(ByVal pCEI As String) As Boolean

Dim Conta As Integer, Soma As Integer, Resto As Integer, Passo As Integer
Dim Aux As Integer

isCEI = False
pCEI = Trim(pCEI)

If Len(pCEI) 12 Then
MsgBox " CEI inválido", vbCritical, "Aviso..."
Exit Function
End If

For Passo = 11 To 12
Soma = 0
For Conta = 1 To Passo - 2
Soma = Soma + Val(Mid(pCEI, Conta, 1)) * (Passo - Conta)
Next

Resto = 10 - (Soma - (Int(Soma / 12) * 12))

If Resto = 1 Then
Resto = 6
GoTo parte1
End If
If Resto = 10 Or Resto = 11 Or Resto = 3 Then
Resto = 1
GoTo parte1
End If
If Resto = 6 Then
Resto = 7
GoTo parte1
End If
If Resto = 7 Or Resto = 4 Then
Resto = 9
GoTo parte1
End If

parte1:

Aux = Val(Mid(pCEI, Passo, 1)) + 1

If Resto Aux Then
MsgBox " CEI inválido", vbCritical, "Aviso..."
Exit Function
End If

Next

isCPF = True
MsgBox "CEI Válido", vbExclamation, "Aviso..."
End Function

'por Paulo Henrique de Oliveira
'paulohenriquesv@bol.com.br

números validos 115830024688, 333800095980, 115830024985 este são alguns exemplos de números validos

Paulo Henrique
números validos 115830024688, 333800095980, 115830024985 este são alguns exemplos de números validos

Paulo Henrique
 
Postagens: 133 | Localização: Barreiras,BA,Brasil | Registrado: 25 July 2003Reply With QuoteReport This Post
Iniciante

postado Hide Post
Valeu pela dica Rafael.
Obrigado
 
Postagens: 9 | Registrado: 17 May 2002Reply With QuoteReport This Post
  Powered by Social Strata  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Visual Basic 6    Validar uma CEI

©