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]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Compartilhe
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2294
    Registrado : 21/04/2011

    [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  Marcelo David em Sab 15 Nov 2014, 12:10 am

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

    Opa! Esse já foi para o meu baú de pesquisas!!!
    Obrigado Dilson!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  wsenna em Sab 15 Nov 2014, 2:31 pm

    Olá Dilson. boa tarde.

    Amigão, teria como disponibilizar na versão Access 2003?

    Abraços, WSenna

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  Kaynan em Sab 15 Nov 2014, 10:08 pm

    Ai mestre.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  Dilson em Sab 15 Nov 2014, 11:25 pm

    Valeu Kaynan por ajudar o amigo wsenna.

    Fala Marcelo, contente aqui, que gostou.

    Amigos, eu dei uma enxugada no código retirando:
    Dim pesoIntX
    Dim pesoIntY
    pesoIntX = Split(SomaX / 11, ",")
    pesoIntY = Split(nSomaY / 11, ",")

    Essas quatro linhas não influenciam em nada. Inicialmente eu tracei uma lógica com elas e depois resolvi dividindo a soma com o Mod.


    Inclui um exemplo 2003.
    Os exemplos na postagem inicial estão atualizados.
    .
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  wsenna em Dom 16 Nov 2014, 12:19 am

    Grande Dilson.

    Fico imensamente grato.
    Não deixo passar nenhum exemplo de grande importância como este seu.

    Mais uma vêz, muito obrigado, tenha um ótimo domingo e uma semana promissora.

    Abraços, WSenna
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  formiga10x em Dom 16 Nov 2014, 4:16 am

    E assim vai cada vez mais enriquecendo o fórum.
    Parabéns Dilson muito bom trabalho Very Happy


    .................................................................................
    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
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  Avelino Sampaio em Dom 16 Nov 2014, 8:58 am

    Curiosidade: aonde se aplicaria os CPF's gerados ?

    Grato
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  wsenna em Dom 16 Nov 2014, 10:46 am

    Grande Avelino, bom dia.

    Amigão, muitas vezes somos levados a desenvolver sistemas que necessitam de campos para CPFs e sua validação.
    Eu, por exemplo, fiz um aplicativo para uma empresa que durante o cadastramento de um cliente tinha que validar o CPF do mesmo e utilizei a rotina que todos nós conhecemos. A coisa funcionou de forma perfeita, porém, num dado momento o cliente solicitou que validasse o cpf dele e por azar meu o cpf dele começava com zero e aí a coisa melou.
    Tive que buscar auxílio na web para resolver essa parada. Dessa forma é muito bom que tenhamos um programa como este para gerar CPFs válidos para testes em nossos aplicativos, penso eu.
    O único problema é que o exemplo de nosso Amigo Dilson não gera CPFs iniciados com 0 (zero), mas tudo bem.

    Abraços, WSenna
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  Dilson em Seg 17 Nov 2014, 1:33 pm

    Sem dúvida pode auxiliar no teste de software, pela digitação de formulário ou loops.
    Para gerar CPF iniciados com zero, basta trocar:

    For i = 0 To 8
    nRand = Int((9 * Rnd) + 1)
    If i = 0 Then
    nAleatorio = nRand
    Else
    nAleatorio = nAleatorio & "." & nRand
    End If
    Next i


    Por esse:

    nAleatorio = "0"
    For i = 0 To 7
    nRand = Int((9 * Rnd) + 1)
    nAleatorio = nAleatorio & "." & nRand
    Next i
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    Considerações, dúvidas e sugestões sobre o Exemplo Gerador de CPF válido

    Mensagem  wsenna em Seg 17 Nov 2014, 4:29 pm

    Grande Dilson, valew Amigão.

    Agora o exemplo está completo.

    Grande abraços, WSenna

      Data/hora atual: Ter 12 Dez 2017, 10:22 am