20230527備份

TENDEN-MES-SYS/Module/SQL_成本系統管理.vb

@@ -244,9 +244,7 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_查詢最後一筆利潤表流水號()
-        ConnOpen()
-        SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_新增訂單價格利潤表暫存檔1()
         ConnOpen()

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

@@ -363,7 +363,8 @@
                             " & 訂單資料表(1) & " ON 貨款匯入出款明細表.顏色 = " & 訂單資料表(1) & ".顏色 AND 
                             貨款匯入出款明細表.楦型 = " & 訂單資料表(1) & ".楦型 AND 
                             貨款匯入出款明細表.形體號 = " & 訂單資料表(1) & ".形體號 AND 
-                            貨款匯入出款明細表.訂單流水號 = " & 訂單資料表(1) & ".訂單流水號 " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & "
+                            貨款匯入出款明細表.訂單流水號 = " & 訂單資料表(1) & ".訂單流水號 AND 
+                            貨款匯入出款明細表.資料流水號 = " & 訂單資料表(1) & ".資料流水號 " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & "
                    GROUP BY 貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
                             貨款匯入出款明細表.客戶訂單號, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
@@ -384,7 +385,8 @@
                             " & 訂單資料表(1) & " ON 貨款匯入出款明細表.顏色 = " & 訂單資料表(1) & ".顏色 AND 
                             貨款匯入出款明細表.楦型 = " & 訂單資料表(1) & ".楦型 AND 
                             貨款匯入出款明細表.形體號 = " & 訂單資料表(1) & ".形體號 AND 
