虚位以待(AD)
虚位以待(AD)
首页 > 数据库 > Oracle数据库 > Oracle生成单据编号存储过程的实例代码

Oracle生成单据编号存储过程的实例代码
类别:Oracle数据库   作者:码皇   来源:互联网   点击:

Oracle生成单据编号存储过程,在做订单类似的系统都可能会存在订单编号不重复,或是流水号按日,按年,按月进行重新编号。下面给大家分享oracle生成单据编号存储过程,需要的的朋友参考下吧

Oracle生成单据编号存储过程,在做订单类似的系统都可能会存在订单编号不重复,或是流水号按日,按年,按月进行重新编号。

可以参考以下存储过程

    CREATE OR REPLACEprocedure Pro_GetBillNO(TypeTable in varchar2,cur_mycursor out sys_refcursor)asDReceiptCode varchar2(40);
    DReceiptName varchar2(50);
    DPrefix1 varchar2(50);
    DISO varchar2(50);
    DIsAutoCreate varchar2(20);
    DPrefix2 varchar2(20);
    DPrefix3 varchar2(20);
    DDateValue date;
    DNO number;
    DLength number;
    DResetType number;
    DSeparator varchar2(20);
    DReturnValue varchar2(50);
    strSql varchar2(1000);
    beginDReturnValue:='';
    select "ReceiptCode","ReceiptName","Prefix1","ISO","IsAutoCreate","Prefix2","Prefix3","DateValue","NO","Length","ResetType","Separator" intoDReceiptCode,DReceiptName,DPrefix1,DISO,DIsAutoCreate,DPrefix2,DPrefix3,DDateValue,DNO,DLength,DResetType,DSeparator from"SysReceiptConfig" where "ReceiptCode"=TypeTable;
    if to_number(DResetType)>0thenif DIsAutoCreate=1 THENif DResetType=1 then --按年份if to_number(to_char(sysdate,'yyyy')) <>to_number(to_char(DDateValue,'yyyy')) thenupdate "SysReceiptConfig" set "NO"=1,"DateValue"=to_date(sysdate) where "ReceiptCode"=TypeTable;
    elseupdate "SysReceiptConfig" set "NO"="NO"+1 where "ReceiptCode"=TypeTable;
    end if;
    --年份end if;
    --DResetType=1if DResetType=2 then --按月份if to_number(to_char(sysdate,'MM')) <>to_number(to_char(DDateValue,'MM')) thenupdate "SysReceiptConfig" set "NO"=1,"DateValue"=to_date(sysdate) where "ReceiptCode"=TypeTable;
    elseupdate "SysReceiptConfig" set "NO"="NO"+1 where "ReceiptCode"=TypeTable;
    end if;
    --月份end if;
    --DResetType=2if DResetType=3 then --按日if to_number(to_char(sysdate,'dd')) <>to_number(to_char(DDateValue,'dd')) thenupdate "SysReceiptConfig" set "NO"=1,"DateValue"=to_date(sysdate) where "ReceiptCode"=TypeTable;
    elseupdate "SysReceiptConfig" set "NO"="NO"+1 where "ReceiptCode"=TypeTable;
    end if;
    --月份end if;
    --DResetType=3elseupdate "SysReceiptConfig" set "NO"="NO"+1 where "ReceiptCode"=TypeTable;
    end if;
    --DResetTypeend if;
    strSql:=' select * from "SysReceiptConfig" where 1=1 ';
    strSql:=strSql ||' and "ReceiptCode"='''||TypeTable||'''';
    open cur_mycursor for strSql;
    end;

以上所述是小编给大家介绍的Oracle生成单据编号存储过程的实例代码,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对脚本之家网站的支持!

相关热词搜索: oracle 单据编号存储过程 oracle 单据编号