生成订单号
'**************************************************************************************
'* 生成訂單號(hào),先從數(shù)據(jù)庫(kù)中檢索訂單記錄,而后根據(jù)已有的信息自動(dòng)生成訂單號(hào)
Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0
If kuangjia = 1 Then ' kuangjia=1 說(shuō)明的該產(chǎn)品是保稅加工產(chǎn)品,否則是一般貿(mào)易的產(chǎn)品
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
'* 生成訂單號(hào),先從數(shù)據(jù)庫(kù)中檢索訂單記錄,而后根據(jù)已有的信息自動(dòng)生成訂單號(hào)
Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0
If kuangjia = 1 Then ' kuangjia=1 說(shuō)明的該產(chǎn)品是保稅加工產(chǎn)品,否則是一般貿(mào)易的產(chǎn)品
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
總結(jié)
- 上一篇: 免费分享kali-linux-2019.
- 下一篇: 要搞定电票,你必须先弄懂这些问题!(下)