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/

歡迎轉載，轉載務必說明出處。（如果本文對你有用，可以點擊一下右下角的 推薦，謝謝！）