Oracle 函数 “判断数据表中不存在的数据，才允许通过”

create or replace function mca_detail_material_val(p_material_code VARCHAR2,  --实参
                                                   p_material_name VARCHAR2,
                                                   p_mca_no VARCHAR2
                                                  ) 
       RETURN varchar2 AS
       
 --物料编码/名称的验证，数据表（MATERIAL）中 不存在 该物料编码/名称，允许通过，填其他值都不允许通过

       v_count1   NUMBER; -- 形参
       v_count2   NUMBER;
       v_count3   NUMBER;
       v_count4   NUMBER;

       CURSOR get_wl_material_code1 IS
              SELECT count(m.material_code)  -- count()函数：查询出来的记录条数（记录数）
              FROM   MATERIAL m
              WHERE  m.material_code = p_material_code;
              
       CURSOR get_wl_material_code2 IS
              SELECT count(material_code)
              FROM   mca_detail m
              WHERE  m.material_code = p_material_code AND m.mca_no <> p_mca_no;
                                                     -- m.mca_no <> p_mca_no:在编辑时，排除此单号(不做比较)---物料编码
       CURSOR get_wl_material_name1 IS
              SELECT count(m.material_name)
              FROM   MATERIAL m 
              WHERE  m.material_name = p_material_name;
              
       CURSOR get_wl_material_name2 IS
              SELECT count(m.material_name)
              FROM   mca_detail m
              WHERE  m.material_name = p_material_name AND m.mca_no <> p_mca_no;
BEGIN                                                -- m.mca_no <> p_mca_no:在编辑时，排除此单号(不做比较)---物料名称
      OPEN get_wl_material_code1;
      FETCH get_wl_material_code1 INTO v_count1;
      CLOSE get_wl_material_code1;
      
      OPEN get_wl_material_code2;
      FETCH get_wl_material_code2 INTO v_count3;
      CLOSE get_wl_material_code2;
      
      OPEN get_wl_material_name1;
      FETCH get_wl_material_name1 INTO v_count2;
      CLOSE get_wl_material_name1;
      
      OPEN get_wl_material_name2;
      FETCH get_wl_material_name2 INTO v_count4;
      CLOSE get_wl_material_name2;

      IF v_count1+v_count3 <> 0 THEN
         RETURN '4823272'; -- 错误信息码（信息码表）     该信息码对应的内容：物料编码已存在，不允许出现相同值，请确认该编码的真确性！
      ELSIF v_count2+v_count4 <> 0 THEN
         RETURN '4823273'; -- 错误信息码（信息码表）     该信息码对应的内容：物料名称已存在，不允许出现相同值，请确认该编码的真确性！
      END IF;

      RETURN '0';

end mca_detail_material_val;

注：如需测试该函数，请复制到Oracle数据库中，右击函数名“mca_detail_material_val”，选择“test” 进行测试，测试时记得把相应的表名及字段换成自己建立的

原创作者：DSHORE

出处：http://www.cnblogs.com/dshore123/

欢迎转载，转载务必说明出处。（如果本文对你有用，可以点击一下右下角的 推荐，谢谢！）