首页 > 代码库 > 按日期生成惟一的编号

按日期生成惟一的编号

 CREATE OR REPLACE FUNCTION bdlly.fn_Reg_ywdjh(fn_rq date)    RETURN varchar2 IS    v_char varchar2(200);    v_max  varchar2(100);   BEGIN      --查询出最大的业务登记号--      SELECT max(ywdjh) INTO v_max FROM bdlly_2v.qtywb@"bdlly2V_LINK.REGRESS.RDBMS.DEV.US.ORACLE.COM" WHERE TO_CHAR(rq,YYYY-MM-DD)=TO_CHAR(fn_rq,YYYY-MM-DD);      --如果最大值为空,则生成yyyymmdd0001,如果不为空,则按最大值加1      IF v_max IS NULL         THEN        v_char := to_char(fn_rq,yyyymmdd)||0001;      ELSE        v_char := to_char((to_number(v_max) + 1));      END IF;      commit;      RETURN v_char;   END fn_Reg_ywdjh;/