科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道一个写的很不错的获取单据编号存储过程

一个写的很不错的获取单据编号存储过程

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文为大家介绍一个写的很不错的获取单据编号存储过程。

作者:赛迪网 Arp 来源:天新网 2008年3月20日

关键字: 数据库 SQL SQL Server Mssql

  • 评论
  • 分享微博
  • 分享邮件

获取单据编号的存储过程:

示例:

CREATE TABLE [dbo].[BillNo](
    [Id] [int] IDENTITY(1,1) NOT NULL,
    [BillName] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL,
    [MaxNo] [int] NULL,
    [MaxDate] [varchar](20) COLLATE Chinese_PRC_CI_AS NULL,
    [Prefix] [varchar](20) COLLATE Chinese_PRC_CI_AS NULL,
    [NumBit] [int] NULL CONSTRAINT [DF_BillNo_NumBit]  DEFAULT ((0)),
    [Style] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL,
    [Memo] [text] COLLATE Chinese_PRC_CI_AS NULL,
    [CreateDate] [datetime] NULL CONSTRAINT [DF_BillNo_CreateDate]  DEFAULT (getdate()),
    [EditDate] [datetime] NULL,
    [State] [int] NULL CONSTRAINT [DF_BillNo_State]  DEFAULT ((0)),
 CONSTRAINT [PK_BillNo] PRIMARY KEY CLUSTERED 
(
    [Id] ASC
)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

GO

CREATE PROCEDURE [dbo].[p_GetBillNo] --产生按年月日排列的档案号
    @BillName varchar(20),
    @No varchar(20) output, --为产生的档案号
    @NumBit int = 4 --编号位数

AS 
    DECLARE @MaxNo int,
            @MaxDate varchar(20),
            @Prefix varchar(20),
            @xNumBit int,
            @CurrDate varchar(12),
            @FILL_ZERO int,
            @iMaxNo int

    SET @FILL_ZERO = 100000000
    SET @CurrDate = CONVERT(VARCHAR(8), GETDATE(),112)

    SELECT @MaxNo = MaxNo, @MaxDate = MaxDate, @Prefix = Prefix, 

@xNumBit = NumBit FROM BillNo WITH(XLOCK) WHERE BillName = @BillName 
    IF @@ROWCOUNT <> 1 RETURN -1

    IF @xNumBit <> 0 SET @NumBit = @xNumBit 

    IF @MaxDate <> @CurrDate OR @MaxDate IS NULL OR @MaxNo IS NULL
        SET @iMaxNo = 1
    ELSE
        SET @iMaxNo = @MaxNo + 1

    UPDATE BillNo
         SET MaxNo = @iMaxNo, MaxDate = @CurrDate, 

EditDate = GetDate() WHERE BillName = @BillName
    IF @@ROWCOUNT <> 1 RETURN -1

    SET @No = COALESCE(@Prefix, '') + @CurrDate + RIGHT

(CAST(@FILL_ZERO + @iMaxNo AS VARCHAR), @NumBit) 

    RETURN 1
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章