當前位置:
首頁 >
生成订单号
發布時間:2024/3/26
52
豆豆
'**************************************************************************************
'* 生成訂單號,先從數據庫中檢索訂單記錄,而后根據已有的信息自動生成訂單號
Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0
If kuangjia = 1 Then ' kuangjia=1 說明的該產品是保稅加工產品,否則是一般貿易的產品
strk = "BP"
Else
strk = "AP"
End If
Set rs = WorkFlowConnect.Execute("select * from tbdd where left(DDH,2)='" & strk & "'")
If rs.RecordCount > 0 Then
While Not rs.EOF
If CDbl(Right(rs("DDH"), 6)) > sn Then
sn = CDbl(Right(rs("DDH"), 6))
End If
rs.MoveNext
Wend
sn = 1000000 + sn + 1
txtDDH = strk & Right(CStr(sn), 6)
Else
txtDDH = strk & "000001"
End If
End Sub
'* 生成訂單號,先從數據庫中檢索訂單記錄,而后根據已有的信息自動生成訂單號
Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0
If kuangjia = 1 Then ' kuangjia=1 說明的該產品是保稅加工產品,否則是一般貿易的產品
strk = "BP"
Else
strk = "AP"
End If
Set rs = WorkFlowConnect.Execute("select * from tbdd where left(DDH,2)='" & strk & "'")
If rs.RecordCount > 0 Then
While Not rs.EOF
If CDbl(Right(rs("DDH"), 6)) > sn Then
sn = CDbl(Right(rs("DDH"), 6))
End If
rs.MoveNext
Wend
sn = 1000000 + sn + 1
txtDDH = strk & Right(CStr(sn), 6)
Else
txtDDH = strk & "000001"
End If
End Sub
總結
- 上一篇: 免费分享kali-linux-2019.
- 下一篇: 要搞定电票,你必须先弄懂这些问题!(下)