生成订单号

'**************************************************************************************
'* 生成订单号，先从数据库中检索订单记录，而后根据已有的信息自动生成订单号

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