Question

我可以从oracle表中创建发票的序列号

表：

ID YEAR  LAST_VALUE
ABC 2020  900
DEF 2020  500
GHI 2020  250

通过这个表格，我想创建一个像这样的列表

ABC2020001
ABC2020002
.
.
ABC2020900

DEF2020001
DEF2020002
.
.
DEF2020500

GHI2020001
GHI2020002
.
.
GHI2020250

Answer 1

一个选项使用递归查询来生成数字序列：

with cte (id, yr, last_val, val) as (
    select id, yr, last_val, 1 from mytable
    union all
    select id, yr, last_val, val + 1 from cte where val < last_val
)
select id || yr || to_char(val, 'fm0000') serial_number from cte

Demo on DB Fiddle

Answer 2

您需要的只是横向的。就这样。每当您在任何论坛上发布问题时，总是要提及您的Oracle版本（以下解决方案至少需要12分）。以下是您需要的。顺便说一句，last_value是一个解析函数，不能使用相同的名称作为列名。因此，我使用了lastvalue。

select * from data,
lateral
(
 select id||year||to_char(level,'fm000') as new_id
 from dual
 connect by level <= lastvalue
)

Answer 3

另一种选择，

我们可以通过使用connect by并通过强制转换键入sys.odcinumberlist来使用起点和终点来生成序列来做到这一点。

with data 
as
(
select 'ABC' id,2020 year,900 lastvalue,1 firstvalue
from dual
union all 
select 'DEF', 2020, 500,1 from dual
union all 
select 'GHI', 2020, 250,1 from dual
)
select id||year||
       lpad((firstvalue + 
             series.column_value - 1)
           ,length(lastvalue)
           ,'0'
           )invoicenumber
  from data
      ,table(cast(multiset
             (select level
                from dual
              connect by level <= lastvalue-firstvalue + 1) 
              as sys.odcinumberlist)) series

Answer 4

这假定您的Oracle数据库中有一个名为SerialNumbers的表，该表具有2个字段，SerialNumber是某种字符串类型，并用作Oracle对布尔值的解释。

我们用您的序列号填充Datatable，然后将其发送给Oracle。

Private ConStr As String = "Your connection string"

Private Sub OPCode()
    Dim dt As New DataTable
    dt.Columns.Add("SerialNumber", GetType(String))
    dt.Columns.Add("Used", GetType(Boolean))
    Dim letters = {"ABC", "DEF", "GHI", "HIJ", "KLM", "NOP", "QRS", "TUV", "WXY"}
    For Each LetterGroup In letters
        For i = 1 To 900
            Dim sn = LetterGroup & i.ToString.PadRight(3, "0"c)
            dt.Rows.Add(sn, False)
        Next
    Next
    Using cn As New OracleConnection(ConStr),
            da As New OracleDataAdapter("Select SerialNumber,Used From SerialNumbers;", cn)
        Dim cb As New OracleCommandBuilder(da)
        da.Update(dt)
    End Using
End Sub

当您需要新的序列号...

Private Function GetNextSerialNumber() As String
    Dim RetVal As String
    Using cn As New OracleConnection(ConStr),
            cmd As New OracleCommand("Select Top 1 SerialNumber From SerialNumbers Where Used = False Order By SerialNumber;", cn)
        cn.Open()
        RetVal = CStr(cmd.ExecuteScalar)
        cmd.CommandText = "Update SerialNumbers Set Used = True Where SerialNumber = @SN;"
        cmd.Parameters.Add("@SN", OracleDbType.Varchar2).Value = RetVal
        cmd.ExecuteNonQuery()
    End Using
    Return RetVal
End Function

我可以为发票创建序列号吗

4 个答案: