第一次提交至Git
This commit is contained in:
369
UTS_Core/UTSModule/Station/StationPackagePlan.vb
Normal file
369
UTS_Core/UTSModule/Station/StationPackagePlan.vb
Normal file
@@ -0,0 +1,369 @@
|
||||
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
|
||||
Namespace UTSModule.Station
|
||||
Public Class StationPackagePlan
|
||||
Inherits StationPlan
|
||||
|
||||
Sub New(packet As StationPacket)
|
||||
MyBase.New(packet)
|
||||
|
||||
CreateStationPlan()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 校验条码未测试后处理方式
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property CheckSnTested As CheckStatus
|
||||
|
||||
''' <summary>
|
||||
''' 校验条码已参与包装后处理方式
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property CheckSnPackaged As CheckStatus
|
||||
|
||||
''' <summary>
|
||||
''' 校验条码不属于指定MO后处理方式
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property CheckSnMO As CheckStatus
|
||||
|
||||
''' <summary>
|
||||
''' 保存图像的数量
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property PictureCount As Integer
|
||||
|
||||
''' <summary>
|
||||
''' 解锁密码
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property UnlockKey As String
|
||||
|
||||
''' <summary>
|
||||
''' 条码类型
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property BarCodeType As BarcodeTypes
|
||||
|
||||
''' <summary>
|
||||
''' 缺失条码数量后的处理方式
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property MissingQuantity As MissCountStatus
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 缺失条码数量后的解锁密码
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property MissingQuantityKey As String
|
||||
|
||||
''' <summary>
|
||||
''' 是否自动打印
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property AutoPrint As Boolean
|
||||
|
||||
''' <summary>
|
||||
''' 发生错误后报警文件
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property ErrorSound As String
|
||||
|
||||
''' <summary>
|
||||
''' 模板文件名
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property TemplateFile As String
|
||||
|
||||
''' <summary>
|
||||
''' 箱号编辑密码
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property BoxMumEditKey As String
|
||||
|
||||
''' <summary>
|
||||
''' 公司Logo文件
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property CompanyLogo As String
|
||||
|
||||
''' <summary>
|
||||
''' 公司名称
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property CompanyName As String
|
||||
|
||||
''' <summary>
|
||||
''' 箱号规则
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property BoxNumText As String
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 箱号条码
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property BoxBarCode As String
|
||||
|
||||
''' <summary>
|
||||
''' 前置站位
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property ForwardPosition As String
|
||||
|
||||
''' <summary>
|
||||
''' 后置站位
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property RearPosition As String
|
||||
''' <summary>
|
||||
''' 软件版本
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Public Property Versions As String
|
||||
|
||||
|
||||
|
||||
Public Overrides Sub CreateStationPlan()
|
||||
CheckSnTested = CheckStatus.Fail
|
||||
CheckSnPackaged = CheckStatus.Fail
|
||||
CheckSnMO = CheckStatus.Fail
|
||||
UnlockKey = ""
|
||||
BarCodeType = BarcodeTypes.AsTemplate
|
||||
MissingQuantity = MissCountStatus.Key
|
||||
MissingQuantityKey = ""
|
||||
AutoPrint = False
|
||||
ErrorSound = ""
|
||||
TemplateFile = ""
|
||||
BoxMumEditKey = ""
|
||||
CompanyLogo = ""
|
||||
CompanyName = ""
|
||||
BoxNumText = ""
|
||||
BoxBarCode = ""
|
||||
ForwardPosition = ""
|
||||
RearPosition = ""
|
||||
Versions = ""
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub SaveFile(path As String)
|
||||
Dim xws As New XmlWriterSettings
|
||||
With xws
|
||||
.Indent = True
|
||||
.NewLineOnAttributes = False
|
||||
.Encoding = New UTF8Encoding(False)
|
||||
End With
|
||||
|
||||
Using xw As XmlWriter = XmlWriter.Create(path, xws)
|
||||
xw.WriteStartDocument()
|
||||
xw.WriteStartElement($"UtsStationPlan") '创建跟节点
|
||||
|
||||
xw.WriteStartElement($"Properties") '创建表属性节点
|
||||
|
||||
'测试流程的属性
|
||||
xw.WriteElementString("CheckSnTested", CheckSnTested.ToString)
|
||||
xw.WriteElementString("CheckSnPackaged", CheckSnPackaged.ToString)
|
||||
xw.WriteElementString("CheckSnMO", CheckSnMO.ToString)
|
||||
xw.WriteElementString("PictureCount", PictureCount.ToString)
|
||||
xw.WriteElementString("UnlockKey", UnlockKey)
|
||||
xw.WriteElementString("BarCodeType", BarCodeType.ToString)
|
||||
xw.WriteElementString("MissingQuantity", MissingQuantity.ToString)
|
||||
xw.WriteElementString("MissingQuantityKey", MissingQuantityKey)
|
||||
xw.WriteElementString("AutoPrint", AutoPrint.ToString)
|
||||
xw.WriteElementString("ErrorSound", ErrorSound)
|
||||
xw.WriteElementString("TemplateFile", TemplateFile)
|
||||
xw.WriteElementString("BoxMumEditKey", BoxMumEditKey)
|
||||
xw.WriteElementString("CompanyLogo", CompanyLogo)
|
||||
xw.WriteElementString("CompanyName", CompanyName)
|
||||
xw.WriteElementString("BoxNumText", BoxNumText)
|
||||
xw.WriteElementString("ForwardPosition", ForwardPosition)
|
||||
xw.WriteElementString("RearPosition", RearPosition)
|
||||
xw.WriteElementString("Versions", Versions)
|
||||
xw.WriteEndElement()
|
||||
|
||||
xw.WriteEndElement()
|
||||
xw.WriteEndDocument()
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 读取测试站属性
|
||||
''' </summary>
|
||||
''' <param name="nodeList"></param>
|
||||
Private Sub LoadProperties(nodeList As XmlNodeList)
|
||||
Dim xe As XmlElement
|
||||
For Each node As XmlNode In nodeList
|
||||
xe = CType(node, XmlElement)
|
||||
Select Case xe.LocalName
|
||||
Case "CheckSnTested"
|
||||
If [Enum].TryParse(xe.InnerText, CheckSnTested) = False Then
|
||||
CheckSnTested = CheckStatus.Fail
|
||||
End If
|
||||
Case "CheckSnPackaged"
|
||||
If [Enum].TryParse(xe.InnerText, CheckSnPackaged) = False Then
|
||||
CheckSnPackaged = CheckStatus.Fail
|
||||
End If
|
||||
Case "CheckSnMO"
|
||||
If [Enum].TryParse(xe.InnerText, CheckSnMO) = False Then
|
||||
CheckSnMO = CheckStatus.Fail
|
||||
End If
|
||||
Case "PictureCount"
|
||||
If Integer.TryParse(xe.InnerText, PictureCount) = False Then
|
||||
PictureCount = 1
|
||||
End If
|
||||
Case "UnlockKey"
|
||||
UnlockKey = xe.InnerText
|
||||
Case "BarCodeType"
|
||||
If [Enum].TryParse(xe.InnerText, BarCodeType) = False Then
|
||||
BarCodeType = BarcodeTypes.AsTemplate
|
||||
End If
|
||||
Case "MissingQuantity"
|
||||
If [Enum].TryParse(xe.InnerText, MissingQuantity) = False Then
|
||||
MissingQuantity = MissCountStatus.Key
|
||||
End If
|
||||
Case "MissingQuantityKey"
|
||||
MissingQuantityKey = xe.InnerText
|
||||
Case "AutoPrint"
|
||||
If Boolean.TryParse(xe.InnerText, AutoPrint) = False Then
|
||||
AutoPrint = False
|
||||
End If
|
||||
Case "ErrorSound"
|
||||
ErrorSound = xe.InnerText
|
||||
Case "TemplateFile"
|
||||
TemplateFile = xe.InnerText
|
||||
Case "BoxMumEditKey"
|
||||
BoxMumEditKey = xe.InnerText
|
||||
Case "CompanyLogo"
|
||||
CompanyLogo = xe.InnerText
|
||||
Case "CompanyName"
|
||||
CompanyName = xe.InnerText
|
||||
Case "BoxNumText"
|
||||
BoxNumText = xe.InnerText
|
||||
Case "BoxBarCode"
|
||||
BoxBarCode = xe.InnerText
|
||||
Case "RearPosition"
|
||||
RearPosition = xe.InnerText
|
||||
Case "ForwardPosition"
|
||||
ForwardPosition = xe.InnerText
|
||||
Case "Versions"
|
||||
Versions = xe.InnerText
|
||||
Case Else
|
||||
'Throw New Exception($"StationPackagePlan LoadProperties Unknown LocalName:{xe.LocalName}")
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Overrides Sub LoadFile(path As String)
|
||||
Dim xd As New XmlDocument()
|
||||
xd.Load(path)
|
||||
|
||||
Dim xe As XmlElement
|
||||
Dim nodeList As XmlNodeList = xd.SelectSingleNode($"UtsStationPlan").ChildNodes
|
||||
For Each node As XmlNode In nodeList
|
||||
xe = CType(node, XmlElement)
|
||||
Select Case xe.LocalName
|
||||
Case "Properties"
|
||||
LoadProperties(xe.ChildNodes)
|
||||
Case Else
|
||||
Throw New Exception($"StationPackagePlan LoadXml Unknown LocalName:{xe.LocalName}")
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 校验条码失败后处理方式
|
||||
''' </summary>
|
||||
Enum CheckStatus
|
||||
''' <summary>
|
||||
''' 不处理
|
||||
''' </summary>
|
||||
None
|
||||
''' <summary>
|
||||
''' 校验失败
|
||||
''' </summary>
|
||||
Fail
|
||||
''' <summary>
|
||||
''' 程序锁定，需要管理员密码解锁，并写入注册表
|
||||
''' </summary>
|
||||
Lock
|
||||
''' <summary>
|
||||
''' 忽略错误继续录入
|
||||
''' </summary>
|
||||
Ignore
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' 条码总数缺少的处理方式
|
||||
''' </summary>
|
||||
Enum MissCountStatus
|
||||
''' <summary>
|
||||
''' 允许录入
|
||||
''' </summary>
|
||||
Yes
|
||||
''' <summary>
|
||||
''' 不允许录入
|
||||
''' </summary>
|
||||
No
|
||||
''' <summary>
|
||||
''' 需要输入密码解锁
|
||||
''' </summary>
|
||||
Key
|
||||
End Enum
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 条码单元格的类型
|
||||
''' </summary>
|
||||
Enum BarcodeTypes
|
||||
''' <summary>
|
||||
''' 以模板内容为准
|
||||
''' </summary>
|
||||
AsTemplate
|
||||
|
||||
''' <summary>
|
||||
''' CODE39支持的字符：空格, 数字, 大写字母, $, %, *, +, -, ., /
|
||||
''' </summary>
|
||||
CODE39
|
||||
|
||||
''' <summary>
|
||||
''' CODE128A支持的字符：空格, 数字, 大写字母, 标点符号, @, #, $, %, ^, +, -, *, /
|
||||
''' </summary>
|
||||
CODE128A
|
||||
|
||||
''' <summary>
|
||||
''' CODE128B支持的字符：空格, 数字, 小写字母, 大写字母, 标点符号, @, #, $, %, ^, +, -, *, /, ~
|
||||
''' </summary>
|
||||
CODE128B
|
||||
|
||||
''' <summary>
|
||||
''' CODE128C只能包含数字
|
||||
''' </summary>
|
||||
CODE128C
|
||||
|
||||
''' <summary>
|
||||
''' EAN128只能包含数字
|
||||
''' </summary>
|
||||
EAN128
|
||||
|
||||
''' <summary>
|
||||
''' EAN13是商品编码，必须是13位数字，第13位是根据前面12位运算后得到的
|
||||
''' </summary>
|
||||
EAN13
|
||||
|
||||
''' <summary>
|
||||
''' Interleaved2of5只能包含数字，数字的长度必须为偶数
|
||||
''' </summary>
|
||||
Interleaved2of5
|
||||
End Enum
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user