生成动态前缀且自增号码的Oracle函数

-- Dual 是 Oracle中的一个实际存在的表，任何用户均可读取，常用在没有目标表的select语句块中。

create or replace
 
Function GetInvitationNO(prev varchar2, num1 varchar2, num2 varchar2, sessionSetting varchar2)
 
Return Varchar2
 
Authid Current_User Is PRAGMA AUTONOMOUS_TRANSACTION;-- 需要使用“Current_User”的权限防止无法运行“Execute Immediate”命令 & “PRAGMA AUTONOMOUS_TRANSACTION”自制事务防止DML无法DDL的问题
 
Totalprev Varchar2(50);
 
Hassequences Number;
 
ReNO varchar2(50);
 
Begin
 
  -- 号码的前缀
 
  Totalprev := Prev || Num1 || Num2 || Sessionsetting;
 
 
 
  -- 创建序列
 
  Select Count(*) Into Hassequences From User_Sequences Where Sequence_Name=Totalprev;
 
  If Hassequences 1 Then
 
      Execute Immediate 'Create Sequence '||Totalprev||' Increment By 1 Start With 1 maxvalue 9999999 Nocycle';
 
  End If;
 
 
 
  -- 通过动态的序列名取序列值，把获取的序列值转换为7位长度的字符串，长度不足用“0”填充 
 
  Execute Immediate 'Select '''|| Totalprev ||''' || to_char('||Totalprev||'.Nextval,''FM0000000'') From Dual' into ReNO;
 
  -- to_char()中FM后跟的0代表了数字的位数，不足的用“0”填充；加上“FM”可以避免空格的出现，，前面的空格是为符号位保留的，如果是对负数使用to_char，则空格部分是用来显示－的，因为是正数，所以不显示＋，而是以空格代替
 
   
 
  Return ReNO;
 
end;
 
 
测试
 
Select GetInvitationNO('p', '1', '01', '114') From dual
 
-- Dual 是 Oracle中的一个实际存在的表，任何用户均可读取，常用在没有目标表的select语句块中。