14 THEN RETURN FALSE; END IF; -- Verifica se todos os dígitos são iguais (caso inválido) IF cnpj_limpo ~ '^(.)\1{13}$' THEN RETURN FALSE; END IF; -- Calcula o primeiro dígito verificador soma := 0; FOR i IN 1..12 LOOP soma := soma + (cast(substring(cnpj_limpo, i, 1) AS INTEGER) * pesos1[i]); END LOOP; resto := soma % 11; IF resto < 2 THEN digito1 := 0; ELSE digito1 := 11 - resto; END IF; -- Calcula o segundo dígito verificador soma := 0; FOR i IN 1..13 LOOP soma := soma + (cast(substring(cnpj_limpo, i, 1) AS INTEGER) * pesos2[i]); END LOOP; resto := soma % 11; IF resto < 2 THEN digito2 := 0; ELSE digito2 := 11 - resto; END IF; -- Compara os dígitos calculados com os dígitos do CNPJ informado IF digito1 = cast(substring(cnpj_limpo, 13, 1) AS INTEGER) AND digito2 = cast(substring(cnpj_limpo, 14, 1) AS INTEGER) THEN RETURN TRUE; ELSE RETURN FALSE; END IF; END; ]]>