按日期生成惟一的编号

 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;
/