oracle 统一信用代码校验函数

oracle统一社会信用代码校验函数

在Oracle数据库中，进行统一社会信用代码的校验可以通过创建一个函数来实现。以下是一个简单的函数，用于校验统一社会信用代码的有效性：

CREATE OR REPLACE FUNCTION is_valid_credit_code(p_credit_code IN VARCHAR2) RETURN BOOLEAN IS
  -- 校验位值
  l_weight_factor CONSTANT VARCHAR2(10) := '3212312310';
  l_check_digit CHAR(1) := '0123456789X';
  l_sum NUMBER := 0;
  l_check_value CHAR(1);
  l_length NUMBER := LENGTH(p_credit_code);
BEGIN
  -- 长度校验
  IF l_length NOT IN (18, 20) THEN
    RETURN FALSE;
  END IF;
 
  -- 正则表达式校验
  IF NOT REGEXP_LIKE(p_credit_code, '^[0-9A-Z]{18}$|^[0-9A-Z]{17}[0-9X]$') THEN
    RETURN FALSE;
  END IF;
 
  -- 计算校验码
  FOR i IN 1..l_length - 1 LOOP
    l_sum := l_sum + SUBSTR(p_credit_code, i, 1) * SUBSTR(l_weight_factor, i, 1);
  END LOOP;
  l_check_value := SUBSTR(l_check_digit, MOD(l_sum, 11) + 1, 1);
 
  -- 校验码校验
  RETURN (SUBSTR(p_credit_code, -1) = l_check_value);
EXCEPTION
  WHEN OTHERS THEN
    RETURN FALSE;
END is_valid_credit_code;

这个函数首先检查信用代码的长度是否正确（18位或19位），然后使用正则表达式验证格式是否正确（数字和大写英文字母），最后计算出校验码并与信用代码最后一位比较，以确定信用代码是否有效。如果在校验过程中发生异常，函数会返回FALSE。