在此范围内生成收据编号

Question

如何生成以下范围内的唯一收据编号： GA00000-GZ99999？我不允许使用'I'和'O'字母，因此GI00000-GI99999 & GO00000-GO99999将被排除。

理想情况下，我想在T-SQL中创建它，但也可以在VB.Net中创建它。这个号码将存储在SQL中，我可以在生成下一个号码之前访问它。他们不必是连续的。

谢谢。

Answer 1

我决定做如下所示：

CREATE FUNCTION [dbo].[fn_generateReceiptNumber]() 
RETURNS NCHAR(7) 
AS 
BEGIN 
    -- Declare the return variable here 
    DECLARE @result NCHAR(7); 
    DECLARE @prefix NCHAR(1); 
    DECLARE @suffix INT; 
    DECLARE @currentMax NCHAR(7); 

    SELECT @currentMax = MAX(ISNULL(fp.CustomReceiptNo, 'GA00001')) FROM dbo.FinPayment fp; 

    SELECT @prefix = SUBSTRING(@currentMax,2,1); 
    SELECT @suffix = CAST(SUBSTRING(@currentMax,3,7) AS INT); 

    IF((@suffix + 1) > 99999) 
    BEGIN 
     SELECT @suffix = 0; 
    END 
    ELSE 
    BEGIN 
     SELECT @suffix = @suffix + 1; 
    END 

    IF(@suffix = 0) 
    BEGIN 
     IF(@prefix = 'Z') 
     BEGIN 
      RETURN -1; 
     END 
     ELSE 
     BEGIN 
      IF(NCHAR(UNICODE(@prefix)+1) IN ('I', 'O')) 
      BEGIN 
       SELECT @prefix = NCHAR(UNICODE(@prefix)+2); 
      END 
      ELSE 
      BEGIN 
       SELECT @prefix = NCHAR(UNICODE(@prefix)+1); 
      END 
     END 
    END 

    -- Return the result of the function 
    SELECT @result = NCHAR(71) + @prefix + CAST(RIGHT('00000' + RTRIM(@suffix), 5) AS NCHAR(5)); 
    RETURN @result; 

END 
GO 

谢谢大家的投入。 Steve。

Answer 2

保留一个后缀指针。当你的索引换行99999时，增加它。检查你的特殊情况和疲惫（例如Z）。

Answer 3

创建一个允许作为第一个数字的所有字符的array。

对于任何数字收据编号n收据编号将为G + array[n/1000000] + n % 1000000。

Answer 4

下面是一个VB.NET版本，获取下一个序号，给定前一个号码。我想我涵盖了所有的情况。

Private Const FirstReceiptNumber As String = "GA00000" 

Public Function GenerateReceiptNumber(ByVal lastNumber As String) As String 

    If lastNumber.Length <> 7 Then 
     Throw New ArgumentException("Incorrect length", "lastNumber") 
    End If 

    If lastNumber.StartsWith("G") = False Then 
     Throw New ArgumentException("Incorrect start character", "lastNumber") 
    End If 

    Dim letterPortion As Char = lastNumber.Chars(1) 

    If letterPortion < "A"c Or letterPortion > "Z"c Then 
     Throw New ArgumentException("Non-letter second character", "lastNumber") 
    End If 

    If letterPortion = "I"c Or letterPortion = "O"c Then 
     Throw New ArgumentException("Invalid second character", "lastNumber") 
    End If 

    Dim numericPortionString As String = lastNumber.Substring(2) 
    Dim numericPortion As Integer 

    If Integer.TryParse(numericPortionString, numericPortion) = False Then 
     Throw New ArgumentException("Invalid numeric portion", "lastNumber") 
    End If 

    If numericPortion = 99999 Then 
     If letterPortion = "Z"c Then 
      Throw New ArgumentException("No more receipt numbers possible", "lastNumber") 
     End If 

     numericPortion = 0 
     letterPortion = letterPortion + Chr(1) 

     If letterPortion = "I"c Or letterPortion = "O"c Then 
      letterPortion = letterPortion + Chr(1) 
     End If 
    Else 
     numericPortion = numericPortion + 1 
    End If 

    Return String.Format("G{0}{1:00000}", letterPortion, numericPortion) 

End Function