--创建单据号存放表

CREATE TABLE BU_TAB(

     DOC_NUM NUMBER     --生成的单据号

);

--单据号

create table cux_doc_num(

       tab   varchar2(40),    --表名

       col   varchar2(80),    --列明

       prefix varchar2(20),   --前缀

       sequence number        --序号

);

--记得创建索引

create index cux_doc_num_u1 on cux_doc_num(tab,col,prefix);

--单据号返回函数

create or replace function get_doc_num(p_tab in varchar,  --表名

                                       p_col in varchar,  --列名

                                       p_prefix in varchar --前缀

                                       --,seq_len in integer defatlt 3,

                                       --,break_num_reuse varchar2 default 'N'   --字符型入能，默认'N'，指出是否对断号进行重用，默认不重用

                                       )

return varchar is      --返回的单据号

pragma autonomous_transaction;

--v_result varchar2(200);

n_sequence number;

c_sequence number;

l_count    number;

--l_min_max  varchar2(3);

v_sql      varchar2(4000) := 'select nvl(max(tab.row_num),1) from (select rownum row_num from dual connect by rownum <=';

begin

  --if break_num_reuse = 'Y' THEN

  --   l_min_max : 'min';

  --else

  --   l_min_max : 'max';

  --end if;

  select count(*),nvl(min(sequence),0)+1  --min可以换成l_min_max

         into l_count,n_sequence

         from cux_doc_num ccs

      where ccs.tab = p_tab

        and ccs.col = p_col

        and ccs.prefix = p_prefix;

        dbms_output.put_line('l_count:'||l_count||'n_sequence:'||n_sequence);

    if l_count = 0 then

       insert into cux_doc_num

         (tab,col,prefix,sequence)

       values

         (p_tab,p_col,p_prefix,1);

     end if;

     v_sql := v_sql || n_sequence || ') tab where not exists (select 1 from ' ||

           p_tab || ' t where to_number(substr(t.'||p_col||',length('''||p_prefix

           ||''')+1,20)) = tab.row_num'||

           ' and substr(t.' || p_col ||',1,length('''||p_prefix||'''))='''||p_prefix||''')';

      dbms_output.put_line(v_sql);

   execute immediate v_sql into c_sequence;

      dbms_output.put_line('c_sequence:'||c_sequence);

   if c_sequence = n_sequence then

      update cux_doc_num ccs

             set ccs.sequence = n_sequence

        where ccs.tab = p_tab

          and ccs.col = p_col

          and ccs.prefix = p_prefix;

     end if;

     commit;

     return p_prefix || lpad(to_char(c_sequence),10,'');    --seq_len可以替代10，实现设置长度

  end get_doc_num;