Module SQL_倉儲系統管理 '---------------------物料資料庫----------------------------------------------------------------------------------------------------------------- Friend Sub SQL_物料資料庫_群組碼清單_含語言() ConnOpen_ERP() : SQL1 = "SELECT 群組碼, 群組 AS [" & 表頭(62) & "] FROM 物料群組轉語言 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 群組碼" : CmdSet_For_DGV() End Sub Friend Sub SQL_物料資料庫語言選定() ConnOpen_ERP() : SQL1 = "SELECT 語言, 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' ORDER BY 語言" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_新增群組碼_語轉1() SQL1 = "INSERT INTO 物料群組轉語言 (群組碼, 語言, 群組) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "', '繁體中文', N'" & 物料資料庫.類別1_tb.Text & "')" End Sub Friend Sub SQL_物料資料庫_新增群組碼_語轉2() SQL1 = "INSERT INTO 物料群組轉語言 (群組碼, 語言, 群組) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "', 'Indonesian', N'" & 物料資料庫.類別3_tb.Text & "')" End Sub Friend Sub SQL_物料資料庫_新增群組碼_語轉3() SQL1 = "INSERT INTO 物料群組轉語言 (群組碼, 語言, 群組) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "', 'English', N'" & 物料資料庫.類別2_tb.Text & "')" End Sub Friend Sub SQL_物料資料庫_群組碼刪除_語轉() SQL1 = "DELETE FROM 物料群組轉語言 WHERE (群組碼 = N'" & 物料資料庫.群組碼_tb.Text & "')" End Sub Friend Sub SQL_物料資料庫_群組碼修改0_1() SQL1 = "UPDATE 物料群組轉語言 SET 群組碼 = N'" & PA & "', 群組 = N'" & 物料資料庫.類別1_tb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'繁體中文'" End Sub Friend Sub SQL_物料資料庫_群組碼修改0_2() SQL1 = "UPDATE 物料群組轉語言 SET 群組碼 = N'" & PA & "', 群組 = N'" & 物料資料庫.類別3_tb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'Indonesian'" End Sub Friend Sub SQL_物料資料庫_群組碼修改0_3() SQL1 = "UPDATE 物料群組轉語言 SET 群組碼 = N'" & PA & "', 群組 = N'" & 物料資料庫.類別2_tb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'English'" End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉1() SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'繁體中文' AND 群組 = N'" & 物料資料庫.類別1_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉2() SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'Indonesian' AND 群組 = N'" & 物料資料庫.類別3_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉3() SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'English' AND 群組 = N'" & 物料資料庫.類別2_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉反1() SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 NOT LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'繁體中文' AND 群組 = N'" & 物料資料庫.類別1_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉反2() SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 NOT LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'Indonesian' AND 群組 = N'" & 物料資料庫.類別3_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢_語轉反3() SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 群組碼 NOT LIKE N'" & 物料資料庫.群組碼_tb.Text & "' AND 語言 LIKE N'English' AND 群組 = N'" & 物料資料庫.類別2_tb.Text & "'" End Sub Friend Sub SQL_群組碼_語轉_下拉清單() ConnOpen_ERP() : SQL1 = "SELECT 群組 FROM 物料群組轉語言 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 群組碼" : CmdSet_For_dr() End Sub Friend Sub SQL_群組碼_語轉_選擇() ConnOpen_ERP() : SQL1 = "SELECT 群組碼 FROM 物料群組轉語言 WHERE 語言 LIKE N'" & 系統語言 & "' AND 群組 = N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫_語轉() ConnOpen_ERP() SQL1 = "SELECT 群組碼, 料號原則, 語言, 品名 FROM 物料編碼庫轉語言 WHERE (群組碼 LIKE N'" & PA & "') ORDER BY 料號原則" CmdSet_For_DGV() End Sub Friend Sub SQL_物料資料庫_物料編碼庫新增_語轉1() ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫轉語言 (群組碼, 料號原則, 語言, 品名) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'繁體中文', N'" & 物料資料庫.品名1_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫新增_語轉2() ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫轉語言 (群組碼, 料號原則, 語言, 品名) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'English', N'" & 物料資料庫.品名2_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫新增_語轉3() ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫轉語言 (群組碼, 料號原則, 語言, 品名) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'Indonesian', N'" & 物料資料庫.品名3_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料規格表刪除_語轉() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料編碼庫轉語言 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔_語轉1() ConnOpen_ERP() SQL1 = "UPDATE 物料編碼庫轉語言 SET 料號原則 = N'" & PA2 & "',品名 = N'" & 物料資料庫.品名1_tb.Text & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "' AND 語言 LIKE N'繁體中文'" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔_語轉2() ConnOpen_ERP() SQL1 = "UPDATE 物料編碼庫轉語言 SET 料號原則 = N'" & PA2 & "',品名 = N'" & 物料資料庫.品名2_tb.Text & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "' AND 語言 LIKE N'English'" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔_語轉3() ConnOpen_ERP() SQL1 = "UPDATE 物料編碼庫轉語言 SET 料號原則 = N'" & PA2 & "',品名 = N'" & 物料資料庫.品名3_tb.Text & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "' AND 語言 LIKE N'Indonesian'" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼批量修改_語轉1() ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫轉語言 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料資訊控制表刪除1() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料規格表 WHERE 料號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修正1() ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 最高庫存量 = 999 WHERE (最高庫存量 = 0)" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料資訊控制表刪除() SQL1 = "DELETE FROM 物料資訊控制表 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼2_tb.Text & "', 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "', 品名 LIKE N'" & 物料資料庫.原則說明_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_物料資訊控制表新增() SQL1 = "INSERT INTO 物料資訊控制表 (品名, 群組碼, 料號原則, 規格庫編號, 規格庫抬頭指定) VALUES (N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')" End Sub Friend Sub SQL_物料資料庫_物料資訊控制表重複查詢() SQL1 = "SELECT 群組碼 FROM 物料資訊控制表 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼2_tb.Text & "' AND 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_規格庫抬頭指定刪除() ConnOpen_ERP() : SQL1 = "DELETE FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_規格庫抬頭指定修改() ConnOpen_ERP() SQL1 = "UPDATE 規格庫抬頭 SET A1 = N'" & 物料資料庫.A1_tb.Text & "', A2 = N'" & 物料資料庫.A2_tb.Text & "', A3 = N'" & 物料資料庫.A3_tb.Text & "', A4 = N'" & 物料資料庫.A4_tb.Text & "', A5 = N'" & 物料資料庫.A5_tb.Text & "', A6 = N'" & 物料資料庫.A6_tb.Text & "', A7 = N'" & 物料資料庫.A7_tb.Text & "', A8 = N'" & 物料資料庫.A8_tb.Text & "' WHERE 規格庫抬頭指定 LIKE N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "' AND 語言 LIKE N'" & 物料資料庫.系統語言_cb.Text & "'" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_規格庫抬頭指定新增() ConnOpen_ERP() SQL1 = "INSERT INTO 規格庫抬頭 (規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8, 語言) VALUES (N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "', N'" & 物料資料庫.A1_tb.Text & "', N'" & 物料資料庫.A2_tb.Text & "', N'" & 物料資料庫.A3_tb.Text & "', N'" & 物料資料庫.A4_tb.Text & "', N'" & 物料資料庫.A5_tb.Text & "', N'" & 物料資料庫.A6_tb.Text & "', N'" & 物料資料庫.A7_tb.Text & "', N'" & 物料資料庫.A8_tb.Text & "' , '" & PA & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_規格庫抬頭指定重複查詢() ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8 FROM 規格庫抬頭 WHERE 規格庫抬頭指定 LIKE N'" & 物料資料庫.規格庫抬頭指定_tb.Text & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料圖庫() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料圖庫 WHERE (圖片流水號 = N'" & 物料資料庫.圖檔編號_tb.Text & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_圖檔入系統() ConnOpen_ERP() SQL1 = "INSERT INTO 物料圖庫 (圖片流水號, 群組碼, 料號原則, 圖檔) SELECT '" & 物料資料庫.圖檔編號_tb.Text & "', '" & 物料資料庫.群組碼1_tb.Text & "', '" & 物料資料庫.物料原則_tb.Text & "', BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_複製圖檔() ConnOpen_ERP() SQL1 = "INSERT INTO 物料圖庫 (圖片流水號, 圖檔, 群組碼, 料號原則) SELECT '" & PA5 & "' AS 圖片流水號, 圖檔, 群組碼, '" & PA2 & "' AS 料號原則 FROM 物料圖庫 AS 物料圖庫_1 WHERE (圖片流水號 LIKE N'" & PA4 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫刪除() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料編碼庫 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料資訊控制表刪除3() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料資訊控制表 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料規格表刪除() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料規格表 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料圖庫刪除() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料圖庫 WHERE 群組碼 LIKE N'" & PA1 & "' AND 料號原則 LIKE N'" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔1() ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫 SET 料號原則 = N'" & PA1 & "',原則說明 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔2() ConnOpen_ERP() : SQL1 = "UPDATE 物料資訊控制表 SET 料號原則 = N'" & PA1 & "',品名 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔3() ConnOpen_ERP() : SQL1 = "UPDATE 物料圖庫 SET 料號原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔4() ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 料號原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔5() ConnOpen_ERP() : SQL1 = "UPDATE 採購單明細表 SET 料號原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_修改品名後存檔6() ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 群組原則 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 群組原則 LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫新增() ConnOpen_ERP() : SQL1 = "INSERT INTO 物料編碼庫 (群組碼, 料號原則, 原則說明) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫重複確認() ConnOpen_ERP() : SQL1 = "SELECT 群組碼, 料號原則, 原則說明 FROM 物料編碼庫 WHERE 料號原則 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料編碼庫語轉重複確認() ConnOpen_ERP() : SQL1 = "SELECT 群組碼 FROM 物料編碼庫轉語言 WHERE 料號原則 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼清單() ConnOpen_ERP() : SQL1 = "SELECT 群組碼 AS [" & 表頭(62) & "] FROM 物料群組 ORDER BY 群組碼" : CmdSet_For_DGV() End Sub Friend Sub SQL_物料資料庫_群組碼刪除() SQL1 = "DELETE FROM 物料群組 WHERE (群組碼 = N'" & 物料資料庫.群組碼_tb.Text & "')" End Sub Friend Sub SQL_物料資料庫_群組碼修改1() SQL1 = "UPDATE 物料群組 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼修改2() SQL1 = "UPDATE 請購單明細表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼修改3() SQL1 = "UPDATE 物料編碼庫 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼修改4() SQL1 = "UPDATE 物料圖庫 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼修改5() SQL1 = "UPDATE 物料資訊控制表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼修改6() SQL1 = "UPDATE 物料規格表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼修改7() SQL1 = "UPDATE 採購單明細表 SET 群組碼 = N'" & PA & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_群組碼批量修改1() ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼批量修改2() ConnOpen_ERP() : SQL1 = "UPDATE 物料資訊控制表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼批量修改3() ConnOpen_ERP() : SQL1 = "UPDATE 物料圖庫 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼批量修改4() ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼批量修改5() ConnOpen_ERP() : SQL1 = "UPDATE 採購單明細表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼批量修改6() ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 群組碼 = N'" & PA1 & "' WHERE 群組碼 LIKE N'" & PA2 & "' AND 群組原則 LIKE N'" & PA3 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_群組碼重複查詢() SQL1 = "SELECT 群組碼 FROM 物料群組 WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼_tb.Text & "'" End Sub Friend Sub SQL_物料資料庫_新增群組碼() SQL1 = "INSERT INTO 物料群組 (群組碼) VALUES (N'" & 物料資料庫.群組碼_tb.Text & "')" End Sub Friend Sub SQL_物料資料庫_物料資訊控制表() If BL1 = False Then SQL2 = " WHERE 物料資訊控制表.規格庫抬頭指定 LIKE N'" & PA & "' AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') " ElseIf BL1 = True Then SQL2 = " WHERE 物料資訊控制表.群組碼 LIKE N'" & PA1 & "' AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') " End If ConnOpen_ERP() SQL1 = "SELECT 物料資訊控制表.群組碼 AS [" & 表頭(62) & "], 物料資訊控制表.料號原則 AS [" & 表頭(63) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(64) & "], 物料資訊控制表.規格庫編號 AS Keyword, 物料資訊控制表.規格庫抬頭指定 AS [" & 表頭(67) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image FROM 物料資訊控制表 INNER JOIN 物料編碼庫 ON 物料資訊控制表.群組碼 = 物料編碼庫.群組碼 AND 物料資訊控制表.料號原則 = 物料編碼庫.料號原則 INNER JOIN 物料圖庫 ON 物料資訊控制表.群組碼 = 物料圖庫.群組碼 AND 物料資訊控制表.料號原則 = 物料圖庫.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 " & SQL2 & " ORDER BY 物料資訊控制表.群組碼, 物料編碼庫轉語言.品名" CmdSet_For_DGV() End Sub Friend Sub SQL_物料資料庫_物料資訊控制表未新增() ConnOpen_ERP() SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(62) & "], 物料編碼庫.料號原則 AS [" & 表頭(63) & "], 物料編碼庫.原則說明 AS [" & 表頭(64) & "], 物料資訊控制表.群組碼, 物料資訊控制表.料號原則 FROM 物料編碼庫 FULL OUTER JOIN 物料資訊控制表 ON 物料編碼庫.群組碼 = 物料資訊控制表.群組碼 AND 物料編碼庫.料號原則 = 物料資訊控制表.料號原則 GROUP BY 物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料資訊控制表.群組碼, 物料資訊控制表.料號原則 HAVING (物料資訊控制表.群組碼 IS NULL) OR (物料資訊控制表.料號原則 IS NULL)" CmdSet_For_DGV() End Sub Friend Sub SQL_物料資料庫_物料編碼庫() ConnOpen_ERP() If BL1 = False Then SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(63) & "], 物料編碼庫.原則說明 AS [" & 表頭(64) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], HX選擇按鈕.選擇 AS Pick, 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 物料編碼庫.群組碼 FROM 物料編碼庫 LEFT OUTER JOIN HX選擇按鈕 ON 物料編碼庫.群組碼 = HX選擇按鈕.對應 LEFT OUTER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 WHERE (物料編碼庫.群組碼 LIKE N'" & PA & "') ORDER BY 物料編碼庫.料號原則" Else SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(63) & "], 物料編碼庫.原則說明 AS [" & 表頭(64) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], HX選擇按鈕.選擇, 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 物料編碼庫.群組碼 FROM 物料編碼庫 LEFT OUTER JOIN HX選擇按鈕 ON 物料編碼庫.群組碼 = HX選擇按鈕.對應 LEFT OUTER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 WHERE (物料圖庫.圖片流水號 LIKE N'' OR 物料圖庫.圖片流水號 IS NULL) ORDER BY 物料編碼庫.料號原則" End If CmdSet_For_DGV() End Sub Friend Sub SQL_物料資訊控制表_規格庫抬頭指定() ConnOpen_ERP() : SQL1 = "SELECT 規格庫抬頭指定 FROM 規格庫抬頭 GROUP BY 規格庫抬頭指定 ORDER BY 規格庫抬頭指定" : CmdSet_For_dr() End Sub Friend Sub SQL_物料資料庫_物料圖片流水號最後一筆() ConnOpen_ERP() : SQL1 = "SELECT TOP (1) 圖片流水號 FROM 物料圖庫 ORDER BY 圖片流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_物料清單() ConnOpen_ERP() If PA = "SQLB03" Then SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], A4, A5, A6, A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號" ElseIf PA = "SQLB04" Then SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], A4 AS [" & PA7 & "], A5, A6, A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號" ElseIf PA = "SQLB05" Then SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6, A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號" ElseIf PA = "SQLB06" Then SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6 AS [" & PA9 & "], A7, A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號" ElseIf PA = "SQLB07" Then SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6 AS [" & PA9 & "], A7 AS [" & PA10 & "], A8, 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號" ElseIf PA = "SQLB08" Then SQL1 = "SELECT 群組碼, 料號原則, 料號 AS Nomor_Bagian, 圖檔編號, A1 AS [" & PA4 & "], A2 AS [" & PA5 & "], A3 AS [" & PA6 & "], A4 AS [" & PA7 & "], A5 AS [" & PA8 & "], A6 AS [" & PA9 & "], A7 AS [" & PA10 & "], A8 AS [" & PA11 & "], 最低庫存量 AS [" & 表頭(65) & "], 料號 AS 原始料號, 最高庫存量 AS [" & 表頭(66) & "], 群組碼 AS No, S1, S2, S3, S4, S5, S6, S7, S8 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA2 & "') AND (群組碼 LIKE N'" & PA1 & "') ORDER BY 料號" End If CmdSet_For_DGV() End Sub Friend Sub SQL_物料編碼庫_單位修改() ConnOpen_ERP() : SQL1 = "UPDATE 物料編碼庫 SET 單位 = N'" & PA1 & "' WHERE (群組碼 LIKE N'" & PA2 & "' AND 料號原則 LIKE N'" & PA3 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_修改() ConnOpen_ERP() SQL1 = "UPDATE 物料規格表 SET A1 = N'" & PA1 & "', A2 = N'" & PA2 & "', A3 = N'" & PA3 & "', A4 = N'" & PA4 & "', A5 = N'" & PA5 & "', A6 = N'" & PA6 & "', A7 = N'" & PA7 & "', A8 = N'" & PA8 & "', 最低庫存量 = N'" & PA9 & "' , 最高庫存量 = N'" & PA10 & "' WHERE (料號 LIKE N'" & PA11 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_修改1() ConnOpen_ERP() SQL1 = "UPDATE 物料規格表 SET S1 = N'" & PA1 & "', S2 = N'" & PA2 & "', S3 = N'" & PA3 & "', S4 = N'" & PA4 & "', S5 = N'" & PA5 & "', S6 = N'" & PA6 & "', S7 = N'" & PA7 & "', S8 = N'" & PA8 & "' WHERE (料號 LIKE N'" & PA11 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料編碼庫_品名修改() ConnOpen_ERP() SQL1 = "UPDATE 物料編碼庫 SET 原則說明 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_物料資訊控制表_品名修改() ConnOpen_ERP() SQL1 = "UPDATE 物料資訊控制表 SET 品名 = N'" & PA2 & "' WHERE 群組碼 LIKE N'" & PA3 & "' AND 料號原則 LIKE N'" & PA4 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_物料圖庫_圖片修改() ConnOpen_ERP() SQL1 = "UPDATE 物料圖庫 SET 圖檔 = BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE WHERE (圖片流水號 = '" & 物料資料庫.圖檔編號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料資訊控制表_資訊修改() ConnOpen_ERP() SQL1 = "UPDATE 物料資訊控制表 SET 規格庫編號 = N'" & 物料資料庫.規格庫編號1_cb.Text & "', 規格庫抬頭指定 = N'" & 物料資料庫.規格庫抬頭指定1_cb.Text & "' WHERE 群組碼 LIKE N'" & 物料資料庫.群組碼2_tb.Text & "' AND 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "'" CmdSet_For_dr() ConnOpen_ERP() SQL1 = "UPDATE 物料規格表 SET S1 = 1, S2 = 1, S3 = 1, S4 = 1, S5 = 1, S6 = 1, S7 = 1, S8 = 1 WHERE ( 料號原則 LIKE N'" & 物料資料庫.物料原則2_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_料號修改() ConnOpen_ERP() : SQL1 = "UPDATE 物料規格表 SET 料號 = N'" & PA10 & "' WHERE (料號 LIKE N'" & PA11 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_倉儲明細表_料號修改() ConnOpen_ERP() : SQL1 = "UPDATE 倉儲明細表 SET 料號 = N'" & PA10 & "' WHERE (料號 LIKE N'" & PA11 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_請購單明細表_料號修改() ConnOpen_ERP() : SQL1 = "UPDATE 請購單明細表 SET 料號 = N'" & PA10 & "' WHERE (料號 LIKE N'" & PA11 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_採購單明細表_料號修改() ConnOpen_ERP() : SQL1 = "UPDATE 採購單明細表 SET 料號 = N'" & PA10 & "' WHERE (料號 LIKE N'" & PA11 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算明細表_料號修改() ConnOpen_ERP() : SQL1 = "UPDATE 合約試算明細表 SET 料號 = N'" & PA10 & "' WHERE (料號 LIKE N'" & PA11 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_後四碼() ConnOpen_ERP() : SQL1 = "SELECT TOP (1) RIGHT(料號, 4) AS 後四碼 FROM 物料規格表 WHERE (料號原則 LIKE N'" & PA & "') ORDER BY 料號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_料號查詢() ConnOpen_ERP() : SQL1 = "SELECT 料號 FROM 物料規格表 WHERE (料號 LIKE N'" & PA1 & "-" & PA2 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_新增() ConnOpen_ERP() SQL1 = "INSERT INTO 物料規格表 (群組碼, 料號原則, 料號, 圖檔編號, A1, A2, A3, A4, A5, A6, A7, A8, 最低庫存量, 最高庫存量, S1, S2, S3, S4, S5, S6, S7, S8) VALUES (N'" & PA3 & "', N'" & PA4 & "', N'" & PA1 & "-" & PA2 & "', N'', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'0', N'0', N'1', N'1', N'1', N'1', N'1', N'1', N'1', N'1')" CmdSet_For_dr() End Sub Friend Sub SQL_物料規格表_刪除() ConnOpen_ERP() : SQL1 = "DELETE FROM 物料規格表 WHERE (料號 LIKE N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_比對1() ConnOpen_ERP() SQL1 = "SELECT QQQ.圖片流水號, QQQ.圖片群組, QQQ.圖片料號, QQQ.編碼群組, QQQ.編碼料號 FROM HX空白圖片 FULL OUTER JOIN (SELECT 物料圖庫.圖片流水號, 物料圖庫.群組碼 AS 圖片群組, 物料圖庫.料號原則 AS 圖片料號, 物料編碼庫.群組碼 AS 編碼群組, 物料編碼庫.料號原則 AS 編碼料號 FROM 物料編碼庫 FULL OUTER JOIN 物料圖庫 ON 物料編碼庫.料號原則 = 物料圖庫.料號原則 WHERE (物料圖庫.料號原則 NOT LIKE N'')) AS QQQ ON HX空白圖片.選擇 = QQQ.圖片流水號 WHERE (QQQ.圖片群組 IS NULL) OR (QQQ.編碼群組 IS NULL)" CmdSet_For_DGV() End Sub Friend Sub SQL_比對2() ConnOpen_ERP() SQL1 = "SELECT QQQ.編碼群組, QQQ.編碼料號, QQQ.編碼品名, QQQ.資訊群組, QQQ.資訊料號, QQQ.資訊品名 FROM HX空白圖片 FULL OUTER JOIN (SELECT 物料編碼庫.群組碼 AS 編碼群組, 物料編碼庫.料號原則 AS 編碼料號, 物料編碼庫.原則說明 AS 編碼品名, 物料資訊控制表.群組碼 AS 資訊群組, 物料資訊控制表.料號原則 AS 資訊料號, 物料資訊控制表.品名 AS 資訊品名 FROM 物料編碼庫 FULL OUTER JOIN 物料資訊控制表 ON 物料編碼庫.料號原則 = 物料資訊控制表.料號原則) AS QQQ ON HX空白圖片.選擇 = QQQ.編碼群組 WHERE (QQQ.資訊群組 IS NULL) OR (QQQ.編碼群組 IS NULL) OR (QQQ.編碼品名 <> QQQ.資訊品名)" CmdSet_For_DGV() End Sub Friend Sub SQL_比對3() ConnOpen_ERP() SQL1 = "SELECT 物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料編碼庫轉語言.群組碼 AS 語轉群組碼, 物料編碼庫轉語言.料號原則 AS 語轉料號原則, 物料編碼庫轉語言.語言, 物料編碼庫轉語言.品名, 物料規格表.群組碼 AS 規格群組碼, 物料規格表.料號原則 AS 規格料號原則 FROM 物料規格表 FULL OUTER JOIN 物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 FULL OUTER JOIN 物料編碼庫 ON 物料編碼庫轉語言.料號原則 = 物料編碼庫.料號原則 GROUP BY 物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料編碼庫轉語言.群組碼, 物料編碼庫轉語言.料號原則, 物料編碼庫轉語言.語言, 物料編碼庫轉語言.品名, 物料規格表.群組碼, 物料規格表.料號原則 HAVING (物料編碼庫.群組碼 + 物料編碼庫.料號原則 <> 物料編碼庫轉語言.群組碼 + 物料編碼庫轉語言.料號原則) OR (物料編碼庫.群組碼 + 物料編碼庫.料號原則 <> 物料規格表.群組碼 + 物料規格表.料號原則) OR (物料編碼庫轉語言.群組碼 + 物料編碼庫轉語言.料號原則 <> 物料規格表.群組碼 + 物料規格表.料號原則)" CmdSet_For_DGV() End Sub Friend Sub SQL_比對4() ConnOpen_ERP() SQL1 = "SELECT 合約試算明細表.合約編號, 合約試算明細表.料號, 物料規格表.料號 AS 物料庫料號 FROM 合約試算明細表 LEFT OUTER JOIN 物料規格表 ON 合約試算明細表.料號 = 物料規格表.料號 WHERE (物料規格表.料號 IS NULL)" CmdSet_For_DGV() End Sub Friend Sub SQL_比對5() ConnOpen_ERP() SQL1 = "SELECT 物料編碼庫轉語言.群組碼 AS 語轉群組, 物料編碼庫轉語言.料號原則 AS 語轉編碼, 物料編碼庫轉語言.語言, 物料編碼庫轉語言.品名, 物料編碼庫.原則說明, 物料編碼庫.料號原則, 物料編碼庫.群組碼 FROM 物料編碼庫轉語言 FULL OUTER JOIN 物料編碼庫 ON 物料編碼庫轉語言.料號原則 = 物料編碼庫.料號原則 AND 物料編碼庫轉語言.群組碼 = 物料編碼庫.群組碼 WHERE (物料編碼庫.原則說明 IS NULL) OR (物料編碼庫轉語言.料號原則 IS NULL)" CmdSet_For_DGV() End Sub '---------------------倉儲分區控制表----------------------------------------------------------------------------------------------------------------- Friend Sub SQL_倉儲分區控制表_清單() ConnOpen_ERP() : SQL1 = "SELECT 倉級 AS [" & 表頭(68) & "], 倉名編號 AS [" & 表頭(69) & "], 倉名 AS [" & 表頭(70) & "], CXL FROM 倉儲分區控制表 ORDER BY 倉級, 倉名編號" : CmdSet_For_DGV() End Sub Friend Sub SQL_倉儲分區控制表_最後一筆() ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 倉名編號 FROM 倉儲分區控制表 ORDER BY 倉名編號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_倉儲分區控制表_倉名查詢() ConnOpen_ERP() : SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉名 LIKE N'" & 倉儲分區控制表.倉名_tb.Text & "' AND CXL = N'" & 倉儲分區控制表.CXL_ch.Checked & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_倉儲分區控制表_不重複查詢() ConnOpen_ERP() SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉級 LIKE N'" & 倉儲分區控制表.倉級_tb.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.倉名編號_tb.Text & "' AND 倉名 LIKE N'" & 倉儲分區控制表.倉名_tb.Text & "' AND CXL = N'" & 倉儲分區控制表.CXL_ch.Checked & "'" CmdSet_For_dr() End Sub Friend Sub SQL_倉儲分區控制表_新增() ConnOpen_ERP() SQL1 = "INSERT INTO 倉儲分區控制表 (倉級, 倉名編號, 倉名, CXL) VALUES (N'" & 倉儲分區控制表.倉級_tb.Text & "',N'" & 倉儲分區控制表.倉名編號_tb.Text & "',N'" & 倉儲分區控制表.倉名_tb.Text & "', '0')" CmdSet_For_dr() End Sub Friend Sub SQL_倉儲分區控制表_修改() ConnOpen_ERP() SQL1 = "UPDATE 倉儲分區控制表 SET 倉名 = N'" & 倉儲分區控制表.倉名_tb.Text & "', CXL = N'" & 倉儲分區控制表.CXL_ch.Checked & "' WHERE (倉級 LIKE N'" & 倉儲分區控制表.倉級_tb.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.倉名編號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_倉儲分區控制表_刪除() ConnOpen_ERP() SQL1 = "DELETE FROM 倉儲分區控制表 WHERE 倉級 LIKE N'" & 倉儲分區控制表.倉級_tb.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.倉名編號_tb.Text & "' AND 倉名 LIKE N'" & 倉儲分區控制表.倉名_tb.Text & "'" CmdSet_For_dr() End Sub ''---------------------倉儲單據狀態看板----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲單據狀態看板_清單() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], ' 物料資訊控制表.品名 AS [" & 表頭(12) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], ' 倉儲明細表.狀態 AS [" & 表頭(71) & "], 倉儲明細表.採購單號 AS [" & 表頭(24) & "], 倉儲明細表.申請人 AS [" & 表頭(19) & "], ' 倉儲明細表.申請日期 AS [" & 表頭(20) & "], 倉儲明細表.審核人 AS [" & 表頭(21) & "], 倉儲明細表.審核日期 AS [" & 表頭(22) & "], ' 倉儲明細表.倉庫作業 AS [" & 表頭(72) & "], 倉儲明細表.作業日期 AS [" & 表頭(73) & "], 倉儲分區控制表_1.倉名 AS [" & 表頭(74) & "], ' 倉儲明細表.使用位置 AS [" & 表頭(75) & "], 物料規格表.料號原則, 物料規格表.圖檔編號 ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' 倉儲明細表 LEFT OUTER JOIN ' 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表.備註 = 倉儲分區控制表_1.倉名編號 ON ' 倉儲分區控制表.倉名編號 = 倉儲明細表.倉名編號 LEFT OUTER JOIN ' 物料資訊控制表 INNER JOIN ' 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND ' 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 倉儲明細表.料號 = 物料規格表.料號 ' WHERE " & PA1 & " ' ORDER BY [" & 表頭(47) & "] DESC" ' CmdSet_For_DGV() 'End Sub ''---------------------倉儲控制表----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲控制表_控制表() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' If 倉儲控制表.同級別全資料_ch.Checked = False Then ' SQL1 = "SELECT QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], ' QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, ' QQWW.A6, QQWW.A7, QQWW.A8, QQWW.料號 AS [" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], ' QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], QQWW.[" & 表頭(44) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(65) & "], QQWW.規格庫編號, ' QQWW.群組碼 " & 低網 & " ' FROM 物料圖庫 INNER JOIN ' (SELECT 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], 物料資訊控制表.品名 AS [" & 表頭(12) & "], ' 物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, ' 物料規格表.A8, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, ' 物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], ' HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 物料規格表.最低庫存量 AS [" & 表頭(65) & "], 物料資訊控制表.規格庫編號, ' 物料規格表.群組碼, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON ' 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN ' (SELECT SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號 ' FROM 倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號 ' WHERE (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級2 & "') AND ' (倉儲分區控制表_2.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "') ' GROUP BY 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號) AS WW ' RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN ' (SELECT SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號 ' FROM 倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號 ' WHERE (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級2 & "') AND ' (倉儲分區控制表_1.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "') ' GROUP BY 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號) AS QQ ON ' 倉儲明細表.倉名編號 = QQ.倉名編號 AND 倉儲明細表.料號 = QQ.料號 ON WW.倉名編號 = 倉儲明細表.倉名編號 AND WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON ' 倉儲明細表.料號 = HX選擇按鈕.對應 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號 ' WHERE (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') AND ' (倉儲分區控制表.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "') ' GROUP BY 倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料規格表.群組碼, ' 物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, ' 物料編碼庫.單位, 物料規格表.最低庫存量, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 物料規格表.群組碼, 物料規格表.料號原則, 物料資訊控制表.進度條 ' " & PA10 & " ) AS QQWW ON ' 物料圖庫.群組碼 = QQWW.群組碼 AND 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN ' 物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN ' 物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND ' QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼 ' WHERE (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' ORDER BY QQWW.[" & 表頭(76) & "], QQWW.料號" ' Else ' SQL1 = "SELECT QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], ' QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, ' QQWW.A6, QQWW.A7, QQWW.A8, QQWW.料號 AS [" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], ' QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], QQWW.[" & 表頭(44) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(65) & "], QQWW.規格庫編號, ' QQWW.群組碼 " & 低網 & " ' FROM 物料圖庫 INNER JOIN ' (SELECT 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], 物料資訊控制表.品名 AS [" & 表頭(12) & "], ' 物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, ' 物料規格表.A8, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, ' 物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], ' HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 物料規格表.最低庫存量 AS [" & 表頭(65) & "], 物料資訊控制表.規格庫編號, ' 物料規格表.群組碼, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON ' 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN ' (SELECT SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號 ' FROM 倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號 ' WHERE (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級2 & "') ' GROUP BY 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號) AS WW ' RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN ' (SELECT SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號 ' FROM 倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號 ' WHERE (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級2 & "') ' GROUP BY 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號) AS QQ ON ' 倉儲明細表.倉名編號 = QQ.倉名編號 AND 倉儲明細表.料號 = QQ.料號 ON WW.倉名編號 = 倉儲明細表.倉名編號 AND WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON ' 倉儲明細表.料號 = HX選擇按鈕.對應 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號 ' WHERE (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') ' GROUP BY 倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料規格表.群組碼, ' 物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, ' 物料編碼庫.單位, 物料規格表.最低庫存量, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 物料規格表.群組碼, 物料規格表.料號原則, 物料資訊控制表.進度條 ' " & PA10 & " ) AS QQWW ON ' 物料圖庫.群組碼 = QQWW.群組碼 AND 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN ' 物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN ' 物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND ' QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼 ' WHERE (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' ORDER BY QQWW.[" & 表頭(76) & "], QQWW.料號" ' End If ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲控制表_明細() ' ConnOpen() ' If 倉儲控制表.同級別全資料_ch.Checked = False Then ' SQL1 = "SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料資訊控制表.品名, ' 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態 AS [" & 表頭(71) & "], ' 倉儲明細表.採購單號 AS [" & 表頭(24) & "], 倉儲明細表.申請人 AS [" & 表頭(19) & "], 倉儲明細表.申請日期 AS [" & 表頭(20) & "], ' 倉儲明細表.審核人 AS [" & 表頭(21) & "], 倉儲明細表.審核日期 AS [" & 表頭(22) & "], 倉儲明細表.倉庫作業 AS [" & 表頭(72) & "], ' 倉儲明細表.作業日期 AS [" & 表頭(73) & "] ' FROM 物料資訊控制表 INNER JOIN ' 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND ' 物料資訊控制表.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN ' 倉儲明細表 LEFT OUTER JOIN ' 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON ' 物料規格表.料號 = 倉儲明細表.料號 ' WHERE (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') AND (倉儲明細表.料號 LIKE N'" & PA11 & "') AND ' (倉儲分區控制表.倉名 LIKE N'" & 倉儲控制表.指定倉庫_cb.Text & "') ' ORDER BY [" & 表頭(73) & "]" ' Else ' SQL1 = "SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料資訊控制表.品名, ' 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態 AS [" & 表頭(71) & "], ' 倉儲明細表.採購單號 AS [" & 表頭(24) & "], 倉儲明細表.申請人 AS [" & 表頭(19) & "], 倉儲明細表.申請日期 AS [" & 表頭(20) & "], ' 倉儲明細表.審核人 AS [" & 表頭(21) & "], 倉儲明細表.審核日期 AS [" & 表頭(22) & "], 倉儲明細表.倉庫作業 AS [" & 表頭(72) & "], ' 倉儲明細表.作業日期 AS [" & 表頭(73) & "] ' FROM 物料資訊控制表 INNER JOIN ' 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND ' 物料資訊控制表.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN ' 倉儲明細表 LEFT OUTER JOIN ' 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON ' 物料規格表.料號 = 倉儲明細表.料號 ' WHERE (倉儲明細表.倉級 LIKE N'" & 倉儲倉級2 & "') AND (倉儲明細表.料號 LIKE N'" & PA11 & "') ' ORDER BY [" & 表頭(73) & "]" ' End If ' CmdSet_For_DGV() 'End Sub ''---------------------倉儲入庫驗收----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲入庫驗收_清單() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' If 倉儲入庫驗收.同級別全資料_ch.Checked = False Then ' SQL1 = "SELECT WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], ' WWEE.[" & 表頭(45) & "], WWEE.出庫, WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], WWEE.採購單號 AS [" & 表頭(24) & "], ' WWEE.申請人, WWEE.申請日期, WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, ' WWEE.規格庫編號, WWEE.規格庫抬頭指定 " & 低網 & " ' FROM 物料圖庫 INNER JOIN ' (SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], ' 倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, ' 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, ' 倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, ' 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON ' 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 ' LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 ' LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND ' 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級1 & "') AND (倉儲分區控制表.倉名 LIKE N'" & 倉儲入庫驗收.指定倉庫_cb.Text & "') AND ' (倉儲明細表.狀態 LIKE N'指定入庫' OR 倉儲明細表.狀態 LIKE N'退料入庫') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, ' 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, ' 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, ' 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON ' 物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則 ' ORDER BY WWEE.[" & 表頭(48) & "], WWEE.資料流水號" ' Else ' SQL1 = "SELECT WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], WWEE.[" & 表頭(45) & "], ' WWEE.出庫, WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], WWEE.採購單號 AS [" & 表頭(24) & "], WWEE.申請人, WWEE.申請日期, ' WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, WWEE.規格庫編號, WWEE.規格庫抬頭指定 " & 低網 & " ' FROM 物料圖庫 INNER JOIN ' (SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], ' 倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, ' 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, ' 倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, ' 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON ' 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 ' LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 ' LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND ' 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級1 & "') AND ' (倉儲明細表.狀態 LIKE N'指定入庫' OR 倉儲明細表.狀態 LIKE N'退料入庫') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, ' 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, ' 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, ' 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON ' 物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則 ' ORDER BY WWEE.[" & 表頭(48) & "], WWEE.資料流水號" ' End If ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲分區控制表_倉級指定倉名() ' ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級1 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_採購單明細表_已入庫() ' ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 已入庫 = N'1' WHERE (採購單號 LIKE N'" & PA8 & "' AND 料號 LIKE N'" & PA9 & "')" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_倉儲明細表_倉庫作業() ' ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA8 & "')" : CmdSet_For_dr() 'End Sub ''---------------------倉儲指定出庫申請----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲指定出庫申請_動態倉儲() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], ' QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, ' QQWW.A6, QQWW.A7, QQWW.A8, QQWW.[" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], ' QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], ' QQWW.[" & 表頭(83) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(44) & "], QQWW.規格庫編號, QQWW.進度條, ' QQWW.[" & 表頭(65) & "] " & 低網 & " ' FROM 物料圖庫 RIGHT OUTER JOIN ' (SELECT 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], ' 物料資訊控制表.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, ' 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, ' 物料規格表.A8, 倉儲明細表.料號 AS [" & 表頭(77) & "], SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, ' 物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], ' WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], ' WW.未出庫 AS [" & 表頭(83) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], HX選擇按鈕.選擇 AS [" & 表頭(44) & "], ' 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量 AS [" & 表頭(65) & "] ' FROM 物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND ' 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN ' (SELECT SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號 ' FROM 倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號 ' WHERE (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級3 & "') AND ' (倉儲分區控制表_2.倉名 LIKE N'" & 物料轉倉申請.當前倉庫_cb.Text & "') ' GROUP BY 倉儲明細表_2.料號) AS WW ' RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.料號 = HX選擇按鈕.對應 ON WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN ' (SELECT SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號 ' FROM 倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號 ' WHERE (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級3 & "') AND ' (倉儲分區控制表_1.倉名 LIKE N'" & 物料轉倉申請.當前倉庫_cb.Text & "') ' GROUP BY 倉儲明細表_1.料號) AS QQ ' ON 倉儲明細表.料號 = QQ.料號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號 ' WHERE (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級3 & "') AND ' (倉儲分區控制表.倉名 LIKE N'" & 物料轉倉申請.當前倉庫_cb.Text & "') " & PA10 & " ' GROUP BY 倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, ' 物料規格表.群組碼, 物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, ' QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, 物料編碼庫.單位, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量 ' HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)) AS QQWW ' ON 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN ' 物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN ' 物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND ' QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼 ' WHERE (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' ORDER BY QQWW.[" & 表頭(76) & "], QQWW.[" & 表頭(77) & "]" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲指定出庫申請_出庫明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], ' 倉儲分區控制表.倉名 AS [" & 表頭(14) & "], ' QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND ' 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 物料轉倉申請.倉儲單號_tb.Text & "') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級3 & "') AND ' (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 ' LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲指定出庫申請_出庫單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(84) & "], 倉儲分區控制表_1.倉名 AS [" & 表頭(85) & "] ' FROM 倉儲明細表 INNER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表.備註 = 倉儲分區控制表_1.倉名編號 LEFT OUTER JOIN 倉儲分區控制表 ON ' 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'指定出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級3 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲分區控制表_1.倉名 ' ORDER BY 倉儲明細表.執行單號 DESC" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲指定出庫申請_當前倉庫_指定倉名() ' ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級3 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_倉儲指定出庫申請_指定倉庫_指定倉名() ' ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 NOT LIKE N'1') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_倉儲指定出庫申請_倉儲明細表_新增() ' ConnOpen() ' SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & PA7 & "', N'" & PA8 & "', N'指定出庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'')" ' CmdSet_For_dr() 'End Sub ''---------------------倉儲指定出庫審核----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲指定出庫審核_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], ' 倉儲分區控制表.倉名 AS [" & 表頭(14) & "], QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 物料轉倉審核.指定出庫單號_tb.Text & "') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級4 & "') AND ' (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲指定出庫審核_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.備註 ' FROM 倉儲明細表 INNER JOIN 使用者權限管理表 ON 倉儲明細表.申請人 = 使用者權限管理表.姓名 INNER JOIN ' (SELECT 姓名, 帳號, 職稱, 時效, 授權 ' FROM 系統跨部門權限表 ' WHERE (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON ' 使用者權限管理表.職稱 = QQQ.職稱 LEFT OUTER JOIN ' 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND ' 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'指定出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級4 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.備註" ' CmdSet_For_DGV() 'End Sub ''---------------------倉儲指定出庫作業----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲指定出庫作業_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], ' 倉儲分區控制表.倉名 AS [" & 表頭(14) & "], ' QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 物料轉倉出庫.指定出庫單號_tb.Text & "') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級5 & "') AND ' (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲指定出庫作業_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.備註 ' FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'指定出庫') AND (倉儲明細表.審核人 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉庫作業 LIKE N'') AND ' (倉儲明細表.倉級 LIKE N'" & 倉儲倉級5 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.備註" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲明細表_倉庫指定出庫() ' ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (執行單號 = N'" & 物料轉倉出庫.指定出庫單號_tb.Text & "')" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_倉儲指定出庫作業_倉儲明細表_新增() ' ConnOpen() ' SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA8 & "', N'指定入庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'')" ' CmdSet_For_dr() 'End Sub ''---------------------倉儲領料申請----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲領料申請_動態庫存() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.[" & 表頭(48) & "], 物料群組轉語言.群組 AS [" & 表頭(76) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], ' QQWW.A1, QQWW.A2, QQWW.A3, QQWW.A4, QQWW.A5, QQWW.A6, QQWW.A7, QQWW.A8, QQWW.[" & 表頭(77) & "], QQWW.[" & 表頭(78) & "], ' QQWW.規格庫抬頭指定, QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(79) & "], QQWW.[" & 表頭(80) & "], QQWW.[" & 表頭(81) & "], ' QQWW.[" & 表頭(83) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(44) & "], QQWW.規格庫編號, QQWW.進度條, ' QQWW.[" & 表頭(65) & "] " & 低網 & " ' FROM 物料圖庫 RIGHT OUTER JOIN ' (SELECT 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 物料規格表.群組碼 AS [" & 表頭(76) & "], ' 物料資訊控制表.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 物料規格表.A1, ' 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, ' 物料規格表.A8, 倉儲明細表.料號 AS [" & 表頭(77) & "], SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS [" & 表頭(78) & "], 物料資訊控制表.規格庫抬頭指定, ' 物料資訊控制表.料號原則, 物料規格表.圖檔編號, QQ.未入庫 AS [" & 表頭(79) & "], ' WW.未出庫 AS [" & 表頭(80) & "], WW.未出庫 AS [" & 表頭(81) & "], ' WW.未出庫 AS [" & 表頭(83) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], HX選擇按鈕.選擇 AS [" & 表頭(44) & "], ' 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量 AS [" & 表頭(65) & "] ' FROM 物料編碼庫 INNER JOIN 物料資訊控制表 INNER JOIN 物料規格表 ON 物料資訊控制表.群組碼 = 物料規格表.群組碼 AND ' 物料資訊控制表.料號原則 = 物料規格表.料號原則 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 RIGHT OUTER JOIN ' (SELECT SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號 ' FROM 倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號 ' WHERE (倉儲明細表_2.倉庫作業 LIKE N'') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.倉級 LIKE N'" & 倉儲倉級6 & "') AND ' (倉儲分區控制表_2.倉名 LIKE N'" & 倉儲領料申請.當前倉庫_cb.Text & "') ' GROUP BY 倉儲明細表_2.料號) AS WW ' RIGHT OUTER JOIN 倉儲明細表 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.料號 = HX選擇按鈕.對應 ON WW.料號 = 倉儲明細表.料號 LEFT OUTER JOIN ' (SELECT SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號 ' FROM 倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號 ' WHERE (倉儲明細表_1.倉庫作業 LIKE N'') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.倉級 LIKE N'" & 倉儲倉級6 & "') AND ' (倉儲分區控制表_1.倉名 LIKE N'" & 倉儲領料申請.當前倉庫_cb.Text & "') ' GROUP BY 倉儲明細表_1.料號) AS QQ ' ON 倉儲明細表.料號 = QQ.料號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ON 物料規格表.料號 = 倉儲明細表.料號 ' WHERE (倉儲明細表.倉庫作業 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級6 & "') AND ' (倉儲分區控制表.倉名 LIKE N'" & 倉儲領料申請.當前倉庫_cb.Text & "') " & PA10 & " ' GROUP BY 倉儲分區控制表.倉名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, ' 物料規格表.群組碼, 物料資訊控制表.品名, 物料資訊控制表.規格庫抬頭指定, 倉儲明細表.料號, 物料資訊控制表.料號原則, 物料規格表.圖檔編號, ' QQ.未入庫, WW.未出庫, HX選擇按鈕.選擇, 物料編碼庫.單位, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料規格表.最低庫存量 ' HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)) AS QQWW ' ON 物料圖庫.料號原則 = QQWW.料號原則 INNER JOIN ' 物料群組轉語言 ON QQWW.[" & 表頭(76) & "] = 物料群組轉語言.群組碼 INNER JOIN ' 物料編碼庫轉語言 ON QQWW.料號原則 = 物料編碼庫轉語言.料號原則 AND ' QQWW.[" & 表頭(76) & "] = 物料編碼庫轉語言.群組碼 ' WHERE (物料群組轉語言.語言 LIKE N'" & 系統語言 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' ORDER BY QQWW.[" & 表頭(76) & "], QQWW.[" & 表頭(77) & "]" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲領料申請_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(14) & "], ' QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 倉儲領料申請.領料單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲領料申請_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "] ' FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'領料出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級6 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置 ' ORDER BY 倉儲明細表.執行單號 DESC" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲領料申請_倉級指定倉名() ' ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級6 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_倉儲領料申請_倉儲明細表_新增() ' ConnOpen() ' SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & PA7 & "', N'" & PA8 & "', N'領料出庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'" & PA9 & "')" ' CmdSet_For_dr() 'End Sub ''---------------------倉儲領料審核----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲領料審核_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(14) & "], ' QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 倉儲領料審核.執行單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲領料審核_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "] ' FROM 倉儲明細表 INNER JOIN 使用者權限管理表 ON 倉儲明細表.申請人 = 使用者權限管理表.姓名 INNER JOIN ' (SELECT 姓名, 帳號, 職稱, 時效, 授權 ' FROM 系統跨部門權限表 ' WHERE (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON ' 使用者權限管理表.職稱 = QQQ.職稱 LEFT OUTER JOIN ' 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND ' 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'領料出庫') AND (倉儲明細表.審核人 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級7 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置 ' ORDER BY 倉儲明細表.執行單號 DESC" ' CmdSet_For_DGV() 'End Sub ''---------------------倉儲領料出庫----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_倉儲領料出庫_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(14) & "], ' QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 倉儲領料出庫.執行單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲領料出庫_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "] ' FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'領料出庫') AND (倉儲明細表.審核人 NOT LIKE N'') AND (倉儲明細表.審核人 NOT LIKE N'作廢%') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級8 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置 ' ORDER BY 倉儲明細表.執行單號 DESC" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲領料出庫_倉庫指定出庫() ' ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (執行單號 = N'" & 倉儲領料出庫.執行單號_tb.Text & "')" : CmdSet_For_dr() 'End Sub ''---------------------物料退回倉儲作業----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_物料退回倉儲作業_清單一() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(77) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], ' 物料編碼庫.群組碼, 物料編碼庫.料號原則 " & 低網 & " ' FROM 物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (物料編碼庫.群組碼 LIKE N'" & PA10 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' ORDER BY [" & 表頭(12) & "], [" & 表頭(77) & "]" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_清單二() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(77) & "], 物料編碼庫.原則說明 AS [" & 表頭(12) & "], ' 物料編碼庫.群組碼, 物料編碼庫.料號原則 " & 低網 & " ' FROM 物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 ' WHERE (物料編碼庫.料號原則 LIKE N'" & PA10 & "%') ' ORDER BY [" & 表頭(12) & "], [" & 表頭(77) & "]" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_清單三() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT 物料編碼庫.群組碼 AS [" & 表頭(11) & "], 物料編碼庫.料號原則 AS [" & 表頭(77) & "], 物料編碼庫.原則說明 AS [" & 表頭(12) & "], ' 物料編碼庫.群組碼, 物料編碼庫.料號原則 " & 低網 & " ' FROM 物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 ' WHERE 物料編碼庫.群組碼 LIKE N'%" & PA & "%' OR 物料編碼庫.料號原則 LIKE N'%" & PA & "%' OR 物料編碼庫.原則說明 LIKE N'%" & PA & "%' ' ORDER BY [" & 表頭(12) & "], [" & 表頭(77) & "]" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT QQWW.資料流水號, QQWW.[" & 表頭(12) & "], QQWW.[" & 表頭(13) & "], QQWW.[" & 表頭(45) & "], QQWW.[" & 表頭(46) & "], QQWW.[" & 表頭(16) & "], QQWW.[" & 表頭(14) & "], ' QQWW.料號原則, QQWW.圖檔編號, QQWW.[" & 表頭(77) & "], QQWW.規格庫編號 " & 低網 & " ' FROM 倉儲分區控制表 RIGHT OUTER JOIN ' (SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 規格庫抬頭.規格庫抬頭指定 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.料號原則, 物料規格表.圖檔編號, ' 物料規格表.料號 AS [" & 表頭(77) & "], 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN ' 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 AND 物料規格表.群組碼 = 物料資訊控制表.群組碼 INNER JOIN ' 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & 物料退庫.退料單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' GROUP BY 倉儲明細表.資料流水號, 物料編碼庫.原則說明, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料編碼庫.單位, ' 規格庫抬頭.規格庫抬頭指定, 物料規格表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.進度條, 物料編碼庫轉語言.品名) AS QQWW ' ON 倉儲分區控制表.倉名編號 = QQWW.[" & 表頭(14) & "] LEFT OUTER JOIN 物料圖庫 ON QQWW.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN HX空白圖片 ON QQWW.進度條 = HX空白圖片.選擇 ' ORDER BY QQWW.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], 倉儲明細表.使用位置 AS [" & 表頭(86) & "] ' FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'退料入庫') AND (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 倉儲倉級9 & "') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.使用位置 ' ORDER BY 倉儲明細表.執行單號 DESC" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_倉級指定倉名() ' ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE (倉級 LIKE N'" & 倉儲倉級9 & "') AND CXL = '0' ORDER BY 倉級, 倉名編號" : CmdSet_For_dr() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_SQLB03() ' ConnOpen() ' SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], ' 物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, ' 物料規格表.群組碼 AS Quantity ' FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN ' HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應 ' WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_SQLB04() ' ConnOpen() ' SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], ' 物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, ' 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity ' FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN ' HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應 ' WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_SQLB05() ' ConnOpen() ' SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], ' 物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, ' HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity ' FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN ' HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應 ' WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_SQLB06() ' ConnOpen() ' SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], ' 物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7, 物料規格表.A8, ' HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity ' FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN ' HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應 ' WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_SQLB07() ' ConnOpen() ' SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], ' 物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], ' 物料規格表.A8, HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity ' FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN ' HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應 ' WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_SQLB08() ' ConnOpen() ' SQL1 = "SELECT 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.料號 AS Nomor_Bagian, 物料規格表.圖檔編號, 物料規格表.A1 AS [" & AAA1 & "], 物料規格表.A2 AS [" & AAA2 & "], ' 物料規格表.A3 AS [" & AAA3 & "], 物料規格表.A4 AS [" & AAA4 & "], 物料規格表.A5 AS [" & AAA5 & "], 物料規格表.A6 AS [" & AAA6 & "], 物料規格表.A7 AS [" & AAA7 & "], ' 物料規格表.A8 AS [" & AAA8 & "], HX選擇按鈕.選擇 AS Pilih, 物料編碼庫.原則說明, 物料規格表.群組碼 AS Quantity ' FROM 物料規格表 LEFT OUTER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 物料規格表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN ' HX選擇按鈕 ON 物料規格表.群組碼 = HX選擇按鈕.對應 ' WHERE (物料規格表.料號原則 LIKE N'" & PA2 & "') AND (物料規格表.群組碼 LIKE N'" & PA4 & "') ORDER BY 物料規格表.群組碼, 物料規格表.料號原則" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_物料退回倉儲作業_倉儲明細表_新增() ' ConnOpen() ' SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA8 & "', N'退料入庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'" & PA9 & "')" ' CmdSet_For_dr() 'End Sub ''---------------------盤盈盤損申請----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_盤盈盤損申請_明細() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' SQL1 = "SELECT 倉儲明細表.資料流水號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], ' 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], ' 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.圖檔編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, ' 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號 " & 低網 & " ' FROM 物料編碼庫 INNER JOIN 物料圖庫 INNER JOIN 物料規格表 ON 物料圖庫.群組碼 = 物料規格表.群組碼 AND 物料圖庫.料號原則 = 物料規格表.料號原則 ON ' 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN ' 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 AND 物料規格表.料號 = 倉儲明細表.料號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.執行單號 LIKE N'" & PA20 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ' ORDER BY 倉儲明細表.資料流水號" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_盤盈盤損申請_單據() ' ConnOpen() ' SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "] ' FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 ' WHERE (倉儲明細表.狀態 LIKE N'盤%') AND (倉儲明細表.倉庫作業 LIKE N'') ' GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名" ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_盤盈盤損申請_倉儲明細表_盤盈入庫新增() ' ConnOpen() ' SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & NU1 & "', N'0', N'', N'盤盈入庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'')" ' CmdSet_For_dr() 'End Sub 'Friend Sub SQL_盤盈盤損申請_倉儲明細表_盤損出庫新增() ' ConnOpen() ' SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & NU2 & "', N'', N'盤損出庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'')" ' CmdSet_For_dr() 'End Sub 'Friend Sub SQL_盤盈盤損申請_倉儲明細表_刪除() ' ConnOpen() ' SQL1 = "DELETE 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置) ' VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "', N'0',N'" & NU2 & "', N'', N'盤損出庫', N'', N'" & gUserName & "', ' N'" & DTP & "', N'', N'', N'', N'', N'')" ' CmdSet_For_dr() 'End Sub ''---------------------盤盈盤損審核----------------------------------------------------------------------------------------------------------------- 'Friend Sub SQL_盤盈盤損審核_清單() ' ConnOpen() ' If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If ' If 盤盈盤損審核.同級別全資料_ch.Checked = False Then ' SQL1 = "SELECT WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], ' WWEE.[" & 表頭(45) & "], WWEE.出庫 AS [" & 表頭(46) & "], WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], ' WWEE.採購單號 AS [" & 表頭(24) & "], ' WWEE.申請人, WWEE.申請日期, WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, ' WWEE.規格庫編號, WWEE.規格庫抬頭指定 " & 低網 & " ' FROM 物料圖庫 INNER JOIN ' (SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], ' 倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, ' 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, ' 倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, ' 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON ' 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 ' LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 ' LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 盤盈盤損審核.倉庫級別_tb.Text & "') AND ' (倉儲分區控制表.倉名 LIKE N'" & 盤盈盤損審核.指定倉庫_cb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') AND ' (倉儲明細表.狀態 LIKE N'盤%') ' GROUP BY 倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, ' 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, ' 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, ' 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON ' 物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則 ' ORDER BY WWEE.[" & 表頭(48) & "], WWEE.資料流水號" ' Else ' SQL1 = "SELECT WWEE.資料流水號, WWEE.[" & 表頭(47) & "], WWEE.倉級, WWEE.[" & 表頭(48) & "], WWEE.料號, WWEE.[" & 表頭(12) & "], WWEE.[" & 表頭(13) & "], WWEE.[" & 表頭(45) & "], ' WWEE.出庫 AS [" & 表頭(46) & "], WWEE.[" & 表頭(16) & "], WWEE.[" & 表頭(14) & "], WWEE.狀態 AS [" & 表頭(71) & "], WWEE.採購單號 AS [" & 表頭(24) & "], WWEE.申請人, ' WWEE.申請日期, WWEE.審核人, WWEE.審核日期, WWEE.倉庫作業, WWEE.作業日期, WWEE.[" & 表頭(44) & "], WWEE.圖檔編號, WWEE.料號原則, WWEE.規格庫編號, ' WWEE.規格庫抬頭指定 " & 低網 & " ' FROM 物料圖庫 INNER JOIN ' (SELECT 倉儲明細表.資料流水號, 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲明細表.倉級, 倉儲分區控制表.倉名 AS [" & 表頭(48) & "], ' 倉儲明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.規格 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], ' 倉儲明細表.出庫, 物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 倉儲明細表.狀態, ' 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, ' 倉儲明細表.作業日期, HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 物料規格表.圖檔編號, 物料規格表.料號原則, 物料資訊控制表.規格庫編號, ' 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼 ' FROM 物料編碼庫 INNER JOIN 物料規格表 ON 物料編碼庫.群組碼 = 物料規格表.群組碼 AND 物料編碼庫.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON ' 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN 倉儲明細表 ON 物料規格表.料號 = 倉儲明細表.料號 ' LEFT OUTER JOIN 採購單明細表 ON 倉儲明細表.料號 = 採購單明細表.料號 LEFT OUTER JOIN HX選擇按鈕 ON 倉儲明細表.資料流水號 = HX選擇按鈕.對應 ' LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN ' 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 ' WHERE (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.倉級 LIKE N'" & 盤盈盤損審核.倉庫級別_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') AND ' (倉儲明細表.狀態 LIKE N'盤%') ' GROUP BY 倉儲明細表.資料流水號, 倉儲明細表.執行單號, 倉儲明細表.倉級, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資訊控制表.品名, 採購單明細表.規格, ' 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲明細表.採購單號, 倉儲明細表.申請人, 倉儲明細表.申請日期, 倉儲明細表.審核人, ' 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期, HX選擇按鈕.選擇, 物料規格表.圖檔編號, 物料規格表.料號原則, 物料編碼庫.單位, ' 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.群組碼, 物料編碼庫轉語言.品名) AS WWEE ON ' 物料圖庫.群組碼 = WWEE.群組碼 AND 物料圖庫.料號原則 = WWEE.料號原則 ' ORDER BY WWEE.[" & 表頭(48) & "], WWEE.資料流水號" ' End If ' CmdSet_For_DGV() 'End Sub 'Friend Sub SQL_倉儲明細表_盤盈盤損審核作業() ' ConnOpen() ' SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'" & gUserName & "',審核日期 = N'" & DTP & "', 倉庫作業 = N'" & gUserName & "', 作業日期 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA8 & "')" ' CmdSet_For_dr() 'End Sub End Module