Validate_CNPJ ( _Num )

Validates Brazilian CNPJ number

Average rating: 4.2 (31 votes) Log in to vote

FCO
FCO

Sample input:

Validate_CNPJ ("11.222.333/0001-81")

Sample output:

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let ( 
[ 
lencnpj = 14 ; 
num = Filter ( _Num ; "0123456789" ) ; 
digit0 = Middle ( num ; 13 ; 1 ) ; 
digit1 = Middle ( num ; 14 ; 1 ) ; 
lnum = Length ( num ) ; 
len_ok = GetAsBoolean ( lnum = lencnpj ) ; 

p13 = Middle ( num ; 1 ; 1 ) * 5 ; 
p12 = Middle ( num ; 2 ; 1 ) * 4 ; 
p11 = Middle ( num ; 3 ; 1 ) * 3 ; 
p10 = Middle ( num ; 4 ; 1 ) * 2 ; 
p09 = Middle ( num ; 5 ; 1 ) * 9 ; 
p08 = Middle ( num ; 6 ; 1 ) * 8 ; 
p07 = Middle ( num ; 7 ; 1 ) * 7 ; 
p06 = Middle ( num ; 8 ; 1 ) * 6 ; 
p05 = Middle ( num ; 9 ; 1 ) * 5 ; 
p04 = Middle ( num ; 10 ; 1 ) * 4 ; 
p03 = Middle ( num ; 11 ; 1 ) * 3 ; 
p02 = Middle ( num ; 12 ; 1 ) * 2 ; 
s0 = p13 + p12 + p11 + p10 + p09 + p08 + p07 + p06 + p05 + p04 + p03 + p02 ; 
d0 = Mod ( s0 ; 11 ) ; 
d0 = Case ( d0 = 1 or d0 = 0 ; 0 ; 11 - d0 ) ; 

p13 = Middle ( num ; 1 ; 1 ) * 6 ; 
p12 = Middle ( num ; 2 ; 1 ) * 5 ; 
p11 = Middle ( num ; 3 ; 1 ) * 4 ; 
p10 = Middle ( num ; 4 ; 1 ) * 3 ; 
p09 = Middle ( num ; 5 ; 1 ) * 2 ; 
p08 = Middle ( num ; 6 ; 1 ) * 9 ; 
p07 = Middle ( num ; 7 ; 1 ) * 8 ; 
p06 = Middle ( num ; 8 ; 1 ) * 7 ; 
p05 = Middle ( num ; 9 ; 1 ) * 6 ; 
p04 = Middle ( num ; 10 ; 1 ) * 5 ; 
p03 = Middle ( num ; 11 ; 1 ) * 4 ; 
p02 = Middle ( num ; 12 ; 1 ) * 3 ; 
p01 = d0 * 2 ; 
s1 = p13 + p12 + p11 + p10 + p09 + p08 + p07 + p06 + p05 + p04 + p03 + p02 + p01 ; 
d1 = Mod ( s1 ; 11 ) ; 
d1 = Case ( d1 = 1 or d1 = 0 ; 0 ; 11 - d1 ) ; 

is_ok = GetAsBoolean ( digit0 = d0 and digit1 = d1 ) 

] ; 

Case ( 
IsEmpty ( _Num ) ; -3 ; // parameter is empty
not len_ok ; -2 ; //  number of digits <> 14
not is_ok ; -1 ; // incorrect entry
1 
) 

)

Description:
In Brazil there is a CNPJ (Cadastro Nacional de Pessoas Jurídicas) number which serves to identify each legal entity (company, corporation) in the country. The number composes of fourteen numeric digits, being the two last ones the checking digits.

The function calculates the two checking digits, based on the twelve preceding digits.

Input:
the fourteen numeric digits for a CNPJ number

Output:
-3 (parameter is empty)
-2 (number of digits <> 14)
-1 (incorrect entry)
1 (OK)

Examples:
lnput: Validate_CNPJ (11222333000181)
Output: 1

lnput: Validate_CNPJ ("11.222.333/0001-81")
Output: 1

You can modify the Case result numbers to return a Boolean calculation, so that the function could be tested as GetAsBoolean ( Validate_CNPJ (_Num) ).

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Validate_CNPJ ( _Num )

Comments

Support this website.

Support this website.