20220323備份

TENDEN-MES-SYS/Module/SQL_量產樣品單系統.vb

         SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體號 LIKE '" & PA & "' AND 顏色 LIKE '" & PA1 & "'"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_修改訂單控制表圖片庫()
+    Friend Sub SQL_修改訂單控制表資料()
         ConnOpen()
         SQL1 = "UPDATE " & 訂單資料表(1) & " SET  客戶包裝確認 = '" & PA & "', APMA確認 = '" & PA1 & "', 
                                                       東莞業務備註 = '" & PA2 & "', 工廠確認 = '" & PA3 & "', 

TENDEN-MES-SYS/Module/全域變數.vb

     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022031401"
+    Public 版本 As String = "2022032101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

TENDEN-MES-SYS/量產訂單管理/訂單周邊資訊/訂單執行資訊輸入.vb

         Try
             For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
                 資料數 = 控制表_dgv.Rows.Count : 進度條()
-                PA = 控制表_dgv.Rows(i).Cells("客戶包裝確認").Value : PA1 = 控制表_dgv.Rows(i).Cells("APMA確認").Value
-                PA2 = 控制表_dgv.Rows(i).Cells("東莞業務備註").Value : PA3 = 控制表_dgv.Rows(i).Cells("工廠包裝").Value
-                PA4 = 控制表_dgv.Rows(i).Cells("利威驗貨").Value : PA5 = 控制表_dgv.Rows(i).Cells("結關日").Value
-                PA6 = 控制表_dgv.Rows(i).Cells("SMS簽回").Value : PA7 = 控制表_dgv.Rows(i).Cells("FRS簽回").Value
-                PA8 = 控制表_dgv.Rows(i).Cells("MASTER_SWATCH").Value : PA9 = 控制表_dgv.Rows(i).Cells("資料流水號").Value
-                SQL_修改訂單控制表圖片庫() : conn.Close()
+                PA = 控制表_dgv.Rows(i).Cells("客戶包裝確認").Value.ToString : PA1 = 控制表_dgv.Rows(i).Cells("APMA確認").Value.ToString
+                PA2 = 控制表_dgv.Rows(i).Cells("東莞業務備註").Value.ToString : PA3 = 控制表_dgv.Rows(i).Cells("工廠包裝").Value.ToString
+                PA4 = 控制表_dgv.Rows(i).Cells("利威驗貨").Value.ToString : PA5 = 控制表_dgv.Rows(i).Cells("結關日").Value.ToString
+                PA6 = 控制表_dgv.Rows(i).Cells("SMS簽回").Value.ToString : PA7 = 控制表_dgv.Rows(i).Cells("FRS簽回").Value.ToString
+                PA8 = 控制表_dgv.Rows(i).Cells("MASTER_SWATCH").Value.ToString : PA9 = 控制表_dgv.Rows(i).Cells("資料流水號").Value.ToString
+                SQL_修改訂單控制表資料() : conn.Close()
             Next i : ProgressBar1.Value = 0 : 最終數 = 0
             MsgBox("存檔完成")
             Set_清單() : Set_grid() : Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False : 存檔_bt.Enabled = False