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

新增snlist三条命令

Browse Source
This commit is contained in:
dk02ssq
2025-07-16 21:10:09 +08:00
parent eaa75430e7
commit 1355c8ef0d
74 changed files with 1536 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
UTS_Core/UTSModule/DbConnect/DbConnector.vb
View File

@@ -734,7 +734,7 @@ Namespace UTSModule.DbConnect
Dim sqlText As String = $"Call `{dbName}`.`UpdateSnListBarcode`('{result.DUT_SN}',{station.SnListOrder},'{timeString}',{logResult},'{a1String}');"
''’CZH 2023 06 07 增加SN_list MoId
'CZH 2023 06 07 增加SN_list MoId
If result.CustomRecord.ContainsKey("InternalNo") And result.TestResult = TestResult.TestResultEnum.Pass Then
MoId = result.CustomRecord("OrderID")
sqlText = $"Call `{dbName}`.`UpdateSnListBarcode_MO`('{result.DUT_SN}',{station.SnListOrder},'{timeString}',{logResult},'{a1String}',{MoId});"
@@ -764,7 +764,7 @@ Namespace UTSModule.DbConnect
Dim MoId As String = "-1"
'A类型站额外更新组装字段
If station.StationType = ProcessStation.StationTypeEnum.Assem Then
‘a1String = result.CustomRecord("AssemblySn")
'a1String = result.CustomRecord("AssemblySn")
updateString &= $",`{SnListTable.ColNames.AssemblySn}` = '{a1String}',`{SnListTable.ColNames.AssemblyTime}` = '{timeString}'"
End If
@@ -774,7 +774,7 @@ Namespace UTSModule.DbConnect
If saveCache Then
cmdText = $"Call `{UtsDb.RemotePrivateDb}`.`UpdateSnListBarcode`('{result.DUT_SN}',{station.SnListOrder},'{timeString}',{logResult},'{a1String}');"
''’CZH 2023 06 07 增加SN_list MoId
'CZH 2023 06 07 增加SN_list MoId
If result.CustomRecord.ContainsKey("OrderID") Then
MoId = result.CustomRecord("OrderID")
cmdText = $"Call `{dbName}`.`UpdateSnListBarcode_MO`('{result.DUT_SN}',{station.SnListOrder},'{timeString}',{logResult},'{a1String}',{MoId});"
@@ -796,6 +796,46 @@ Namespace UTSModule.DbConnect
End If
End Sub
''' <summary>
''' 更新SNList表指定字段名称的值
''' </summary>
''' <param name="db"></param>
''' <param name="dbName"></param>
''' <param name="filedNames"></param>
''' <param name="filedValues"></param>
''' <param name="saveCache"></param>
Public Shared Sub UpdateSnListTableToLocal(db As DbExecutor, dbName As String, filedNames As List(Of String), filedValues As List(Of String), Optional saveCache As Boolean = True)
Dim timeString As String = $"{result.StartTime:yyyy-MM-dd HH:mm:ss}"
Dim logResult As Integer = CInt(IIf(result.TestResult = TestResult.TestResultEnum.Pass, 1, 0))
Dim a1String As String = ""
Dim localDbName As String = UtsFilterDbName(db.DatabaseType, dbName) '过滤库名
Dim updateString As String = $"`S{Station.SnListOrder}` = '{timeString}',`Result{Station.SnListOrder}` = {logResult}"
Dim MoId As String = "-1"
'A类型站额外更新组装字段
If Station.StationType = ProcessStation.StationTypeEnum.Assem Then
'a1String = result.CustomRecord("AssemblySn")
updateString &= $",`{SnListTable.ColNames.AssemblySn}` = '{a1String}',`{SnListTable.ColNames.AssemblyTime}` = '{timeString}'"
End If
Dim condition As String = $"`{SnListTable.ColNames.ProductID}` = '{Station.ParentProject.Index}' and `{SnListTable.ColNames.BarCode}` = '{result.DUT_SN}'"
Dim cmdText As String = db.CmdHelper.DbUpdate(localDbName, SnListTable.TableName, updateString, condition)
db.ExecuteNonQuery(cmdText)
If saveCache Then
cmdText = $"Call `{UtsDb.RemotePrivateDb}`.`UpdateSnListBarcode`('{result.DUT_SN}',{Station.SnListOrder},'{timeString}',{logResult},'{a1String}');"
'CZH 2023 06 07 增加SN_list MoId
If result.CustomRecord.ContainsKey("OrderID") Then
MoId = result.CustomRecord("OrderID")
cmdText = $"Call `{dbName}`.`UpdateSnListBarcode_MO`('{result.DUT_SN}',{Station.SnListOrder},'{timeString}',{logResult},'{a1String}',{MoId});"
End If
''''''''''''''''''
SaveCmdStringToCacheTable(db, cmdText)
End If
End Sub
''' <summary>
''' 更新本地SN总表的测试记录(用于处理组播写入Sn总表操作)
''' </summary>