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

新增如下命令：

Browse Source 
SetRecord
GetReocrd
CombindRecord
This commit is contained in:
Wen Momo
2025-07-16 22:52:22 +08:00
parent 1355c8ef0d
commit 04c258ceb6
30 changed files with 281 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -805,34 +805,34 @@ Namespace UTSModule.DbConnect
''' <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 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 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)
'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
''''''''''''''''''
'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
' SaveCmdStringToCacheTable(db, cmdText)
'End If
End Sub