Dim fRes As defFlow
Dim RanID As String
Public Property Let SetConnStr(ByVal iConnStr As String)
ConnStr = iConnStr
End Property
Public Property Let SetNumber(ByVal iQNumber As String)
QNumber = iQNumber
End Property
Public Property Let SetUserID(ByVal iUserID As Long)
UserID = iUserID
End Property
Public Property Get GetProdDate() As String
GetProdDate = ProdDate
End Property
Public Property Get GetDegreeName() As String
GetDegreeName = DegreeName
End Property
Public Property Get GetCheckiRes() As Boolean
GetCheckiRes = CheckiRes
End Property
'//分解编码
Public Sub SplitNumber()
Dim Spec As String
Dim BoxID As String
BoxID = Right(QNumber, 2)
If BoxID <> "00" Then
Spec = Mid(QNumber, 7, 13)
If Spec <> "0602531000000" Then
'S20080127酒王酒
If Mid(QNumber, 9, 2) = "22" And Mid(QNumber, 11, 1) > "3" Then
'GoTo king22
ElseIf Mid(QNumber, 9, 2) = "25" And Mid(QNumber, 11, 1) > "3" Then
'MsgBox Mid(QNumber, 9, 2)
Else
QNumber = Mid(QNumber, 13, 12) & Mid(QNumber, 1, 12)
End If 'E20080127
End If
End If
'MsgBox Mid(QNumber, 9, 2) & "o"
'king22:
With fRes
.Rand_Num = Mid(QNumber, 1, 6)
.Machine_ID = Mid(QNumber, 7, 2)
.Kind_ID = Mid(QNumber, 9, 2)
.Degree_ID = Mid(QNumber, 11, 1)
.Capacity_ID = Mid(QNumber, 12, 1)
.Spec_ID = Mid(QNumber, 13, 1)
.Box_ID = Mid(QNumber, 14, 9)
.Bottle_ID = Mid(QNumber, 23, 2)
End With
End Sub
'//检测产品是否存在
Public Function QueryMake(ByRef QueryMakeFlag As Boolean) As Boolean
