Dim no As String '单据编码
Dim nm As String = Args(0) '单据类型
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
cmd1.C
cmd2.C
Dim Key As Integer
cmd1.commandText = "Select [顺序号] From [ss_num] Where [单据类型] = '" & nm & "'"
Do
Key = cmd1.ExecuteScalar() '从后台获得顺序号
cmd2.commandText = "Update [ss_num] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [单据类型] = '" & nm & "'"
If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
Exit Do '更新成功则退出循环
End If
Loop
Dim cmd4 As New SQLCommand
Dim dt As DataTable
cmd4.C
cmd4.CommandText = "Select * From [ss_num] Where [单据类型] = '" & nm & "'"
dt = cmd4.ExecuteReader()
Dim dr As DataRow
dr = DataTables("dt").Find("[单据类型] = '" & nm & "'")
If dr IsNot Nothing Then '如果找到的话
Dim s As New String("0", dr("序号位数"))
no = Format(Args(2),dr("编码规则")) & "-" & Format(Key,s) '生成编码
End If
Return no
[此贴子已经被作者于2013-2-5 8:39:34编辑过]
加好友 
发短信
Post By：2013/2/4 21:58:00 [显示全部帖子]
