SET TERM ^ ;
 
CREATE OR ALTER PROCEDURE UTIL_IS_VALID_CNPJ (
CNPJ VARCHAR(30))
RETURNS (
VALIDO SMALLINT)
AS
DECLARE variable TMP_CNPJ VARCHAR(30);
DECLARE variable I INTEGER;
DECLARE variable L INTEGER;
DECLARE variable T INTEGER;
BEGIN
-- código da comunidade show delphi, adaptado por Giovani Da Cruz
CNPJ = TRIM(:CNPJ);
 
/* DIGITOS IDENTICOS */
IF (
(CHARACTER_LENGTH(CNPJ) <> 14) OR
(CNPJ = '00000000000000') OR (CNPJ = '11111111111111') OR
(CNPJ = '22222222222222') OR (CNPJ = '33333333333333') OR (CNPJ = '44444444444444')OR
(CNPJ = '55555555555555') OR (CNPJ = '66666666666666') OR (CNPJ = '77777777777777')OR
(CNPJ = '88888888888888') OR (CNPJ = '99999999999999')
) THEN
BEGIN
VALIDO = 0;
 
SUSPEND;
Exit;
END
 
I = 1;
TMP_CNPJ = '';
while (I <= CHAR_LENGTH(CNPJ)) do
BEGIN
IF (SUBSTRING(CNPJ FROM I FOR 1) BETWEEN '0' AND '9') THEN
TMP_CNPJ = TMP_CNPJ || SUBSTRING(CNPJ FROM I FOR 1);
I = I + 1;
END
 
IF (CHAR_LENGTH(TMP_CNPJ) <> 14) THEN
BEGIN
VALIDO = 0;
suspend;
exit;
END
 
L = 0;
while (L < 2) do
BEGIN
I = 1;
T = 0;
while (I < 13 + L) do
BEGIN
T = T + (MOD(20 - I + L, 8) + 2) * CAST(SUBSTRING(TMP_CNPJ FROM I FOR 1) AS INTEGER);
I = I + 1;
END
T = MOD(T, 11);
IF (T < 2) THEN
BEGIN
T = 0;
END
ELSE
BEGIN
T = 11 - T;
END
 
IF (T <> CAST(SUBSTRING(TMP_CNPJ FROM 13 + L FOR 1) AS INTEGER)) THEN
BEGIN
VALIDO = 0;
suspend;
exit;
END
 
L = L + 1;
END
 
VALIDO = 1;
suspend;
END
^
 
SET TERM ; ^

SELECT
 
-- válido gerado pelo gerador de cnpj do show delphi
(SELECT y.valido FROM util_is_valid_cnpj('78651494000161') y),
 
-- inválido
(SELECT y.valido FROM util_is_valid_cnpj('00000000000000') y),
 
-- inválido
(SELECT y.valido FROM util_is_valid_cnpj('01294580043417') y)
 
FROM rdb$database