Testando tamanho CPF/CNPJ

[JoséQuintas]

Cheguei neste pronto, e achei interessante várias opções pra mesma coisa:

Código: Selecionar todos

         IF Len( SoNumeros( :String( "CDCNPJ" ) ) ) != 14 .AND. Len( SoNumeros( :String( "CDCNPJ" ) ) ) != 11

Não sei se dá pra considerar antigo:

Código: Selecionar todos

IF ! StrZero( Len( SoNumeros( :String( "CDCNPJ" ) ) ), 2 ) $ "11,14"

ou

Código: Selecionar todos

IF hb_ASCan( { 11, 14 }, Len( SoNumeros( :String( "CDCNPJ" ) ) ) ) == 0

Tem a ver com o que mencionei em outro post:
Conforme a gente vai se sentindo confortável, vai usando novas opções.
No tempo em que ainda usava clipper, acharia isso uma coisa complicada pra entender.

[Vlademiro]

Creio que dá pra fazer tb com RegExp. Fica estranho mas virou um padrão. Muitas linguagens usam.