create or replace function UF_GetSeq_USER
  return integer
/************************************************************************
名    称： UF_GetSeq_USER
描    述：生成维护系统表主键15位：系统ID+12位序列
输出参数：iseq : 主键
作    者：************************************************************************/
IS
  iSeq            NUMBER(15);--返回结果
  vSeq            VARCHAR2(12);
  vSysId          VARCHAR2(200);
BEGIN
  --查询seq
  select SQ_USER.NEXTVAL into vSeq from dual;

  --查询系统id，系统配置表（TbDicSysConfig）中"fid"等于"1"的
  select Num into vSysId from TbDicSysConfig where FID=1;

  iSeq:=to_number(vSysId||to_char(vSeq,'FM0000'));

  return iSeq;
end UF_GetSeq_USER;

?