UTS/AUTS_OLD
Archived
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

添加工艺站发布站包历史表；允许用户选择测试站时选择历史发布站包

Browse Source
This commit is contained in:
dk02ssq
2024-05-08 21:59:31 +08:00
parent ec4c447b01
commit e475a06eb5
254 changed files with 928 additions and 242730 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AUTS_Repair/Form1.vb
View File

@@ -177,7 +177,7 @@ Public Class FrmMain
End If
'获取条码所属项目与站位信息
Dim pInfo As New Project.ProjectInfo(UserInfo.UserId, barcodeInfo.ProductID, Project.ProjectInfo.InitializeModeEnum.RemoteDatabaseLoad)
Dim pInfo As New Project.ProjectInfo(UserInfo.UserId, UserInfo.UserName, barcodeInfo.ProductID, Project.ProjectInfo.InitializeModeEnum.RemoteDatabaseLoad)
Dim pTestLog As New ProductTestLog
pTestLog.BarCode = sn
@@ -298,7 +298,7 @@ Public Class FrmMain
For Each dtRow As DataRow In dtTable.Rows
_pid = CInt(dtRow($"{RepairRequestTable.ColNames.ProductID}"))
Dim pInfo As New Project.ProjectInfo(UserInfo.UserId, _pid, Project.ProjectInfo.InitializeModeEnum.RemoteDatabaseLoad)
Dim pInfo As New Project.ProjectInfo(UserInfo.UserId, UserInfo.UserName, _pid, Project.ProjectInfo.InitializeModeEnum.RemoteDatabaseLoad)
Dim pNode As New TreeNode($"{pInfo.Name}:{sn}")
pNode.Nodes.Add($"产品类型：{pInfo.Name}")