MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Gerador de Cpf

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 10/09/2013

    [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov - 13:58

    Boa tarde.
    Será que algum dos amigos teria módulo gerador de cpf válido que pudesse me disponibilizar?
    Busquei no fórum no entanto não encontrei.

    Agradecido.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2283
    Registrado : 08/04/2012

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Kaynan em Qui 13 Nov - 15:25

    Veja esse amigo véio.

    Abç



    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 10/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov - 15:35

    Fala meu amigo.
    Seria um Gerador de cpf pois estou sem tem para fazer e pensei que talvez algum amigo já tivesse um pronto.




    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1697
    Registrado : 11/11/2009

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Dilson em Qui 13 Nov - 16:11

    Olá,
    Sendo uma opção:
    Se digitar nos buscadores "gerador de cpf online" virá muitos sites que fornecem esse serviço gratuitamente.
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 10/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov - 16:14

    Pois é Dilson porém preciso gerar este número dentro da aplicação e então verificar se ele é válido para então dar prosseguimento na gravação dos dados.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 10/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov - 17:58

    Resolvi aqui pessoal.

    Muito obrigado Dilson

    Kaynan aproveitei o código verificador para após gerar números randonicos fazer a verificação do mesmo.

    Segue o código a grosso modo porém funciona.

    Código:
    Sub FazCPF()

    Dim intSoma, intSoma1, intSoma2, intInteiro As Long
    Dim intNumero, intMais, i, intResto As Integer
    Dim intDig1, intDig2 As Integer
    Dim strcampo, strCaracter, StrConf, strCGC, strDigVer As String
    Dim dblDivisao As Double

    Randomize    ' Inicializa o gerador de números aleatórios.

    1 For i = 1 To 1

     CGC = Int((12345678909#) * Rnd)

    If Len(CGC) < 11 Then GoTo 1
    If Len(CGC) > 11 Then GoTo 1


    k = Str(CGC)

    Next i

    intSoma = 0
    intSoma1 = 0
    intSoma2 = 0
    intNumero = 0
    intMais = 0

    strDigVer = Right(CGC, 2)
    strcampo = Left(CGC, 8)
    strCGC = Right(CGC, 6)
    strCGC = Left(strCGC, 4)
    strcampo = Right(strcampo, 4) & strCGC

    For i = 2 To 9
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma1 = intSoma1 + intMais
    Next i
    'Separa os 4 primeiros dígitos do CGC
    strcampo = Left(CGC, 4)
    For i = 2 To 5
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma2 = intSoma2 + intMais
    Next i
    intSoma = intSoma1 + intSoma2
    dblDivisao = intSoma / 11
    intInteiro = Int(dblDivisao) * 11
    intResto = intSoma - intInteiro
    If intResto = 0 Or intResto = 1 Then
        intDig1 = 0
    Else
        intDig1 = 11 - intResto
    End If
    intSoma = 0
    intSoma1 = 0
    intSoma2 = 0
    intNumero = 0
    intMais = 0

    strcampo = Left(CGC, 8)
    strCGC = Right(CGC, 6)
    strCGC = Left(strCGC, 4)
    strcampo = Right(strcampo, 3) & strCGC & intDig1

    For i = 2 To 9
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma1 = intSoma1 + intMais
    Next i
    strcampo = Left(CGC, 5)
    For i = 2 To 6
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma2 = intSoma2 + intMais
    Next i
    intSoma = intSoma1 + intSoma2
    dblDivisao = intSoma / 11
    intInteiro = Int(dblDivisao) * 11
    intResto = intSoma - intInteiro
    If intResto = 0 Or intResto = 1 Then
        intDig2 = 0
    Else
        intDig2 = 11 - intResto
    End If
    StrConf = intDig1 & intDig2
    DVCGC = StrConf

    If DVCGC = strDigVer Then

      If DCount("cpf", "Cliente", "cpf ='" & CGC & "'") Then GoTo 1  'VERIFICA SE O CPF JÁ EXISTE NA TABELE CASO EXISTA REFAZ TODO O PROCESSO


      Form_FCliente.txtCpf = CGC

      MsgBox "CPF válido!", vbInformation, "Atenção"

    Else
      GoTo 1
      End If
    End Sub



    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2283
    Registrado : 08/04/2012

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Kaynan em Qui 13 Nov - 19:40

    Legal meu amigo.Sucesso ....
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 10/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov - 23:46

    Ai Kaynan veja como ficou a parte de gerar Cpf do cadastro de produtos Very Happy

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1697
    Registrado : 11/11/2009

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Dilson em Sex 14 Nov - 7:49

    Bom que resolveu, obrigado por compartilhar a solução.

    Eu já havia colocado a mão na massa e construído um gerador. Veja no repositório:

    [Você precisa estar registrado e conectado para ver este link.]


    Última edição por Dilson em Sex 14 Nov - 17:44, editado 1 vez(es)

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2283
    Registrado : 08/04/2012

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Kaynan em Sex 14 Nov - 10:35

    Grande formiga,muito bom mesmo.
    Abç.

      Data/hora atual: Ter 12 Dez - 10:57