Jump to content
Fórum Script Brasil
  • 0

Validação De Pis


BRUCCE
 Share

Question

beleza Galera!

Consegui a Função abaixo para realizar validação de CPF, ela esta funcionando corretamente, já testei, só tem um probleminha, quando o número do PIS/PASEP é digitado errado, simplesmente aparece uma mensagem de erro, informando que o numero esta incorreto, e pulando p/ o proximo campo. Queria que fosse assim: Ao digitar um número incorreto de PIS, o sistema emita a mensagem de erro mas que não vá p/ o proximo campo.

Obrigado!

Option Compare Database

Option Explicit

Public Function PISPASEP(Numero As String)

Dim ftap As String

Dim total As String

Dim i As Integer

Dim resto As Integer

If Val(Numero) = 0 Or Len(Numero) <> 11 Then

PISPASEP = False

Exit Function

End If

ftap = "3298765432"

total = 0

For i = 1 To 10

total = total + Val(Mid(Numero, i, 1)) * Val(Mid(ftap, i, 1))

Next i

resto = Int(total Mod 11)

If resto <> 0 Then

resto = 11 - resto

End If

If resto <> Val(Mid(Numero, 11, 1)) Then

PISPASEP = False

Exit Function

End If

PISPASEP = True

End Function

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Bom dia Malj!

Coloquei o EVENTO AO RECEBER FOCO, mas ficou do mesmo jeito, porém consegui ajeitar aqui, e ficou assim, Se for digitado um número incorreto de PIS, o sistema apresente a mensagem de Erro, e ao clicar em OK, "ele" apaga o n.º incorreto e pula p/ o proximo campo!

Daki a pouco vou postar a Função como fiz, caso alguém precise, é so pegar.!

Valeu,

Gde Abraço!

Jefferson

Cara quando quero manter o foco no objeto, eu sempre faço a validação na propriedade de "Ao receber foco" do proximo objeto, mostro a mensagem e retorno o foco.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...