20231128備份

SHENKANG-MES-SYS/MyModule/SQL_量產訂單管理系統.vb → SHENKANG-MES-SYS/00、MyModule/SQL_量產訂單管理系統.vb

@@ -161,7 +161,8 @@
     End Sub
     Friend Sub SQL_更改訂單明細表抬頭()
         ConnOpen()
-        SQL1 = "UPDATE 訂單明細表抬頭 SET ModeOfDelivery = N'" & 量產訂單輸入.ModeOfDelivery_cb.Text & "', DeliveryTerms = N'" & 量產訂單輸入.DeliveryTerms_cb.Text & "', FromPort = N'" & 量產訂單輸入.FromPort_cb.Text & "', 
+        SQL1 = "UPDATE 訂單明細表抬頭 SET ModeOfDelivery = N'" & 量產訂單輸入.ModeOfDelivery_cb.Text & "', DeliveryTerms = N'" & 量產訂單輸入.DeliveryTerms_cb.Text & "', 
+                                          FromPort = N'" & 量產訂單輸入.FromPort_cb.Text & "', 客戶訂單號 = N'" & 量產訂單輸入.客戶訂單號_tb.Text & "', 
                                           ToPort = N'" & 量產訂單輸入.ToPort_cb.Text & "', 工廠 = N'" & 量產訂單輸入.工廠_cb.Text & "', DeliveryAddress = N'" & 量產訂單輸入.備註3_tb.Text & "', 
                                           交期 = N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', ShipDate =  N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', 
                                           OrgShipDate =  N'" & Format(量產訂單輸入.交期_dtp.Value, "yyyy/MM/dd") & "', Brand = N'" & 量產訂單輸入.客戶_cb.Text & "'
@@ -179,28 +180,21 @@
     End Sub
     Friend Sub SQL_更改訂單明細表()
         ConnOpen()
-        SQL1 = "UPDATE 訂單明細表 SET [4] = N'" & PA12 & "', [4.5] = N'" & PA13 &
-                                      "', [5] = N'" & PA14 & "', [5.5] = N'" & PA15 &
-                                      "', [6] = N'" & PA16 & "', [6.5] = N'" & PA17 &
-                                      "', [7] = N'" & PA18 & "', [7.5] = N'" & PA19 &
-                                      "', [8] = N'" & PA20 & "', [8.5] = N'" & PA21 &
-                                      "', [9] = N'" & PA22 & "', [9.5] = N'" & PA23 &
-                                      "', [10] = N'" & PA24 & "', [10.5] = N'" & PA25 &
-                                      "', [11] = N'" & PA26 & "', [11.5] = N'" & PA27 &
-                                      "', [12] = N'" & PA28 & "', [12.5] = N'" & PA29 &
-                                      "', [13] = N'" & PA30 & "', [14] = N'" & PA31 &
-                                      "', Color = N'" & PA32 & "'
-                    WHERE (資料流水號 LIKE N'" & PA33 & "')"
+        SQL1 = "UPDATE 訂單明細表 SET [4] = N'" & PA12 & "', [4.5] = N'" & PA13 & "', [5] = N'" & PA14 & "', [5.5] = N'" & PA15 & "', [6] = N'" & PA16 & "', [6.5] = N'" & PA17 & "', 
+                                      [7] = N'" & PA18 & "', [7.5] = N'" & PA19 & "', [8] = N'" & PA20 & "', [8.5] = N'" & PA21 & "', [9] = N'" & PA22 & "', [9.5] = N'" & PA23 & "', 
+                                      [10] = N'" & PA24 & "', [10.5] = N'" & PA25 & "', [11] = N'" & PA26 & "', [11.5] = N'" & PA27 & "', [12] = N'" & PA28 & "', [12.5] = N'" & PA29 & "', 
+                                      [13] = N'" & PA30 & "', [14] = N'" & PA31 & "', Color = N'" & PA32 & "'
+                WHERE (資料流水號 LIKE N'" & PA33 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_修改訂單控制表()
         ConnOpen()
-        SQL1 = "UPDATE 訂單控制表 SET 型體號碼 = N'" & 量產訂單輸入.型體號碼_cb.Text & "', GOODBOX = N'" & 量產訂單輸入.型體名稱_cb.Text & "' WHERE 資料流水號 LIKE '" & 量產訂單輸入.資料流水號_tb.Text & "'"
+        SQL1 = "UPDATE 訂單控制表 SET 客戶訂單號 = N'" & PA1 & "', 型體號碼 = N'" & PA3 & "', GOODBOX = N'" & PA2 & "', BUYER = N'" & PA12 & "' WHERE 資料流水號 LIKE '" & PA11 & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_修改訂單明細表()
         ConnOpen()
-        SQL1 = "UPDATE 訂單明細表 SET ItemNumber = N'" & 量產訂單輸入.型體號碼_cb.Text & "', ProductName = N'" & 量產訂單輸入.型體名稱_cb.Text & "' WHERE 資料流水號 LIKE '" & 量產訂單輸入.資料流水號_tb.Text & "'"
+        SQL1 = "UPDATE 訂單明細表 SET 客戶訂單號 = N'" & PA9 & "', ItemNumber = N'" & PA11 & "', ProductName = N'" & PA10 & "' WHERE 資料流水號 LIKE '" & PA33 & "'"
         CmdSet_For_dr()
     End Sub
     '----------------------------量產訂單控制表---------------------------------------------------------------

SHENKANG-MES-SYS/MyModule/全域變數.vb → SHENKANG-MES-SYS/00、MyModule/全域變數.vb

@@ -7,7 +7,7 @@
                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023071201"
+    Public 版本 As String = "2023112701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31,
            PA32, PA33 As String