CREATE OR REPLACE FUNCTION Hp_Test_GetNo(
P_TYPE_NAME IN VARCHAR2 DEFAULT '', --類型 參數1
P_START_NO IN VARCHAR2, --前綴 參數2
P_LENGTH IN NUMBER --得到流水號長度 參數3
)
RETURN VARCHAR2 --返回類型
IS
V_RESULT VARCHAR2 (100) := ''; --結果 變量1
V_CURRENT_NO VARCHAR2 (100) := ''; --當前值 變量2
V_NUM NUMBER := 0; --補值 變量3
V_START_NO VARCHAR2(100); --前綴 變量4
V_ROWID VARCHAR2 (100); --要更新行的RowID 變量4
BEGIN
V_START_NO :=P_START_NO; --參數值賦給變量
SELECT COUNT (*)
INTO V_NUM
FROM HP_NO
WHERE TYPE_NAME = P_TYPE_NAME AND START_NO = P_START_NO; --得到類型與前綴相同值的數量，主要用于判斷是否產生過流水號
--判斷是否有資料 沒有則產生初始值插入庫中
IF V_NUM = 0 --沒有記錄過時
THEN
V_CURRENT_NO := LPAD ('1', P_LENGTH, '0'); --得到P_length長的0001流水號
V_RESULT := V_CURRENT_NO; --將前綴與流水號相連起來
INSERT INTO HP_NO(TYPE_NAME, START_NO, CURRENT_NO)
VALUES (P_TYPE_NAME, P_START_NO, V_CURRENT_NO); --將新的最大值記錄下來
ELSE 
SELECT ROWID, CURRENT_NO + 1
INTO V_ROWID, V_CURRENT_NO
FROM HP_NO
WHERE TYPE_NAME = P_TYPE_NAME AND START_NO = P_START_NO; --得到最大值加1
V_CURRENT_NO := LPAD (V_CURRENT_NO, P_LENGTH, '0'); 
UPDATE HP_NO
SET CURRENT_NO = V_CURRENT_NO
WHERE ROWID = V_ROWID; --更新最大值
END IF; 
IF V_START_NO IS NULL OR V_START_NO='' THEN
V_RESULT := V_CURRENT_NO;
ELSE
V_RESULT :=V_START_NO || V_CURRENT_NO;
END IF;
RETURN V_RESULT;
END;

--調用function存儲過程
CREATE OR REPLACE PROCEDURE Hp_Pro_GetTestNo
(
v_FirstLetter in varchar2,
v_Result out varchar2
)
IS
v_FirstValue varchar2(30);
v_SystDate varchar2(30);
BEGIN
select 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;