Página 1 de 1
Macara para CPF e CNPJ
Enviado: 10 Nov 2004 09:09
por marbio
Ola turma
Tem alguma funcao para digitar cpf e cnpj para ficar com os pontos no mesmo get, que reconhece se e cpf ou cnpj.
t+
RESP
Enviado: 10 Nov 2004 13:09
por tonyx
1 . voce pergunta se e cpf ou cnpj e depois faz if separando cada estrutura
if id = cpd
stru = ´999.999.999-99
´ else
str = ´99.999.999/9999-99
endif
get stru
2 ou deixa campo vazio ate 18 cahr auq que tiver 11 char sera cpf e o
14 sera cnpj
faz critica do numero
Mascara p/ CPF E CNPJ
Enviado: 11 Nov 2004 09:02
por marbio
Bom dia !!!
Isso mesmo tem comp vc me dar ex: detalhado
t+
Enviado: 13 Nov 2004 23:26
por rochinha
Amiguinho
Sinceramente eu não coloco pontos no GET que pega estas informações porque usuario é pregiçoso por natureza.
Faça um GEt com tamanho de 20 char e picture "@!"
Nào importa se seu usuario digitar:
1.234.567/0001-10 ou 01234567/0001-10 ou 01234567000110 sua função se encarregara de fazer a verificacao:
Código: Selecionar todos
@ 10,10 say "CGC:" get cCGC picture "@!" valid QualCGC( cCGC )
...
FUNCTION QualCGC( oque )
...
oque := strtran( oque, ".","" ) // retira os pontos
oque := strtran( oque, "/","" ) // retira a barra
oque := strtran( oque, "-","" ) // retira os traços
...
// verifica o tamanho da string e aciona o teste de codigo
if alltrim(len( oque )) > 11
return TestaCIC( oque ) // Sua funcao de calculo de CIC
else
return TestaCGC( oque ) // Sua funcao de calculo de CGC
endif
...
// Retorna .F. para voce verificar que tipo de valor foi passado em OQUE
return .f.
Acho que foi isto que o amiguinho anterior tentou explicar.
@braços :?)