1 create or replace function get_request_code return varchar2 AS 2 3 --函數的作用：自動生成訂單號 4 v_mca_no mcode_apply_01.mca_no%TYPE; 5 6 CURSOR get_max_mca_no IS 7 SELECT max(substr(mca_no, 11, 3)) -- 查出的最大單號，截取出最后三位，如：001、002...n 8 FROM mcode_apply_01 9 WHERE substr(mca_no, 3, 8) = to_char(sysdate, 'YYYYMMDD'); -- 截取單號，如：20170422 10 11 v_requestcode VARCHAR2(3); 12 13 BEGIN 14 OPEN get_max_mca_no; 15 FETCH get_max_mca_no INTO v_requestcode; 16 CLOSE get_max_mca_no; 17 18 IF v_requestcode IS NULL THEN 19 v_requestcode := NVL(v_requestcode, 0); -- NVL()函數：當v_requestcode為NULL時，取0作為值 20 END IF; 21 22 v_requestcode := lpad(v_requestcode + 1, 3, '0'); -- 將游標中截取到的值加1，然后向左填充0，生成 001...00n 序號； lpad()函數：向左填充 23 24 v_mca_no := 'MA' || to_char(sysdate, 'YYYYMMDD') || v_requestcode; -- 最終生成的申請單號（如：MA20170422001；MA20170422002;...MA2017042200N ） 25 26 27 RETURN '0~,'|| v_mca_no; 28 29 END ;
注：如需測試該函數，請復制到Oracle數據庫中，右擊函數名“get_request_code”，選擇“test” 進行測試，測試時記得把相應的表名及字段換成自己建立的
函數 substr()， 詳解：http://www.cnblogs.com/dshore123/p/7805050.html
| 原創作者：DSHORE 作者主頁：http://www.cnblogs.com/dshore123/ 原文出自：http://www.cnblogs.com/dshore123/p/7824801.html 歡迎轉載，轉載務必說明出處。（如果本文對您有幫助，可以點擊一下右下角的 推薦，或評論，謝謝！） |