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