CREATE OR REPLACE FUNCTION Hp_Test_GetNo(P_TYPE_NAME IN VARCHAR2 DEFAULT '', --類型 參數(shù)1P_START_NO IN VARCHAR2, --前綴 參數(shù)2P_LENGTH IN NUMBER --得到流水號(hào)長(zhǎng)度 參數(shù)3)RETURN VARCHAR2 --返回類型ISV_RESULT VARCHAR2 (100) := ''; --結(jié)果 變量1V_CURRENT_NO VARCHAR2 (100) := ''; --當(dāng)前值 變量2V_NUM NUMBER := 0; --補(bǔ)值 變量3V_START_NO VARCHAR2(100); --前綴 變量4V_ROWID VARCHAR2 (100); --要更新行的RowID 變量4BEGINV_START_NO :=P_START_NO; --參數(shù)值賦給變量SELECT COUNT (*)INTO V_NUMFROM HP_NOWHERE TYPE_NAME = P_TYPE_NAME AND START_NO = P_START_NO; --得到類型與前綴相同值的數(shù)量，主要用于判斷是否產(chǎn)生過(guò)流水號(hào)--判斷是否有資料 沒(méi)有則產(chǎn)生初始值插入庫(kù)中IF V_NUM = 0 --沒(méi)有記錄過(guò)時(shí)THENV_CURRENT_NO := LPAD ('1', P_LENGTH, '0'); --得到P_length長(zhǎng)的0001流水號(hào)V_RESULT := V_CURRENT_NO; --將前綴與流水號(hào)相連起來(lái)INSERT INTO HP_NO(TYPE_NAME, START_NO, CURRENT_NO)VALUES (P_TYPE_NAME, P_START_NO, V_CURRENT_NO); --將新的最大值記錄下來(lái)ELSE SELECT ROWID, CURRENT_NO + 1INTO V_ROWID, V_CURRENT_NOFROM HP_NOWHERE TYPE_NAME = P_TYPE_NAME AND START_NO = P_START_NO; --得到最大值加1V_CURRENT_NO := LPAD (V_CURRENT_NO, P_LENGTH, '0'); UPDATE HP_NOSET CURRENT_NO = V_CURRENT_NOWHERE ROWID = V_ROWID; --更新最大值END IF; IF V_START_NO IS NULL OR V_START_NO='' THENV_RESULT := V_CURRENT_NO;ELSEV_RESULT :=V_START_NO || V_CURRENT_NO;END IF;RETURN V_RESULT;END;

--調(diào)用function存儲(chǔ)過(guò)程CREATE OR REPLACE PROCEDURE Hp_Pro_GetTestNo(v_FirstLetter in varchar2,v_Result out varchar2)ISv_FirstValue varchar2(30);v_SystDate varchar2(30);BEGINselect to_char(sysdate,'yyyymm') into v_SystDate from dual;v_FirstValue:=(v_FirstLetter || v_SystDate);v_Result:=hp_test_getno('HpTest' ,v_FirstValue,4);END;