-                            貨款匯入出款明細表.訂單流水號 = " & 訂單資料表(1) & ".訂單流水號 " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & " AND 
+                            貨款匯入出款明細表.訂單流水號 = " & 訂單資料表(1) & ".訂單流水號 AND 
+                            貨款匯入出款明細表.資料流水號 = " & 訂單資料表(1) & ".資料流水號  " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & " AND 
                            (貨款匯入出款明細表.訂單流水號 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.客戶訂單號 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.形體號 LIKE '%" & PA & "%' OR 
                             貨款匯入出款明細表.顏色 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.楦型 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') 
                    GROUP BY 貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
@@ -411,13 +413,19 @@
                              FROM     " & 訂單資料表(1) & "
                              WHERE   (客戶訂單號 LIKE '" & 出貨明細表.客戶訂單號_tb.Text & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單流水號 LIKE '" & 出貨明細表.天盾訂單號_tb.Text & "')) AS WWEE ON 
                              " & 訂單資料表(5) & ".天盾流水號 = WWEE.訂單流水號 AND " & 訂單資料表(5) & ".客戶訂單號 = WWEE.客戶訂單號 AND " & 訂單資料表(5) & ".ProductName = WWEE.形體號 AND 
-                             " & 訂單資料表(5) & ".Color = WWEE.顏色 AND  " & 訂單資料表(5) & ".DM = WWEE.楦型 AND " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + " & 訂單資料表(5) & ".[6] + 
-                             " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] + " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + " & 訂單資料表(5) & ".[9] + 
-                             " & 訂單資料表(5) & ".[9.5] + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5] + 
-                             " & 訂單資料表(5) & ".[12] + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] = WWEE.訂單數量
+                             " & 訂單資料表(5) & ".Color = WWEE.顏色 AND  " & 訂單資料表(5) & ".DM = WWEE.楦型 
                 WHERE      (" & 訂單資料表(5) & ".客戶訂單號 LIKE '" & 出貨明細表.客戶訂單號_tb.Text & "') AND (" & 訂單資料表(5) & ".天盾流水號 LIKE '" & 出貨明細表.天盾訂單號_tb.Text & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)
+                GROUP BY  " & 訂單資料表(5) & ".天盾流水號, " & 訂單資料表(5) & ".客戶訂單號, " & 訂單資料表(5) & ".ItemNumber, " & 訂單資料表(5) & ".ProductName, 
+                            " & 訂單資料表(5) & ".ProductDescription, " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM, " & 訂單資料表(5) & ".[5], " & 訂單資料表(5) & ".[5.5], 
+                            " & 訂單資料表(5) & ".[6], " & 訂單資料表(5) & ".[6.5], " & 訂單資料表(5) & ".[7], " & 訂單資料表(5) & ".[7.5], " & 訂單資料表(5) & ".[8], " & 訂單資料表(5) & ".[8.5], 
+                            " & 訂單資料表(5) & ".[9], " & 訂單資料表(5) & ".[9.5], " & 訂單資料表(5) & ".[10], " & 訂單資料表(5) & ".[10.5], " & 訂單資料表(5) & ".[11], " & 訂單資料表(5) & ".[11.5], 
+                            " & 訂單資料表(5) & ".[12], " & 訂單資料表(5) & ".[12.5], " & 訂單資料表(5) & ".[13], " & 訂單資料表(5) & ".[14]
                 ORDER BY   " & 訂單資料表(5) & ".ProductName, " & 訂單資料表(5) & ".Color"
         CmdSet_For_DGV()
+        'AND " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + " & 訂單資料表(5) & ".[6] + 
+        '" & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] + " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + " & 訂單資料表(5) & ".[9] + 
+        '" & 訂單資料表(5) & ".[9.5] + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5] + 
+        '" & 訂單資料表(5) & ".[12] + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] = WWEE.訂單數量
     End Sub
     Friend Sub SQL_下拉風格明細()
         ConnOpen() : SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC" : CmdSet_For_dr()
@@ -919,20 +927,103 @@
     Friend Sub SQL_楦型清單()
         ConnOpen() : SQL1 = "SELECT 楦型 FROM 訂單控制表楦型清單 ORDER BY 楦型" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_控制表流水號()
+        ConnOpen() : SQL1 = "SELECT  TOP (1) 資料流水號  FROM " & 訂單資料表(1) & "  ORDER BY   資料流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_出貨流水號()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_控制表新增()
+        ConnOpen() : SQL1 = "INSERT INTO " & 訂單資料表(1) & " (資料流水號, 訂單流水號) VALUES (N'" & PA10 & "', N'" & PA & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_明細表新增()
+        ConnOpen() : SQL1 = "INSERT INTO " & 訂單資料表(5) & " (資料流水號, 天盾流水號) VALUES (N'" & PA10 & "', N'" & PA & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_出貨表新增()
+        ConnOpen() : SQL1 = "INSERT INTO 貨款匯入出款明細表 (資料流水號, 訂單流水號, 貨款流水號) VALUES (N'" & PA10 & "', N'" & PA & "', N'" & PA11 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_利潤表新增()
+        ConnOpen() : SQL1 = "INSERT INTO " & 訂單資料表(7) & " (資料流水號, 天盾訂單號, 利潤表流水號) VALUES (N'" & PA10 & "', N'" & PA & "', N'" & 利潤表流水號 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_控制表修改()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 年份季度 = N'" & PA1 & "', 客戶訂單號 = N'" & PA2 & "', 形體號 = N'" & PA3 & "', 顏色 = N'" & PA4 & "', 楦型 = N'" & PA70 & "', 
+                訂單數量 = N'" & PA5 & "', 客戶交期 = N'" & PA6 & "', 單價 = N'" & PA7 & "', 總金額 = N'" & PA8 & "', 備註 = N'" & PA9 & "', 生產工廠 = N'" & PA12 & "', 
+                訂單種類 = N'" & PA13 & "', 工廠回復交期 = N'" & PA14 & "', CFMSPEC = N'" & PA15 & "', CFMSAMPLE = N'" & PA16 & "', TRIAL1 = N'" & PA17 & "', TRIAL2 = N'" & PA18 & "', 
+                TRIAL3 = N'" & PA19 & "', TRIAL4 = N'" & PA20 & "', 包裝確認時間 = N'" & PA21 & "', 貼標時間 = N'" & PA22 & "', 裁斷時間 = N'" & PA23 & "', 針車時間 = N'" & PA24 & "', 
+                成型時間 = N'" & PA25 & "', 驗貨時間 = N'" & PA26 & "', 實際離廠日 = N'" & PA27 & "', 明細建檔 = N'" & PA28 & "', GOODBOX = N'" & PA29 & "', LEATHER = N'" & PA30 & "', 
+                LEA_Note = N'" & PA31 & "', CXL = N'" & PA32 & "', CXLTime = N'" & PA33 & "', 出貨數量 = N'" & PA34 & "', PO_S_Date = N'" & PA35 & "', Requested_XF = N'" & PA36 & "', 
+                Confirm_XF = N'" & PA37 & "', Revised_XF = N'" & PA38 & "', Special_Packaging = N'" & PA39 & "', Remarks = N'" & PA40 & "', 出貨地 = N'" & PA41 & "', TVW = N'" & PA42 & "', 
+                楦頭號 = N'" & PA43 & "', 材質 = N'" & PA44 & "', 長期試穿 = N'" & PA45 & "', 面料 = N'" & PA46 & "', 副料 = N'" & PA47 & "', 中底 = N'" & PA48 & "', 鞋墊 = N'" & PA49 & "', 
+                大底 = N'" & PA50 & "', 跟 = N'" & PA51 & "', 工廠進度表備註1 = N'" & PA52 & "', 七號模具 = N'" & PA53 & "', 工廠進度表備註2 = N'" & PA54 & "', 國標測試 = N'" & PA55 & "', 
+                客戶包裝確認 = N'" & PA56 & "', 東莞業務備註 = N'" & PA57 & "', APMA確認 = N'" & PA58 & "', 驗貨報告圖片 = N'" & PA59 & "', 工廠確認 = N'" & PA60 & "', 利威確認 = N'" & PA61 & "', 
+                結關日 = N'" & PA62 & "', SMS簽回 = N'" & PA63 & "', FRS簽回 = N'" & PA64 & "', MASTER_SWATCH = N'" & PA65 & "', 力威訂單號 = N'" & PA66 & "', ProductID = N'" & PA67 & "', 
+                UoM = N'" & PA68 & "', 驗報圖庫 = N'" & PA69 & "' WHERE (訂單流水號 LIKE N'" & PA & "') AND (資料流水號 LIKE N'" & PA10 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_明細表修改1()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(5) & " SET 客戶訂單號 = N'" & PA1 & "', ItemNumber = N'" & PA2 & "', ProductName = N'" & PA3 & "', ProductDescription = N'" & PA4 & "', 
+                Color = N'" & PA5 & "', DM = N'" & PA6 & "', [5] = N'" & PA7 & "', [5.5] = N'" & PA8 & "', [6] = N'" & PA9 & "', [6.5] = N'" & PA11 & "', [7] = N'" & PA12 & "', 
+                [7.5] = N'" & PA13 & "', [8] = N'" & PA14 & "', [8.5] = N'" & PA15 & "', [9] = N'" & PA16 & "', [9.5] = N'" & PA17 & "', [10] = N'" & PA18 & "', [10.5] = N'" & PA19 & "', 
+                [11] = N'" & PA20 & "', [11.5] = N'" & PA21 & "', [12] = N'" & PA22 & "', [12.5] = N'" & PA23 & "', [13] = N'" & PA24 & "', [14] = N'" & PA25 & "' 
+                WHERE (天盾流水號 LIKE N'" & PA & "') AND (資料流水號 LIKE N'" & PA10 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_明細表修改2()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(5) & " SET [5] = N'" & PA7 & "', [5.5] = N'" & PA8 & "', [6] = N'" & PA9 & "', [6.5] = N'" & PA11 & "', [7] = N'" & PA12 & "', 
+                [7.5] = N'" & PA13 & "', [8] = N'" & PA14 & "', [8.5] = N'" & PA15 & "', [9] = N'" & PA16 & "', [9.5] = N'" & PA17 & "', [10] = N'" & PA18 & "', [10.5] = N'" & PA19 & "', 
+                [11] = N'" & PA20 & "', [11.5] = N'" & PA21 & "', [12] = N'" & PA22 & "', [12.5] = N'" & PA23 & "', [13] = N'" & PA24 & "', [14] = N'" & PA25 & "' 
+                WHERE (天盾流水號 LIKE N'" & PA & "') AND (資料流水號 LIKE N'" & PA10 & "') AND (DM = N'" & PA6 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_出貨表修改()
+        ConnOpen()
+        SQL1 = "UPDATE 貨款匯入出款明細表 SET 貨款流水號 = N'" & PA1 & "', 年份季度 = N'" & PA2 & "', 客戶訂單號 = N'" & PA3 & "', 形體號 = N'" & PA4 & "', 顏色 = N'" & PA5 & "', 
+                楦型 = N'" & PA6 & "', 訂單數量 = N'" & PA7 & "', 出貨數量 = N'" & PA8 & "', 工廠價格 = N'" & PA9 & "', 實際離廠日 = N'" & PA11 & "', 匯款時間 = N'" & PA12 & "', 
+                入帳時間 = N'" & PA13 & "', 貨款備註 = N'" & PA14 & "' 
+                WHERE (資料流水號 LIKE N'" & PA10 & "') AND (訂單流水號 LIKE N'" & PA & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_利潤表修改()
+        ConnOpen()
+        SQL1 = "UPDATE " & 訂單資料表(7) & " SET 客戶流水號 = N'" & PA1 & "', FTYPrice = N'" & PA2 & "', BasicPrice = N'" & PA3 & "', Polybag = N'" & PA4 & "', 
+                FOOTformOrPETform = N'" & PA5 & "', Tooling = N'" & PA6 & "', RubberBand = N'" & PA7 & "', JHOOK = N'" & PA8 & "', WaterResistant = N'" & PA9 & "', 
+                P16VAT = N'" & PA11 & "', EXWsaving = N'" & PA12 & "', Currency = N'" & PA13 & "', Exchange = N'" & PA14 & "', 年份 = N'" & PA15 & "', Quantity = N'" & PA16 & "',
+                審核 = N'" & PA18 & "'
+                 WHERE (資料流水號 LIKE N'" & PA10 & "') AND (天盾訂單號 LIKE N'" & PA & "') AND (利潤表流水號 LIKE N'" & PA17 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_控制表拆單刪除()
+        ConnOpen() : SQL1 = "DELETE " & 訂單資料表(1) & "  WHERE (資料流水號 LIKE N'" & PA10 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_明細表拆單刪除()
+        ConnOpen() : SQL1 = "DELETE " & 訂單資料表(5) & "  WHERE (資料流水號 LIKE N'" & PA10 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_出貨表拆單刪除()
+        ConnOpen() : SQL1 = "DELETE 貨款匯入出款明細表  WHERE (資料流水號 LIKE N'" & PA10 & "') AND (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_利潤表拆單刪除()
+        ConnOpen() : SQL1 = "DELETE " & 訂單資料表(7) & " WHERE (資料流水號 LIKE N'" & PA10 & "')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_控制表()
-        ConnOpen() : SQL1 = "SELECT * FROM " & 訂單資料表(1) & " WHERE 訂單流水號 LIKE N'" & PA & "'" : CmdSet_For_DGV()
+        ConnOpen() : SQL1 = "SELECT * FROM " & 訂單資料表(1) & " WHERE 訂單流水號 LIKE N'" & PA & "' ORDER BY 資料流水號" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_明細表()
         ConnOpen()
         SQL1 = "SELECT 資料流水號, 天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM, [5], [5.5], [6], [6.5], [7], 
                       [7.5], [8], [8.5], [9], [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]
-                FROM " & 訂單資料表(5) & " WHERE 天盾流水號 LIKE N'" & PA & "'"
+                FROM " & 訂單資料表(5) & " WHERE 天盾流水號 LIKE N'" & PA & "' ORDER BY 資料流水號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_出貨表()
-        ConnOpen() : SQL1 = "SELECT * FROM 貨款匯入出款明細表 WHERE  訂單流水號 LIKE N'" & PA & "'" : CmdSet_For_DGV()
+        ConnOpen() : SQL1 = "SELECT * FROM 貨款匯入出款明細表 WHERE  訂單流水號 LIKE N'" & PA & "' ORDER BY 資料流水號" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_利潤表()
-        ConnOpen() : SQL1 = "SELECT * FROM " & 訂單資料表(7) & " WHERE 天盾訂單號 LIKE N'" & PA & "'" : CmdSet_For_DGV()
+        ConnOpen() : SQL1 = "SELECT * FROM " & 訂單資料表(7) & " WHERE 天盾訂單號 LIKE N'" & PA & "' ORDER BY 資料流水號" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_明細表流水預設()
+        ConnOpen() : SQL1 = "UPDATE  " & 訂單資料表(5) & "  SET  資料流水號 = 'OldData'  WHERE  (資料流水號 IS NULL)" : CmdSet_For_dr()
     End Sub
 End Module

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

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, 登入人IP, AA(99), 圖片庫, SQL密碼 As String
     Public CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023041401"
+    Public 版本 As String = "2023052301"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
     '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -17,7 +17,9 @@
     Public 財務列印(3), 修改清單(16), 中文樣品單開啟修改, 量產樣品匯入列表開啟, BL(1), 暫存模式, 開發部門, 確認部門, 匯入列表開啟, 力威匯入列表, frmOpenFlag As Boolean
     '--------------字串變數
     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, PA49, WW, 條件, WWD1, WWD2, WWD3, 流水號2, EDFR, 日期(1), QQWEE, 樣品單流水號變數1, 樣品單流水號變數2, 樣品單流水號變數3, 部門, QWWE, ZXC,
+           PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49, PA50, PA51, PA52,
+           PA53, PA54, PA55, PA56, PA57, PA58, PA59, PA60, PA61, PA62, PA63, PA64, PA65, PA66, PA67, PA68, PA69, PA70,
+           WW, 條件, WWD1, WWD2, WWD3, 流水號2, EDFR, 日期(1), QQWEE, 樣品單流水號變數1, 樣品單流水號變數2, 樣品單流水號變數3, 部門, QWWE, ZXC,
            kkk1, kkk2, kkk3, kkk4, kkk5, kkk6, YR, YS, YD, ASDF, PP, 品牌V_R判斷, QA, PP1, PP2, PP3, PP4, PP5, PP6, PP7, PP8, ASD, 列印用SQL, 驗貨報告, 訂單紀錄流水號,
            PPAA, PPBB(3000), 排序(1), OD(42), 訂單資料表(10), PB(60), 利潤表流水號 As String
     '--------------整數變數

TENDEN-MES-SYS/成本系統管理/訂單價格利潤明細表.vb

@@ -521,18 +521,16 @@ Public Class 訂單價格利潤明細表
                         PA12 = 利潤表_dgv.Rows(i).Cells("EXWsaving").Value.ToString : PA13 = 利潤表_dgv.Rows(i).Cells("Exchange").Value.ToString
                         PA14 = 利潤表_dgv.Rows(i).Cells("年份").Value.ToString : PA15 = 利潤表_dgv.Rows(i).Cells("Quantity").Value.ToString
                         利潤表流水號 = 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value.ToString : PA17 = 利潤表_dgv.Rows(i).Cells("審核").Value.ToString
-                        If 利潤表流水號 = "" Then
-                            SQL_查詢最後一筆利潤表流水號()
-                            If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
-                            If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
-                            ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
-                            ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
-                            ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
-                            ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
-                            ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
-                            ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
-                            ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
-                        End If
+                        SQL_查詢最後一筆利潤表流水號()
+                        If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
+                        If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
+                        ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
+                        ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
+                        ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
+                        ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
+                        ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
+                        ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
+                        ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
                         SQL_新增訂單控制表修改紀錄1() : conn.Close()
                     End If
                 Next i

TENDEN-MES-SYS/量產訂單管理/量產管理報表/出貨明細表.vb

@@ -303,7 +303,7 @@ Public Class 出貨明細表
 
     Private Sub 訂單拆分_bt_Click(sender As Object, e As EventArgs) Handles 訂單拆分_bt.Click
         If 天盾訂單號_tb.Text = "" Then : MsgBox("請先選擇訂單!!!") : Else
-            PA = 天盾訂單號_tb.Text : 訂單拆單模組.ShowDialog() : Set_訂單清單()
+            PA = 天盾訂單號_tb.Text : 訂單拆單模組.ShowDialog() : PA = "" : Set_訂單清單()
         End If
     End Sub
 

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單拆單模組.vb

@@ -1,10 +1,17 @@
 Public Class 訂單拆單模組
     Dim 未存檔 As Boolean
+    Dim 流水號(10) As String
     Private Sub 訂單拆單模組_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         天盾訂單號_tb.Text = PA : 天盾訂單號_tb.Enabled = False : 總數量_tb.Enabled = False : 總數量_tb.Text = "0"
     End Sub
     Private Sub 訂單拆單模組_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-        未存檔 = False : 天盾訂單號_tb.Text = PA : SQL_控制表() : SQL_明細表() : SQL_出貨表() : SQL_利潤表()
+        For i As Integer = 0 To 10 : 流水號(i) = "" : Next
+        未存檔 = False : SQL_明細表流水預設() : 訂單拆單模組()
+        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 總數量_tb.Text = CInt(總數量_tb.Text) + 控制表_dgv("訂單數量", i).Value : Next
+        總數量_tb.Text = Strings.Format(CInt(總數量_tb.Text), "#,##0")
+    End Sub
+    Private Sub 訂單拆單模組()
+        天盾訂單號_tb.Text = PA
         Dim ds1 As New DataSet : 控制表_dgv.DataSource = Nothing : ds1.Clear()
         控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False
@@ -58,9 +65,11 @@
             If IsDBNull(控制表_dgv("明細建檔", i).Value) = True Then : 控制表_dgv("明細建檔", i).Value = False : End If
             If IsDBNull(控制表_dgv("CXL", i).Value) = True Then : 控制表_dgv("CXL", i).Value = False : End If
             If IsDBNull(控制表_dgv("國標測試", i).Value) = True Then : 控制表_dgv("國標測試", i).Value = False : End If
-            總數量_tb.Text = CInt(總數量_tb.Text) + 控制表_dgv("訂單數量", i).Value
-        Next : 總數量_tb.Text = Strings.Format(CInt(總數量_tb.Text), "#,##0")
-        控制表_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 控制表_dgv.Columns("資料流水號").ReadOnly = True
+            If IsDBNull(控制表_dgv("訂單數量", i).Value) = True Then : 控制表_dgv("訂單數量", i).Value = "0" : End If
+            If IsDBNull(控制表_dgv("總金額", i).Value) = True Then : 控制表_dgv("總金額", i).Value = "0" : End If
+            If IsDBNull(控制表_dgv("單價", i).Value) = True Then : 控制表_dgv("單價", i).Value = "0" : End If
+            If IsDBNull(控制表_dgv("出貨數量", i).Value) = True Then : 控制表_dgv("出貨數量", i).Value = "0" : End If
+        Next : 控制表_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 控制表_dgv.Columns("資料流水號").ReadOnly = True
 
         Dim ds2 As New DataSet : 明細表_dgv.DataSource = Nothing : ds2.Clear()
         明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -115,6 +124,26 @@
         明細表_dgv.Columns("12.5").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細表_dgv.Columns("13").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細表_dgv.Columns("14").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            If IsDBNull(明細表_dgv("5", i).Value) = True Then : 明細表_dgv("5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("5.5", i).Value) = True Then : 明細表_dgv("5.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("6", i).Value) = True Then : 明細表_dgv("6", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("6.5", i).Value) = True Then : 明細表_dgv("6.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("7", i).Value) = True Then : 明細表_dgv("7", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("7.5", i).Value) = True Then : 明細表_dgv("7.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("8", i).Value) = True Then : 明細表_dgv("8", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("8.5", i).Value) = True Then : 明細表_dgv("8.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("9", i).Value) = True Then : 明細表_dgv("9", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("9.5", i).Value) = True Then : 明細表_dgv("9.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("10", i).Value) = True Then : 明細表_dgv("10", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("10.5", i).Value) = True Then : 明細表_dgv("10.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("11", i).Value) = True Then : 明細表_dgv("11", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("11.5", i).Value) = True Then : 明細表_dgv("11.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("12", i).Value) = True Then : 明細表_dgv("12", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("12.5", i).Value) = True Then : 明細表_dgv("12.5", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("13", i).Value) = True Then : 明細表_dgv("13", i).Value = "0" : End If
+            If IsDBNull(明細表_dgv("14", i).Value) = True Then : 明細表_dgv("14", i).Value = "0" : End If
+        Next
 
         Dim ds3 As New DataSet : 出貨表_dgv.DataSource = Nothing : ds3.Clear()
         出貨表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -148,6 +177,10 @@
         出貨表_dgv.Columns("訂單流水號").ReadOnly = True : 出貨表_dgv.Columns("年份季度").ReadOnly = True
         出貨表_dgv.Columns("客戶訂單號").ReadOnly = True : 出貨表_dgv.Columns("形體號").ReadOnly = True
         出貨表_dgv.Columns("顏色").ReadOnly = True : 出貨表_dgv.Columns("楦型").ReadOnly = True
+        For i As Integer = 0 To 出貨表_dgv.Rows.Count - 1
+            If IsDBNull(出貨表_dgv("訂單數量", i).Value) = True Then : 出貨表_dgv("訂單數量", i).Value = "0" : End If
+            If IsDBNull(出貨表_dgv("出貨數量", i).Value) = True Then : 出貨表_dgv("出貨數量", i).Value = "0" : End If
+        Next
 
         Dim ds4 As New DataSet : 成本表_dgv.DataSource = Nothing : ds4.Clear()
         成本表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -161,7 +194,7 @@
         成本表_dgv.Columns("Tooling").DefaultCellStyle.Format = "#,##0.00" : 成本表_dgv.Columns("RubberBand").DefaultCellStyle.Format = "#,##0.00"
         成本表_dgv.Columns("JHOOK").DefaultCellStyle.Format = "#,##0.00" : 成本表_dgv.Columns("WaterResistant").DefaultCellStyle.Format = "#,##0.00"
         成本表_dgv.Columns("P16VAT").DefaultCellStyle.Format = "#,##0.00" : 成本表_dgv.Columns("EXWsaving").DefaultCellStyle.Format = "#,##0.00"
-        成本表_dgv.Columns("Quantity").DefaultCellStyle.Format = "#,##0."
+        成本表_dgv.Columns("Quantity").DefaultCellStyle.Format = "#,##0"
         成本表_dgv.Columns("資料流水號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         成本表_dgv.Columns("FTYPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         成本表_dgv.Columns("Polybag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -188,11 +221,26 @@
         成本表_dgv.Columns("EXWsaving").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         For i As Integer = 0 To 成本表_dgv.Rows.Count - 1
             If IsDBNull(成本表_dgv("審核", i).Value) = True Then : 成本表_dgv("審核", i).Value = False : End If
+            If IsDBNull(成本表_dgv("FTYPrice", i).Value) = True Then : 成本表_dgv("FTYPrice", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("Polybag", i).Value) = True Then : 成本表_dgv("Polybag", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("Tooling", i).Value) = True Then : 成本表_dgv("Tooling", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("JHOOK", i).Value) = True Then : 成本表_dgv("JHOOK", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("P16VAT", i).Value) = True Then : 成本表_dgv("P16VAT", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("Quantity", i).Value) = True Then : 成本表_dgv("Quantity", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("BasicPrice", i).Value) = True Then : 成本表_dgv("BasicPrice", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("FOOTformOrPETform", i).Value) = True Then : 成本表_dgv("FOOTformOrPETform", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("RubberBand", i).Value) = True Then : 成本表_dgv("RubberBand", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("WaterResistant", i).Value) = True Then : 成本表_dgv("WaterResistant", i).Value = "0" : End If
+            If IsDBNull(成本表_dgv("EXWsaving", i).Value) = True Then : 成本表_dgv("EXWsaving", i).Value = "0" : End If
         Next
     End Sub
     Private Sub 訂單拆單模組_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         If 未存檔 = True Then
-
+            For i As Integer = 0 To 10
+                If 流水號(i) <> "" Then : PA10 = 流水號(i) : PA = 天盾訂單號_tb.Text
+                    SQL_控制表拆單刪除() : SQL_明細表拆單刪除() : SQL_出貨表拆單刪除() : SQL_利潤表拆單刪除()
+                ElseIf 流水號(i) = "" Then : Exit For : End If
+            Next
         End If
     End Sub
     Private Sub 控制表_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellEndEdit
@@ -221,11 +269,186 @@
         Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
-        未存檔 = True
+        未存檔 = True : Dim EDR As Integer
+        SQL_控制表流水號()
+        If dr.Read() Then : PA10 = dr("資料流水號").ToString : Else : PA10 = "00000000" : End If : conn.Close()
+        Dim NUM1 As Integer : NUM1 = Double.Parse(Strings.Right(PA10, 8)) + 1
+        If NUM1 < 10 Then : PA10 = "PO" & "0000000" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : PA10 = "PO" & "000000" & NUM1
+        ElseIf NUM1 > 99 And NUM1 < 1000 Then : PA10 = "PO" & "00000" & NUM1 : ElseIf NUM1 > 999 And NUM1 < 10000 Then : PA10 = "PO" & "0000" & NUM1
+        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : PA10 = "PO" & "000" & NUM1 : ElseIf NUM1 > 99999 And NUM1 < 100000 Then : PA10 = "PO" & "00" & NUM1
+        ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : PA10 = "PO" & "0" & NUM1 : ElseIf NUM1 > 9999999 Then : PA10 = "PO" & NUM1 + 1 : End If
+        For i As Integer = 0 To 10
+            If 流水號(i) = "" Then
+                流水號(i) = PA10 : Exit For
+            End If
+        Next
+        PA = 天盾訂單號_tb.Text
+        If 控制表_dgv.Rows.Count = 明細表_dgv.Rows.Count Then : SQL_控制表新增() : SQL_明細表新增()
+        Else : MsgBox("這筆資料處於異常狀態無法存檔，請截圖給系統管理員處理!!") : Exit Sub : End If
+        If 出貨表_dgv.Rows.Count = 0 Then : ElseIf 出貨表_dgv.Rows.Count = 控制表_dgv.Rows.Count Then
+            SQL_出貨流水號()
+            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
+            If EDR < 10 Then : PA11 = "PG" & "0000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : PA11 = "PG" & "000000" & EDR
+            ElseIf EDR > 99 And EDR < 1000 Then : PA11 = "PG" & "00000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : PA11 = "PG" & "0000" & EDR
+            ElseIf EDR > 9999 And EDR < 100000 Then : PA11 = "PG" & "000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : PA11 = "PG" & "00" & EDR
+            ElseIf EDR > 999999 And EDR < 1000000 Then : PA11 = "PG" & "0" & EDR : ElseIf EDR > 9999999 Then : PA11 = "PG" & EDR : End If
+            SQL_出貨表新增()
+        Else : MsgBox("這筆資料處於異常狀態無法存檔，請截圖給系統管理員處理!!") : Exit Sub : End If
+        If 成本表_dgv.Rows.Count = 0 Then : ElseIf 成本表_dgv.Rows.Count = 控制表_dgv.Rows.Count Then
+            SQL_查詢最後一筆利潤表流水號()
+            If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
+            If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2 : ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
+            ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2 : ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
+            ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2 : ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
+            ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2 : ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
+            SQL_利潤表新增()
+        Else : MsgBox("這筆資料處於異常狀態無法存檔，請截圖給系統管理員處理!!") : Exit Sub : End If
+        訂單拆單模組()
+
+        '-------------------------控制表----------------------------------------------------------------------------------
+        Dim completeDataA1 As DataGridViewRow = 控制表_dgv.Rows(0)
+        For rowB As Integer = 0 To 10
+            If 流水號(rowB) <> "" Then
+                Dim key As String = 流水號(rowB)
+                Dim rowsA2() As DataGridViewRow = 控制表_dgv.Rows.Cast(Of DataGridViewRow)().Where(Function(r) r.Cells("資料流水號").Value.ToString() = key).ToArray()
+                For Each rowA2 As DataGridViewRow In rowsA2
+                    For Each cell As DataGridViewCell In rowA2.Cells
+                        If cell.OwningColumn.Name <> "資料流水號" And 控制表_dgv.Rows(rowA2.Index).Cells("資料流水號").Value.ToString() = 流水號(rowB) Then
+                            cell.Value = completeDataA1.Cells(cell.ColumnIndex).Value
+                        End If
+                    Next
+                Next
+            End If
+        Next
+        '-------------------------明細表----------------------------------------------------------------------------------
+        Dim completeDataA2 As DataGridViewRow = 明細表_dgv.Rows(0)
+        For rowB As Integer = 0 To 10
+            If 流水號(rowB) <> "" Then
+                Dim key As String = 流水號(rowB)
+                Dim rowsA2() As DataGridViewRow = 明細表_dgv.Rows.Cast(Of DataGridViewRow)().Where(Function(r) r.Cells("資料流水號").Value.ToString() = key).ToArray()
+                For Each rowA2 As DataGridViewRow In rowsA2
+                    For Each cell As DataGridViewCell In rowA2.Cells
+                        If cell.OwningColumn.Name <> "資料流水號" And 明細表_dgv.Rows(rowA2.Index).Cells("資料流水號").Value.ToString() = 流水號(rowB) Then
+                            cell.Value = completeDataA2.Cells(cell.ColumnIndex).Value
+                        End If
+                    Next
+                Next
+            End If
+        Next
+        '-------------------------出貨表----------------------------------------------------------------------------------
+        If 出貨表_dgv.Rows.Count = 0 Then : Else
+            Dim completeDataA3 As DataGridViewRow = 出貨表_dgv.Rows(0)
+            For rowB As Integer = 0 To 10
+                If 流水號(rowB) <> "" Then
+                    Dim key As String = 流水號(rowB)
+                    Dim rowsA2() As DataGridViewRow = 出貨表_dgv.Rows.Cast(Of DataGridViewRow)().Where(Function(r) r.Cells("資料流水號").Value.ToString() = key).ToArray()
+                    For Each rowA2 As DataGridViewRow In rowsA2
+                        For Each cell As DataGridViewCell In rowA2.Cells
+                            If cell.OwningColumn.Name <> "資料流水號" And cell.OwningColumn.Name <> "貨款流水號" And
+                                出貨表_dgv.Rows(rowA2.Index).Cells("資料流水號").Value.ToString() = 流水號(rowB) Then
+                                cell.Value = completeDataA3.Cells(cell.ColumnIndex).Value
+                            End If
+                        Next
+                    Next
+                End If
+            Next
+        End If
+        '-------------------------出貨表----------------------------------------------------------------------------------
+        If 成本表_dgv.Rows.Count = 0 Then : Else
+            Dim completeDataA4 As DataGridViewRow = 成本表_dgv.Rows(0)
+            For rowB As Integer = 0 To 10
+                If 流水號(rowB) <> "" Then
+                    Dim key As String = 流水號(rowB)
+                    Dim rowsA2() As DataGridViewRow = 成本表_dgv.Rows.Cast(Of DataGridViewRow)().Where(Function(r) r.Cells("資料流水號").Value.ToString() = key).ToArray()
+                    For Each rowA2 As DataGridViewRow In rowsA2
+                        For Each cell As DataGridViewCell In rowA2.Cells
+                            If cell.OwningColumn.Name <> "資料流水號" And cell.OwningColumn.Name <> "利潤表流水號" And
+                                成本表_dgv.Rows(rowA2.Index).Cells("資料流水號").Value.ToString() = 流水號(rowB) Then
+                                cell.Value = completeDataA4.Cells(cell.ColumnIndex).Value
+                            End If
+                        Next
+                    Next
+                End If
+            Next
+        End If
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        未存檔 = False : Dim 檢驗 As Integer
-        檢驗 = 0 : For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 檢驗 += 控制表_dgv("訂單數量", i).Value : Next
-        If 檢驗 <> CInt(總數量_tb.Text) Then : MsgBox("控制表訂單數量有誤，無法存檔!!") : Exit Sub : End If
+        Try
+            Dim 檢驗 As Integer
+            檢驗 = 0 : For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 檢驗 += 控制表_dgv("訂單數量", i).Value : Next
+            If 檢驗 <> CInt(總數量_tb.Text) Then : MsgBox("控制表-訂單數量-有誤，無法存檔!!") : Exit Sub : End If
+            檢驗 = 0 : For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 檢驗 += 控制表_dgv("出貨數量", i).Value : Next
+            If 檢驗 <> CInt(總數量_tb.Text) And 檢驗 <> 0 Then : MsgBox("控制表-出貨數量-有誤，無法存檔!!") : Exit Sub : End If
+
+            檢驗 = 0
+            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                檢驗 += 明細表_dgv("5", i).Value : 檢驗 += 明細表_dgv("5.5", i).Value : 檢驗 += 明細表_dgv("6", i).Value : 檢驗 += 明細表_dgv("6.5", i).Value : 檢驗 += 明細表_dgv("7", i).Value
+                檢驗 += 明細表_dgv("7.5", i).Value : 檢驗 += 明細表_dgv("8", i).Value : 檢驗 += 明細表_dgv("8.5", i).Value : 檢驗 += 明細表_dgv("9", i).Value : 檢驗 += 明細表_dgv("9.5", i).Value
+                檢驗 += 明細表_dgv("10", i).Value : 檢驗 += 明細表_dgv("10.5", i).Value : 檢驗 += 明細表_dgv("11", i).Value : 檢驗 += 明細表_dgv("11.5", i).Value : 檢驗 += 明細表_dgv("12", i).Value
+                檢驗 += 明細表_dgv("12.5", i).Value : 檢驗 += 明細表_dgv("13", i).Value : 檢驗 += 明細表_dgv("14", i).Value
+            Next : If 檢驗 <> CInt(總數量_tb.Text) Then : MsgBox("明細表-SIZERUN-有誤，無法存檔!!") : Exit Sub : End If
+
+            檢驗 = 0 : For i As Integer = 0 To 出貨表_dgv.Rows.Count - 1 : 檢驗 += 出貨表_dgv("訂單數量", i).Value : Next
+            If 檢驗 <> CInt(總數量_tb.Text) And 檢驗 <> 0 Then : MsgBox("出貨表-訂單數量-有誤，無法存檔!!") : Exit Sub : End If
+            檢驗 = 0 : For i As Integer = 0 To 出貨表_dgv.Rows.Count - 1 : 檢驗 += 出貨表_dgv("出貨數量", i).Value : Next
+            If 檢驗 <> CInt(總數量_tb.Text) And 檢驗 <> 0 Then : MsgBox("出貨表-出貨數量-有誤，無法存檔!!") : Exit Sub : End If
+
+            檢驗 = 0 : For i As Integer = 0 To 成本表_dgv.Rows.Count - 1 : 檢驗 += 成本表_dgv("Quantity", i).Value : Next
+            If 檢驗 <> CInt(總數量_tb.Text) And 檢驗 <> 0 Then : MsgBox("成本表-Quantity-有誤，無法存檔!!") : Exit Sub : End If
+
+            For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
+                PA = 控制表_dgv("訂單流水號", i).Value.ToString : PA1 = 控制表_dgv("年份季度", i).Value.ToString : PA2 = 控制表_dgv("客戶訂單號", i).Value.ToString
+                PA3 = 控制表_dgv("形體號", i).Value.ToString : PA4 = 控制表_dgv("顏色", i).Value.ToString : PA5 = 控制表_dgv("訂單數量", i).Value.ToString
+                PA6 = 控制表_dgv("客戶交期", i).Value.ToString : PA7 = 控制表_dgv("單價", i).Value.ToString : PA8 = 控制表_dgv("總金額", i).Value.ToString
+                PA9 = 控制表_dgv("備註", i).Value.ToString : PA10 = 控制表_dgv("資料流水號", i).Value.ToString : PA12 = 控制表_dgv("生產工廠", i).Value.ToString
+                PA13 = 控制表_dgv("訂單種類", i).Value.ToString : PA14 = 控制表_dgv("工廠回復交期", i).Value.ToString : PA15 = 控制表_dgv("CFMSPEC", i).Value.ToString
+                PA16 = 控制表_dgv("CFMSAMPLE", i).Value.ToString : PA17 = 控制表_dgv("TRIAL1", i).Value.ToString : PA18 = 控制表_dgv("TRIAL2", i).Value.ToString
+                PA19 = 控制表_dgv("TRIAL3", i).Value.ToString : PA20 = 控制表_dgv("TRIAL4", i).Value.ToString : PA21 = 控制表_dgv("包裝確認時間", i).Value.ToString
+                PA22 = 控制表_dgv("貼標時間", i).Value.ToString : PA23 = 控制表_dgv("裁斷時間", i).Value.ToString : PA24 = 控制表_dgv("針車時間", i).Value.ToString
+                PA25 = 控制表_dgv("成型時間", i).Value.ToString : PA26 = 控制表_dgv("驗貨時間", i).Value.ToString : PA27 = 控制表_dgv("實際離廠日", i).Value.ToString
+                PA28 = 控制表_dgv("明細建檔", i).Value.ToString : PA29 = 控制表_dgv("GOODBOX", i).Value.ToString : PA30 = 控制表_dgv("LEATHER", i).Value.ToString
+                PA31 = 控制表_dgv("LEA_Note", i).Value.ToString : PA32 = 控制表_dgv("CXL", i).Value.ToString : PA33 = 控制表_dgv("CXLTime", i).Value.ToString
+                PA34 = 控制表_dgv("出貨數量", i).Value.ToString : PA35 = 控制表_dgv("PO_S_Date", i).Value.ToString : PA36 = 控制表_dgv("Requested_XF", i).Value.ToString
+                PA37 = 控制表_dgv("Confirm_XF", i).Value.ToString : PA38 = 控制表_dgv("Revised_XF", i).Value.ToString : PA39 = 控制表_dgv("Special_Packaging", i).Value.ToString
+                PA40 = 控制表_dgv("Remarks", i).Value.ToString : PA41 = 控制表_dgv("出貨地", i).Value.ToString : PA42 = 控制表_dgv("TVW", i).Value.ToString
+                PA43 = 控制表_dgv("楦頭號", i).Value.ToString : PA44 = 控制表_dgv("材質", i).Value.ToString : PA45 = 控制表_dgv("長期試穿", i).Value.ToString
+                PA46 = 控制表_dgv("面料", i).Value.ToString : PA47 = 控制表_dgv("副料", i).Value.ToString : PA48 = 控制表_dgv("中底", i).Value.ToString : PA49 = 控制表_dgv("鞋墊", i).Value.ToString
+                PA50 = 控制表_dgv("大底", i).Value.ToString : PA51 = 控制表_dgv("跟", i).Value.ToString : PA52 = 控制表_dgv("工廠進度表備註1", i).Value.ToString
+                PA53 = 控制表_dgv("七號模具", i).Value.ToString : PA54 = 控制表_dgv("工廠進度表備註2", i).Value.ToString : PA55 = 控制表_dgv("國標測試", i).Value.ToString
+                PA56 = 控制表_dgv("客戶包裝確認", i).Value.ToString : PA57 = 控制表_dgv("東莞業務備註", i).Value.ToString : PA58 = 控制表_dgv("APMA確認", i).Value.ToString
+                PA59 = 控制表_dgv("驗貨報告圖片", i).Value.ToString : PA60 = 控制表_dgv("工廠確認", i).Value.ToString : PA61 = 控制表_dgv("利威確認", i).Value.ToString
+                PA62 = 控制表_dgv("結關日", i).Value.ToString : PA63 = 控制表_dgv("SMS簽回", i).Value.ToString : PA64 = 控制表_dgv("FRS簽回", i).Value.ToString
+                PA65 = 控制表_dgv("MASTER_SWATCH", i).Value.ToString : PA66 = 控制表_dgv("力威訂單號", i).Value.ToString : PA67 = 控制表_dgv("ProductID", i).Value.ToString
+                PA68 = 控制表_dgv("UoM", i).Value.ToString : PA69 = 控制表_dgv("驗報圖庫", i).Value.ToString : PA70 = 控制表_dgv("楦型", i).Value.ToString : SQL_控制表修改()
+            Next
+            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                PA = 明細表_dgv("天盾流水號", i).Value.ToString : PA1 = 明細表_dgv("客戶訂單號", i).Value.ToString : PA2 = 明細表_dgv("ItemNumber", i).Value.ToString
+                PA3 = 明細表_dgv("ProductName", i).Value.ToString : PA4 = 明細表_dgv("ProductDescription", i).Value.ToString : PA5 = 明細表_dgv("Color", i).Value.ToString
+                PA6 = 明細表_dgv("DM", i).Value.ToString : PA7 = 明細表_dgv("5", i).Value.ToString : PA8 = 明細表_dgv("5.5", i).Value.ToString : PA9 = 明細表_dgv("6", i).Value.ToString
+                PA10 = 明細表_dgv("資料流水號", i).Value.ToString : PA11 = 明細表_dgv("6.5", i).Value.ToString : PA12 = 明細表_dgv("7", i).Value.ToString
+                PA13 = 明細表_dgv("7.5", i).Value.ToString : PA14 = 明細表_dgv("8", i).Value.ToString : PA15 = 明細表_dgv("8.5", i).Value.ToString : PA16 = 明細表_dgv("9", i).Value.ToString
+                PA17 = 明細表_dgv("9.5", i).Value.ToString : PA18 = 明細表_dgv("10", i).Value.ToString : PA19 = 明細表_dgv("10.5", i).Value.ToString : PA20 = 明細表_dgv("11", i).Value.ToString
+                PA21 = 明細表_dgv("11.5", i).Value.ToString : PA22 = 明細表_dgv("12", i).Value.ToString : PA23 = 明細表_dgv("12.5", i).Value.ToString : PA24 = 明細表_dgv("13", i).Value.ToString
+                PA25 = 明細表_dgv("14", i).Value.ToString
+                If 明細表_dgv("資料流水號", i).Value.ToString = "OldData" Then : SQL_明細表修改2() : Else : SQL_明細表修改1() : End If
+            Next
+            For i As Integer = 0 To 出貨表_dgv.Rows.Count - 1
+                PA = 出貨表_dgv("訂單流水號", i).Value.ToString : PA1 = 出貨表_dgv("貨款流水號", i).Value.ToString : PA2 = 出貨表_dgv("年份季度", i).Value.ToString
+                PA3 = 出貨表_dgv("客戶訂單號", i).Value.ToString : PA4 = 出貨表_dgv("形體號", i).Value.ToString : PA5 = 出貨表_dgv("顏色", i).Value.ToString
+                PA6 = 出貨表_dgv("楦型", i).Value.ToString : PA7 = 出貨表_dgv("訂單數量", i).Value.ToString : PA8 = 出貨表_dgv("出貨數量", i).Value.ToString
+                PA9 = 出貨表_dgv("工廠價格", i).Value.ToString : PA10 = 出貨表_dgv("資料流水號", i).Value.ToString : PA11 = 出貨表_dgv("實際離廠日", i).Value.ToString
+                PA12 = 出貨表_dgv("匯款時間", i).Value.ToString : PA13 = 出貨表_dgv("入帳時間", i).Value.ToString : PA14 = 出貨表_dgv("貨款備註", i).Value.ToString : SQL_出貨表修改()
+            Next
+            For i As Integer = 0 To 成本表_dgv.Rows.Count - 1
+                PA = 成本表_dgv("天盾訂單號", i).Value.ToString : PA1 = 成本表_dgv("客戶流水號", i).Value.ToString : PA2 = 成本表_dgv("FTYPrice", i).Value.ToString
+                PA3 = 成本表_dgv("BasicPrice", i).Value.ToString : PA4 = 成本表_dgv("Polybag", i).Value.ToString : PA5 = 成本表_dgv("FOOTformOrPETform", i).Value.ToString
+                PA6 = 成本表_dgv("Tooling", i).Value.ToString : PA7 = 成本表_dgv("RubberBand", i).Value.ToString : PA8 = 成本表_dgv("JHOOK", i).Value.ToString
+                PA9 = 成本表_dgv("WaterResistant", i).Value.ToString : PA10 = 成本表_dgv("資料流水號", i).Value.ToString : PA11 = 成本表_dgv("P16VAT", i).Value.ToString
+                PA12 = 成本表_dgv("EXWsaving", i).Value.ToString : PA13 = 成本表_dgv("Currency", i).Value.ToString : PA14 = 成本表_dgv("Exchange", i).Value.ToString
+                PA15 = 成本表_dgv("年份", i).Value.ToString : PA16 = 成本表_dgv("Quantity", i).Value.ToString : PA17 = 成本表_dgv("利潤表流水號", i).Value.ToString
+                PA18 = 成本表_dgv("審核", i).Value.ToString : SQL_利潤表修改()
+            Next
+            未存檔 = False : MsgBox("存檔完成!!") : Me.Close()
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
 End Class

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單控制表.Designer.vb

@@ -945,9 +945,9 @@ Partial Class 訂單控制表
         '
         Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.修改_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.修改_bt.Location = New System.Drawing.Point(99, 6)
+        Me.修改_bt.Location = New System.Drawing.Point(960, 6)
         Me.修改_bt.Name = "修改_bt"
-        Me.修改_bt.Size = New System.Drawing.Size(89, 36)
+        Me.修改_bt.Size = New System.Drawing.Size(95, 27)
         Me.修改_bt.TabIndex = 307
         Me.修改_bt.Text = "修改"
         Me.修改_bt.UseVisualStyleBackColor = True
@@ -1006,7 +1006,7 @@ Partial Class 訂單控制表
         '開啟訂單明細表_bt
         '
         Me.開啟訂單明細表_bt.ForeColor = System.Drawing.Color.Black
-        Me.開啟訂單明細表_bt.Location = New System.Drawing.Point(959, 6)
+        Me.開啟訂單明細表_bt.Location = New System.Drawing.Point(99, 81)
         Me.開啟訂單明細表_bt.Name = "開啟訂單明細表_bt"
         Me.開啟訂單明細表_bt.Size = New System.Drawing.Size(95, 27)
         Me.開啟訂單明細表_bt.TabIndex = 326
@@ -2479,9 +2479,9 @@ Partial Class 訂單控制表
         '
         Me.Panel1.Controls.Add(Me.新增_bt)
         Me.Panel1.Controls.Add(Me.確認新增_bt)
-        Me.Panel1.Controls.Add(Me.修改_bt)
         Me.Panel1.Controls.Add(Me.計算_dgv)
         Me.Panel1.Controls.Add(Me.指定拆單_bt)
+        Me.Panel1.Controls.Add(Me.開啟訂單明細表_bt)
         Me.Panel1.Location = New System.Drawing.Point(576, 386)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(204, 138)
@@ -2514,6 +2514,7 @@ Partial Class 訂單控制表
         Me.ClientSize = New System.Drawing.Size(1914, 966)
         Me.Controls.Add(Me.訂單拆分_bt)
         Me.Controls.Add(Me.Label52)
+        Me.Controls.Add(Me.修改_bt)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.TVW_tb)
         Me.Controls.Add(Me.包裝資訊_bt)
@@ -2583,7 +2584,6 @@ Partial Class 訂單控制表
         Me.Controls.Add(Me.Label62)
         Me.Controls.Add(Me.Tendenzat_Style_tb)
         Me.Controls.Add(Me.風格查詢_bt)
-        Me.Controls.Add(Me.開啟訂單明細表_bt)
         Me.Controls.Add(Me.列印篩選_bt)
         Me.Controls.Add(Me.清空2_bt)
         Me.Controls.Add(Me.清空1_bt)

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單控制表.vb

@@ -1406,7 +1406,7 @@ Public Class 訂單控制表
                                                     If 計算_dgv.Rows(0).Cells("出貨數量").Value >= 計算_dgv.Rows(0).Cells("訂單數量").Value Then
                                                         MsgBox("系統有誤，請通知系統管理員處理。") : Exit Sub
                                                     End If
-                                                    ConnOpen() : SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC" : CmdSet_For_dr()
+                                                    SQL_出貨流水號()
                                                     If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
                                                     If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                                                     ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
@@ -1444,7 +1444,7 @@ Public Class 訂單控制表
                                                     If GHJK = "" Then : MsgBox("驗貨報告不齊全，請重新確認。") : Set_搜尋() : 天盾訂單號_tb.Text = "" : TextBox7.Text = "" : Exit Sub : End If
                                                 Next
 
-                                                ConnOpen() : SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC" : CmdSet_For_dr()
+                                                SQL_出貨流水號()
                                                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close()
 
                                                 For i As Integer = 0 To 計算_dgv.Rows.Count - 1 : EDR += 1
@@ -1520,7 +1520,7 @@ Public Class 訂單控制表
             For I As Integer = 0 To 控制表_dgv.Rows.Count - 1
                 資料數 = 控制表_dgv.Rows.Count : 進度條()
                 If 控制表_dgv("選擇", I).Value = True And 控制表_dgv("驗貨報告圖片", I).Value.ToString <> "" Then
-                    ConnOpen() : SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC" : CmdSet_For_dr()
+                    SQL_出貨流水號()
                     If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
                     If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                     ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
@@ -1597,7 +1597,7 @@ Public Class 訂單控制表
     End Sub
     Private Sub 訂單拆分_bt_Click(sender As Object, e As EventArgs) Handles 訂單拆分_bt.Click
         If 天盾訂單號_tb.Text = "" Then : MsgBox("請先選擇訂單!!!") : Else
-            PA = 天盾訂單號_tb.Text : 訂單拆單模組.ShowDialog() : 返回_bt.PerformClick()
+            PA = 天盾訂單號_tb.Text : 訂單拆單模組.ShowDialog() : PA = "" : 返回_bt.PerformClick()
         End If
     End Sub
 End Class

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單資料匯入_力威.vb

@@ -859,9 +859,7 @@ Public Class 訂單資料匯入_力威
                 CmdSet_For_dr() : conn.Close()
                 '-------訂單控制表------------------------------------------------------------------------------------------------------------------------------------------------------------------
                 For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 資料數 = 控制表_dgv.Rows.Count : 進度條()
-                    ConnOpen()
-                    SQL1 = "SELECT TOP (1) 資料流水號 FROM " & 訂單資料表(1) & " GROUP BY 資料流水號 ORDER BY 資料流水號 DESC"
-                    CmdSet_For_dr()
+                    SQL_控制表流水號()
                     If dr.Read() Then : 資料流水號_tb.Text = dr("資料流水號").ToString : Else : 資料流水號_tb.Text = "00000000" : End If
                     conn.Close()
                     Dim NUM1 As Integer