20200925備份

YD-ERP-SYS/Module/SQL_倉儲系統管理.vb

@@ -55,7 +55,7 @@
     Friend Sub SQL_物料檔案_新增()
         ConnOpen()
         SQL1 = "INSERT INTO 物料資料庫 (料號, 供應商編號, 成本, 品名, 停用, 是否有圖, 最低庫存量) 
-                VALUES (N'" & 物料檔案.料號_tb.Text & "', N'" & 物料檔案.供應商編碼_cb.Text & "', N'0', N'', N'0', N'0')"
+                VALUES (N'" & 物料檔案.料號_tb.Text & "', N'" & 物料檔案.供應商編碼_cb.Text & "', N'0', N'', N'0', N'0', N'0')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_物料檔案_修改()
@@ -100,82 +100,94 @@
     End Sub
     '---------------------倉儲控制表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_倉儲控制表_控制表()
+        If 倉儲控制表.指定倉庫_cb.Text = "" And 倉儲控制表.倉儲狀態_cb.Text = "" Then
+            SQL2 = " WHERE (BB.訂製 IS NOT NULL)"
+        ElseIf 倉儲控制表.指定倉庫_cb.Text <> "" And 倉儲控制表.倉儲狀態_cb.Text = "" Then
+            SQL2 = " WHERE (BB.訂製 IS NOT NULL) AND ((倉儲分區控制表.倉名 Like N'%" & 倉儲控制表.指定倉庫_cb.Text & "%') 
+                                                   OR (倉儲分區控制表_4.倉名 Like N'%" & 倉儲控制表.指定倉庫_cb.Text & "%') 
+                                                   OR (倉儲分區控制表_5.倉名 Like N'%" & 倉儲控制表.指定倉庫_cb.Text & "%')) "
+        ElseIf 倉儲控制表.指定倉庫_cb.Text = "" And 倉儲控制表.倉儲狀態_cb.Text <> "" Then
+            SQL2 = " WHERE (BB.訂製 IS NOT NULL) AND (BB.狀態 LIKE N'%" & 倉儲控制表.倉儲狀態_cb.Text & "%')"
+        ElseIf 倉儲控制表.指定倉庫_cb.Text <> "" And 倉儲控制表.倉儲狀態_cb.Text <> "" Then
+            SQL2 = " WHERE (BB.訂製 IS NOT NULL) AND ((倉儲分區控制表.倉名 Like N'%" & 倉儲控制表.指定倉庫_cb.Text & "%') 
+                                                   OR (倉儲分區控制表_4.倉名 Like N'%" & 倉儲控制表.指定倉庫_cb.Text & "%') 
+                                                   OR (倉儲分區控制表_5.倉名 Like N'%" & 倉儲控制表.指定倉庫_cb.Text & "%')) AND (BB.狀態 LIKE N'%" & 倉儲控制表.倉儲狀態_cb.Text & "%')"
+        End If
         ConnOpen()
-        'If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If
-        SQL1 = "SELECT    QQWW.倉名, QQWW.料號, QQWW.供應商, QQWW.品名, QQWW.物料狀態, QQWW.庫存, QQWW.未出庫, QQWW.未入庫, (QQWW.庫存 - QQWW.未出庫 + QQWW.未入庫) AS 可領用, 
-                          QQWW.最低庫存量, 系統比例用空白圖片.圖片 AS 庫存比例
-                FROM      系統比例用空白圖片 RIGHT OUTER JOIN
-                         (SELECT 倉儲分區控制表.倉名, 倉儲明細表.料號, 供應商資料表.供應商, 物料資料庫.品名, 倉儲明細表.物料狀態, 
-                                 SUM(倉儲明細表.入庫 - 倉儲明細表.出庫) AS 庫存, 物料資料庫.最低庫存量, 物料資料庫.進度條用空白, WW.未出庫, QQ.未入庫
-                          FROM   供應商資料表 RIGHT OUTER JOIN 物料資料庫 ON 供應商資料表.編號 = 物料資料庫.供應商編號 RIGHT OUTER JOIN
-                                 倉儲明細表 ON 物料資料庫.料號 = 倉儲明細表.料號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 
-                                 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
-                                   (SELECT   SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號
-                                    FROM     倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 
-                                             倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號
-                                    WHERE   (倉儲明細表_1.倉庫作業 LIKE '') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%')
-                                    GROUP BY 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號) AS QQ ON 倉儲明細表.料號 = QQ.料號 LEFT OUTER JOIN
-                                   (SELECT   SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號
-                                    FROM     倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 
-                                             倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號
-                                    WHERE   (倉儲明細表_2.倉庫作業 LIKE '') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%')
-                                    GROUP BY 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號) AS WW ON 倉儲明細表.料號 = WW.料號
-                          GROUP BY  倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資料庫.品名, 倉儲明細表.物料狀態, 物料資料庫.最低庫存量, 
-                                    供應商資料表.供應商, 物料資料庫.進度條用空白, WW.未出庫, QQ.未入庫) AS QQWW ON 系統比例用空白圖片.選擇 = QQWW.進度條用空白
-                ORDER BY  QQWW.供應商, QQWW.料號"
+        SQL1 = "SELECT      RR.倉名, BB.料號, BB.供應商, BB.品名, BB.訂製, BB.狀態, RR.庫存, WW.未出庫, QQ.未入庫, RR.庫存 AS 可領用, BB.最低庫存量, 系統比例用空白圖片.圖片 AS 庫存比例, BB.圖片, 
+                            倉儲分區控制表.倉名 AS 倉名1, 倉儲分區控制表_4.倉名 AS 倉名2, 倉儲分區控制表_5.倉名 AS 倉名3, BB.物料狀態
+                FROM        系統比例用空白圖片 RIGHT OUTER JOIN
+                                (SELECT          供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 
+                                                              物料訂製狀態.訂製, 倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖 AS 圖片, 
+                                                              物料資料庫.最低庫存量, 物料資料庫.進度條用空白
+                                  FROM               物料訂製狀態 RIGHT OUTER JOIN
+                                                              倉儲狀態 RIGHT OUTER JOIN
+                                                                  (SELECT          料號, 物料狀態, 訂製狀態
+                                                                    FROM               倉儲明細表
+                                                                    WHERE           (審核人 NOT LIKE '作廢%')
+                                                                    GROUP BY    料號, 審核人, 審核日期, 倉庫作業, 作業日期, 物料狀態, 訂製狀態) AS AA ON 
+                                                              倉儲狀態.編碼 = AA.物料狀態 ON 物料訂製狀態.編碼 = AA.訂製狀態 RIGHT OUTER JOIN
+                                                              供應商資料表 RIGHT OUTER JOIN
+                                                              物料資料庫 ON 供應商資料表.編號 = 物料資料庫.供應商編號 ON AA.料號 = 物料資料庫.料號
+                                  GROUP BY    供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱, 物料資料庫.品名, 物料訂製狀態.訂製, 
+                                                              倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖, 物料資料庫.最低庫存量, 
+                                                              物料資料庫.進度條用空白) AS BB ON 系統比例用空白圖片.選擇 = BB.進度條用空白 LEFT OUTER JOIN
+                            倉儲分區控制表 AS 倉儲分區控制表_4 INNER JOIN
+                                (SELECT          SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號, 
+                                                              倉儲明細表_1.物料狀態, 倉儲明細表_1.訂製狀態
+                                  FROM               倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN
+                                                              倉儲分區控制表 AS 倉儲分區控制表_1 ON 
+                                                              倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號
+                                  WHERE           (倉儲明細表_1.倉庫作業 LIKE '') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND 
+                                                              (倉儲明細表_1.入庫 <> 0)
+                                  GROUP BY    倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號, 倉儲明細表_1.物料狀態, 倉儲明細表_1.訂製狀態) 
+                            AS QQ ON 倉儲分區控制表_4.倉名編號 = QQ.倉名編號 ON BB.料號 = QQ.料號 LEFT OUTER JOIN
+                                (SELECT          SUM(倉儲明細表_3.入庫) - SUM(倉儲明細表_3.出庫) AS 庫存, 倉儲明細表_3.料號, 
+                                                              倉儲分區控制表_3.倉名編號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態, 
+                                                              倉儲分區控制表_3.倉名
+                                  FROM               倉儲明細表 AS 倉儲明細表_3 LEFT OUTER JOIN
+                                                              倉儲分區控制表 AS 倉儲分區控制表_3 ON 
+                                                              倉儲明細表_3.倉名編號 = 倉儲分區控制表_3.倉名編號
+                                  WHERE           (倉儲明細表_3.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_3.倉庫作業 NOT LIKE '')
+                                  GROUP BY    倉儲明細表_3.料號, 倉儲分區控制表_3.倉名編號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態, 
+                                                              倉儲分區控制表_3.倉名) AS RR LEFT OUTER JOIN
+                            倉儲分區控制表 ON RR.倉名編號 = 倉儲分區控制表.倉名編號 ON BB.料號 = RR.料號 LEFT OUTER JOIN
+                            倉儲分區控制表 AS 倉儲分區控制表_5 INNER JOIN
+                                (SELECT          SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號, 
+                                                              倉儲明細表_2.物料狀態, 倉儲明細表_2.訂製狀態
+                                  FROM               倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN
+                                                              倉儲分區控制表 AS 倉儲分區控制表_2 ON 
+                                                              倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號
+                                  WHERE           (倉儲明細表_2.倉庫作業 LIKE '') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND 
+                                                              (倉儲明細表_2.出庫 <> 0)
+                                  GROUP BY    倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號, 倉儲明細表_2.物料狀態, 倉儲明細表_2.訂製狀態) 
+                            AS WW ON 倉儲分區控制表_5.倉名編號 = WW.倉名編號 ON BB.料號 = WW.料號
+                " & SQL2 & "
+                ORDER BY   BB.料號"
         CmdSet_For_DGV()
     End Sub
-    '---------------------盤盈盤損申請-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_盤盈盤損申請_物料清單()
+    Friend Sub SQL_倉儲控制表_明細()
         ConnOpen()
-        If 盤盈盤損申請.查詢_tb.Text = "" Then
-            If 盤盈盤損申請.供應商編碼_cb.Text = "" Then
-                SQL2 = ""
-            Else
-                SQL2 = " WHERE 物料資料庫.供應商編號 LIKE '" & 盤盈盤損申請.供應商編碼_cb.Text & "' "
-            End If
-        Else
-            If 盤盈盤損申請.供應商編碼_cb.Text = "" Then
-                SQL2 = " WHERE (物料資料庫.料號 LIKE N'%" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') "
-            Else
-                SQL2 = " WHERE (物料資料庫.供應商編號 LIKE '" & 盤盈盤損申請.供應商編碼_cb.Text & "') AND (物料資料庫.料號 LIKE N'%" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') "
-            End If
-        End If
-        SQL1 = "SELECT      倉儲分區控制表.倉名, 供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 
-                            倉儲明細表.物料狀態, SUM(倉儲明細表.入庫 - 倉儲明細表.出庫) AS 庫存, WW.未出庫, QQ.未入庫
-                FROM        倉儲分區控制表 RIGHT OUTER JOIN 倉儲明細表 ON 倉儲分區控制表.倉名編號 = 倉儲明細表.倉名編號 LEFT OUTER JOIN
-                           (SELECT    SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號
-                            FROM      倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號
-                            WHERE    (倉儲明細表_1.倉庫作業 LIKE '') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%')
-                            GROUP BY  倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號) AS QQ ON 倉儲明細表.料號 = QQ.料號 LEFT OUTER JOIN
-                           (SELECT    SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號
-                            FROM      倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號
-                            WHERE    (倉儲明細表_2.倉庫作業 LIKE '') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%')
-                            GROUP BY  倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號) AS WW ON 倉儲明細表.料號 = WW.料號 FULL OUTER JOIN
-                            供應商資料表 RIGHT OUTER JOIN 物料資料庫 ON 供應商資料表.編號 = 物料資料庫.供應商編號 ON 倉儲明細表.料號 = 物料資料庫.料號 " & SQL2 & "
-                GROUP BY    倉儲分區控制表.倉名, 物料資料庫.品名, 倉儲明細表.物料狀態, 供應商資料表.簡稱, WW.未出庫, QQ.未入庫, 物料資料庫.料號, 供應商資料表.編號
-                ORDER BY    物料資料庫.料號"
+        SQL1 = "SELECT      倉儲明細表.執行單號, 倉儲明細表.採購單號, 倉儲明細表.狀態, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.備註, 倉儲明細表.申請人, 倉儲明細表.申請日期, 
+                            倉儲明細表.審核人, 倉儲明細表.審核日期, 倉儲明細表.倉庫作業, 倉儲明細表.作業日期
+               FROM         倉儲明細表 INNER JOIN 物料訂製狀態 ON 倉儲明細表.訂製狀態 = 物料訂製狀態.編碼 INNER JOIN 倉儲狀態 ON 
+                            倉儲明細表.物料狀態 = 倉儲狀態.編碼 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號
+                WHERE      (倉儲明細表.料號 LIKE '" & PA20 & "') AND (物料訂製狀態.訂製 LIKE '" & PA19 & "') AND (倉儲狀態.狀態 LIKE '" & PA18 & "') AND (倉儲分區控制表.倉名 LIKE '" & PA17 & "')"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_盤盈盤損申請_供應商_下拉清單()
+    '---------------------盤盈盤損審核-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_倉儲明細表_盤盈盤損審核()
         ConnOpen()
-        If 盤盈盤損申請.精準查詢_ch.Checked = True Then : SQL2 = "AND"
-        ElseIf 盤盈盤損申請.精準查詢_ch.Checked = False Then : SQL2 = "OR" : End If
-
-        If 盤盈盤損申請.地區編碼_cb.Text = "" Then
-            SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表 WHERE 停用 = 0 ORDER BY   編號"
-        ElseIf (盤盈盤損申請.地區編碼_cb.Text <> "9" Or 盤盈盤損申請.地區編碼_cb.Text = "Y") And 盤盈盤損申請.地區編碼_cb.Text <> "" Then
-            SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表
-                    WHERE  (編號 LIKE N'" & 盤盈盤損申請.地區編碼_cb.Text & "%') AND (停用 = 0) " & SQL2 & "
-                           (公司地址 LIKE '%" & 盤盈盤損申請.地區_cb.Text & "%' OR 店面地址 LIKE '%" & 盤盈盤損申請.地區_cb.Text & "%' OR 工廠地址 LIKE '%" & 盤盈盤損申請.地區_cb.Text & "%') 
-                    ORDER BY   編號"
-        ElseIf 盤盈盤損申請.地區編碼_cb.Text = "9" Or 盤盈盤損申請.地區編碼_cb.Text = "Y" Then
-            SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表
-                    WHERE  (編號 LIKE N'" & 盤盈盤損申請.地區編碼_cb.Text & "%') AND (停用 = 0)  ORDER BY   編號"
-        End If
+        SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'" & PA10 & "', 審核日期 = N'" & DTP & "', 倉庫作業 = N'" & PA9 & "', 作業日期 = N'" & DTP2 & "' WHERE (執行單號 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_盤盈盤損申請_單據()
-        ConnOpen() : SQL1 = "SELECT 執行單號 FROM 倉儲明細表 WHERE (狀態 LIKE N'盤%') AND (審核人 LIKE '') GROUP BY 執行單號" : CmdSet_For_DGV()
+    '---------------------盤盈盤損控制表-------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_盤盈盤損控制表_單據()
+        ConnOpen()
+        SQL1 = "SELECT     執行單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期
+                FROM       倉儲明細表
+                GROUP BY   執行單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期
+                ORDER BY   執行單號 DESC"
+        CmdSet_For_DGV()
     End Sub
 End Module

YD-ERP-SYS/Module/SQL_採購系統管理.vb

@@ -84,4 +84,8 @@
     Friend Sub SQL_供應商資料表_刪除()
         ConnOpen() : SQL1 = "DELETE 供應商資料表 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')" : CmdSet_For_dr()
     End Sub
+    '---------------------一般性申請採購單-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_採購申請單_單據()
+        ConnOpen() : SQL1 = "SELECT 執行單號, 申請人, 申請日期 FROM 倉儲明細表 WHERE (狀態 LIKE N'採購入庫') AND (審核人 LIKE '') GROUP BY 執行單號, 申請人, 申請日期" : CmdSet_For_DGV()
+    End Sub
 End Module

YD-ERP-SYS/Module/SQL_業務系統管理.vb

@@ -4,40 +4,73 @@
         ConnOpen()
         If 客戶資料表.查詢_tb.Text = "" Then
             If 客戶資料表.業務_cb.Text = "" Then
-                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 地址 FROM 客戶資料表 ORDER BY 舊編"
+                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 
+                        ORDER BY 舊編"
             Else
-                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 地址 FROM 客戶資料表 WHERE 舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%' ORDER BY 舊編"
+                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 
+                        WHERE 舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%' ORDER BY 舊編"
             End If
         Else
             If 客戶資料表.業務_cb.Text = "" Then
-                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 地址 FROM 客戶資料表 
+                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 
                         WHERE (名稱 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 電話2 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%') ORDER BY 舊編"
             Else
-                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 地址 FROM 客戶資料表 
-                        WHERE (舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%') AND (名稱 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 電話2 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%') 
+                SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 
+                        WHERE (舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%') AND (名稱 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 
+                               電話2 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%') 
                         ORDER BY 舊編"
             End If
         End If
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_客戶資料表_流水號_最後一筆資料()
-        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 客戶資料表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    '---------------------銷售單申請-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_銷售控制表_最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 銷售控制表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_客戶資料表_編號_最後一筆資料()
-        ConnOpen() : SQL1 = "SELECT TOP (1) 舊編 FROM 客戶資料表 WHERE (舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%') ORDER BY 舊編 DESC" : CmdSet_For_dr()
+    Friend Sub SQL_銷售控制表_單號是否重複()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 單號 FROM 銷售控制表 WHERE 單號 LIKE '" & PA & "'" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_客戶資料表_新增()
+    Friend Sub SQL_銷售控制表_新增()
         ConnOpen()
-        SQL1 = "INSERT INTO 客戶資料表 (流水號, 舊編, 名稱, 電話1, 電話2, 地址) VALUES (N'" & 客戶資料表.流水號_tb.Text & "', N'" & 客戶資料表.編號_tb.Text & "', N'', N'', N'', N'')"
+        SQL1 = "INSERT INTO 銷售控制表 (流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員) 
+                VALUES (N'" & PA1 & "', '" & PA & "', '" & DTP & "', N'', '" & DTP & "', N'0', N'', N'', N'" & gUserName & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_客戶資料表_修改()
+    Friend Sub SQL_銷售收款事項_新增()
         ConnOpen()
-        SQL1 = "UPDATE 客戶資料表 SET 名稱 = N'" & 客戶資料表.客戶_tb.Text & "', 電話1 = N'" & 客戶資料表.電話1_tb.Text & "', 電話2 = N'" & 客戶資料表.電話2_tb.Text &
-                                  "', 地址 = N'" & 客戶資料表.住址_tb.Text & "' WHERE (流水號 = N'" & 客戶資料表.流水號_tb.Text & "')"
+        SQL1 = "INSERT INTO 銷售收款事項 (資料流水號, 單號, 項次, 內容, 金額) VALUES (N'" & PA1 & "', '" & PA & "', N'0', N'未收餘額', N'0')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_客戶資料表_刪除()
-        ConnOpen() : SQL1 = "DELETE 客戶資料表 WHERE (流水號 = N'" & 客戶資料表.流水號_tb.Text & "')" : CmdSet_For_dr()
+    Friend Sub SQL_銷售控制表()
+        ConnOpen()
+        SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員
+                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 單位主管 LIKE '' ORDER BY 單號"
+        CmdSet_For_DGV()
+    End Sub
+
+    '---------------------銷售單審核-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_銷售控制表_審核()
+        ConnOpen()
+        SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員
+                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 LIKE '' ORDER BY 單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售控制表_審核確認()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售控制表 SET 單位主管 = N'" & PA & "', 審核日期 = N'" & DTP & "' WHERE 單號 LIKE '" & PA1 & "%'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售單審核_連帶作廢倉儲明細表()
+        ConnOpen()
+        SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'" & PA10 & "', 審核日期 = N'" & DTP & "', 倉庫作業 = N'" & PA9 & "', 作業日期 = N'" & DTP2 & "' WHERE (採購單號 LIKE N'" & PA11 & "')"
+        CmdSet_For_dr()
+    End Sub
+
+    Friend Sub SQL_0000盤盈盤損申請_倉儲明細表_盤損出庫新增()
+        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'" & PA7 & "', N'" & PA8 & "')"
+        CmdSet_For_dr()
     End Sub
 End Module

YD-ERP-SYS/Module/SQL_資料庫系統管理.vb

@@ -48,6 +48,24 @@
         ConnOpen() : SQL1 = "SELECT 職稱, 級別 FROM 職稱清單 ORDER BY 級別" : CmdSet_For_dr()
     End Sub
     '---------------------系統編碼規則-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_系統編碼規則_物料訂製()
+        ConnOpen() : SQL1 = "SELECT 訂製, 編碼 FROM 物料訂製狀態 ORDER BY 編碼 DESC" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_系統編碼規則_物料訂製狀態_最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 編碼 FROM 物料訂製狀態 ORDER BY 編碼 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_系統編碼規則_物料訂製狀態重複查詢()
+        SQL1 = "SELECT 訂製, 編碼 FROM 物料訂製狀態 WHERE 訂製 LIKE '" & 系統編碼規則.訂製內容_tb.Text & "'"
+    End Sub
+    Friend Sub SQL_系統編碼規則_物料訂製狀新增()
+        SQL1 = "INSERT INTO 物料訂製狀態 (訂製, 編碼) VALUES (N'" & 系統編碼規則.訂製內容_tb.Text & "', N'" & 系統編碼規則.訂製編碼_tb.Text & "')"
+    End Sub
+    Friend Sub SQL_系統編碼規則_物料訂製修改()
+        SQL1 = "UPDATE 物料訂製狀態 SET 訂製 = N'" & PA & "', 編碼 = N'" & 系統編碼規則.訂製編碼_tb.Text & "' WHERE 訂製 LIKE N'" & 系統編碼規則.訂製內容_tb.Text & "'"
+    End Sub
+    Friend Sub SQL_系統編碼規則物料訂製刪除()
+        SQL1 = "DELETE FROM 物料訂製狀態 WHERE (編碼 = N'" & 系統編碼規則.訂製編碼_tb.Text & "')"
+    End Sub
     Friend Sub SQL_系統編碼規則_職務()
         ConnOpen() : SQL1 = "SELECT 職稱, 級別 FROM 職稱清單 ORDER BY 級別" : CmdSet_For_DGV()
     End Sub

YD-ERP-SYS/Module/SQL_跨介面共用.vb

@@ -14,10 +14,285 @@
     Friend Sub SQL_地區碼_下拉清單()
         ConnOpen() : SQL1 = "SELECT 地區, 編碼 FROM 地區碼 ORDER BY 編碼" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_指定倉儲_資料讀取()
+        ConnOpen() : SQL1 = "SELECT 倉級, 倉名編號 FROM 倉儲分區控制表 WHERE (倉名 LIKE N'" & PA6 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_訂製狀態_下拉清單()
+        ConnOpen() : SQL1 = "SELECT 訂製, 編碼 FROM 物料訂製狀態 ORDER BY 訂製, 編碼" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲狀態_下拉清單()
+        ConnOpen() : SQL1 = "SELECT 狀態, 編碼 FROM 倉儲狀態 ORDER BY 狀態, 編碼" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲明細執行單號_執行單號驗證()
+        ConnOpen() : SQL1 = "SELECT 執行單號 FROM 倉儲明細執行單號 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲明細執行單號_新增()
+        ConnOpen() : SQL1 = "INSERT INTO 倉儲明細執行單號 (執行單號) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲明細表_確認單據是否申請()
+        ConnOpen() : SQL1 = "SELECT 料號 FROM 倉儲明細表 WHERE 執行單號 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "' AND 倉名編號 LIKE '" & PA3 & "'" : 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 = "UPDATE 倉儲明細表 SET 入庫 = N'" & NU1 & "', 出庫 = N'" & NU2 & "', 備註 = N'" & PA10 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲明細表_刪除二()
+        ConnOpen() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲明細執行單號_刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 倉儲明細執行單號 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲明細表_刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_倉名_下拉清單()
         ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 ORDER BY 倉級, 倉名編號" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_指定倉儲_資料讀取()
-        ConnOpen() : SQL1 = "SELECT 倉級, 倉名編號 FROM 倉儲分區控制表 WHERE (倉名 LIKE N'" & PA6 & "')" : CmdSet_For_dr()
+    Friend Sub SQL_倉名_下拉清單_有條件()
+        ConnOpen()
+        SQL1 = "SELECT 倉儲分區控制表.倉名 
+                FROM 倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 
+                WHERE (倉儲明細表.料號 LIKE '" & PA20 & "') AND (倉儲明細表.審核人 NOT LIKE '作廢%')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉名_物料分配查詢()
+        ConnOpen()
+        SQL1 = "SELECT    倉儲分區控制表.倉名, ISNULL(SUM(倉儲明細表.入庫 - 倉儲明細表.出庫), 0) AS 可用
+                FROM      倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號
+                WHERE    (倉儲明細表.料號 LIKE '" & PA20 & "') AND (倉儲明細表.審核人 NOT LIKE '作廢%')
+                GROUP BY   倉儲分區控制表.倉名
+                ORDER BY   倉儲分區控制表.倉名"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_盤盈盤損申請_物料清單()
+        ConnOpen()
+        If PA1 = "" Then
+            If PA2 = "" Then
+                SQL2 = ""
+            Else
+                SQL2 = " WHERE (BB.編號 LIKE '" & PA2 & "')"
+            End If
+        Else
+            If PA2 = "" Then
+                SQL2 = " WHERE (BB.料號 LIKE N'%" & PA & "%' OR BB.品名 LIKE N'%" & PA & "%')"
+            Else
+                SQL2 = " WHERE (BB.編號 LIKE '" & PA2 & "') AND (BB.料號 LIKE N'%" & PA & "%' OR BB.品名 LIKE N'%" & PA & "%')"
+            End If
+        End If
+        SQL1 = "SELECT     BB.編號, BB.料號, BB.供應商, BB.品名, BB.訂製, BB.狀態, RR.庫存, WW.未出庫, QQ.未入庫, BB.圖片, BB.最低庫存量
+                FROM           (SELECT    供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 
+                                          物料訂製狀態.訂製, 倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖 AS 圖片, 物料資料庫.最低庫存量
+                                FROM      物料訂製狀態 RIGHT OUTER JOIN 倉儲狀態 RIGHT OUTER JOIN
+                                                      (SELECT 料號, 物料狀態, 訂製狀態 FROM 倉儲明細表 WHERE      (審核人 NOT LIKE '作廢%')
+                                                       GROUP BY 料號, 審核人, 審核日期, 倉庫作業, 作業日期, 物料狀態, 訂製狀態) AS AA ON 
+                                          倉儲狀態.編碼 = AA.物料狀態 ON 物料訂製狀態.編碼 = AA.訂製狀態 RIGHT OUTER JOIN 供應商資料表 RIGHT OUTER JOIN
+                                          物料資料庫 ON 供應商資料表.編號 = 物料資料庫.供應商編號 ON AA.料號 = 物料資料庫.料號
+                                GROUP BY  供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱, 物料資料庫.品名, 物料訂製狀態.訂製, 
+                                          倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖, 物料資料庫.最低庫存量) 
+                           AS BB LEFT OUTER JOIN
+                               (SELECT   SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲明細表_1.物料狀態, 倉儲明細表_1.訂製狀態
+                                FROM     倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_1 ON 倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號
+                                WHERE   (倉儲明細表_1.倉庫作業 LIKE '') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_1.入庫 <> 0)
+                                GROUP BY 倉儲明細表_1.料號, 倉儲明細表_1.物料狀態, 倉儲明細表_1.訂製狀態) AS QQ ON 
+                           BB.料號 = QQ.料號 LEFT OUTER JOIN
+                               (SELECT   SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲明細表_2.物料狀態, 倉儲明細表_2.訂製狀態
+                                FROM     倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_2 ON 倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號
+                                WHERE   (倉儲明細表_2.倉庫作業 LIKE '') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_2.出庫 <> 0)
+                                GROUP BY 倉儲明細表_2.料號, 倉儲明細表_2.物料狀態, 倉儲明細表_2.訂製狀態) AS WW ON 
+                           BB.料號 = WW.料號 LEFT OUTER JOIN
+                               (SELECT   SUM(倉儲明細表_3.入庫) - SUM(倉儲明細表_3.出庫) AS 庫存, 倉儲明細表_3.料號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態
+                                FROM     倉儲明細表 AS 倉儲明細表_3 LEFT OUTER JOIN 倉儲分區控制表 AS 倉儲分區控制表_3 ON 倉儲明細表_3.倉名編號 = 倉儲分區控制表_3.倉名編號
+                                WHERE   (倉儲明細表_3.倉庫作業 NOT LIKE '') AND (倉儲明細表_3.審核人 NOT LIKE N'作廢%')
+                                GROUP BY 倉儲明細表_3.料號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態) AS RR ON 
+                           BB.料號 = RR.料號 " & SQL2 & "
+                ORDER BY   BB.料號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_盤盈盤損申請_供應商_下拉清單()
+        ConnOpen()
+        If BL1 = True Then : SQL2 = "AND"
+        ElseIf BL1 = False Then : SQL2 = "OR" : End If
+
+        If PA3 = "" Then
+            SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表 WHERE 停用 = 0 ORDER BY   編號"
+        ElseIf (PA3 <> "9" Or PA3 = "Y") And PA3 <> "" Then
+            SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表
+                    WHERE  (編號 LIKE N'" & PA3 & "%') AND (停用 = 0) " & SQL2 & "
+                           (公司地址 LIKE '%" & PA4 & "%' OR 店面地址 LIKE '%" & PA4 & "%' OR 工廠地址 LIKE '%" & PA4 & "%') 
+                    ORDER BY   編號"
+        ElseIf PA3 = "9" Or PA3 = "Y" Then
+            SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表
+                    WHERE  (編號 LIKE N'" & PA3 & "%') AND (停用 = 0)  ORDER BY   編號"
+        End If
+        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 = "SELECT TOP (1) 舊編 FROM 客戶資料表 WHERE (舊編 LIKE N'" & PA18 & "%') ORDER BY 舊編 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶資料表_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 客戶資料表 (流水號, 舊編, 名稱, 電話1, 電話2, 地址, 公司名稱, 統編) 
+                VALUES (N'" & PA16 & "', N'" & PA17 & "', N'', N'', N'', N'', N'', N'')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶資料表_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 客戶資料表 SET 名稱 = N'" & PA14 & "', 電話1 = N'" & PA13 & "', 電話2 = N'" & PA12 & "', 地址 = N'" & PA11 & "', 公司名稱 = N'" & PA10 & "', 統編 = N'" & PA9 & "' 
+                WHERE (流水號 = N'" & PA8 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶資料表_刪除()
+        ConnOpen() : SQL1 = "DELETE 客戶資料表 WHERE (流水號 = N'" & 客戶資料表.流水號_tb.Text & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細表_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售明細表 SET 備註 = N'" & PA10 & "', 成本 = N'" & NU1 & "', 售價 = N'" & NU2 & "', 含稅 = N'" & BL5 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售備註表_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售備註表 SET 備註 = N'" & PA10 & "', 收入 = N'" & NU1 & "', 支出 = N'" & NU2 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售收款事項_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售收款事項 SET 內容 = N'" & PA10 & "', 金額 = N'" & NU1 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售收款事項()
+        ConnOpen()
+        SQL1 = "SELECT 資料流水號, 單號, 項次 AS 真項次, 項次, 內容, 金額 FROM 銷售收款事項 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 項次 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售控制表_刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售控制表 WHERE 單號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細表_整體刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售明細表 WHERE 單號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售備註表_整體刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售備註表 WHERE 單號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲控制表_依銷售單號刪除()
+        ConnOpen() : SQL1 = "DELETE 倉儲明細表 WHERE 採購單號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售收款事項_整體刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售控制表 WHERE 單號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細表_單筆刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售明細表 WHERE 資料流水號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲控制表_依銷售單號單筆刪除()
+        ConnOpen() : SQL1 = "DELETE 倉儲明細表 WHERE 資料流水號 LIKE '" & PA1 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售單申請_客戶資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 名稱, 電話1, 電話2, 地址, 公司名稱, 統編 FROM 客戶資料表 WHERE 舊編 LIKE '" & PA15 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售單申請_客戶資料驗證()
+        ConnOpen() : SQL1 = "SELECT 舊編, 名稱, 電話1, 電話2, 地址, 公司名稱, 統編 FROM 客戶資料表 WHERE 名稱 LIKE '%" & PA16 & "%'" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售控制表_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售控制表 SET 單號 = N'" & PA2 & "', 開單日期 = N'" & DTP & "', 客戶編號 = N'" & PA3 & "', 交貨日期 = '" & DTP1 & "', 含稅 = '" & BL1 & "' 
+                WHERE 流水號 LIKE '" & PA1 & "%'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售單申請_銷售明細表_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 銷售明細表 (資料流水號, 單號, 料號, 物料狀態, 訂製狀態, 備註, 數量, 成本, 售價, 狀態, 含稅) 
+                VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA2 & "',N'" & PA7 & "',N'" & PA8 & "', N'', N'" & NU1 & "', N'" & NU2 & "', N'" & NU3 & "', '" & PA9 & "', N'" & BL2 & "')"
+        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'" & NU1 & "', N'', N'銷售出庫', N'" & PA9 & "', N'" & gUserName & "', N'" & DTP & "', 
+                        N'', N'', N'', N'', N'" & PA7 & "', N'" & PA8 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細表()
+        ConnOpen()
+        SQL1 = "SELECT      銷售明細表.資料流水號, 銷售明細表.資料流水號 AS 項次, 銷售明細表.料號, 物料資料庫.品名, 物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 
+                            銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價, 銷售明細表.狀態 AS 倉儲情況, 倉儲明細表.資料流水號 AS 倉儲流水號
+                FROM        銷售明細表 INNER JOIN 倉儲狀態 ON 銷售明細表.物料狀態 = 倉儲狀態.編碼 LEFT OUTER JOIN 倉儲明細表 ON 銷售明細表.料號 = 倉儲明細表.料號 AND 
+                            銷售明細表.單號 = 倉儲明細表.採購單號 LEFT OUTER JOIN 物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
+                            物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號
+                WHERE      (銷售明細表.單號 LIKE '" & PA2 & "')
+                ORDER BY    銷售明細表.料號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售備註表()
+        ConnOpen()
+        SQL1 = "SELECT 資料流水號, 資料流水號 AS 項次, 備註, 收入, 支出 FROM 銷售備註表 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 資料流水號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售單號串聯倉儲表取得倉儲單號()
+        ConnOpen()
+        SQL1 = "SELECT 倉儲明細表.執行單號 FROM 倉儲明細表 INNER JOIN 銷售明細表 ON 倉儲明細表.採購單號 = 銷售明細表.單號 WHERE (銷售明細表.單號 LIKE '" & PA & "') GROUP BY 倉儲明細表.執行單號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售備註表_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 銷售備註表 (資料流水號, 單號, 備註, 收入, 支出) VALUES (N'" & PA1 & "', '" & PA & "', '', N'0', N'0')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售收款事項_新增2()
+        ConnOpen()
+        SQL1 = "INSERT INTO 銷售收款事項 (資料流水號, 單號, 項次, 內容, 金額) VALUES (N'" & PA1 & "', '" & PA & "', '" & PA2 & "', N'', N'0')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售備註表_刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售備註表 WHERE 資料流水號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售收款事項_刪除()
+        ConnOpen() : SQL1 = "DELETE 銷售收款事項 WHERE 資料流水號 LIKE '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細表_確認單據是否申請()
+        ConnOpen() : SQL1 = "SELECT 料號 FROM 銷售明細表 WHERE 單號 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "' AND 訂製狀態 LIKE '" & PA8 & "'" : 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 = "SELECT TOP (1) 資料流水號 FROM 銷售備註表 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 = "SELECT TOP (1) 項次 FROM 銷售收款事項 ORDER BY 項次 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_盤盈盤損申請_單據()
+        ConnOpen() : SQL1 = "SELECT 執行單號, 申請人, 申請日期 FROM 倉儲明細表 WHERE (狀態 LIKE N'盤%') AND (審核人 LIKE '') 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'" & PA7 & "', N'" & PA8 & "')"
+        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'" & PA7 & "', N'" & PA8 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_盤盈盤損申請_明細()
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.資料流水號, 供應商資料表.簡稱 AS 供應商, 倉儲分區控制表.倉名, 倉儲明細表.料號, 物料資料庫.品名, 物料訂製狀態.訂製, 倉儲狀態.狀態 AS 倉儲狀態, 
+                            倉儲明細表.入庫 AS 盤盈, 倉儲明細表.出庫 AS 盤損, 倉儲明細表.狀態 AS 資料型態, 倉儲明細表.備註, 物料資料庫.是否有圖 AS 圖片
+                FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 INNER JOIN
+                            倉儲狀態 ON 倉儲明細表.物料狀態 = 倉儲狀態.編碼 INNER JOIN 物料訂製狀態 ON 倉儲明細表.訂製狀態 = 物料訂製狀態.編碼 INNER JOIN
+                            供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號
+                WHERE      (倉儲明細表.執行單號 LIKE N'" & PA20 & "')
+                ORDER BY    倉儲明細表.料號, 倉儲明細表.資料流水號"
+        CmdSet_For_DGV()
     End Sub
 End Module

YD-ERP-SYS/Module/全域變數.vb

@@ -4,19 +4,21 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020081801"
+    Public 版本 As String = "2020091501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String
-    '----全域字串變數
-    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
-    Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
-    Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = ""
-    '----全域數字變數
+    '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
+    Public PA6 As String = "" : Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = ""
+    Public PA12 As String = "" : Public PA13 As String = "" : Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = ""
+    Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = ""
+    '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
-    '----全域布林含數
+    '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public BL1 As Boolean : Public BL2 As Boolean : Public BL3 As Boolean : Public BL4 As Boolean : Public BL5 As Boolean
-
+    '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Public 客戶資料強制對話框模式 As Boolean
     '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public Class MyModule1

YD-ERP-SYS/My Project/Resources.Designer.vb

@@ -1100,6 +1100,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property check() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("check", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>

YD-ERP-SYS/My Project/Resources.resx

@@ -127,24 +127,18 @@
   <data name="077" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\077.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="055" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\055.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="074" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\074.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="010" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\010.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="071" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\071.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="timg02" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\timg02.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="027" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\027.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="017" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\017.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -166,8 +160,11 @@
   <data name="067" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\067.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="035" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\035.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="056" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\056.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="timg02" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\timg02.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="061" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\061.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -190,9 +187,6 @@
   <data name="003" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\003.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="013" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\013.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="026" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\026.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -205,6 +199,9 @@
   <data name="028" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\028.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="100" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\100.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="011" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\011.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -220,24 +217,30 @@
   <data name="075" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\075.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="072" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\072.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="043" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\043.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="042" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\042.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="052" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\052.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="035" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\035.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="086" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\086.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="091" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\091.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="089" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\089.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="013" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\013.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="069" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\069.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="031" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\031.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -247,17 +250,14 @@
   <data name="078" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\078.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Sys-Command1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="082" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\082.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="038" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\038.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="buy" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\buy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="058" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\058.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="057" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\057.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -265,6 +265,9 @@
   <data name="007" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\007.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="051" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\051.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="020" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\020.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -298,14 +301,17 @@
   <data name="014" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\014.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="073" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\073.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="019" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\019.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="072" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\072.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="091" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\091.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="092" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\092.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -319,9 +325,6 @@
   <data name="050" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\050.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="024" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="088" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\088.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -346,20 +349,17 @@
   <data name="022" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\022.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="029" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\029.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="054" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\054.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="032" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\032.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="051" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\051.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="024" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="052" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\052.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Sys-Command1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="062" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\062.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -382,12 +382,12 @@
   <data name="098" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\098.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="015" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\015.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="002" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\002.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="016" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\016.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -400,8 +400,8 @@
   <data name="093" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\093.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="069" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\069.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="buy" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\buy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="041" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\041.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -418,14 +418,17 @@
   <data name="040" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\040.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="card_ipod" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\card_ipod.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="004" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\004.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="058" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\058.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="042" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\042.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="000" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\000.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -433,17 +436,17 @@
   <data name="070" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\070.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="055" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\055.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="001" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\001.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="002" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\002.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="046" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\046.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="056" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\056.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="027" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\027.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Sys-Command" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -457,10 +460,10 @@
   <data name="094" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\094.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="100" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\100.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="029" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\029.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

YD-ERP-SYS/YD-ERP-SYS.Designer.vb

@@ -48,7 +48,8 @@ Partial Class YD_ERP_SYS
         Me.採購系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.採購控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.採購單申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.一般性申請採購單_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.依銷售申請採購單_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.採購單審核_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
         Me.採購退貨申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -61,7 +62,7 @@ Partial Class YD_ERP_SYS
         Me.倉儲入庫驗收_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
         Me.盤盈盤損申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.盤盈盤損確認倉儲調整_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.盤盈盤損審核倉儲調整_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.盤盈盤損控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.物料檔案_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -190,45 +191,48 @@ Partial Class YD_ERP_SYS
         '訂單控制表_tsm
         '
         Me.訂單控制表_tsm.ForeColor = System.Drawing.Color.Black
+        Me.訂單控制表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
         Me.訂單控制表_tsm.Name = "訂單控制表_tsm"
-        Me.訂單控制表_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.訂單控制表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.訂單控制表_tsm.Text = "訂單控制表"
         '
         'ToolStripSeparator9
         '
         Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
-        Me.ToolStripSeparator9.Size = New System.Drawing.Size(131, 6)
+        Me.ToolStripSeparator9.Size = New System.Drawing.Size(177, 6)
         '
         '銷售單申請_tsm
         '
-        Me.銷售單申請_tsm.ForeColor = System.Drawing.Color.Black
+        Me.銷售單申請_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單申請_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
         Me.銷售單申請_tsm.Name = "銷售單申請_tsm"
-        Me.銷售單申請_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.銷售單申請_tsm.Size = New System.Drawing.Size(180, 22)
         Me.銷售單申請_tsm.Text = "銷售單申請"
         '
         '銷售單審核_tsm
         '
-        Me.銷售單審核_tsm.ForeColor = System.Drawing.Color.Black
+        Me.銷售單審核_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單審核_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.check
         Me.銷售單審核_tsm.Name = "銷售單審核_tsm"
-        Me.銷售單審核_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.銷售單審核_tsm.Size = New System.Drawing.Size(180, 22)
         Me.銷售單審核_tsm.Text = "銷售單審核"
         '
         'ToolStripSeparator8
         '
         Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
-        Me.ToolStripSeparator8.Size = New System.Drawing.Size(131, 6)
+        Me.ToolStripSeparator8.Size = New System.Drawing.Size(177, 6)
         '
         '客戶資料表_tsm
         '
         Me.客戶資料表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.客戶資料表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.客戶資料表_tsm.Name = "客戶資料表_tsm"
-        Me.客戶資料表_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.客戶資料表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.客戶資料表_tsm.Text = "客戶資料表"
         '
         '採購系統管理_tsm
         '
-        Me.採購系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.採購控制表_tsm, Me.ToolStripSeparator3, Me.採購單申請_tsm, Me.採購單審核_tsm, Me.ToolStripSeparator7, Me.採購退貨申請_tsm, Me.採購退貨審核_tsm, Me.ToolStripSeparator1, Me.供應商資料表_tsm})
+        Me.採購系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.採購控制表_tsm, Me.ToolStripSeparator3, Me.一般性申請採購單_tsm, Me.依銷售申請採購單_tsm, Me.採購單審核_tsm, Me.ToolStripSeparator7, Me.採購退貨申請_tsm, Me.採購退貨審核_tsm, Me.ToolStripSeparator1, Me.供應商資料表_tsm})
         Me.採購系統管理_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.採購系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.buy
         Me.採購系統管理_tsm.Name = "採購系統管理_tsm"
@@ -239,63 +243,70 @@ Partial Class YD_ERP_SYS
         '
         Me.採購控制表_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購控制表_tsm.Name = "採購控制表_tsm"
-        Me.採購控制表_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.採購控制表_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購控制表_tsm.Text = "採購控制表"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(143, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(167, 6)
         '
-        '採購單申請_tsm
+        '一般性申請採購單_tsm
         '
-        Me.採購單申請_tsm.ForeColor = System.Drawing.Color.Black
-        Me.採購單申請_tsm.Name = "採購單申請_tsm"
-        Me.採購單申請_tsm.Size = New System.Drawing.Size(146, 22)
-        Me.採購單申請_tsm.Text = "採購單申請"
+        Me.一般性申請採購單_tsm.ForeColor = System.Drawing.Color.Black
+        Me.一般性申請採購單_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
+        Me.一般性申請採購單_tsm.Name = "一般性申請採購單_tsm"
+        Me.一般性申請採購單_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.一般性申請採購單_tsm.Text = "一般性申請採購單"
+        '
+        '依銷售申請採購單_tsm
+        '
+        Me.依銷售申請採購單_tsm.Name = "依銷售申請採購單_tsm"
+        Me.依銷售申請採購單_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.依銷售申請採購單_tsm.Text = "依銷售申請採購單"
         '
         '採購單審核_tsm
         '
         Me.採購單審核_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購單審核_tsm.Name = "採購單審核_tsm"
-        Me.採購單審核_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.採購單審核_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購單審核_tsm.Text = "採購單審核"
         '
         'ToolStripSeparator7
         '
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
-        Me.ToolStripSeparator7.Size = New System.Drawing.Size(143, 6)
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(167, 6)
         '
         '採購退貨申請_tsm
         '
         Me.採購退貨申請_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購退貨申請_tsm.Name = "採購退貨申請_tsm"
-        Me.採購退貨申請_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.採購退貨申請_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨申請_tsm.Text = "採購退貨申請"
         '
         '採購退貨審核_tsm
         '
         Me.採購退貨審核_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購退貨審核_tsm.Name = "採購退貨審核_tsm"
-        Me.採購退貨審核_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.採購退貨審核_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨審核_tsm.Text = "採購退貨審核"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(143, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(167, 6)
         '
         '供應商資料表_tsm
         '
         Me.供應商資料表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.供應商資料表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.供應商資料表_tsm.Name = "供應商資料表_tsm"
-        Me.供應商資料表_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.供應商資料表_tsm.Size = New System.Drawing.Size(170, 22)
         Me.供應商資料表_tsm.Text = "供應商資料表"
         '
         '倉儲系統管理_tsm
         '
-        Me.倉儲系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.倉儲控制表_tsm, Me.倉儲庫存清單_tsm, Me.倉儲入庫驗收_tsm, Me.ToolStripSeparator6, Me.盤盈盤損申請_tsm, Me.盤盈盤損確認倉儲調整_tsm, Me.盤盈盤損控制表_tsm, Me.ToolStripSeparator2, Me.物料檔案_tsm, Me.倉儲分區控制表_tsm})
+        Me.倉儲系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.倉儲控制表_tsm, Me.倉儲庫存清單_tsm, Me.倉儲入庫驗收_tsm, Me.ToolStripSeparator6, Me.盤盈盤損申請_tsm, Me.盤盈盤損審核倉儲調整_tsm, Me.盤盈盤損控制表_tsm, Me.ToolStripSeparator2, Me.物料檔案_tsm, Me.倉儲分區控制表_tsm})
         Me.倉儲系統管理_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.倉儲系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Shipping5
         Me.倉儲系統管理_tsm.Name = "倉儲系統管理_tsm"
@@ -337,16 +348,19 @@ Partial Class YD_ERP_SYS
         Me.盤盈盤損申請_tsm.Size = New System.Drawing.Size(199, 22)
         Me.盤盈盤損申請_tsm.Text = "盤盈盤損申請"
         '
-        '盤盈盤損確認倉儲調整_tsm
+        '盤盈盤損審核倉儲調整_tsm
         '
-        Me.盤盈盤損確認倉儲調整_tsm.ForeColor = System.Drawing.Color.Black
-        Me.盤盈盤損確認倉儲調整_tsm.Name = "盤盈盤損確認倉儲調整_tsm"
-        Me.盤盈盤損確認倉儲調整_tsm.Size = New System.Drawing.Size(199, 22)
-        Me.盤盈盤損確認倉儲調整_tsm.Text = "盤盈盤損確認-倉儲調整"
+        Me.盤盈盤損審核倉儲調整_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.盤盈盤損審核倉儲調整_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.check
+        Me.盤盈盤損審核倉儲調整_tsm.Name = "盤盈盤損審核倉儲調整_tsm"
+        Me.盤盈盤損審核倉儲調整_tsm.Size = New System.Drawing.Size(199, 22)
+        Me.盤盈盤損審核倉儲調整_tsm.Text = "盤盈盤損審核-倉儲調整"
+        Me.盤盈盤損審核倉儲調整_tsm.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         '
         '盤盈盤損控制表_tsm
         '
-        Me.盤盈盤損控制表_tsm.ForeColor = System.Drawing.Color.Black
+        Me.盤盈盤損控制表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.盤盈盤損控制表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
         Me.盤盈盤損控制表_tsm.Name = "盤盈盤損控制表_tsm"
         Me.盤盈盤損控制表_tsm.Size = New System.Drawing.Size(199, 22)
         Me.盤盈盤損控制表_tsm.Text = "盤盈盤損控制表"
@@ -512,7 +526,7 @@ Partial Class YD_ERP_SYS
     Friend WithEvents ToolStripSeparator8 As Windows.Forms.ToolStripSeparator
     Friend WithEvents 採購控制表_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator3 As Windows.Forms.ToolStripSeparator
-    Friend WithEvents 採購單申請_tsm As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 一般性申請採購單_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents 採購單審核_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator7 As Windows.Forms.ToolStripSeparator
     Friend WithEvents 採購退貨申請_tsm As Windows.Forms.ToolStripMenuItem
@@ -523,8 +537,9 @@ Partial Class YD_ERP_SYS
     Friend WithEvents 倉儲入庫驗收_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator6 As Windows.Forms.ToolStripSeparator
     Friend WithEvents 盤盈盤損控制表_tsm As Windows.Forms.ToolStripMenuItem
-    Friend WithEvents 盤盈盤損確認倉儲調整_tsm As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 盤盈盤損審核倉儲調整_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator2 As Windows.Forms.ToolStripSeparator
     Friend WithEvents 盤盈盤損申請_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents 倉儲分區控制表_tsm As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 依銷售申請採購單_tsm As ToolStripMenuItem
 End Class

YD-ERP-SYS/YD-ERP-SYS.vb

@@ -58,7 +58,7 @@ Public Class YD_ERP_SYS
         PA = "" : 人事資料表.Show() : 人事資料表.BringToFront()
     End Sub
     Private Sub 客戶資料表_tsm_Click(sender As Object, e As EventArgs) Handles 客戶資料表_tsm.Click
-        PA = "" : 客戶資料表.Show() : 客戶資料表.BringToFront()
+        PA = "" : 客戶資料強制對話框模式 = False : 客戶資料表.Show() : 客戶資料表.BringToFront()
     End Sub
     Private Sub 供應商資料表_tsm_Click(sender As Object, e As EventArgs) Handles 供應商資料表_tsm.Click
         PA = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
@@ -78,4 +78,22 @@ Public Class YD_ERP_SYS
     Private Sub 盤盈盤損申請_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_tsm.Click
         PA = "" : 盤盈盤損申請.Show() : 盤盈盤損申請.BringToFront()
     End Sub
+    Private Sub 盤盈盤損確認倉儲調整_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核倉儲調整_tsm.Click
+        PA = "" : 盤盈盤損審核_倉儲調整.Show() : 盤盈盤損審核_倉儲調整.BringToFront()
+    End Sub
+    Private Sub 盤盈盤損控制表_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損控制表_tsm.Click
+        PA = "" : 盤盈盤損控制表.Show() : 盤盈盤損控制表.BringToFront()
+    End Sub
+    Private Sub 銷售單申請_tsm_Click(sender As Object, e As EventArgs) Handles 銷售單申請_tsm.Click
+        PA = "" : 銷售單申請.Show() : 銷售單申請.BringToFront()
+    End Sub
+    Private Sub 一般性申請採購單_tsm_Click(sender As Object, e As EventArgs) Handles 一般性申請採購單_tsm.Click
+        PA = "" : 一般性申請採購單.Show() : 一般性申請採購單.BringToFront()
+    End Sub
+    Private Sub 銷售單審核_tsm_Click(sender As Object, e As EventArgs) Handles 銷售單審核_tsm.Click
+        PA = "" : 銷售單審核.Show() : 銷售單審核.BringToFront()
+    End Sub
+    Private Sub 訂單控制表_tsm_Click(sender As Object, e As EventArgs) Handles 訂單控制表_tsm.Click
+        PA = "" : 訂單控制表.Show() : 訂單控制表.BringToFront()
+    End Sub
 End Class

YD-ERP-SYS/YD-ERP-SYS.vbproj

@@ -13,6 +13,7 @@
     <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
     <Deterministic>true</Deterministic>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
     <PublishUrl>publish\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
@@ -25,7 +26,6 @@
     <MapFileExtensions>true</MapFileExtensions>
     <ApplicationRevision>0</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>false</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
@@ -109,7 +109,17 @@
     <Import Include="System.Collections.Generic" />
     <Import Include="System.Data" />
     <Import Include="System.Diagnostics" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.IO" />
     <Import Include="System.Linq" />
+    <Import Include="System.Net" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Windows.Forms.ComponentModel.Com2Interop" />
+    <Import Include="System.Windows.Forms.DataVisualization.Charting" />
+    <Import Include="System.Windows.Forms.Design" />
+    <Import Include="System.Windows.Forms.Layout" />
+    <Import Include="System.Windows.Forms.PropertyGridInternal" />
+    <Import Include="System.Windows.Forms.VisualStyles" />
     <Import Include="System.Xml.Linq" />
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
@@ -144,12 +154,30 @@
     <Compile Include="倉儲系統管理\倉儲控制表.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="倉儲系統管理\盤盈盤損控制表.Designer.vb">
+      <DependentUpon>盤盈盤損控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="倉儲系統管理\盤盈盤損控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="倉儲系統管理\盤盈盤損申請.Designer.vb">
       <DependentUpon>盤盈盤損申請.vb</DependentUpon>
     </Compile>
     <Compile Include="倉儲系統管理\盤盈盤損申請.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="倉儲系統管理\盤盈盤損審核_倉儲調整.Designer.vb">
+      <DependentUpon>盤盈盤損審核_倉儲調整.vb</DependentUpon>
+    </Compile>
+    <Compile Include="倉儲系統管理\盤盈盤損審核_倉儲調整.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="採購系統管理\一般性申請採購單.Designer.vb">
+      <DependentUpon>一般性申請採購單.vb</DependentUpon>
+    </Compile>
+    <Compile Include="採購系統管理\一般性申請採購單.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="業務系統管理\客戶資料表.Designer.vb">
       <DependentUpon>客戶資料表.vb</DependentUpon>
     </Compile>
@@ -168,6 +196,24 @@
     <Compile Include="倉儲系統管理\物料檔案.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="業務系統管理\訂單控制表.Designer.vb">
+      <DependentUpon>訂單控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="業務系統管理\訂單控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="業務系統管理\銷售單審核.Designer.vb">
+      <DependentUpon>銷售單審核.vb</DependentUpon>
+    </Compile>
+    <Compile Include="業務系統管理\銷售單審核.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="業務系統管理\銷售單申請.Designer.vb">
+      <DependentUpon>銷售單申請.vb</DependentUpon>
+    </Compile>
+    <Compile Include="業務系統管理\銷售單申請.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
     </Compile>
@@ -245,9 +291,18 @@
     <EmbeddedResource Include="倉儲系統管理\倉儲控制表.resx">
       <DependentUpon>倉儲控制表.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="倉儲系統管理\盤盈盤損控制表.resx">
+      <DependentUpon>盤盈盤損控制表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="倉儲系統管理\盤盈盤損申請.resx">
       <DependentUpon>盤盈盤損申請.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="倉儲系統管理\盤盈盤損審核_倉儲調整.resx">
+      <DependentUpon>盤盈盤損審核_倉儲調整.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="採購系統管理\一般性申請採購單.resx">
+      <DependentUpon>一般性申請採購單.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="業務系統管理\客戶資料表.resx">
       <DependentUpon>客戶資料表.vb</DependentUpon>
     </EmbeddedResource>
@@ -257,6 +312,15 @@
     <EmbeddedResource Include="倉儲系統管理\物料檔案.resx">
       <DependentUpon>物料檔案.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="業務系統管理\訂單控制表.resx">
+      <DependentUpon>訂單控制表.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="業務系統管理\銷售單審核.resx">
+      <DependentUpon>銷售單審核.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="業務系統管理\銷售單申請.resx">
+      <DependentUpon>銷售單申請.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
     </EmbeddedResource>
@@ -310,6 +374,7 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="logo__01_POH_icon.ico" />
+    <None Include="圖片\check.png" />
     <None Include="圖片\pen.png" />
     <None Include="圖片\Report.png" />
     <None Include="圖片比例用\100.png" />

YD-ERP-SYS/bin/Debug/YD-ERP-SYS.xml

@@ -542,6 +542,11 @@ YD-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.check">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:YD_ERP_SYS.My.Resources.Resources.LOGO__01">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-f3d69159d40a299546e15f13ab711599f144bb43
+41d8a155d5386b1918f4f601df6b2389efd7ade2

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -27,3 +27,9 @@ G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.reso
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損申請.resources
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲控制表.resources
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲分區控制表.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損控制表.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單申請.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核_倉儲調整.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單審核.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.xml

@@ -542,6 +542,11 @@ YD-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.check">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:YD_ERP_SYS.My.Resources.Resources.LOGO__01">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

YD-ERP-SYS/倉儲系統管理/倉儲控制表.Designer.vb

@@ -22,14 +22,41 @@ Partial Class 倉儲控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.控制表_dgv = New System.Windows.Forms.DataGridView()
         Me.明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.物料圖_pb = New System.Windows.Forms.PictureBox()
+        Me.品名_tb = New System.Windows.Forms.TextBox()
+        Me.料號_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.資料筆數1_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.訂製_tb = New System.Windows.Forms.TextBox()
+        Me.狀態_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.資料筆數_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.倉庫_tb = New System.Windows.Forms.TextBox()
+        Me.指定倉庫_cb = New System.Windows.Forms.ComboBox()
+        Me.指定倉庫_lb = New System.Windows.Forms.Label()
+        Me.倉儲狀態_cb = New System.Windows.Forms.ComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.跑馬燈_tb = New System.Windows.Forms.TextBox()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.清空_bt = New System.Windows.Forms.Button()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '控制表_dgv
@@ -41,13 +68,13 @@ Partial Class 倉儲控制表
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.控制表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.控制表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.控制表_dgv.Location = New System.Drawing.Point(4, 80)
+        Me.控制表_dgv.Location = New System.Drawing.Point(517, 4)
         Me.控制表_dgv.Name = "控制表_dgv"
         Me.控制表_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.控制表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.控制表_dgv.RowTemplate.Height = 24
-        Me.控制表_dgv.Size = New System.Drawing.Size(1340, 308)
+        Me.控制表_dgv.Size = New System.Drawing.Size(825, 407)
         Me.控制表_dgv.TabIndex = 1039
         '
         '明細表_dgv
@@ -57,22 +84,290 @@ Partial Class 倉儲控制表
         Me.明細表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.明細表_dgv.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders
         Me.明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細表_dgv.Location = New System.Drawing.Point(4, 394)
+        Me.明細表_dgv.Location = New System.Drawing.Point(4, 439)
         Me.明細表_dgv.Name = "明細表_dgv"
         Me.明細表_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.明細表_dgv.RowTemplate.Height = 24
-        Me.明細表_dgv.Size = New System.Drawing.Size(1338, 250)
+        Me.明細表_dgv.Size = New System.Drawing.Size(1338, 203)
         Me.明細表_dgv.TabIndex = 1040
         '
+        '物料圖_pb
+        '
+        Me.物料圖_pb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料圖_pb.Location = New System.Drawing.Point(4, 4)
+        Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.物料圖_pb.Name = "物料圖_pb"
+        Me.物料圖_pb.Size = New System.Drawing.Size(507, 298)
+        Me.物料圖_pb.TabIndex = 1151
+        Me.物料圖_pb.TabStop = False
+        '
+        '品名_tb
+        '
+        Me.品名_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.品名_tb.Location = New System.Drawing.Point(65, 384)
+        Me.品名_tb.Name = "品名_tb"
+        Me.品名_tb.Size = New System.Drawing.Size(332, 23)
+        Me.品名_tb.TabIndex = 1152
+        '
+        '料號_tb
+        '
+        Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.料號_tb.Location = New System.Drawing.Point(263, 355)
+        Me.料號_tb.Name = "料號_tb"
+        Me.料號_tb.Size = New System.Drawing.Size(134, 23)
+        Me.料號_tb.TabIndex = 1153
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label9.Location = New System.Drawing.Point(467, 416)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.TabIndex = 1182
+        Me.Label9.Text = "筆資料"
+        '
+        '資料筆數1_tb
+        '
+        Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(425, 413)
+        Me.資料筆數1_tb.Name = "資料筆數1_tb"
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數1_tb.TabIndex = 1181
+        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label10.Location = New System.Drawing.Point(403, 416)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.TabIndex = 1180
+        Me.Label10.Text = "共"
+        '
+        '訂製_tb
+        '
+        Me.訂製_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.訂製_tb.Location = New System.Drawing.Point(65, 413)
+        Me.訂製_tb.Name = "訂製_tb"
+        Me.訂製_tb.Size = New System.Drawing.Size(134, 23)
+        Me.訂製_tb.TabIndex = 1183
+        '
+        '狀態_tb
+        '
+        Me.狀態_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.狀態_tb.Location = New System.Drawing.Point(263, 413)
+        Me.狀態_tb.Name = "狀態_tb"
+        Me.狀態_tb.Size = New System.Drawing.Size(134, 23)
+        Me.狀態_tb.TabIndex = 1184
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label3.Location = New System.Drawing.Point(1298, 416)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 1187
+        Me.Label3.Text = "筆資料"
+        '
+        '資料筆數_tb
+        '
+        Me.資料筆數_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.資料筆數_tb.Location = New System.Drawing.Point(1229, 413)
+        Me.資料筆數_tb.Name = "資料筆數_tb"
+        Me.資料筆數_tb.Size = New System.Drawing.Size(64, 23)
+        Me.資料筆數_tb.TabIndex = 1186
+        Me.資料筆數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label4.Location = New System.Drawing.Point(1207, 416)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1185
+        Me.Label4.Text = "共"
+        '
+        '倉庫_tb
+        '
+        Me.倉庫_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.倉庫_tb.Location = New System.Drawing.Point(65, 355)
+        Me.倉庫_tb.Name = "倉庫_tb"
+        Me.倉庫_tb.Size = New System.Drawing.Size(134, 23)
+        Me.倉庫_tb.TabIndex = 1188
+        '
+        '指定倉庫_cb
+        '
+        Me.指定倉庫_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.指定倉庫_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.指定倉庫_cb.FormattingEnabled = True
+        Me.指定倉庫_cb.Items.AddRange(New Object() {"2019"})
+        Me.指定倉庫_cb.Location = New System.Drawing.Point(65, 309)
+        Me.指定倉庫_cb.Name = "指定倉庫_cb"
+        Me.指定倉庫_cb.Size = New System.Drawing.Size(134, 24)
+        Me.指定倉庫_cb.TabIndex = 1189
+        '
+        '指定倉庫_lb
+        '
+        Me.指定倉庫_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.指定倉庫_lb.AutoSize = True
+        Me.指定倉庫_lb.Location = New System.Drawing.Point(7, 313)
+        Me.指定倉庫_lb.Name = "指定倉庫_lb"
+        Me.指定倉庫_lb.Size = New System.Drawing.Size(56, 16)
+        Me.指定倉庫_lb.TabIndex = 1190
+        Me.指定倉庫_lb.Text = "庫存區域"
+        '
+        '倉儲狀態_cb
+        '
+        Me.倉儲狀態_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.倉儲狀態_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.倉儲狀態_cb.FormattingEnabled = True
+        Me.倉儲狀態_cb.Items.AddRange(New Object() {"2019"})
+        Me.倉儲狀態_cb.Location = New System.Drawing.Point(263, 309)
+        Me.倉儲狀態_cb.Name = "倉儲狀態_cb"
+        Me.倉儲狀態_cb.Size = New System.Drawing.Size(134, 24)
+        Me.倉儲狀態_cb.TabIndex = 1191
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(205, 313)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.TabIndex = 1192
+        Me.Label12.Text = "倉儲狀態"
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(7, 358)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1193
+        Me.Label1.Text = "倉        名"
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(205, 358)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 1194
+        Me.Label2.Text = "料        號"
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(7, 387)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1195
+        Me.Label5.Text = "品        名"
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(7, 416)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1196
+        Me.Label6.Text = "訂        制"
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(205, 416)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.TabIndex = 1197
+        Me.Label7.Text = "狀        態"
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(7, 336)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(508, 16)
+        Me.Label8.TabIndex = 1198
+        Me.Label8.Text = "---------------------------------------------------------------------------------" &
+    "-------------------"
+        '
+        '跑馬燈_tb
+        '
+        Me.跑馬燈_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.跑馬燈_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.跑馬燈_tb.ForeColor = System.Drawing.Color.Red
+        Me.跑馬燈_tb.Location = New System.Drawing.Point(4, 646)
+        Me.跑馬燈_tb.Name = "跑馬燈_tb"
+        Me.跑馬燈_tb.Size = New System.Drawing.Size(1338, 29)
+        Me.跑馬燈_tb.TabIndex = 1199
+        Me.跑馬燈_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Timer1
+        '
+        '
+        '清空_bt
+        '
+        Me.清空_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.清空_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.清空_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.清空_bt.Location = New System.Drawing.Point(403, 309)
+        Me.清空_bt.Name = "清空_bt"
+        Me.清空_bt.Size = New System.Drawing.Size(63, 24)
+        Me.清空_bt.TabIndex = 1200
+        Me.清空_bt.Text = "清除"
+        Me.清空_bt.UseVisualStyleBackColor = True
+        '
         '倉儲控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1349, 681)
+        Me.Controls.Add(Me.清空_bt)
+        Me.Controls.Add(Me.跑馬燈_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.倉儲狀態_cb)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.指定倉庫_cb)
+        Me.Controls.Add(Me.指定倉庫_lb)
+        Me.Controls.Add(Me.倉庫_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.資料筆數_tb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.狀態_tb)
+        Me.Controls.Add(Me.訂製_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.資料筆數1_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.料號_tb)
+        Me.Controls.Add(Me.品名_tb)
+        Me.Controls.Add(Me.物料圖_pb)
         Me.Controls.Add(Me.控制表_dgv)
         Me.Controls.Add(Me.明細表_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -81,10 +376,37 @@ Partial Class 倉儲控制表
         Me.Text = "倉儲控制表"
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents 控制表_dgv As Windows.Forms.DataGridView
     Friend WithEvents 明細表_dgv As Windows.Forms.DataGridView
+    Friend WithEvents 物料圖_pb As PictureBox
+    Friend WithEvents 品名_tb As TextBox
+    Friend WithEvents 料號_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 資料筆數1_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 訂製_tb As TextBox
+    Friend WithEvents 狀態_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 資料筆數_tb As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 倉庫_tb As TextBox
+    Friend WithEvents 指定倉庫_cb As ComboBox
+    Friend WithEvents 指定倉庫_lb As Label
+    Friend WithEvents 倉儲狀態_cb As ComboBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 跑馬燈_tb As TextBox
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents 清空_bt As Button
 End Class

YD-ERP-SYS/倉儲系統管理/倉儲控制表.resx

@@ -117,4 +117,10 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>19, 7</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>43</value>
+  </metadata>
 </root>

YD-ERP-SYS/倉儲系統管理/倉儲控制表.vb

@@ -9,268 +9,345 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
-Imports System.Windows.Forms
-
 Public Class 倉儲控制表
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds12 As New DataSet
-    Dim xlApp As Microsoft.Office.Interop.Excel.Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
-    Dim KKKK As String : Dim 物料規格 As String : Dim 比例 As Integer : ReadOnly 對話框(3) As String : Dim N1 As Integer
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
+    Dim KKKK As String : Dim 比例 As Integer : Dim N1 As Integer
+    Dim 首次開啟 As Boolean = False
     Private Sub Set_清單()
         控制表_dgv.DataSource = Nothing : ds.Clear()
         控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        控制表_dgv.ColumnHeadersHeight = 25
+        控制表_dgv.ColumnHeadersHeight = 40
         控制表_dgv.AllowUserToAddRows = False
         控制表_dgv.RowTemplate.Height = 35
 
         SQL_倉儲控制表_控制表()
         da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        'If 低網速模式 = False Then
-        '    控制表_dgv.Columns(26).FillWeight = 60 : 控制表_dgv.Columns(26).Visible = True
-        '    Dim mycol As DataGridViewImageColumn = 控制表_dgv.Columns("圖檔")
-        '    mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
-        'Else
-        '    If 控制表_dgv.Columns.Count = 27 Then
-        '        控制表_dgv.Columns(26).Visible = False
-        '    End If
-        'End If
-        'Dim myco2 As DataGridViewImageColumn = 控制表_dgv.Columns("" & 表頭(82) & "")
-        'myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
+        控制表_dgv.Columns(0).FillWeight = 120 : 控制表_dgv.Columns(1).FillWeight = 140 : 控制表_dgv.Columns(2).FillWeight = 100 : 控制表_dgv.Columns(3).FillWeight = 350
+        控制表_dgv.Columns(4).FillWeight = 200 : 控制表_dgv.Columns(5).FillWeight = 100 : 控制表_dgv.Columns(6).FillWeight = 80 : 控制表_dgv.Columns(7).FillWeight = 80
+        控制表_dgv.Columns(8).FillWeight = 80 : 控制表_dgv.Columns(9).FillWeight = 80 : 控制表_dgv.Columns(10).FillWeight = 80 : 控制表_dgv.Columns(11).FillWeight = 100
+        控制表_dgv.Columns(12).FillWeight = 50 : 控制表_dgv.Columns(13).Visible = False : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False
+        控制表_dgv.Columns(16).Visible = False
+
+        控制表_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
+        控制表_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns("可領用").DefaultCellStyle.Format = "#,##0"
+        控制表_dgv.Columns("最低庫存量").DefaultCellStyle.Format = "#,##0"
+        控制表_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("可領用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("最低庫存量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("可領用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        控制表_dgv.Columns("最低庫存量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 控制表_dgv.Rows.Count : 跑馬燈_tb.Text = ""
+
+        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
+            資料數 = 控制表_dgv.Rows.Count : MyModule1.進度條()
+            If 控制表_dgv("倉名", i).Value.ToString = "" Then
+                If 控制表_dgv("倉名1", i).Value.ToString <> "" Then
+                    控制表_dgv("倉名", i).Value = 控制表_dgv("倉名1", i).Value.ToString
+                ElseIf 控制表_dgv("倉名2", i).Value.ToString <> "" Then
+                    控制表_dgv("倉名", i).Value = 控制表_dgv("倉名2", i).Value.ToString
+                ElseIf 控制表_dgv("倉名3", i).Value.ToString <> "" Then
+                    控制表_dgv("倉名", i).Value = 控制表_dgv("倉名3", i).Value.ToString
+                End If
+            End If
+
+            If 控制表_dgv("庫存", i).Value.ToString = "" Then : 控制表_dgv("庫存", i).Value = 0 : End If
+            If 控制表_dgv("未入庫", i).Value.ToString = "" Then : 控制表_dgv("未入庫", i).Value = 0 : End If
+            If 控制表_dgv("未出庫", i).Value.ToString = "" Then : 控制表_dgv("未出庫", i).Value = 0 : End If
+            If 控制表_dgv("可領用", i).Value.ToString = "" Then : 控制表_dgv("可領用", i).Value = 0 : End If
+
+            If 控制表_dgv("倉名", i).Value.ToString <> "" And Val(控制表_dgv("庫存", i).Value) - Val(控制表_dgv("未出庫", i).Value) + Val(控制表_dgv("未入庫", i).Value) = 0 Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+            控制表_dgv("可領用", i).Value = 控制表_dgv("庫存", i).Value + 控制表_dgv("未入庫", i).Value - 控制表_dgv("未出庫", i).Value
+            If 控制表_dgv("可領用", i).Value.ToString = "0" Then : 控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
+
+            Dim myco2 As DataGridViewImageColumn = 控制表_dgv.Columns("庫存比例")
+            myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
+            '-------------------------背景顏色----------------------------------------------------------------------------------------------------------------------------------------
+            If Val(控制表_dgv("庫存", i).Value) + Val(控制表_dgv("未入庫", i).Value) - Val(控制表_dgv("未出庫", i).Value) = 0 Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(控制表_dgv("庫存", i).Value) = 0 And (Val(控制表_dgv("未入庫", i).Value) <> 0 Or Val(控制表_dgv("未出庫", i).Value) <> 0) Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(控制表_dgv("庫存", i).Value) + Val(控制表_dgv("未入庫", i).Value) - Val(控制表_dgv("未出庫", i).Value) <> 0 Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+            '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
+            If 控制表_dgv.Rows(i).Cells("物料狀態").Value = "0" Then
+                跑馬燈_tb.Text = 跑馬燈_tb.Text & 控制表_dgv.Rows(i).Cells("料號").Value & "-" & 控制表_dgv.Rows(i).Cells("品名").Value &
+                                 "-" & 控制表_dgv.Rows(i).Cells("訂製").Value & " - 數量為 : " & String.Format(Val(控制表_dgv.Rows(i).Cells("可領用").Value), "#,##0") &
+                                 "_ 請注意重點銷售 --------"
+            End If
+            Timer1.Interval = 250 : Timer1.Enabled = True
+            '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
+            If 控制表_dgv.Rows(i).Cells("最低庫存量").Value = 0 Then
+                If 控制表_dgv.Rows(i).Cells("可領用").Value = 0 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._000
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 1 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._001
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 2 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._002
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 3 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._003
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 4 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._004
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 5 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._005
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 6 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._006
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 7 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._007
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 8 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._008
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 9 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._009
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 10 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._010
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 11 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._011
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 12 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._012
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 13 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._013
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 14 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._014
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 15 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._015
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 16 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._016
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 17 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._017
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 18 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._018
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 19 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._019
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 20 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._020
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 21 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._021
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 22 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._022
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 23 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._023
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 24 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._024
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 25 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._025
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 26 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._026
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 27 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._027
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 28 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._028
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 29 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._029
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 30 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._030
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 31 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._031
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 32 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._032
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 33 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._033
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 34 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._034
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 35 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._035
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 36 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._036
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 37 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._037
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 38 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._038
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 39 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._039
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 40 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._040
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 41 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._041
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 42 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._042
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 43 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._043
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 44 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._044
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 45 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._045
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 46 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._046
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 47 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._047
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 48 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._048
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 49 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._049
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 50 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._050
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 51 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._051
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 52 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._052
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 53 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._053
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 54 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._054
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 55 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._055
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 56 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._056
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 57 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._057
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 58 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._058
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 59 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._059
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 60 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._060
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 61 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._061
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 62 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._062
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 63 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._063
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 64 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._064
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 65 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._065
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 66 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._066
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 67 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._067
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 68 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._068
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 69 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._069
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 70 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._070
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 71 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._071
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 72 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._072
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 73 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._073
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 74 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._074
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 75 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._075
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 76 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._076
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 77 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._077
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 78 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._078
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 79 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._079
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 80 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._080
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 81 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._081
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 82 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._082
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 83 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._083
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 84 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._084
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 85 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._085
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 86 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._086
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 87 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._087
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 88 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._088
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 89 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._089
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 90 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._090
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 91 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._091
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 92 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._092
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 93 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._093
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 94 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._094
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 95 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._095
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 96 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._096
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 97 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._097
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 98 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._098
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value = 99 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._099
+                ElseIf 控制表_dgv.Rows(i).Cells("可領用").Value >= 100 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._100 : End If
+            Else
+                比例 = 控制表_dgv.Rows(i).Cells("可領用").Value / (控制表_dgv.Rows(i).Cells("最低庫存量").Value * 10) * 100
+                If 比例 > 100 Then : 比例 = 100 : End If
+                If 比例 = 0 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._000 : ElseIf 比例 = 1 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._001
+                ElseIf 比例 = 2 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._002 : ElseIf 比例 = 3 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._003
+                ElseIf 比例 = 4 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._004 : ElseIf 比例 = 5 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._005
+                ElseIf 比例 = 6 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._006 : ElseIf 比例 = 7 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._007
+                ElseIf 比例 = 8 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._008 : ElseIf 比例 = 9 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._009
+                ElseIf 比例 = 10 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._010 : ElseIf 比例 = 11 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._011
+                ElseIf 比例 = 12 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._012 : ElseIf 比例 = 13 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._013
+                ElseIf 比例 = 14 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._014 : ElseIf 比例 = 15 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._015
+                ElseIf 比例 = 16 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._016 : ElseIf 比例 = 17 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._017
+                ElseIf 比例 = 18 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._018 : ElseIf 比例 = 19 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._019
+                ElseIf 比例 = 20 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._020 : ElseIf 比例 = 21 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._021
+                ElseIf 比例 = 22 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._022 : ElseIf 比例 = 23 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._023
+                ElseIf 比例 = 24 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._024 : ElseIf 比例 = 25 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._025
+                ElseIf 比例 = 26 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._026 : ElseIf 比例 = 27 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._027
+                ElseIf 比例 = 28 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._028 : ElseIf 比例 = 29 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._029
+                ElseIf 比例 = 30 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._030 : ElseIf 比例 = 31 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._031
+                ElseIf 比例 = 32 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._032 : ElseIf 比例 = 33 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._033
+                ElseIf 比例 = 34 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._034 : ElseIf 比例 = 35 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._035
+                ElseIf 比例 = 36 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._036 : ElseIf 比例 = 37 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._037
+                ElseIf 比例 = 38 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._038 : ElseIf 比例 = 39 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._039
+                ElseIf 比例 = 40 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._040 : ElseIf 比例 = 41 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._041
+                ElseIf 比例 = 42 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._042 : ElseIf 比例 = 43 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._043
+                ElseIf 比例 = 44 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._044 : ElseIf 比例 = 45 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._045
+                ElseIf 比例 = 46 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._046 : ElseIf 比例 = 47 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._047
+                ElseIf 比例 = 48 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._048 : ElseIf 比例 = 49 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._049
+                ElseIf 比例 = 50 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._050 : ElseIf 比例 = 51 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._051
+                ElseIf 比例 = 52 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._052 : ElseIf 比例 = 53 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._053
+                ElseIf 比例 = 54 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._054 : ElseIf 比例 = 55 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._055
+                ElseIf 比例 = 56 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._056 : ElseIf 比例 = 57 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._057
+                ElseIf 比例 = 58 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._058 : ElseIf 比例 = 59 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._059
+                ElseIf 比例 = 60 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._060 : ElseIf 比例 = 61 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._061
+                ElseIf 比例 = 62 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._062 : ElseIf 比例 = 63 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._063
+                ElseIf 比例 = 64 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._064 : ElseIf 比例 = 65 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._065
+                ElseIf 比例 = 66 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._066 : ElseIf 比例 = 67 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._067
+                ElseIf 比例 = 68 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._068 : ElseIf 比例 = 69 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._069
+                ElseIf 比例 = 70 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._070 : ElseIf 比例 = 71 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._071
+                ElseIf 比例 = 72 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._072 : ElseIf 比例 = 73 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._073
+                ElseIf 比例 = 74 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._074 : ElseIf 比例 = 75 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._075
+                ElseIf 比例 = 76 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._076 : ElseIf 比例 = 77 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._077
+                ElseIf 比例 = 78 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._078 : ElseIf 比例 = 79 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._079
+                ElseIf 比例 = 80 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._080 : ElseIf 比例 = 81 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._081
+                ElseIf 比例 = 82 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._082 : ElseIf 比例 = 83 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._083
+                ElseIf 比例 = 84 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._084 : ElseIf 比例 = 85 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._085
+                ElseIf 比例 = 86 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._086 : ElseIf 比例 = 87 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._087
+                ElseIf 比例 = 88 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._088 : ElseIf 比例 = 89 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._089
+                ElseIf 比例 = 90 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._090 : ElseIf 比例 = 91 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._091
+                ElseIf 比例 = 92 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._092 : ElseIf 比例 = 93 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._093
+                ElseIf 比例 = 94 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._094 : ElseIf 比例 = 95 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._095
+                ElseIf 比例 = 96 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._096 : ElseIf 比例 = 97 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._097
+                ElseIf 比例 = 98 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._098 : ElseIf 比例 = 99 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._099
+                ElseIf 比例 >= 100 Then : 控制表_dgv.Rows(i).Cells("庫存比例").Value = My.Resources._100 : End If
+            End If
+        Next i : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單1()
+        明細表_dgv.DataSource = Nothing : ds1.Clear()
+        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細表_dgv.ColumnHeadersHeight = 40
+        明細表_dgv.AllowUserToAddRows = False
+        明細表_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : PA19 = 訂製_tb.Text : PA18 = 狀態_tb.Text : PA17 = 倉庫_tb.Text
+        SQL_倉儲控制表_明細()
+        da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        明細表_dgv.Columns(0).FillWeight = 150 : 明細表_dgv.Columns(1).FillWeight = 150 : 明細表_dgv.Columns(2).FillWeight = 100 : 明細表_dgv.Columns(3).FillWeight = 50
+        明細表_dgv.Columns(4).FillWeight = 50 : 明細表_dgv.Columns(5).FillWeight = 350 : 明細表_dgv.Columns(6).FillWeight = 100 : 明細表_dgv.Columns(7).FillWeight = 100
+        明細表_dgv.Columns(8).FillWeight = 100 : 明細表_dgv.Columns(9).FillWeight = 100 : 明細表_dgv.Columns(10).FillWeight = 100 : 明細表_dgv.Columns(11).FillWeight = 100
 
-        控制表_dgv.Columns(0).FillWeight = 100 : 控制表_dgv.Columns(1).FillWeight = 100 : 控制表_dgv.Columns(2).FillWeight = 100 : 控制表_dgv.Columns(3).FillWeight = 100
-        控制表_dgv.Columns(4).FillWeight = 100 : 控制表_dgv.Columns(5).FillWeight = 100 : 控制表_dgv.Columns(6).FillWeight = 100 : 控制表_dgv.Columns(7).FillWeight = 100
-        控制表_dgv.Columns(8).FillWeight = 100 : 控制表_dgv.Columns(9).FillWeight = 100 : 控制表_dgv.Columns(10).FillWeight = 100
+        明細表_dgv.Columns("入庫").DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns("出庫").DefaultCellStyle.Format = "#,##0"
+        明細表_dgv.Columns("入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns("入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns("出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns("出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        控制表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
-        控制表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
-        控制表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        控制表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        控制表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        控制表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(0).ReadOnly = True : 明細表_dgv.Columns(1).ReadOnly = True : 明細表_dgv.Columns(2).ReadOnly = True : 明細表_dgv.Columns(3).ReadOnly = True
+        明細表_dgv.Columns(4).ReadOnly = True : 明細表_dgv.Columns(5).ReadOnly = True : 明細表_dgv.Columns(6).ReadOnly = True : 明細表_dgv.Columns(7).ReadOnly = True
+        明細表_dgv.Columns(8).ReadOnly = True
 
-        '跑馬燈_tb.Text = ""
-        'For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
-        '    資料數 = 控制表_dgv.Rows.Count : MyModule1.進度條()
-        '    '-------------------------庫存狀態數字計算----------------------------------------------------------------------------------------------------------------------------------------
-        '    If 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then
-        '        控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0"
-        '    End If
-        '    If 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then
-        '        控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0"
-        '    End If
-        '    控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value
-        '    '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
-        '    If 控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value <= 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value / 100 * 70 Then
-        '        跑馬燈_tb.Text = 跑馬燈_tb.Text & " " & 表頭(77) & " : " & 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value &
-        '                         "_" & 表頭(81) & " : " & String.Format(控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value, "#,##0") & "_" & 對話框(0) & "  ---"
-        '    End If
-        '    Timer1.Interval = 250 : Timer1.Enabled = True
-        '    '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
-        '    If i = 0 Then
-        '        PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value
-        '        SQL_規格庫抬頭讀取()
-        '        If dr.Read() Then
-        '            AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
-        '        End If
-        '        conn.Close()
-        '    Else
-        '        If 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
-        '            PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value
-        '            SQL_規格庫抬頭讀取()
-        '            If dr.Read() Then
-        '                AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
-        '            End If
-        '            conn.Close()
-        '        End If
-        '    End If
-        '    If 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB03" Then
-        '        物料規格 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value & " - " & AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value &
-        '                            " - " & AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value
-        '    ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB04" Then
-        '        物料規格 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value & " - " & AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value &
-        '                            " - " & AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value & " - " & AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value
-        '    ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB05" Then
-        '        物料規格 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value & " - " & AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value &
-        '                            " - " & AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value & " - " & AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value &
-        '                            " - " & AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value
-        '    ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB06" Then
-        '        物料規格 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value & " - " & AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value &
-        '                            " - " & AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value & " - " & AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value &
-        '                            " - " & AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value & " - " & AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value
-        '    ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB07" Then
-        '        物料規格 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value & " - " & AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value &
-        '                            " - " & AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value & " - " & AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value &
-        '                            " - " & AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value & " - " & AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value &
-        '                            " - " & AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value
-        '    ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB08" Then
-        '        物料規格 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value & " - " & AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value &
-        '                            " - " & AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value & " - " & AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value &
-        '                            " - " & AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value & " - " & AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value &
-        '                            " - " & AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value & " - " & AAA8 & "=" & 控制表_dgv.Rows(i).Cells("A8").Value
-        '    End If
-        '    控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value = 物料規格
-        '    '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
-        '    If 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then
-        '        If 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 0 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._000
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 1 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._001
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 2 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._002
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 3 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._003
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 4 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._004
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 5 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._005
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 6 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._006
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 7 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._007
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 8 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._008
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 9 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._009
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 10 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._010
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 11 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._011
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 12 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._012
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 13 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._013
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 14 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._014
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 15 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._015
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 16 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._016
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 17 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._017
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 18 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._018
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 19 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._019
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 20 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._020
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 21 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._021
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 22 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._022
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 23 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._023
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 24 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._024
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 25 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._025
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 26 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._026
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 27 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._027
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 28 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._028
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 29 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._029
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 30 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._030
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 31 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._031
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 32 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._032
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 33 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._033
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 34 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._034
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 35 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._035
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 36 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._036
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 37 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._037
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 38 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._038
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 39 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._039
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 40 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._040
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 41 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._041
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 42 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._042
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 43 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._043
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 44 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._044
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 45 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._045
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 46 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._046
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 47 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._047
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 48 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._048
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 49 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._049
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 50 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._050
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 51 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._051
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 52 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._052
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 53 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._053
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 54 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._054
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 55 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._055
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 56 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._056
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 57 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._057
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 58 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._058
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 59 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._059
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 60 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._060
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 61 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._061
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 62 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._062
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 63 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._063
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 64 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._064
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 65 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._065
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 66 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._066
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 67 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._067
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 68 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._068
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 69 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._069
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 70 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._070
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 71 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._071
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 72 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._072
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 73 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._073
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 74 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._074
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 75 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._075
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 76 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._076
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 77 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._077
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 78 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._078
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 79 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._079
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 80 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._080
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 81 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._081
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 82 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._082
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 83 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._083
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 84 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._084
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 85 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._085
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 86 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._086
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 87 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._087
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 88 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._088
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 89 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._089
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 90 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._090
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 91 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._091
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 92 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._092
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 93 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._093
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 94 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._094
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 95 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._095
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 96 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._096
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 97 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._097
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 98 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._098
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 99 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._099
-        '        ElseIf 控制表_dgv.Rows(i).Cells(表頭(81)).Value >= 100 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._100 : End If
-        '    Else
-        '        比例 = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / (控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100
-        '        If 比例 > 100 Then : 比例 = 100 : End If
-        '        If 比例 = 0 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._000 : ElseIf 比例 = 1 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._001
-        '        ElseIf 比例 = 2 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._002 : ElseIf 比例 = 3 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._003
-        '        ElseIf 比例 = 4 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._004 : ElseIf 比例 = 5 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._005
-        '        ElseIf 比例 = 6 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._006 : ElseIf 比例 = 7 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._007
-        '        ElseIf 比例 = 8 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._008 : ElseIf 比例 = 9 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._009
-        '        ElseIf 比例 = 10 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._010 : ElseIf 比例 = 11 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._011
-        '        ElseIf 比例 = 12 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._012 : ElseIf 比例 = 13 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._013
-        '        ElseIf 比例 = 14 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._014 : ElseIf 比例 = 15 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._015
-        '        ElseIf 比例 = 16 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._016 : ElseIf 比例 = 17 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._017
-        '        ElseIf 比例 = 18 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._018 : ElseIf 比例 = 19 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._019
-        '        ElseIf 比例 = 20 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._020 : ElseIf 比例 = 21 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._021
-        '        ElseIf 比例 = 22 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._022 : ElseIf 比例 = 23 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._023
-        '        ElseIf 比例 = 24 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._024 : ElseIf 比例 = 25 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._025
-        '        ElseIf 比例 = 26 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._026 : ElseIf 比例 = 27 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._027
-        '        ElseIf 比例 = 28 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._028 : ElseIf 比例 = 29 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._029
-        '        ElseIf 比例 = 30 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._030 : ElseIf 比例 = 31 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._031
-        '        ElseIf 比例 = 32 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._032 : ElseIf 比例 = 33 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._033
-        '        ElseIf 比例 = 34 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._034 : ElseIf 比例 = 35 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._035
-        '        ElseIf 比例 = 36 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._036 : ElseIf 比例 = 37 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._037
-        '        ElseIf 比例 = 38 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._038 : ElseIf 比例 = 39 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._039
-        '        ElseIf 比例 = 40 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._040 : ElseIf 比例 = 41 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._041
-        '        ElseIf 比例 = 42 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._042 : ElseIf 比例 = 43 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._043
-        '        ElseIf 比例 = 44 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._044 : ElseIf 比例 = 45 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._045
-        '        ElseIf 比例 = 46 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._046 : ElseIf 比例 = 47 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._047
-        '        ElseIf 比例 = 48 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._048 : ElseIf 比例 = 49 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._049
-        '        ElseIf 比例 = 50 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._050 : ElseIf 比例 = 51 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._051
-        '        ElseIf 比例 = 52 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._052 : ElseIf 比例 = 53 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._053
-        '        ElseIf 比例 = 54 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._054 : ElseIf 比例 = 55 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._055
-        '        ElseIf 比例 = 56 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._056 : ElseIf 比例 = 57 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._057
-        '        ElseIf 比例 = 58 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._058 : ElseIf 比例 = 59 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._059
-        '        ElseIf 比例 = 60 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._060 : ElseIf 比例 = 61 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._061
-        '        ElseIf 比例 = 62 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._062 : ElseIf 比例 = 63 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._063
-        '        ElseIf 比例 = 64 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._064 : ElseIf 比例 = 65 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._065
-        '        ElseIf 比例 = 66 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._066 : ElseIf 比例 = 67 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._067
-        '        ElseIf 比例 = 68 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._068 : ElseIf 比例 = 69 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._069
-        '        ElseIf 比例 = 70 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._070 : ElseIf 比例 = 71 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._071
-        '        ElseIf 比例 = 72 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._072 : ElseIf 比例 = 73 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._073
-        '        ElseIf 比例 = 74 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._074 : ElseIf 比例 = 75 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._075
-        '        ElseIf 比例 = 76 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._076 : ElseIf 比例 = 77 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._077
-        '        ElseIf 比例 = 78 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._078 : ElseIf 比例 = 79 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._079
-        '        ElseIf 比例 = 80 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._080 : ElseIf 比例 = 81 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._081
-        '        ElseIf 比例 = 82 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._082 : ElseIf 比例 = 83 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._083
-        '        ElseIf 比例 = 84 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._084 : ElseIf 比例 = 85 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._085
-        '        ElseIf 比例 = 86 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._086 : ElseIf 比例 = 87 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._087
-        '        ElseIf 比例 = 88 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._088 : ElseIf 比例 = 89 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._089
-        '        ElseIf 比例 = 90 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._090 : ElseIf 比例 = 91 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._091
-        '        ElseIf 比例 = 92 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._092 : ElseIf 比例 = 93 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._093
-        '        ElseIf 比例 = 94 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._094 : ElseIf 比例 = 95 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._095
-        '        ElseIf 比例 = 96 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._096 : ElseIf 比例 = 97 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._097
-        '        ElseIf 比例 = 98 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._098 : ElseIf 比例 = 99 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._099
-        '        ElseIf 比例 >= 100 Then : 控制表_dgv.Rows(i).Cells(表頭(82)).Value = My.Resources._100 : End If
-        '    End If
-        'Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        資料筆數1_tb.Text = 明細表_dgv.Rows.Count
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        SQL_倉名_下拉清單() : 指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : End While : conn.Close()
     End Sub
     Private Sub 倉儲控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        首次開啟 = False : 指定倉庫_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : Set_清單() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String
+        '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）---
+        文字旋轉 = Mid(s & s & s, Len(s) - (v Mod Len(s)) + 1, Len(s))
+    End Function
+    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+        If 跑馬燈_tb.Text = "" Then
+            Timer1.Enabled = False
+        Else
+            跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text, -1)
+        End If
+    End Sub
+    Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellEnter
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 控制表_dgv("料號", e.RowIndex).Value.ToString : 訂製_tb.Text = 控制表_dgv("訂製", e.RowIndex).Value.ToString
+                品名_tb.Text = 控制表_dgv("品名", e.RowIndex).Value.ToString : 狀態_tb.Text = 控制表_dgv("狀態", e.RowIndex).Value.ToString
+                倉庫_tb.Text = 控制表_dgv("倉名", e.RowIndex).Value.ToString
+
+                Set_清單1()
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+            End If
+        End If
+    End Sub
+    Private Sub 控制表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 控制表_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 控制表_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 控制表_dgv("供應商", e.RowIndex).Value.ToString <> 控制表_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(控制表_dgv.RowHeadersVisible, 控制表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 控制表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 控制表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
+            If Val(控制表_dgv("庫存", i).Value) + Val(控制表_dgv("未入庫", i).Value) - Val(控制表_dgv("未出庫", i).Value) = 0 Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(控制表_dgv("庫存", i).Value) = 0 And (Val(控制表_dgv("未入庫", i).Value) <> 0 Or Val(控制表_dgv("未出庫", i).Value) <> 0) Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(控制表_dgv("庫存", i).Value) + Val(控制表_dgv("未入庫", i).Value) - Val(控制表_dgv("未出庫", i).Value) <> 0 Then
+                控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
         Set_清單()
     End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        Set_清單()
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        指定倉庫_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : Set_清單()
+    End Sub
 End Class

YD-ERP-SYS/倉儲系統管理/物料檔案.Designer.vb

@@ -187,7 +187,6 @@ Partial Class 物料檔案
         '
         Me.供應商_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.供應商_cb.FormattingEnabled = True
-        Me.供應商_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
         Me.供應商_cb.Location = New System.Drawing.Point(60, 31)
         Me.供應商_cb.Name = "供應商_cb"
         Me.供應商_cb.Size = New System.Drawing.Size(182, 24)
@@ -207,7 +206,6 @@ Partial Class 物料檔案
         '
         Me.供應商編碼_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.供應商編碼_cb.FormattingEnabled = True
-        Me.供應商編碼_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
         Me.供應商編碼_cb.Location = New System.Drawing.Point(383, 31)
         Me.供應商編碼_cb.Name = "供應商編碼_cb"
         Me.供應商編碼_cb.Size = New System.Drawing.Size(76, 24)

YD-ERP-SYS/倉儲系統管理/物料檔案.vb

@@ -1,8 +1,4 @@
-Imports System.Windows.Forms
-Imports System.IO
-Imports System.Net
-Imports System.Drawing
-
+
 Public Class 物料檔案
     ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Dim 資料新增判斷 As Boolean : Dim EDR As Integer = 0 : Dim ESTR As String : Dim 首次開啟 As Boolean = False
@@ -59,7 +55,7 @@ Public Class 物料檔案
             PA20 = 料號_tb.Text : SQL_物料檔案_刪除() '--------------------資料刪除
         End If
     End Sub
-    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellEnter
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
         If 首次開啟 = True Then
             If e.RowIndex = -1 Then : Else
                 料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString

YD-ERP-SYS/倉儲系統管理/盤盈盤損審核_倉儲調整.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>24, 10</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>38</value>
+  </metadata>
+</root>

YD-ERP-SYS/倉儲系統管理/盤盈盤損審核_倉儲調整.vb

@@ -0,0 +1,426 @@
+Option Strict Off
+Public Class 盤盈盤損審核_倉儲調整
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim NUM1 As Integer : Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_清單()
+        物料清單_dgv.DataSource = Nothing : ds.Clear()
+        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料清單_dgv.ColumnHeadersHeight = 40
+        物料清單_dgv.AllowUserToAddRows = False
+        物料清單_dgv.RowTemplate.Height = 35
+
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
+        SQL_盤盈盤損申請_物料清單()
+        da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
+
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True
+
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
+            If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
+            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
+            If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單2()
+        調庫單據_dgv.DataSource = Nothing : ds2.Clear()
+        調庫單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫單據_dgv.ColumnHeadersHeight = 25
+        調庫單據_dgv.AllowUserToAddRows = False
+        調庫單據_dgv.RowTemplate.Height = 25
+
+        SQL_盤盈盤損申請_單據()
+        da.Fill(ds2) : 調庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        調庫單據_dgv.Columns(0).FillWeight = 200 : 調庫單據_dgv.Columns(1).Visible = False : 調庫單據_dgv.Columns(2).Visible = False
+        調庫單據_dgv.Columns(0).ReadOnly = True : 調庫單據_dgv.Columns(1).ReadOnly = True : 調庫單據_dgv.Columns(2).ReadOnly = True
+    End Sub
+    Private Sub Set_清單1()
+        調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+        調庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫明細_dgv.ColumnHeadersHeight = 40
+        調庫明細_dgv.AllowUserToAddRows = False
+        調庫明細_dgv.RowTemplate.Height = 35
+
+        PA20 = 調庫單號_tb.Text
+        SQL_盤盈盤損申請_明細()
+        da.Fill(ds1) : 調庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        調庫明細_dgv.Columns(0).Visible = False : 調庫明細_dgv.Columns(1).FillWeight = 100 : 調庫明細_dgv.Columns(2).FillWeight = 100 : 調庫明細_dgv.Columns(3).FillWeight = 75
+        調庫明細_dgv.Columns(4).FillWeight = 200 : 調庫明細_dgv.Columns(5).FillWeight = 100 : 調庫明細_dgv.Columns(6).FillWeight = 100 : 調庫明細_dgv.Columns(7).FillWeight = 50
+        調庫明細_dgv.Columns(8).FillWeight = 50 : 調庫明細_dgv.Columns(9).FillWeight = 75 : 調庫明細_dgv.Columns(10).FillWeight = 100 : 調庫明細_dgv.Columns(11).FillWeight = 35
+
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Format = "#,##0" : 調庫明細_dgv.Columns("盤損").DefaultCellStyle.Format = "#,##0"
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤盈").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        調庫明細_dgv.Columns(1).ReadOnly = True : 調庫明細_dgv.Columns(2).ReadOnly = True : 調庫明細_dgv.Columns(3).ReadOnly = True : 調庫明細_dgv.Columns(4).ReadOnly = True
+        調庫明細_dgv.Columns(5).ReadOnly = True : 調庫明細_dgv.Columns(6).ReadOnly = True : 調庫明細_dgv.Columns(9).ReadOnly = True : 調庫明細_dgv.Columns(11).ReadOnly = True
+
+        調庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 調庫明細_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub 地區碼_下拉表單資料載入()
+        SQL_地區碼_下拉清單() : 地區_cb.Items.Clear() : 地區編碼_cb.Items.Clear()
+        While (dr.Read()) : 地區_cb.Items.Add(dr("地區")) : 地區編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = "" : BL1 = 精準查詢_ch.Checked : PA3 = 地區編碼_cb.Text : PA4 = 地區_cb.Text
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
+    End Sub
+    Private Sub 盤盈盤損確認_倉儲調整_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        地區編碼_cb.Enabled = False : 料號_tb.Enabled = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+        地區碼_下拉表單資料載入() : 供應商_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單2() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        End If
+    End Sub
+    Private Sub 調庫單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            調庫單號_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("執行單號").Value : 申請人_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請人").Value
+            申請日期_dtp.Value = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請日期").Value
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellEndEdit
+        If (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) = 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) = 0) Or
+             (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) <> 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) <> 0) Then
+            MsgBox("盤營與盤損不能同時為零或同時有數量")
+            Set_清單1()
+            Exit Sub
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            項次_tb.Text = 調庫明細_dgv(0, e.RowIndex).Value.ToString
+            物料圖1_pb.Image = Nothing : PA1 = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
+        地區編碼_cb.SelectedIndex = 地區_cb.SelectedIndex : 供應商_下拉表單資料載入()
+    End Sub
+    Private Sub 地區編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區編碼_cb.SelectedIndexChanged
+        地區_cb.SelectedIndex = 地區編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        地區碼_下拉表單資料載入() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+    End Sub
+    Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
+        PA = 查詢_tb.Text : Set_清單()
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
+        PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
+        If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 盤損數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 盤損數_nud.ValueChanged
+        If 盤損數_nud.Value > 0 Then
+            盤盈數_nud.Value = 0
+            If 盤損數_nud.Value > Val(庫存量_tb.Text) Then
+                MsgBox("盤損數量不可能大於目前的庫存量!!")
+                盤損數_nud.Value = 0
+            End If
+        End If
+    End Sub
+    Private Sub 盤盈數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 盤盈數_nud.ValueChanged
+        If 盤盈數_nud.Value > 0 Then
+            盤損數_nud.Value = 0
+        End If
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("請先選擇未審核的庫存調整單!!")
+        Else
+            If 料號_tb.Text = "" Then
+                MsgBox("請選擇物料，調整庫存需要指定物料!!")
+            Else
+                If 儲態編號_cb.Text = "" Then
+                    MsgBox("倉儲狀態是一定要選擇的!!")
+                Else
+                    If 訂製狀態_cb.Text = "" Then
+                        MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                    Else
+                        If 盤損數_nud.Value > Val(庫存量_tb.Text) Then
+                            MsgBox("盤損數量不可能小於庫存數量!!")
+                            盤損數_nud.Value = 0
+                        Else
+                            If 盤損數_nud.Value = 0 And 盤盈數_nud.Value = 0 Then
+                                MsgBox("盤盈盤損最少選一種，兩者都為零是不容許的!!")
+                            Else
+                                PA1 = 調庫單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                                SQL_倉儲明細表_確認單據是否申請()
+                                If dr.Read() Then
+                                    conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
+                                Else
+                                    SQL_倉儲明細表_最後一筆資料()
+                                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                                    conn.Close() : EDR += 1
+                                    If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR
+                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                                    ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                                    PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 盤盈數_nud.Value : NU2 = 盤損數_nud.Value
+                                    PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text
+                                    If 盤盈數_nud.Value = 0 And 盤損數_nud.Value > 0 Then
+                                        SQL_盤盈盤損申請_倉儲明細表_盤損出庫新增()
+                                    ElseIf 盤盈數_nud.Value > 0 And 盤損數_nud.Value = 0 Then
+                                        SQL_盤盈盤損申請_倉儲明細表_盤盈入庫新增()
+                                    End If : conn.Close()
+                                    Set_清單1() : Set_清單2() : Set_清單()
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 調庫單號_tb.Text = "" Or 料號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            For i As Integer = 0 To 調庫明細_dgv.Rows.Count - 1
+                資料數 = 調庫明細_dgv.Rows.Count : MyModule1.進度條()
+                PA10 = 調庫明細_dgv.Rows(i).Cells("備註").Value : PA11 = 調庫明細_dgv.Rows(i).Cells("資料流水號").Value
+                NU1 = 調庫明細_dgv.Rows(i).Cells("盤盈").Value : NU2 = 調庫明細_dgv.Rows(i).Cells("盤損").Value
+                SQL_倉儲明細表_出入庫及修改() : conn.Close()
+            Next
+            MsgBox("存檔完成!!") : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            Set_清單1() : Set_清單2()
+        End If
+    End Sub
+    Private Sub 刪除請購單上點選資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            If 項次_tb.Text = "" Then
+                MsgBox("沒有選擇要刪除的明細!!")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA1 = 項次_tb.Text : SQL_倉儲明細表_刪除二() : conn.Close()
+                    Set_清單1()
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這張庫存調整單?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            PA1 = 調庫單號_tb.Text : SQL_倉儲明細表_刪除() : SQL_倉儲明細執行單號_刪除() : conn.Close()
+            調庫單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
+            調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+            Set_清單2()
+        End If
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub 審核通過_bt_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            Set_日期格式轉換() : PA10 = gUserName : PA9 = gUserName : PA11 = 調庫單號_tb.Text : DTP2 = DTP
+            SQL_倉儲明細表_盤盈盤損審核() : Set_清單2() : Set_清單1() : conn.Close()
+            MsgBox("單據 " & 調庫單號_tb.Text & " 審核完成!!") : 申請人_tb.Text = "" : 申請日期_dtp.Value = Today() : 調庫單號_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            Set_日期格式轉換() : PA10 = "作廢 - " & gUserName : PA9 = "" : PA11 = 調庫單號_tb.Text : DTP2 = ""
+            SQL_倉儲明細表_盤盈盤損審核() : Set_清單2() : Set_清單1() : conn.Close()
+            MsgBox("單據 " & 調庫單號_tb.Text & " 已作廢!!") : 申請人_tb.Text = "" : 申請日期_dtp.Value = Today() : 調庫單號_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 需要全部庫存區域清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 需要全部庫存區域清單_ch.CheckedChanged
+        指定倉庫_cb_下拉表單資料載入()
+    End Sub
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
+        清空_bt.PerformClick() : Set_清單2() : Set_清單1()
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_tsm_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_tsm.Click
+        選定內容加入庫存調整申請單_bt.PerformClick()
+    End Sub
+    Private Sub 存檔_tsm_Click(sender As Object, e As EventArgs) Handles 存檔_tsm.Click
+        存檔_bt.PerformClick()
+    End Sub
+    Private Sub 刪除庫存調整單據上點選的資料_tsm_Click(sender As Object, e As EventArgs) Handles 刪除庫存調整單據上點選的資料_tsm.Click
+        刪除單據上點選的資料_bt.PerformClick()
+    End Sub
+    Private Sub 刪除庫存調整單據_tsm_Click(sender As Object, e As EventArgs) Handles 刪除庫存調整單據_tsm.Click
+        刪除_bt.PerformClick()
+    End Sub
+    Private Sub 審核通過_tsm_Click(sender As Object, e As EventArgs) Handles 審核通過_tsm.Click
+        審核通過_bt.PerformClick()
+    End Sub
+    Private Sub 單據作廢_tsm_Click(sender As Object, e As EventArgs) Handles 單據作廢_tsm.Click
+        單據作廢_tsm.PerformClick()
+    End Sub
+End Class

YD-ERP-SYS/倉儲系統管理/盤盈盤損控制表.Designer.vb

@@ -0,0 +1,256 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 盤盈盤損控制表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.調庫單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.申請人_lb = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.申請日期_lb = New System.Windows.Forms.Label()
+        Me.調庫單號_tb = New System.Windows.Forms.TextBox()
+        Me.倉儲單號_lb = New System.Windows.Forms.Label()
+        Me.調庫明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.資料筆數1_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.資料筆數_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        CType(Me.調庫單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.調庫明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '調庫單據_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.調庫單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.調庫單據_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.調庫單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.調庫單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.調庫單據_dgv.Location = New System.Drawing.Point(12, 9)
+        Me.調庫單據_dgv.Name = "調庫單據_dgv"
+        Me.調庫單據_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.調庫單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.調庫單據_dgv.RowTemplate.Height = 24
+        Me.調庫單據_dgv.Size = New System.Drawing.Size(585, 133)
+        Me.調庫單據_dgv.TabIndex = 1153
+        '
+        '物料圖1_pb
+        '
+        Me.物料圖1_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.物料圖1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.物料圖1_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料圖1_pb.Location = New System.Drawing.Point(12, 173)
+        Me.物料圖1_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.物料圖1_pb.Name = "物料圖1_pb"
+        Me.物料圖1_pb.Size = New System.Drawing.Size(585, 496)
+        Me.物料圖1_pb.TabIndex = 1204
+        Me.物料圖1_pb.TabStop = False
+        '
+        '申請日期_dtp
+        '
+        Me.申請日期_dtp.Enabled = False
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.申請日期_dtp.Location = New System.Drawing.Point(1059, 9)
+        Me.申請日期_dtp.Name = "申請日期_dtp"
+        Me.申請日期_dtp.Size = New System.Drawing.Size(102, 23)
+        Me.申請日期_dtp.TabIndex = 1202
+        '
+        '申請人_lb
+        '
+        Me.申請人_lb.AutoSize = True
+        Me.申請人_lb.Location = New System.Drawing.Point(835, 12)
+        Me.申請人_lb.Name = "申請人_lb"
+        Me.申請人_lb.Size = New System.Drawing.Size(56, 16)
+        Me.申請人_lb.TabIndex = 1201
+        Me.申請人_lb.Text = "申  請  人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Enabled = False
+        Me.申請人_tb.Location = New System.Drawing.Point(892, 9)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(104, 23)
+        Me.申請人_tb.TabIndex = 1200
+        '
+        '申請日期_lb
+        '
+        Me.申請日期_lb.AutoSize = True
+        Me.申請日期_lb.Location = New System.Drawing.Point(1002, 12)
+        Me.申請日期_lb.Name = "申請日期_lb"
+        Me.申請日期_lb.Size = New System.Drawing.Size(56, 16)
+        Me.申請日期_lb.TabIndex = 1199
+        Me.申請日期_lb.Text = "申請日期"
+        '
+        '調庫單號_tb
+        '
+        Me.調庫單號_tb.Enabled = False
+        Me.調庫單號_tb.Location = New System.Drawing.Point(664, 9)
+        Me.調庫單號_tb.Name = "調庫單號_tb"
+        Me.調庫單號_tb.Size = New System.Drawing.Size(165, 23)
+        Me.調庫單號_tb.TabIndex = 1197
+        '
+        '倉儲單號_lb
+        '
+        Me.倉儲單號_lb.AutoSize = True
+        Me.倉儲單號_lb.Location = New System.Drawing.Point(606, 12)
+        Me.倉儲單號_lb.Name = "倉儲單號_lb"
+        Me.倉儲單號_lb.Size = New System.Drawing.Size(56, 16)
+        Me.倉儲單號_lb.TabIndex = 1198
+        Me.倉儲單號_lb.Text = "執行單號"
+        '
+        '調庫明細_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.調庫明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.調庫明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.調庫明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.調庫明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.調庫明細_dgv.Location = New System.Drawing.Point(603, 38)
+        Me.調庫明細_dgv.Name = "調庫明細_dgv"
+        Me.調庫明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.調庫明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.調庫明細_dgv.RowTemplate.Height = 24
+        Me.調庫明細_dgv.Size = New System.Drawing.Size(735, 631)
+        Me.調庫明細_dgv.TabIndex = 1203
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label9.Location = New System.Drawing.Point(1294, 12)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.TabIndex = 1207
+        Me.Label9.Text = "筆資料"
+        '
+        '資料筆數1_tb
+        '
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1252, 9)
+        Me.資料筆數1_tb.Name = "資料筆數1_tb"
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數1_tb.TabIndex = 1206
+        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label10.Location = New System.Drawing.Point(1230, 12)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.TabIndex = 1205
+        Me.Label10.Text = "共"
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label3.Location = New System.Drawing.Point(553, 149)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 1210
+        Me.Label3.Text = "筆資料"
+        '
+        '資料筆數_tb
+        '
+        Me.資料筆數_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.資料筆數_tb.Location = New System.Drawing.Point(484, 146)
+        Me.資料筆數_tb.Name = "資料筆數_tb"
+        Me.資料筆數_tb.Size = New System.Drawing.Size(64, 23)
+        Me.資料筆數_tb.TabIndex = 1209
+        Me.資料筆數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label4.Location = New System.Drawing.Point(462, 149)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1208
+        Me.Label4.Text = "共"
+        '
+        '盤盈盤損控制表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.資料筆數_tb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.資料筆數1_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.物料圖1_pb)
+        Me.Controls.Add(Me.申請日期_dtp)
+        Me.Controls.Add(Me.申請人_lb)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.申請日期_lb)
+        Me.Controls.Add(Me.調庫單號_tb)
+        Me.Controls.Add(Me.倉儲單號_lb)
+        Me.Controls.Add(Me.調庫明細_dgv)
+        Me.Controls.Add(Me.調庫單據_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "盤盈盤損控制表"
+        Me.Text = "盤盈盤損控制表"
+        CType(Me.調庫單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.調庫明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 調庫單據_dgv As DataGridView
+    Friend WithEvents 物料圖1_pb As PictureBox
+    Friend WithEvents 申請日期_dtp As DateTimePicker
+    Friend WithEvents 申請人_lb As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 申請日期_lb As Label
+    Friend WithEvents 調庫單號_tb As TextBox
+    Friend WithEvents 倉儲單號_lb As Label
+    Friend WithEvents 調庫明細_dgv As DataGridView
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 資料筆數1_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 資料筆數_tb As TextBox
+    Friend WithEvents Label4 As Label
+End Class

YD-ERP-SYS/倉儲系統管理/盤盈盤損控制表.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/倉儲系統管理/盤盈盤損控制表.vb

@@ -0,0 +1,77 @@
+Option Strict Off
+Public Class 盤盈盤損控制表
+    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Private Sub Set_清單2()
+        調庫單據_dgv.DataSource = Nothing : ds2.Clear()
+        調庫單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫單據_dgv.ColumnHeadersHeight = 25
+        調庫單據_dgv.AllowUserToAddRows = False
+        調庫單據_dgv.RowTemplate.Height = 25
+
+        SQL_盤盈盤損控制表_單據()
+        da.Fill(ds2) : 調庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        資料筆數_tb.Text = 調庫單據_dgv.Rows.Count
+
+        調庫單據_dgv.Columns(0).FillWeight = 150 : 調庫單據_dgv.Columns(1).FillWeight = 100 : 調庫單據_dgv.Columns(2).FillWeight = 100 : 調庫單據_dgv.Columns(2).FillWeight = 150
+        調庫單據_dgv.Columns(2).FillWeight = 100 : 調庫單據_dgv.Columns(2).FillWeight = 100 : 調庫單據_dgv.Columns(2).FillWeight = 100
+        調庫單據_dgv.Columns(0).ReadOnly = True : 調庫單據_dgv.Columns(1).ReadOnly = True : 調庫單據_dgv.Columns(2).ReadOnly = True : 調庫單據_dgv.Columns(3).ReadOnly = True
+        調庫單據_dgv.Columns(4).ReadOnly = True : 調庫單據_dgv.Columns(5).ReadOnly = True : 調庫單據_dgv.Columns(6).ReadOnly = True
+    End Sub
+    Private Sub Set_清單1()
+        調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+        調庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫明細_dgv.ColumnHeadersHeight = 40
+        調庫明細_dgv.AllowUserToAddRows = False
+        調庫明細_dgv.RowTemplate.Height = 35
+
+        PA20 = 調庫單號_tb.Text
+        SQL_盤盈盤損申請_明細()
+        da.Fill(ds1) : 調庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        調庫明細_dgv.Columns(0).Visible = False : 調庫明細_dgv.Columns(1).FillWeight = 100 : 調庫明細_dgv.Columns(2).FillWeight = 100 : 調庫明細_dgv.Columns(3).FillWeight = 75
+        調庫明細_dgv.Columns(4).FillWeight = 200 : 調庫明細_dgv.Columns(5).FillWeight = 100 : 調庫明細_dgv.Columns(6).FillWeight = 100 : 調庫明細_dgv.Columns(7).FillWeight = 50
+        調庫明細_dgv.Columns(8).FillWeight = 50 : 調庫明細_dgv.Columns(9).FillWeight = 75 : 調庫明細_dgv.Columns(10).FillWeight = 100 : 調庫明細_dgv.Columns(11).FillWeight = 35
+
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Format = "#,##0" : 調庫明細_dgv.Columns("盤損").DefaultCellStyle.Format = "#,##0"
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤盈").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        調庫明細_dgv.Columns(1).ReadOnly = True : 調庫明細_dgv.Columns(2).ReadOnly = True : 調庫明細_dgv.Columns(3).ReadOnly = True : 調庫明細_dgv.Columns(4).ReadOnly = True
+        調庫明細_dgv.Columns(5).ReadOnly = True : 調庫明細_dgv.Columns(6).ReadOnly = True : 調庫明細_dgv.Columns(9).ReadOnly = True : 調庫明細_dgv.Columns(11).ReadOnly = True
+
+        調庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 調庫明細_dgv.Rows.Count
+    End Sub
+    Private Sub 盤盈盤損控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Set_清單2()
+    End Sub
+    Private Sub 調庫單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            調庫單號_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("執行單號").Value : 申請人_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請人").Value
+            申請日期_dtp.Value = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請日期").Value
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            物料圖1_pb.Image = Nothing : PA1 = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+End Class

YD-ERP-SYS/倉儲系統管理/盤盈盤損申請.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class 盤盈盤損申請
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,14 +20,17 @@ Partial Class 盤盈盤損申請
     '注意: 以下為 Windows Form 設計工具所需的程序
     '可以使用 Windows Form 設計工具進行修改。
     '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.物料清單_dgv = New System.Windows.Forms.DataGridView()
         Me.精準查詢_ch = New System.Windows.Forms.CheckBox()
         Me.品名_tb = New System.Windows.Forms.TextBox()
@@ -45,7 +48,6 @@ Partial Class 盤盈盤損申請
         Me.清空_bt = New System.Windows.Forms.Button()
         Me.地區_cb = New System.Windows.Forms.ComboBox()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.物料圖_pb = New System.Windows.Forms.PictureBox()
         Me.供應商編碼_tb = New System.Windows.Forms.TextBox()
         Me.調庫單據_dgv = New System.Windows.Forms.DataGridView()
         Me.未審核_lb = New System.Windows.Forms.Label()
@@ -60,25 +62,58 @@ Partial Class 盤盈盤損申請
         Me.項次_lb = New System.Windows.Forms.Label()
         Me.選擇_lb = New System.Windows.Forms.Label()
         Me.指定倉庫_lb = New System.Windows.Forms.Label()
-        Me.倉庫級別_lb = New System.Windows.Forms.Label()
-        Me.倉庫編號_lb = New System.Windows.Forms.Label()
         Me.申請人_lb = New System.Windows.Forms.Label()
         Me.申請人_tb = New System.Windows.Forms.TextBox()
         Me.申請日期_lb = New System.Windows.Forms.Label()
         Me.調庫單號_tb = New System.Windows.Forms.TextBox()
         Me.倉儲單號_lb = New System.Windows.Forms.Label()
         Me.調庫明細_dgv = New System.Windows.Forms.DataGridView()
-        Me.刪除請購單上點選資料_bt = New System.Windows.Forms.Button()
+        Me.刪除單據上點選的資料_bt = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.資料筆數_tb = New System.Windows.Forms.TextBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.資料筆數1_tb = New System.Windows.Forms.TextBox()
         Me.Label10 = New System.Windows.Forms.Label()
+        Me.訂製狀態_cb = New System.Windows.Forms.ComboBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.訂製編碼_cb = New System.Windows.Forms.ComboBox()
+        Me.儲態編號_cb = New System.Windows.Forms.ComboBox()
+        Me.倉儲狀態_cb = New System.Windows.Forms.ComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.盤盈數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.盤損數_lb = New System.Windows.Forms.Label()
+        Me.可申請_tb = New System.Windows.Forms.TextBox()
+        Me.最大庫存量_tb = New System.Windows.Forms.TextBox()
+        Me.庫存量_tb = New System.Windows.Forms.TextBox()
+        Me.盤損數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.盤盈數_lb = New System.Windows.Forms.Label()
+        Me.庫存量_lb = New System.Windows.Forms.Label()
+        Me.最大庫存量_lb = New System.Windows.Forms.Label()
+        Me.可盤損數_lb = New System.Windows.Forms.Label()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.開立庫存調整單_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.選定內容加入庫存調整申請單_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.存檔_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.刪除庫存調整單據上點選的資料_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.刪除庫存調整單據_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
+        Me.物料圖_pb = New System.Windows.Forms.PictureBox()
+        Me.需要全部庫存區域清單_ch = New System.Windows.Forms.CheckBox()
+        Me.區域庫存_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.物料清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.調庫單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.調庫明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.盤盈數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.盤損數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '物料清單_dgv
@@ -89,14 +124,14 @@ Partial Class 盤盈盤損申請
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.物料清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.物料清單_dgv.Location = New System.Drawing.Point(8, 81)
+        Me.物料清單_dgv.Location = New System.Drawing.Point(4, 80)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(529, 258)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(602, 235)
         Me.物料清單_dgv.TabIndex = 1028
         '
         '精準查詢_ch
@@ -150,7 +185,7 @@ Partial Class 盤盈盤損申請
         '
         Me.Label29.AutoSize = True
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label29.Location = New System.Drawing.Point(353, 32)
+        Me.Label29.Location = New System.Drawing.Point(324, 32)
         Me.Label29.Name = "Label29"
         Me.Label29.Size = New System.Drawing.Size(68, 16)
         Me.Label29.TabIndex = 1144
@@ -158,9 +193,9 @@ Partial Class 盤盈盤損申請
         '
         '查詢_tb
         '
-        Me.查詢_tb.Location = New System.Drawing.Point(423, 29)
+        Me.查詢_tb.Location = New System.Drawing.Point(392, 29)
         Me.查詢_tb.Name = "查詢_tb"
-        Me.查詢_tb.Size = New System.Drawing.Size(114, 23)
+        Me.查詢_tb.Size = New System.Drawing.Size(145, 23)
         Me.查詢_tb.TabIndex = 1143
         '
         '供應商編碼_cb
@@ -208,7 +243,7 @@ Partial Class 盤盈盤損申請
         Me.地區編碼_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.地區編碼_cb.FormattingEnabled = True
         Me.地區編碼_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.地區編碼_cb.Location = New System.Drawing.Point(258, 30)
+        Me.地區編碼_cb.Location = New System.Drawing.Point(258, 28)
         Me.地區編碼_cb.Name = "地區編碼_cb"
         Me.地區編碼_cb.Size = New System.Drawing.Size(40, 24)
         Me.地區編碼_cb.TabIndex = 1138
@@ -253,18 +288,6 @@ Partial Class 盤盈盤損申請
         Me.Label2.TabIndex = 1134
         Me.Label2.Text = "地區"
         '
-        '物料圖_pb
-        '
-        Me.物料圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(8, 377)
-        Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(529, 299)
-        Me.物料圖_pb.TabIndex = 1150
-        Me.物料圖_pb.TabStop = False
-        '
         '供應商編碼_tb
         '
         Me.供應商編碼_tb.Location = New System.Drawing.Point(58, 130)
@@ -278,20 +301,20 @@ Partial Class 盤盈盤損申請
         Me.調庫單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.調庫單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.調庫單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.調庫單據_dgv.Location = New System.Drawing.Point(543, 23)
+        Me.調庫單據_dgv.Location = New System.Drawing.Point(609, 24)
         Me.調庫單據_dgv.Name = "調庫單據_dgv"
         Me.調庫單據_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.調庫單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.調庫單據_dgv.RowTemplate.Height = 24
-        Me.調庫單據_dgv.Size = New System.Drawing.Size(198, 92)
+        Me.調庫單據_dgv.Size = New System.Drawing.Size(146, 154)
         Me.調庫單據_dgv.TabIndex = 1152
         '
         '未審核_lb
         '
         Me.未審核_lb.AutoSize = True
-        Me.未審核_lb.Location = New System.Drawing.Point(575, 4)
+        Me.未審核_lb.Location = New System.Drawing.Point(610, 6)
         Me.未審核_lb.Name = "未審核_lb"
         Me.未審核_lb.Size = New System.Drawing.Size(116, 16)
         Me.未審核_lb.TabIndex = 1153
@@ -303,9 +326,9 @@ Partial Class 盤盈盤損申請
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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.Green
-        Me.存檔_bt.Location = New System.Drawing.Point(543, 646)
+        Me.存檔_bt.Location = New System.Drawing.Point(609, 631)
         Me.存檔_bt.Name = "存檔_bt"
-        Me.存檔_bt.Size = New System.Drawing.Size(624, 30)
+        Me.存檔_bt.Size = New System.Drawing.Size(735, 45)
         Me.存檔_bt.TabIndex = 1172
         Me.存檔_bt.Text = "存檔"
         Me.存檔_bt.UseVisualStyleBackColor = True
@@ -315,9 +338,9 @@ Partial Class 盤盈盤損申請
         Me.選定內容加入庫存調整申請單_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         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.Green
-        Me.選定內容加入庫存調整申請單_bt.Location = New System.Drawing.Point(8, 344)
+        Me.選定內容加入庫存調整申請單_bt.Location = New System.Drawing.Point(416, 631)
         Me.選定內容加入庫存調整申請單_bt.Name = "選定內容加入庫存調整申請單_bt"
-        Me.選定內容加入庫存調整申請單_bt.Size = New System.Drawing.Size(529, 30)
+        Me.選定內容加入庫存調整申請單_bt.Size = New System.Drawing.Size(190, 45)
         Me.選定內容加入庫存調整申請單_bt.TabIndex = 1171
         Me.選定內容加入庫存調整申請單_bt.Text = "選定內容加入庫存調整申請單"
         Me.選定內容加入庫存調整申請單_bt.UseVisualStyleBackColor = True
@@ -326,50 +349,57 @@ 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(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開立庫存調整單_bt.Location = New System.Drawing.Point(743, 55)
+        Me.開立庫存調整單_bt.Location = New System.Drawing.Point(814, 100)
         Me.開立庫存調整單_bt.Name = "開立庫存調整單_bt"
-        Me.開立庫存調整單_bt.Size = New System.Drawing.Size(473, 30)
+        Me.開立庫存調整單_bt.Size = New System.Drawing.Size(165, 51)
         Me.開立庫存調整單_bt.TabIndex = 1170
         Me.開立庫存調整單_bt.Text = "開立庫存調整單"
         Me.開立庫存調整單_bt.UseVisualStyleBackColor = True
         '
         '倉庫編號_tb
         '
-        Me.倉庫編號_tb.Location = New System.Drawing.Point(1125, 2)
+        Me.倉庫編號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.倉庫編號_tb.Location = New System.Drawing.Point(772, 235)
         Me.倉庫編號_tb.Name = "倉庫編號_tb"
-        Me.倉庫編號_tb.Size = New System.Drawing.Size(89, 23)
+        Me.倉庫編號_tb.Size = New System.Drawing.Size(120, 23)
         Me.倉庫編號_tb.TabIndex = 1167
         Me.倉庫編號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.倉庫編號_tb.Visible = False
         '
         '倉庫級別_tb
         '
-        Me.倉庫級別_tb.Location = New System.Drawing.Point(983, 2)
+        Me.倉庫級別_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.倉庫級別_tb.Location = New System.Drawing.Point(772, 210)
         Me.倉庫級別_tb.Name = "倉庫級別_tb"
-        Me.倉庫級別_tb.Size = New System.Drawing.Size(83, 23)
+        Me.倉庫級別_tb.Size = New System.Drawing.Size(120, 23)
         Me.倉庫級別_tb.TabIndex = 1165
         Me.倉庫級別_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.倉庫級別_tb.Visible = False
         '
         '指定倉庫_cb
         '
+        Me.指定倉庫_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.指定倉庫_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.指定倉庫_cb.FormattingEnabled = True
         Me.指定倉庫_cb.Items.AddRange(New Object() {"2019"})
-        Me.指定倉庫_cb.Location = New System.Drawing.Point(799, 2)
+        Me.指定倉庫_cb.Location = New System.Drawing.Point(469, 414)
         Me.指定倉庫_cb.Name = "指定倉庫_cb"
-        Me.指定倉庫_cb.Size = New System.Drawing.Size(130, 24)
+        Me.指定倉庫_cb.Size = New System.Drawing.Size(134, 24)
         Me.指定倉庫_cb.TabIndex = 1163
         '
         '申請日期_dtp
         '
+        Me.申請日期_dtp.Enabled = False
         Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.申請日期_dtp.Location = New System.Drawing.Point(1125, 30)
+        Me.申請日期_dtp.Location = New System.Drawing.Point(814, 76)
         Me.申請日期_dtp.Name = "申請日期_dtp"
-        Me.申請日期_dtp.Size = New System.Drawing.Size(89, 23)
+        Me.申請日期_dtp.Size = New System.Drawing.Size(165, 23)
         Me.申請日期_dtp.TabIndex = 1162
         '
         '項次_tb
         '
-        Me.項次_tb.Location = New System.Drawing.Point(1078, 89)
+        Me.項次_tb.Enabled = False
+        Me.項次_tb.Location = New System.Drawing.Point(792, 154)
         Me.項次_tb.Name = "項次_tb"
         Me.項次_tb.Size = New System.Drawing.Size(104, 23)
         Me.項次_tb.TabIndex = 1161
@@ -377,7 +407,7 @@ Partial Class 盤盈盤損申請
         '項次_lb
         '
         Me.項次_lb.AutoSize = True
-        Me.項次_lb.Location = New System.Drawing.Point(1184, 93)
+        Me.項次_lb.Location = New System.Drawing.Point(899, 157)
         Me.項次_lb.Name = "項次_lb"
         Me.項次_lb.Size = New System.Drawing.Size(32, 16)
         Me.項次_lb.TabIndex = 1160
@@ -386,7 +416,7 @@ Partial Class 盤盈盤損申請
         '選擇_lb
         '
         Me.選擇_lb.AutoSize = True
-        Me.選擇_lb.Location = New System.Drawing.Point(1045, 92)
+        Me.選擇_lb.Location = New System.Drawing.Point(759, 157)
         Me.選擇_lb.Name = "選擇_lb"
         Me.選擇_lb.Size = New System.Drawing.Size(32, 16)
         Me.選擇_lb.TabIndex = 1159
@@ -394,51 +424,35 @@ Partial Class 盤盈盤損申請
         '
         '指定倉庫_lb
         '
+        Me.指定倉庫_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.指定倉庫_lb.AutoSize = True
-        Me.指定倉庫_lb.Location = New System.Drawing.Point(744, 6)
+        Me.指定倉庫_lb.Location = New System.Drawing.Point(411, 418)
         Me.指定倉庫_lb.Name = "指定倉庫_lb"
         Me.指定倉庫_lb.Size = New System.Drawing.Size(56, 16)
         Me.指定倉庫_lb.TabIndex = 1164
         Me.指定倉庫_lb.Text = "庫存區域"
         '
-        '倉庫級別_lb
-        '
-        Me.倉庫級別_lb.AutoSize = True
-        Me.倉庫級別_lb.Location = New System.Drawing.Point(938, 5)
-        Me.倉庫級別_lb.Name = "倉庫級別_lb"
-        Me.倉庫級別_lb.Size = New System.Drawing.Size(32, 16)
-        Me.倉庫級別_lb.TabIndex = 1166
-        Me.倉庫級別_lb.Text = "倉級"
-        '
-        '倉庫編號_lb
-        '
-        Me.倉庫編號_lb.AutoSize = True
-        Me.倉庫編號_lb.Location = New System.Drawing.Point(1068, 5)
-        Me.倉庫編號_lb.Name = "倉庫編號_lb"
-        Me.倉庫編號_lb.Size = New System.Drawing.Size(35, 16)
-        Me.倉庫編號_lb.TabIndex = 1168
-        Me.倉庫編號_lb.Text = "倉編 "
-        '
         '申請人_lb
         '
         Me.申請人_lb.AutoSize = True
-        Me.申請人_lb.Location = New System.Drawing.Point(938, 33)
+        Me.申請人_lb.Location = New System.Drawing.Point(757, 53)
         Me.申請人_lb.Name = "申請人_lb"
-        Me.申請人_lb.Size = New System.Drawing.Size(44, 16)
+        Me.申請人_lb.Size = New System.Drawing.Size(56, 16)
         Me.申請人_lb.TabIndex = 1158
-        Me.申請人_lb.Text = "申請人"
+        Me.申請人_lb.Text = "申  請  人"
         '
         '申請人_tb
         '
-        Me.申請人_tb.Location = New System.Drawing.Point(983, 30)
+        Me.申請人_tb.Enabled = False
+        Me.申請人_tb.Location = New System.Drawing.Point(814, 50)
         Me.申請人_tb.Name = "申請人_tb"
-        Me.申請人_tb.Size = New System.Drawing.Size(83, 23)
+        Me.申請人_tb.Size = New System.Drawing.Size(165, 23)
         Me.申請人_tb.TabIndex = 1157
         '
         '申請日期_lb
         '
         Me.申請日期_lb.AutoSize = True
-        Me.申請日期_lb.Location = New System.Drawing.Point(1068, 33)
+        Me.申請日期_lb.Location = New System.Drawing.Point(757, 79)
         Me.申請日期_lb.Name = "申請日期_lb"
         Me.申請日期_lb.Size = New System.Drawing.Size(56, 16)
         Me.申請日期_lb.TabIndex = 1156
@@ -446,15 +460,16 @@ Partial Class 盤盈盤損申請
         '
         '調庫單號_tb
         '
-        Me.調庫單號_tb.Location = New System.Drawing.Point(799, 30)
+        Me.調庫單號_tb.Enabled = False
+        Me.調庫單號_tb.Location = New System.Drawing.Point(814, 23)
         Me.調庫單號_tb.Name = "調庫單號_tb"
-        Me.調庫單號_tb.Size = New System.Drawing.Size(130, 23)
+        Me.調庫單號_tb.Size = New System.Drawing.Size(165, 23)
         Me.調庫單號_tb.TabIndex = 1154
         '
         '倉儲單號_lb
         '
         Me.倉儲單號_lb.AutoSize = True
-        Me.倉儲單號_lb.Location = New System.Drawing.Point(745, 33)
+        Me.倉儲單號_lb.Location = New System.Drawing.Point(756, 26)
         Me.倉儲單號_lb.Name = "倉儲單號_lb"
         Me.倉儲單號_lb.Size = New System.Drawing.Size(56, 16)
         Me.倉儲單號_lb.TabIndex = 1155
@@ -469,32 +484,32 @@ Partial Class 盤盈盤損申請
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.調庫明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.調庫明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.調庫明細_dgv.Location = New System.Drawing.Point(543, 118)
+        Me.調庫明細_dgv.Location = New System.Drawing.Point(609, 183)
         Me.調庫明細_dgv.Name = "調庫明細_dgv"
         Me.調庫明細_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.調庫明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.調庫明細_dgv.RowTemplate.Height = 24
-        Me.調庫明細_dgv.Size = New System.Drawing.Size(801, 526)
+        Me.調庫明細_dgv.Size = New System.Drawing.Size(735, 444)
         Me.調庫明細_dgv.TabIndex = 1169
         '
-        '刪除請購單上點選資料_bt
+        '刪除單據上點選的資料_bt
         '
-        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.Red
-        Me.刪除請購單上點選資料_bt.Location = New System.Drawing.Point(743, 87)
-        Me.刪除請購單上點選資料_bt.Name = "刪除請購單上點選資料_bt"
-        Me.刪除請購單上點選資料_bt.Size = New System.Drawing.Size(286, 30)
-        Me.刪除請購單上點選資料_bt.TabIndex = 1173
-        Me.刪除請購單上點選資料_bt.Text = "刪除請購單上點選資料"
-        Me.刪除請購單上點選資料_bt.UseVisualStyleBackColor = True
+        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.Red
+        Me.刪除單據上點選的資料_bt.Location = New System.Drawing.Point(981, 48)
+        Me.刪除單據上點選的資料_bt.Name = "刪除單據上點選的資料_bt"
+        Me.刪除單據上點選的資料_bt.Size = New System.Drawing.Size(110, 51)
+        Me.刪除單據上點選的資料_bt.TabIndex = 1173
+        Me.刪除單據上點選的資料_bt.Text = "刪除庫存調整單據上點選的資料"
+        Me.刪除單據上點選的資料_bt.UseVisualStyleBackColor = True
         '
         'Label3
         '
         Me.Label3.AutoSize = True
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label3.Location = New System.Drawing.Point(493, 57)
+        Me.Label3.Location = New System.Drawing.Point(563, 57)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 1176
@@ -502,7 +517,7 @@ Partial Class 盤盈盤損申請
         '
         '資料筆數_tb
         '
-        Me.資料筆數_tb.Location = New System.Drawing.Point(423, 54)
+        Me.資料筆數_tb.Location = New System.Drawing.Point(494, 54)
         Me.資料筆數_tb.Name = "資料筆數_tb"
         Me.資料筆數_tb.Size = New System.Drawing.Size(64, 23)
         Me.資料筆數_tb.TabIndex = 1175
@@ -512,7 +527,7 @@ Partial Class 盤盈盤損申請
         '
         Me.Label4.AutoSize = True
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(401, 57)
+        Me.Label4.Location = New System.Drawing.Point(472, 57)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 1174
@@ -520,47 +535,364 @@ Partial Class 盤盈盤損申請
         '
         'Label9
         '
-        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(1300, 653)
+        Me.Label9.Location = New System.Drawing.Point(1047, 157)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(44, 16)
         Me.Label9.TabIndex = 1179
         Me.Label9.Text = "筆資料"
         '
-        'TextBox1
+        '資料筆數1_tb
         '
-        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBox1.Location = New System.Drawing.Point(1199, 650)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(96, 23)
-        Me.TextBox1.TabIndex = 1178
-        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1005, 154)
+        Me.資料筆數1_tb.Name = "資料筆數1_tb"
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數1_tb.TabIndex = 1178
+        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label10
         '
-        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(1173, 653)
+        Me.Label10.Location = New System.Drawing.Point(983, 157)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(20, 16)
         Me.Label10.TabIndex = 1177
         Me.Label10.Text = "共"
         '
+        '訂製狀態_cb
+        '
+        Me.訂製狀態_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.訂製狀態_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.訂製狀態_cb.FormattingEnabled = True
+        Me.訂製狀態_cb.Items.AddRange(New Object() {"2019"})
+        Me.訂製狀態_cb.Location = New System.Drawing.Point(469, 484)
+        Me.訂製狀態_cb.Name = "訂製狀態_cb"
+        Me.訂製狀態_cb.Size = New System.Drawing.Size(134, 24)
+        Me.訂製狀態_cb.TabIndex = 1180
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(411, 487)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.TabIndex = 1181
+        Me.Label11.Text = "訂製狀態"
+        '
+        '訂製編碼_cb
+        '
+        Me.訂製編碼_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.訂製編碼_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.訂製編碼_cb.Enabled = False
+        Me.訂製編碼_cb.FormattingEnabled = True
+        Me.訂製編碼_cb.Items.AddRange(New Object() {"2019"})
+        Me.訂製編碼_cb.Location = New System.Drawing.Point(636, 236)
+        Me.訂製編碼_cb.Name = "訂製編碼_cb"
+        Me.訂製編碼_cb.Size = New System.Drawing.Size(130, 24)
+        Me.訂製編碼_cb.TabIndex = 1182
+        Me.訂製編碼_cb.Visible = False
+        '
+        '儲態編號_cb
+        '
+        Me.儲態編號_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.儲態編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.儲態編號_cb.Enabled = False
+        Me.儲態編號_cb.FormattingEnabled = True
+        Me.儲態編號_cb.Items.AddRange(New Object() {"2019"})
+        Me.儲態編號_cb.Location = New System.Drawing.Point(636, 209)
+        Me.儲態編號_cb.Name = "儲態編號_cb"
+        Me.儲態編號_cb.Size = New System.Drawing.Size(130, 24)
+        Me.儲態編號_cb.TabIndex = 1185
+        Me.儲態編號_cb.Visible = False
+        '
+        '倉儲狀態_cb
+        '
+        Me.倉儲狀態_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.倉儲狀態_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.倉儲狀態_cb.FormattingEnabled = True
+        Me.倉儲狀態_cb.Items.AddRange(New Object() {"2019"})
+        Me.倉儲狀態_cb.Location = New System.Drawing.Point(469, 458)
+        Me.倉儲狀態_cb.Name = "倉儲狀態_cb"
+        Me.倉儲狀態_cb.Size = New System.Drawing.Size(134, 24)
+        Me.倉儲狀態_cb.TabIndex = 1183
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(411, 461)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.TabIndex = 1184
+        Me.Label12.Text = "倉儲狀態"
+        '
+        '盤盈數_nud
+        '
+        Me.盤盈數_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.盤盈數_nud.ForeColor = System.Drawing.Color.Green
+        Me.盤盈數_nud.Location = New System.Drawing.Point(486, 605)
+        Me.盤盈數_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.盤盈數_nud.Name = "盤盈數_nud"
+        Me.盤盈數_nud.Size = New System.Drawing.Size(118, 23)
+        Me.盤盈數_nud.TabIndex = 1195
+        Me.盤盈數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '盤損數_lb
+        '
+        Me.盤損數_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.盤損數_lb.AutoSize = True
+        Me.盤損數_lb.ForeColor = System.Drawing.Color.Green
+        Me.盤損數_lb.Location = New System.Drawing.Point(412, 583)
+        Me.盤損數_lb.Name = "盤損數_lb"
+        Me.盤損數_lb.Size = New System.Drawing.Size(68, 16)
+        Me.盤損數_lb.TabIndex = 1194
+        Me.盤損數_lb.Text = "盤    損    數"
+        '
+        '可申請_tb
+        '
+        Me.可申請_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.可申請_tb.Enabled = False
+        Me.可申請_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.可申請_tb.Location = New System.Drawing.Point(486, 557)
+        Me.可申請_tb.Name = "可申請_tb"
+        Me.可申請_tb.Size = New System.Drawing.Size(118, 23)
+        Me.可申請_tb.TabIndex = 1193
+        Me.可申請_tb.Text = "0"
+        Me.可申請_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '最大庫存量_tb
+        '
+        Me.最大庫存量_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.最大庫存量_tb.Enabled = False
+        Me.最大庫存量_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.最大庫存量_tb.Location = New System.Drawing.Point(486, 533)
+        Me.最大庫存量_tb.Name = "最大庫存量_tb"
+        Me.最大庫存量_tb.Size = New System.Drawing.Size(118, 23)
+        Me.最大庫存量_tb.TabIndex = 1190
+        Me.最大庫存量_tb.Text = "0"
+        Me.最大庫存量_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '庫存量_tb
+        '
+        Me.庫存量_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.庫存量_tb.Enabled = False
+        Me.庫存量_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.庫存量_tb.Location = New System.Drawing.Point(486, 509)
+        Me.庫存量_tb.Name = "庫存量_tb"
+        Me.庫存量_tb.Size = New System.Drawing.Size(118, 23)
+        Me.庫存量_tb.TabIndex = 1188
+        Me.庫存量_tb.Text = "0"
+        Me.庫存量_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '盤損數_nud
+        '
+        Me.盤損數_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.盤損數_nud.ForeColor = System.Drawing.Color.Green
+        Me.盤損數_nud.Location = New System.Drawing.Point(486, 581)
+        Me.盤損數_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.盤損數_nud.Name = "盤損數_nud"
+        Me.盤損數_nud.Size = New System.Drawing.Size(118, 23)
+        Me.盤損數_nud.TabIndex = 1187
+        Me.盤損數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '盤盈數_lb
+        '
+        Me.盤盈數_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.盤盈數_lb.AutoSize = True
+        Me.盤盈數_lb.ForeColor = System.Drawing.Color.Green
+        Me.盤盈數_lb.Location = New System.Drawing.Point(412, 607)
+        Me.盤盈數_lb.Name = "盤盈數_lb"
+        Me.盤盈數_lb.Size = New System.Drawing.Size(68, 16)
+        Me.盤盈數_lb.TabIndex = 1186
+        Me.盤盈數_lb.Text = "盤    盈    數"
+        '
+        '庫存量_lb
+        '
+        Me.庫存量_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.庫存量_lb.AutoSize = True
+        Me.庫存量_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.庫存量_lb.Location = New System.Drawing.Point(412, 512)
+        Me.庫存量_lb.Name = "庫存量_lb"
+        Me.庫存量_lb.Size = New System.Drawing.Size(68, 16)
+        Me.庫存量_lb.TabIndex = 1189
+        Me.庫存量_lb.Text = "庫    存    量"
+        '
+        '最大庫存量_lb
+        '
+        Me.最大庫存量_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.最大庫存量_lb.AutoSize = True
+        Me.最大庫存量_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.最大庫存量_lb.Location = New System.Drawing.Point(412, 536)
+        Me.最大庫存量_lb.Name = "最大庫存量_lb"
+        Me.最大庫存量_lb.Size = New System.Drawing.Size(68, 16)
+        Me.最大庫存量_lb.TabIndex = 1191
+        Me.最大庫存量_lb.Text = "最大庫存量"
+        '
+        '可盤損數_lb
+        '
+        Me.可盤損數_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.可盤損數_lb.AutoSize = True
+        Me.可盤損數_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.可盤損數_lb.Location = New System.Drawing.Point(412, 560)
+        Me.可盤損數_lb.Name = "可盤損數_lb"
+        Me.可盤損數_lb.Size = New System.Drawing.Size(68, 16)
+        Me.可盤損數_lb.TabIndex = 1192
+        Me.可盤損數_lb.Text = "可  盤 損 數"
+        '
+        '刪除_bt
+        '
+        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.Red
+        Me.刪除_bt.Location = New System.Drawing.Point(981, 100)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(110, 51)
+        Me.刪除_bt.TabIndex = 1197
+        Me.刪除_bt.Text = "刪除庫存調整單據"
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理_tsm, Me.ToolStripSeparator1, Me.開立庫存調整單_tsm, Me.選定內容加入庫存調整申請單_tsm, Me.存檔_tsm, Me.ToolStripSeparator9, Me.刪除庫存調整單據上點選的資料_tsm, Me.刪除庫存調整單據_tsm})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(243, 148)
+        '
+        '重新整理_tsm
+        '
+        Me.重新整理_tsm.Name = "重新整理_tsm"
+        Me.重新整理_tsm.Size = New System.Drawing.Size(242, 22)
+        Me.重新整理_tsm.Text = "重新整理"
+        '
+        '開立庫存調整單_tsm
+        '
+        Me.開立庫存調整單_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.開立庫存調整單_tsm.Name = "開立庫存調整單_tsm"
+        Me.開立庫存調整單_tsm.Size = New System.Drawing.Size(242, 22)
+        Me.開立庫存調整單_tsm.Text = "開立庫存調整單"
+        '
+        '選定內容加入庫存調整申請單_tsm
+        '
+        Me.選定內容加入庫存調整申請單_tsm.ForeColor = System.Drawing.Color.Green
+        Me.選定內容加入庫存調整申請單_tsm.Name = "選定內容加入庫存調整申請單_tsm"
+        Me.選定內容加入庫存調整申請單_tsm.Size = New System.Drawing.Size(242, 22)
+        Me.選定內容加入庫存調整申請單_tsm.Text = "選定內容加入庫存調整申請單"
+        '
+        '存檔_tsm
+        '
+        Me.存檔_tsm.ForeColor = System.Drawing.Color.Green
+        Me.存檔_tsm.Name = "存檔_tsm"
+        Me.存檔_tsm.Size = New System.Drawing.Size(242, 22)
+        Me.存檔_tsm.Text = "存檔"
+        '
+        '刪除庫存調整單據上點選的資料_tsm
+        '
+        Me.刪除庫存調整單據上點選的資料_tsm.ForeColor = System.Drawing.Color.Red
+        Me.刪除庫存調整單據上點選的資料_tsm.Name = "刪除庫存調整單據上點選的資料_tsm"
+        Me.刪除庫存調整單據上點選的資料_tsm.Size = New System.Drawing.Size(242, 22)
+        Me.刪除庫存調整單據上點選的資料_tsm.Text = "刪除庫存調整單據上點選的資料"
+        '
+        '刪除庫存調整單據_tsm
+        '
+        Me.刪除庫存調整單據_tsm.ForeColor = System.Drawing.Color.Red
+        Me.刪除庫存調整單據_tsm.Name = "刪除庫存調整單據_tsm"
+        Me.刪除庫存調整單據_tsm.Size = New System.Drawing.Size(242, 22)
+        Me.刪除庫存調整單據_tsm.Text = "刪除庫存調整單據"
+        '
+        'ToolStripSeparator9
+        '
+        Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
+        Me.ToolStripSeparator9.Size = New System.Drawing.Size(239, 6)
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(239, 6)
+        '
+        '物料圖1_pb
+        '
+        Me.物料圖1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.物料圖1_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料圖1_pb.Location = New System.Drawing.Point(1093, 4)
+        Me.物料圖1_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.物料圖1_pb.Name = "物料圖1_pb"
+        Me.物料圖1_pb.Size = New System.Drawing.Size(251, 174)
+        Me.物料圖1_pb.TabIndex = 1196
+        Me.物料圖1_pb.TabStop = False
+        '
+        '物料圖_pb
+        '
+        Me.物料圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料圖_pb.Location = New System.Drawing.Point(4, 318)
+        Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.物料圖_pb.Name = "物料圖_pb"
+        Me.物料圖_pb.Size = New System.Drawing.Size(408, 358)
+        Me.物料圖_pb.TabIndex = 1150
+        Me.物料圖_pb.TabStop = False
+        '
+        '需要全部庫存區域清單_ch
+        '
+        Me.需要全部庫存區域清單_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.需要全部庫存區域清單_ch.AutoSize = True
+        Me.需要全部庫存區域清單_ch.Location = New System.Drawing.Point(437, 438)
+        Me.需要全部庫存區域清單_ch.Name = "需要全部庫存區域清單_ch"
+        Me.需要全部庫存區域清單_ch.Size = New System.Drawing.Size(147, 20)
+        Me.需要全部庫存區域清單_ch.TabIndex = 1199
+        Me.需要全部庫存區域清單_ch.Text = "需要全部庫存區域清單"
+        Me.需要全部庫存區域清單_ch.UseVisualStyleBackColor = True
+        '
+        '區域庫存_dgv
+        '
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.區域庫存_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.區域庫存_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.區域庫存_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.區域庫存_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.區域庫存_dgv.Location = New System.Drawing.Point(415, 318)
+        Me.區域庫存_dgv.Name = "區域庫存_dgv"
+        Me.區域庫存_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.區域庫存_dgv.RowTemplate.Height = 24
+        Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 92)
+        Me.區域庫存_dgv.TabIndex = 1200
+        '
         '盤盈盤損申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1349, 681)
+        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.區域庫存_dgv)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.物料圖1_pb)
+        Me.Controls.Add(Me.盤盈數_nud)
+        Me.Controls.Add(Me.盤損數_lb)
+        Me.Controls.Add(Me.可申請_tb)
+        Me.Controls.Add(Me.最大庫存量_tb)
+        Me.Controls.Add(Me.庫存量_tb)
+        Me.Controls.Add(Me.盤損數_nud)
+        Me.Controls.Add(Me.盤盈數_lb)
+        Me.Controls.Add(Me.庫存量_lb)
+        Me.Controls.Add(Me.最大庫存量_lb)
+        Me.Controls.Add(Me.可盤損數_lb)
+        Me.Controls.Add(Me.儲態編號_cb)
+        Me.Controls.Add(Me.倉儲狀態_cb)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.訂製編碼_cb)
+        Me.Controls.Add(Me.訂製狀態_cb)
+        Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.資料筆數1_tb)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.資料筆數_tb)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.刪除請購單上點選資料_bt)
+        Me.Controls.Add(Me.刪除單據上點選的資料_bt)
         Me.Controls.Add(Me.存檔_bt)
         Me.Controls.Add(Me.選定內容加入庫存調整申請單_bt)
         Me.Controls.Add(Me.開立庫存調整單_bt)
@@ -572,8 +904,6 @@ Partial Class 盤盈盤損申請
         Me.Controls.Add(Me.項次_lb)
         Me.Controls.Add(Me.選擇_lb)
         Me.Controls.Add(Me.指定倉庫_lb)
-        Me.Controls.Add(Me.倉庫級別_lb)
-        Me.Controls.Add(Me.倉庫編號_lb)
         Me.Controls.Add(Me.申請人_lb)
         Me.Controls.Add(Me.申請人_tb)
         Me.Controls.Add(Me.申請日期_lb)
@@ -601,14 +931,20 @@ Partial Class 盤盈盤損申請
         Me.Controls.Add(Me.地區_cb)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.物料清單_dgv)
+        Me.Controls.Add(Me.需要全部庫存區域清單_ch)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "盤盈盤損申請"
         Me.Text = "盤盈盤損申請"
         CType(Me.物料清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.調庫單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.調庫明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.盤盈數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.盤損數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -646,19 +982,46 @@ Partial Class 盤盈盤損申請
     Friend WithEvents 項次_lb As Windows.Forms.Label
     Friend WithEvents 選擇_lb As Windows.Forms.Label
     Friend WithEvents 指定倉庫_lb As Windows.Forms.Label
-    Friend WithEvents 倉庫級別_lb As Windows.Forms.Label
-    Friend WithEvents 倉庫編號_lb As Windows.Forms.Label
     Friend WithEvents 申請人_lb As Windows.Forms.Label
     Friend WithEvents 申請人_tb As Windows.Forms.TextBox
     Friend WithEvents 申請日期_lb As Windows.Forms.Label
     Friend WithEvents 調庫單號_tb As Windows.Forms.TextBox
     Friend WithEvents 倉儲單號_lb As Windows.Forms.Label
     Friend WithEvents 調庫明細_dgv As Windows.Forms.DataGridView
-    Friend WithEvents 刪除請購單上點選資料_bt As Windows.Forms.Button
+    Friend WithEvents 刪除單據上點選的資料_bt As Windows.Forms.Button
     Friend WithEvents Label3 As Windows.Forms.Label
     Friend WithEvents 資料筆數_tb As Windows.Forms.TextBox
     Friend WithEvents Label4 As Windows.Forms.Label
     Friend WithEvents Label9 As Windows.Forms.Label
-    Friend WithEvents TextBox1 As Windows.Forms.TextBox
+    Friend WithEvents 資料筆數1_tb As Windows.Forms.TextBox
     Friend WithEvents Label10 As Windows.Forms.Label
+    Friend WithEvents 訂製狀態_cb As ComboBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 訂製編碼_cb As ComboBox
+    Friend WithEvents 儲態編號_cb As ComboBox
+    Friend WithEvents 倉儲狀態_cb As ComboBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 盤盈數_nud As NumericUpDown
+    Friend WithEvents 盤損數_lb As Label
+    Friend WithEvents 可申請_tb As TextBox
+    Friend WithEvents 最大庫存量_tb As TextBox
+    Friend WithEvents 庫存量_tb As TextBox
+    Friend WithEvents 盤損數_nud As NumericUpDown
+    Friend WithEvents 盤盈數_lb As Label
+    Friend WithEvents 庫存量_lb As Label
+    Friend WithEvents 最大庫存量_lb As Label
+    Friend WithEvents 可盤損數_lb As Label
+    Friend WithEvents 物料圖1_pb As PictureBox
+    Friend WithEvents 刪除_bt As Button
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新整理_tsm As ToolStripMenuItem
+    Friend WithEvents 開立庫存調整單_tsm As ToolStripMenuItem
+    Friend WithEvents 選定內容加入庫存調整申請單_tsm As ToolStripMenuItem
+    Friend WithEvents 存檔_tsm As ToolStripMenuItem
+    Friend WithEvents 刪除庫存調整單據上點選的資料_tsm As ToolStripMenuItem
+    Friend WithEvents 刪除庫存調整單據_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
+    Friend WithEvents 需要全部庫存區域清單_ch As CheckBox
+    Friend WithEvents 區域庫存_dgv As DataGridView
 End Class

YD-ERP-SYS/倉儲系統管理/盤盈盤損申請.resx

@@ -117,4 +117,10 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>24, 6</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>38</value>
+  </metadata>
 </root>

YD-ERP-SYS/倉儲系統管理/盤盈盤損申請.vb

@@ -1,9 +1,7 @@
 Option Strict Off
-Imports System.Drawing
-Imports System.IO
-Imports System.Windows.Forms
 Public Class 盤盈盤損申請
-    ReadOnly ds As New DataSet : ReadOnly ds2 As New DataSet : Dim 首次開啟 As Boolean = False
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim NUM1 As Integer : Dim EDR As Integer = 0 : Dim ESTR As String
     Private Sub Set_清單()
         物料清單_dgv.DataSource = Nothing : ds.Clear()
         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -11,27 +9,41 @@ Public Class 盤盈盤損申請
         物料清單_dgv.AllowUserToAddRows = False
         物料清單_dgv.RowTemplate.Height = 35
 
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
         SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns(0).FillWeight = 100 : 物料清單_dgv.Columns(1).Visible = False : 物料清單_dgv.Columns(2).FillWeight = 80 : 物料清單_dgv.Columns(3).FillWeight = 100
-        物料清單_dgv.Columns(4).FillWeight = 200 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50 : 物料清單_dgv.Columns(7).FillWeight = 50
-        物料清單_dgv.Columns(8).FillWeight = 50
+        物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
 
-        物料清單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
-        物料清單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 物料清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 物料清單_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True
 
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
             If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
             If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
             If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
-            If 物料清單_dgv("倉名", i).Value.ToString <> "" And Val(物料清單_dgv("庫存", i).Value) - Val(物料清單_dgv("未出庫", i).Value) + Val(物料清單_dgv("未入庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then : 物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Set_清單2()
@@ -44,32 +56,143 @@ Public Class 盤盈盤損申請
         SQL_盤盈盤損申請_單據()
         da.Fill(ds2) : 調庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close()
 
-        調庫單據_dgv.Columns(0).FillWeight = 200 : 調庫單據_dgv.Columns(1).FillWeight = 107
+        調庫單據_dgv.Columns(0).FillWeight = 200 : 調庫單據_dgv.Columns(1).Visible = False : 調庫單據_dgv.Columns(2).Visible = False
+        調庫單據_dgv.Columns(0).ReadOnly = True : 調庫單據_dgv.Columns(1).ReadOnly = True : 調庫單據_dgv.Columns(2).ReadOnly = True
+    End Sub
+    Private Sub Set_清單1()
+        調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+        調庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫明細_dgv.ColumnHeadersHeight = 40
+        調庫明細_dgv.AllowUserToAddRows = False
+        調庫明細_dgv.RowTemplate.Height = 35
+
+        PA20 = 調庫單號_tb.Text
+        SQL_盤盈盤損申請_明細()
+        da.Fill(ds1) : 調庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        調庫明細_dgv.Columns(0).Visible = False : 調庫明細_dgv.Columns(1).FillWeight = 100 : 調庫明細_dgv.Columns(2).FillWeight = 100 : 調庫明細_dgv.Columns(3).FillWeight = 75
+        調庫明細_dgv.Columns(4).FillWeight = 200 : 調庫明細_dgv.Columns(5).FillWeight = 100 : 調庫明細_dgv.Columns(6).FillWeight = 100 : 調庫明細_dgv.Columns(7).FillWeight = 50
+        調庫明細_dgv.Columns(8).FillWeight = 50 : 調庫明細_dgv.Columns(9).FillWeight = 75 : 調庫明細_dgv.Columns(10).FillWeight = 100 : 調庫明細_dgv.Columns(11).FillWeight = 35
+
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Format = "#,##0" : 調庫明細_dgv.Columns("盤損").DefaultCellStyle.Format = "#,##0"
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤盈").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        調庫明細_dgv.Columns(1).ReadOnly = True : 調庫明細_dgv.Columns(2).ReadOnly = True : 調庫明細_dgv.Columns(3).ReadOnly = True : 調庫明細_dgv.Columns(4).ReadOnly = True
+        調庫明細_dgv.Columns(5).ReadOnly = True : 調庫明細_dgv.Columns(6).ReadOnly = True : 調庫明細_dgv.Columns(9).ReadOnly = True : 調庫明細_dgv.Columns(11).ReadOnly = True
+
+        調庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 調庫明細_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     End Sub
     Private Sub 地區碼_下拉表單資料載入()
         SQL_地區碼_下拉清單() : 地區_cb.Items.Clear() : 地區編碼_cb.Items.Clear()
         While (dr.Read()) : 地區_cb.Items.Add(dr("地區")) : 地區編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
     End Sub
     Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = "" : BL1 = 精準查詢_ch.Checked : PA3 = 地區編碼_cb.Text : PA4 = 地區_cb.Text
         SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
         While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
     Private Sub 指定倉庫_cb_下拉表單資料載入()
-        SQL_倉名_下拉清單() : 指定倉庫_cb.Items.Clear()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
         While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
     End Sub
     Private Sub 盤盈盤損申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         地區編碼_cb.Enabled = False : 料號_tb.Enabled = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
-
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
         地區碼_下拉表單資料載入() : 供應商_下拉表單資料載入()
         首次開啟 = False : Set_清單() : Set_清單2() : 首次開啟 = True '--------------------資料讀取
     End Sub
-    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellEnter
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        End If
+    End Sub
+    Private Sub 調庫單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫單據_dgv.CellClick
+        If 開立庫存調整單_bt.Enabled = True Then
+            If e.RowIndex = -1 Then : Else
+                調庫單號_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("執行單號").Value : 申請人_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請人").Value
+                申請日期_dtp.Value = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請日期").Value
+                Set_清單1()
+            End If
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellEndEdit
+        If (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) = 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) = 0) Or
+             (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) <> 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) <> 0) Then
+            MsgBox("盤營與盤損不能同時為零或同時有數量")
+            Set_清單1()
+            Exit Sub
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            項次_tb.Text = 調庫明細_dgv(0, e.RowIndex).Value.ToString
+            物料圖1_pb.Image = Nothing : PA1 = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
         If 首次開啟 = True Then
             If e.RowIndex = -1 Then : Else
                 料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
-                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
 
                 物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
                 If dr.Read() Then
@@ -87,6 +210,13 @@ Public Class 盤盈盤損申請
                         物料圖_pb.Image = Nothing
                     End If
                 End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
             End If
         End If
     End Sub
@@ -100,9 +230,13 @@ Public Class 盤盈盤損申請
             End If
         End If
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
-            If 物料清單_dgv("倉名", i).Value.ToString <> "" And Val(物料清單_dgv("庫存", i).Value) - Val(物料清單_dgv("未出庫", i).Value) + Val(物料清單_dgv("未入庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then : 物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
         Next
     End Sub
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
@@ -118,7 +252,7 @@ Public Class 盤盈盤損申請
         供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
     End Sub
     Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
-        地區碼_下拉表單資料載入() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        地區碼_下拉表單資料載入() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
     End Sub
     Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
         PA = 查詢_tb.Text : Set_清單()
@@ -127,4 +261,165 @@ Public Class 盤盈盤損申請
         PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
         If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
     End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 盤損數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 盤損數_nud.ValueChanged
+        If 盤損數_nud.Value > 0 Then
+            盤盈數_nud.Value = 0
+            If 盤損數_nud.Value > Val(庫存量_tb.Text) Then
+                MsgBox("盤損數量不可能大於目前的庫存量!!")
+                盤損數_nud.Value = 0
+            End If
+        End If
+    End Sub
+    Private Sub 盤盈數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 盤盈數_nud.ValueChanged
+        If 盤盈數_nud.Value > 0 Then
+            盤損數_nud.Value = 0
+        End If
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub 開立庫存調整單_bt_Click(sender As Object, e As EventArgs) Handles 開立庫存調整單_bt.Click
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-" & NUM1
+            End If
+            PA1 = 調庫單號_tb.Text
+            SQL_倉儲明細執行單號_執行單號驗證()
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+        SQL_倉儲明細執行單號_新增() : Set_清單2() : Set_清單1() : conn.Close()
+        申請人_tb.Text = gUserName
+        開立庫存調整單_bt.Enabled = False : 開立庫存調整單_tsm.Enabled = False
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("請先案開立庫存調整單建立新單號或是選擇未審核的庫存調整單!!")
+        Else
+            If 料號_tb.Text = "" Then
+                MsgBox("請選擇物料，調整庫存需要指定物料!!")
+            Else
+                If 儲態編號_cb.Text = "" Then
+                    MsgBox("倉儲狀態是一定要選擇的!!")
+                Else
+                    If 訂製狀態_cb.Text = "" Then
+                        MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                    Else
+                        If 盤損數_nud.Value > Val(庫存量_tb.Text) Then
+                            MsgBox("盤損數量不可能小於庫存數量!!")
+                            盤損數_nud.Value = 0
+                        Else
+                            If 盤損數_nud.Value = 0 And 盤盈數_nud.Value = 0 Then
+                                MsgBox("盤盈盤損最少選一種，兩者都為零是不容許的!!")
+                            Else
+                                PA1 = 調庫單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                                SQL_倉儲明細表_確認單據是否申請()
+                                If dr.Read() Then
+                                    conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
+                                Else
+                                    SQL_倉儲明細表_最後一筆資料()
+                                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                                    conn.Close() : EDR += 1
+                                    If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR
+                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                                    ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                                    Set_日期格式轉換()
+                                    PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 盤盈數_nud.Value : NU2 = 盤損數_nud.Value
+                                    PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text
+                                    If 盤盈數_nud.Value = 0 And 盤損數_nud.Value > 0 Then
+                                        SQL_盤盈盤損申請_倉儲明細表_盤損出庫新增()
+                                    ElseIf 盤盈數_nud.Value > 0 And 盤損數_nud.Value = 0 Then
+                                        SQL_盤盈盤損申請_倉儲明細表_盤盈入庫新增()
+                                    End If : conn.Close()
+                                    Set_清單1() : Set_清單2() : Set_清單()
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 調庫單號_tb.Text = "" Or 料號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            For i As Integer = 0 To 調庫明細_dgv.Rows.Count - 1
+                資料數 = 調庫明細_dgv.Rows.Count : MyModule1.進度條()
+                PA10 = 調庫明細_dgv.Rows(i).Cells("備註").Value : PA11 = 調庫明細_dgv.Rows(i).Cells("資料流水號").Value
+                NU1 = 調庫明細_dgv.Rows(i).Cells("盤盈").Value : NU2 = 調庫明細_dgv.Rows(i).Cells("盤損").Value
+                SQL_倉儲明細表_出入庫及修改() : conn.Close()
+            Next
+            MsgBox("存檔完成!!") : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            Set_清單1() : Set_清單2()
+            開立庫存調整單_bt.Enabled = True : 開立庫存調整單_tsm.Enabled = True
+        End If
+    End Sub
+    Private Sub 刪除請購單上點選資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            If 項次_tb.Text = "" Then
+                MsgBox("沒有選擇要刪除的明細!!")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA1 = 項次_tb.Text : SQL_倉儲明細表_刪除二() : conn.Close()
+                    Set_清單1()
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這張庫存調整單?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            PA1 = 調庫單號_tb.Text : SQL_倉儲明細表_刪除() : SQL_倉儲明細執行單號_刪除() : conn.Close()
+            調庫單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
+            調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+            Set_清單2()
+        End If
+    End Sub
+    Private Sub 需要全部庫存區域清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 需要全部庫存區域清單_ch.CheckedChanged
+        指定倉庫_cb_下拉表單資料載入()
+    End Sub
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
+        清空_bt.PerformClick() : Set_清單2() : Set_清單1()
+    End Sub
+    Private Sub 開立庫存調整單_tsm_Click(sender As Object, e As EventArgs) Handles 開立庫存調整單_tsm.Click
+        開立庫存調整單_bt.PerformClick()
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_tsm_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_tsm.Click
+        選定內容加入庫存調整申請單_bt.PerformClick()
+    End Sub
+    Private Sub 存檔_tsm_Click(sender As Object, e As EventArgs) Handles 存檔_tsm.Click
+        存檔_bt.PerformClick()
+    End Sub
+    Private Sub 刪除庫存調整單據上點選的資料_tsm_Click(sender As Object, e As EventArgs) Handles 刪除庫存調整單據上點選的資料_tsm.Click
+        刪除單據上點選的資料_bt.PerformClick()
+    End Sub
+    Private Sub 刪除庫存調整單據_tsm_Click(sender As Object, e As EventArgs) Handles 刪除庫存調整單據_tsm.Click
+        刪除_bt.PerformClick()
+    End Sub
 End Class

YD-ERP-SYS/採購系統管理/一般性申請採購單.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>16, 6</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>39</value>
+  </metadata>
+</root>

YD-ERP-SYS/採購系統管理/一般性申請採購單.vb

@@ -0,0 +1,341 @@
+Option Strict Off
+Public Class 一般性申請採購單
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim NUM1 As Integer : Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_清單()
+        物料清單_dgv.DataSource = Nothing : ds.Clear()
+        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料清單_dgv.ColumnHeadersHeight = 40
+        物料清單_dgv.AllowUserToAddRows = False
+        物料清單_dgv.RowTemplate.Height = 35
+
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
+        SQL_盤盈盤損申請_物料清單()
+        da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
+
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True
+
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
+            If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
+            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
+            If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單2()
+        調庫單據_dgv.DataSource = Nothing : ds2.Clear()
+        調庫單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫單據_dgv.ColumnHeadersHeight = 25
+        調庫單據_dgv.AllowUserToAddRows = False
+        調庫單據_dgv.RowTemplate.Height = 25
+
+        SQL_採購申請單_單據()
+        da.Fill(ds2) : 調庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        調庫單據_dgv.Columns(0).FillWeight = 200 : 調庫單據_dgv.Columns(1).Visible = False : 調庫單據_dgv.Columns(2).Visible = False
+        調庫單據_dgv.Columns(0).ReadOnly = True : 調庫單據_dgv.Columns(1).ReadOnly = True : 調庫單據_dgv.Columns(2).ReadOnly = True
+    End Sub
+    Private Sub Set_清單1()
+        調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+        調庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫明細_dgv.ColumnHeadersHeight = 40
+        調庫明細_dgv.AllowUserToAddRows = False
+        調庫明細_dgv.RowTemplate.Height = 35
+
+        PA20 = 調庫單號_tb.Text
+        SQL_盤盈盤損申請_明細()
+        da.Fill(ds1) : 調庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        調庫明細_dgv.Columns(0).Visible = False : 調庫明細_dgv.Columns(1).FillWeight = 100 : 調庫明細_dgv.Columns(2).FillWeight = 100 : 調庫明細_dgv.Columns(3).FillWeight = 75
+        調庫明細_dgv.Columns(4).FillWeight = 200 : 調庫明細_dgv.Columns(5).FillWeight = 100 : 調庫明細_dgv.Columns(6).FillWeight = 100 : 調庫明細_dgv.Columns(7).FillWeight = 50
+        調庫明細_dgv.Columns(8).FillWeight = 50 : 調庫明細_dgv.Columns(9).FillWeight = 75 : 調庫明細_dgv.Columns(10).FillWeight = 100 : 調庫明細_dgv.Columns(11).FillWeight = 35
+
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Format = "#,##0" : 調庫明細_dgv.Columns("盤損").DefaultCellStyle.Format = "#,##0"
+        調庫明細_dgv.Columns("盤盈").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤盈").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        調庫明細_dgv.Columns("盤損").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        調庫明細_dgv.Columns(1).ReadOnly = True : 調庫明細_dgv.Columns(2).ReadOnly = True : 調庫明細_dgv.Columns(3).ReadOnly = True : 調庫明細_dgv.Columns(4).ReadOnly = True
+        調庫明細_dgv.Columns(5).ReadOnly = True : 調庫明細_dgv.Columns(6).ReadOnly = True : 調庫明細_dgv.Columns(9).ReadOnly = True : 調庫明細_dgv.Columns(11).ReadOnly = True
+
+        調庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 調庫明細_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub 地區碼_下拉表單資料載入()
+        SQL_地區碼_下拉清單() : 地區_cb.Items.Clear() : 地區編碼_cb.Items.Clear()
+        While (dr.Read()) : 地區_cb.Items.Add(dr("地區")) : 地區編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = "" : BL1 = 精準查詢_ch.Checked : PA3 = 地區編碼_cb.Text : PA4 = 地區_cb.Text
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
+    End Sub
+    Private Sub 一般性申請採購單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        地區編碼_cb.Enabled = False : 料號_tb.Enabled = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+        地區碼_下拉表單資料載入() : 供應商_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單2() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        End If
+    End Sub
+    Private Sub 調庫單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫單據_dgv.CellClick
+        If 開立庫存調整單_bt.Enabled = True Then
+            If e.RowIndex = -1 Then : Else
+                調庫單號_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("執行單號").Value : 申請人_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請人").Value
+                申請日期_dtp.Value = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請日期").Value
+                Set_清單1()
+            End If
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellEndEdit
+        If (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) = 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) = 0) Or
+             (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) <> 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) <> 0) Then
+            MsgBox("盤營與盤損不能同時為零或同時有數量")
+            Set_清單1()
+            Exit Sub
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            項次_tb.Text = 調庫明細_dgv(0, e.RowIndex).Value.ToString
+            物料圖1_pb.Image = Nothing : PA1 = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
+        地區編碼_cb.SelectedIndex = 地區_cb.SelectedIndex : 供應商_下拉表單資料載入()
+    End Sub
+    Private Sub 地區編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區編碼_cb.SelectedIndexChanged
+        地區_cb.SelectedIndex = 地區編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        地區碼_下拉表單資料載入() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+    End Sub
+    Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
+        PA = 查詢_tb.Text : Set_清單()
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
+        PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
+        If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub 開立庫存調整單_bt_Click(sender As Object, e As EventArgs) Handles 開立庫存調整單_bt.Click
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-" & NUM1
+            End If
+            PA1 = 調庫單號_tb.Text
+            SQL_倉儲明細執行單號_執行單號驗證()
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+        SQL_倉儲明細執行單號_新增() : Set_清單2() : Set_清單1() : conn.Close()
+        申請人_tb.Text = gUserName
+        開立庫存調整單_bt.Enabled = False : 開立庫存調整單_tsm.Enabled = False
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("請先案開立庫存調整單建立新單號或是選擇未審核的庫存調整單!!")
+        Else
+            If 料號_tb.Text = "" Then
+                MsgBox("請選擇物料，調整庫存需要指定物料!!")
+            Else
+                If 儲態編號_cb.Text = "" Then
+                    MsgBox("倉儲狀態是一定要選擇的!!")
+                Else
+                    If 訂製狀態_cb.Text = "" Then
+                        MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                    Else
+                        PA1 = 調庫單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                        SQL_倉儲明細表_確認單據是否申請()
+                        If dr.Read() Then
+                            conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
+                        Else
+                            SQL_倉儲明細表_最後一筆資料()
+                            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                            conn.Close() : EDR += 1
+                            If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR
+                            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                            ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                            ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                            ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                            ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                            ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                            ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                            ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                            Set_日期格式轉換()
+                            'PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 盤盈數_nud.Value : NU2 = 盤損數_nud.Value
+                            'PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text
+                            'If 盤盈數_nud.Value = 0 And 盤損數_nud.Value > 0 Then
+                            '    SQL_盤盈盤損申請_倉儲明細表_盤損出庫新增()
+                            'ElseIf 盤盈數_nud.Value > 0 And 盤損數_nud.Value = 0 Then
+                            '    SQL_盤盈盤損申請_倉儲明細表_盤盈入庫新增()
+                            'End If : conn.Close()
+                            Set_清單1() : Set_清單2() : Set_清單()
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+End Class

YD-ERP-SYS/業務系統管理/客戶資料表.Designer.vb

@@ -54,6 +54,11 @@ Partial Class 客戶資料表
         Me.新增準備_bt = New System.Windows.Forms.Button()
         Me.查詢_tb = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
+        Me.統編_tb = New System.Windows.Forms.TextBox()
+        Me.公司_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.帶入銷售_bt = New System.Windows.Forms.Button()
         CType(Me.客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
@@ -106,7 +111,7 @@ Partial Class 客戶資料表
         '
         Me.業務_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.業務_cb.FormattingEnabled = True
-        Me.業務_cb.Items.AddRange(New Object() {resources.GetString("業務_cb.Items"), resources.GetString("業務_cb.Items1"), resources.GetString("業務_cb.Items2"), resources.GetString("業務_cb.Items3"), resources.GetString("業務_cb.Items4"), resources.GetString("業務_cb.Items5"), resources.GetString("業務_cb.Items6"), resources.GetString("業務_cb.Items7"), resources.GetString("業務_cb.Items8"), resources.GetString("業務_cb.Items9"), resources.GetString("業務_cb.Items10")})
+        Me.業務_cb.Items.AddRange(New Object() {resources.GetString("業務_cb.Items"), resources.GetString("業務_cb.Items1"), resources.GetString("業務_cb.Items2"), resources.GetString("業務_cb.Items3"), resources.GetString("業務_cb.Items4"), resources.GetString("業務_cb.Items5"), resources.GetString("業務_cb.Items6"), resources.GetString("業務_cb.Items7"), resources.GetString("業務_cb.Items8"), resources.GetString("業務_cb.Items9"), resources.GetString("業務_cb.Items10"), resources.GetString("業務_cb.Items11")})
         resources.ApplyResources(Me.業務_cb, "業務_cb")
         Me.業務_cb.Name = "業務_cb"
         '
@@ -226,11 +231,45 @@ Partial Class 客戶資料表
         resources.ApplyResources(Me.Label9, "Label9")
         Me.Label9.Name = "Label9"
         '
+        '統編_tb
+        '
+        resources.ApplyResources(Me.統編_tb, "統編_tb")
+        Me.統編_tb.Name = "統編_tb"
+        '
+        '公司_tb
+        '
+        resources.ApplyResources(Me.公司_tb, "公司_tb")
+        Me.公司_tb.Name = "公司_tb"
+        '
+        'Label10
+        '
+        resources.ApplyResources(Me.Label10, "Label10")
+        Me.Label10.ForeColor = System.Drawing.Color.Black
+        Me.Label10.Name = "Label10"
+        '
+        'Label11
+        '
+        resources.ApplyResources(Me.Label11, "Label11")
+        Me.Label11.ForeColor = System.Drawing.Color.Black
+        Me.Label11.Name = "Label11"
+        '
+        '帶入銷售_bt
+        '
+        Me.帶入銷售_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        resources.ApplyResources(Me.帶入銷售_bt, "帶入銷售_bt")
+        Me.帶入銷售_bt.Name = "帶入銷售_bt"
+        Me.帶入銷售_bt.UseVisualStyleBackColor = True
+        '
         '客戶資料表
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.帶入銷售_bt)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.統編_tb)
+        Me.Controls.Add(Me.公司_tb)
+        Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.查詢_tb)
         Me.Controls.Add(Me.狀態_lb)
@@ -291,4 +330,9 @@ Partial Class 客戶資料表
     Friend WithEvents 新增準備_bt As Windows.Forms.Button
     Friend WithEvents 查詢_tb As Windows.Forms.TextBox
     Friend WithEvents Label9 As Windows.Forms.Label
+    Friend WithEvents 統編_tb As TextBox
+    Friend WithEvents 公司_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 帶入銷售_bt As Button
 End Class

YD-ERP-SYS/業務系統管理/客戶資料表.resx

@@ -123,14 +123,14 @@
   </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="客戶_dgv.Location" type="System.Drawing.Point, System.Drawing">
-    <value>5, 58</value>
+    <value>5, 104</value>
   </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="客戶_dgv.RowHeadersWidth" type="System.Int32, mscorlib">
     <value>5</value>
   </data>
   <data name="客戶_dgv.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1476, 628</value>
+    <value>874, 492</value>
   </data>
   <data name="客戶_dgv.TabIndex" type="System.Int32, mscorlib">
     <value>224</value>
@@ -145,7 +145,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;客戶_dgv.ZOrder" xml:space="preserve">
-    <value>23</value>
+    <value>28</value>
   </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 7</value>
@@ -199,28 +199,31 @@
     <value>3</value>
   </data>
   <data name="業務_cb.Items4" xml:space="preserve">
-    <value>5</value>
+    <value>4</value>
   </data>
   <data name="業務_cb.Items5" xml:space="preserve">
-    <value>6</value>
+    <value>5</value>
   </data>
   <data name="業務_cb.Items6" xml:space="preserve">
-    <value>7</value>
+    <value>6</value>
   </data>
   <data name="業務_cb.Items7" xml:space="preserve">
-    <value>8</value>
+    <value>7</value>
   </data>
   <data name="業務_cb.Items8" xml:space="preserve">
-    <value>9</value>
+    <value>8</value>
   </data>
   <data name="業務_cb.Items9" xml:space="preserve">
-    <value>B</value>
+    <value>9</value>
   </data>
   <data name="業務_cb.Items10" xml:space="preserve">
+    <value>B</value>
+  </data>
+  <data name="業務_cb.Items11" xml:space="preserve">
     <value>Y</value>
   </data>
   <data name="業務_cb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>45, 5</value>
+    <value>40, 53</value>
   </data>
   <data name="業務_cb.Size" type="System.Drawing.Size, System.Drawing">
     <value>62, 24</value>
@@ -238,13 +241,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;業務_cb.ZOrder" xml:space="preserve">
-    <value>21</value>
+    <value>26</value>
   </data>
   <data name="Label4.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
-    <value>7, 9</value>
+    <value>5, 57</value>
   </data>
   <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
     <value>32, 16</value>
@@ -265,13 +268,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
-    <value>22</value>
-  </data>
-  <data name="資料筆數_tb.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Right</value>
+    <value>27</value>
   </data>
   <data name="資料筆數_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>1331, 33</value>
+    <value>728, 4</value>
   </data>
   <data name="資料筆數_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>100, 23</value>
@@ -289,16 +289,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;資料筆數_tb.ZOrder" xml:space="preserve">
-    <value>19</value>
-  </data>
-  <data name="Label1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Right</value>
+    <value>24</value>
   </data>
   <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>1309, 36</value>
+    <value>706, 7</value>
   </data>
   <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
     <value>20, 16</value>
@@ -319,10 +316,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>20</value>
-  </data>
-  <data name="Label2.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Right</value>
+    <value>25</value>
   </data>
   <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -331,7 +325,7 @@
     <value>NoControl</value>
   </data>
   <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>1437, 36</value>
+    <value>834, 7</value>
   </data>
   <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
     <value>44, 16</value>
@@ -352,13 +346,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
-    <value>18</value>
-  </data>
-  <data name="流水號_tb.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Right</value>
+    <value>23</value>
   </data>
   <data name="流水號_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>1331, 8</value>
+    <value>728, 29</value>
   </data>
   <data name="流水號_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>100, 23</value>
@@ -376,10 +367,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;流水號_tb.ZOrder" xml:space="preserve">
-    <value>7</value>
+    <value>12</value>
   </data>
   <data name="電話2_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>621, 5</value>
+    <value>231, 78</value>
   </data>
   <data name="電話2_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>145, 23</value>
@@ -397,10 +388,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;電話2_tb.ZOrder" xml:space="preserve">
-    <value>8</value>
+    <value>13</value>
   </data>
   <data name="電話1_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>429, 5</value>
+    <value>39, 78</value>
   </data>
   <data name="電話1_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>145, 23</value>
@@ -418,13 +409,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;電話1_tb.ZOrder" xml:space="preserve">
-    <value>9</value>
+    <value>14</value>
   </data>
   <data name="住址_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>45, 33</value>
+    <value>415, 54</value>
   </data>
   <data name="住址_tb.Size" type="System.Drawing.Size, System.Drawing">
-    <value>721, 23</value>
+    <value>463, 23</value>
   </data>
   <data name="住址_tb.TabIndex" type="System.Int32, mscorlib">
     <value>1024</value>
@@ -439,10 +430,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;住址_tb.ZOrder" xml:space="preserve">
-    <value>10</value>
+    <value>15</value>
   </data>
   <data name="客戶_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>285, 6</value>
+    <value>276, 54</value>
   </data>
   <data name="客戶_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>100, 23</value>
@@ -460,10 +451,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;客戶_tb.ZOrder" xml:space="preserve">
-    <value>11</value>
+    <value>16</value>
   </data>
   <data name="編號_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>146, 6</value>
+    <value>137, 54</value>
   </data>
   <data name="編號_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>100, 23</value>
@@ -481,13 +472,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;編號_tb.ZOrder" xml:space="preserve">
-    <value>12</value>
+    <value>17</value>
   </data>
   <data name="Label8.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label8.Location" type="System.Drawing.Point, System.Drawing">
-    <value>580, 8</value>
+    <value>190, 81</value>
   </data>
   <data name="Label8.Size" type="System.Drawing.Size, System.Drawing">
     <value>39, 16</value>
@@ -508,13 +499,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
-    <value>13</value>
+    <value>18</value>
   </data>
   <data name="Label7.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label7.Location" type="System.Drawing.Point, System.Drawing">
-    <value>391, 8</value>
+    <value>1, 81</value>
   </data>
   <data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
     <value>39, 16</value>
@@ -535,13 +526,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label7.ZOrder" xml:space="preserve">
-    <value>14</value>
+    <value>19</value>
   </data>
   <data name="Label6.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label6.Location" type="System.Drawing.Point, System.Drawing">
-    <value>7, 36</value>
+    <value>382, 57</value>
   </data>
   <data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
     <value>32, 16</value>
@@ -562,13 +553,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
-    <value>15</value>
+    <value>20</value>
   </data>
   <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
-    <value>252, 9</value>
+    <value>243, 57</value>
   </data>
   <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
     <value>32, 16</value>
@@ -589,13 +580,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
-    <value>16</value>
+    <value>21</value>
   </data>
   <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
-    <value>113, 9</value>
+    <value>104, 57</value>
   </data>
   <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
     <value>32, 16</value>
@@ -616,7 +607,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
-    <value>17</value>
+    <value>22</value>
   </data>
   <data name="狀態_lb.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -625,7 +616,7 @@
     <value>微軟正黑體, 14.25pt</value>
   </data>
   <data name="狀態_lb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>889, 6</value>
+    <value>124, 4</value>
   </data>
   <data name="狀態_lb.Size" type="System.Drawing.Size, System.Drawing">
     <value>48, 48</value>
@@ -647,13 +638,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;狀態_lb.ZOrder" xml:space="preserve">
-    <value>3</value>
+    <value>8</value>
   </data>
   <data name="刪除_bt.Location" type="System.Drawing.Point, System.Drawing">
-    <value>1075, 4</value>
+    <value>310, 2</value>
   </data>
   <data name="刪除_bt.Size" type="System.Drawing.Size, System.Drawing">
-    <value>66, 51</value>
+    <value>66, 49</value>
   </data>
   <data name="刪除_bt.TabIndex" type="System.Int32, mscorlib">
     <value>1030</value>
@@ -671,13 +662,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;刪除_bt.ZOrder" xml:space="preserve">
-    <value>4</value>
+    <value>9</value>
   </data>
   <data name="存檔_bt.Location" type="System.Drawing.Point, System.Drawing">
-    <value>1008, 4</value>
+    <value>243, 2</value>
   </data>
   <data name="存檔_bt.Size" type="System.Drawing.Size, System.Drawing">
-    <value>66, 51</value>
+    <value>66, 49</value>
   </data>
   <data name="存檔_bt.TabIndex" type="System.Int32, mscorlib">
     <value>1029</value>
@@ -695,13 +686,13 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;存檔_bt.ZOrder" xml:space="preserve">
-    <value>5</value>
+    <value>10</value>
   </data>
   <data name="新增準備_bt.Location" type="System.Drawing.Point, System.Drawing">
-    <value>941, 4</value>
+    <value>176, 2</value>
   </data>
   <data name="新增準備_bt.Size" type="System.Drawing.Size, System.Drawing">
-    <value>66, 51</value>
+    <value>66, 49</value>
   </data>
   <data name="新增準備_bt.TabIndex" type="System.Int32, mscorlib">
     <value>1028</value>
@@ -719,10 +710,10 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;新增準備_bt.ZOrder" xml:space="preserve">
-    <value>6</value>
+    <value>11</value>
   </data>
   <data name="查詢_tb.Location" type="System.Drawing.Point, System.Drawing">
-    <value>772, 33</value>
+    <value>7, 28</value>
   </data>
   <data name="查詢_tb.Size" type="System.Drawing.Size, System.Drawing">
     <value>114, 23</value>
@@ -740,7 +731,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;查詢_tb.ZOrder" xml:space="preserve">
-    <value>2</value>
+    <value>7</value>
   </data>
   <data name="Label9.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -749,7 +740,7 @@
     <value>NoControl</value>
   </data>
   <data name="Label9.Location" type="System.Drawing.Point, System.Drawing">
-    <value>771, 9</value>
+    <value>6, 7</value>
   </data>
   <data name="Label9.Size" type="System.Drawing.Size, System.Drawing">
     <value>116, 16</value>
@@ -770,6 +761,135 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label9.ZOrder" xml:space="preserve">
+    <value>6</value>
+  </data>
+  <data name="統編_tb.Location" type="System.Drawing.Point, System.Drawing">
+    <value>764, 78</value>
+  </data>
+  <data name="統編_tb.Size" type="System.Drawing.Size, System.Drawing">
+    <value>114, 23</value>
+  </data>
+  <data name="統編_tb.TabIndex" type="System.Int32, mscorlib">
+    <value>1036</value>
+  </data>
+  <data name="&gt;&gt;統編_tb.Name" xml:space="preserve">
+    <value>統編_tb</value>
+  </data>
+  <data name="&gt;&gt;統編_tb.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;統編_tb.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;統編_tb.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="公司_tb.Location" type="System.Drawing.Point, System.Drawing">
+    <value>415, 78</value>
+  </data>
+  <data name="公司_tb.Size" type="System.Drawing.Size, System.Drawing">
+    <value>281, 23</value>
+  </data>
+  <data name="公司_tb.TabIndex" type="System.Int32, mscorlib">
+    <value>1035</value>
+  </data>
+  <data name="&gt;&gt;公司_tb.Name" xml:space="preserve">
+    <value>公司_tb</value>
+  </data>
+  <data name="&gt;&gt;公司_tb.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;公司_tb.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;公司_tb.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="Label10.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="Label10.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Label10.Location" type="System.Drawing.Point, System.Drawing">
+    <value>382, 81</value>
+  </data>
+  <data name="Label10.Size" type="System.Drawing.Size, System.Drawing">
+    <value>32, 16</value>
+  </data>
+  <data name="Label10.TabIndex" type="System.Int32, mscorlib">
+    <value>1034</value>
+  </data>
+  <data name="Label10.Text" xml:space="preserve">
+    <value>公司</value>
+  </data>
+  <data name="&gt;&gt;Label10.Name" xml:space="preserve">
+    <value>Label10</value>
+  </data>
+  <data name="&gt;&gt;Label10.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label10.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Label10.ZOrder" xml:space="preserve">
+    <value>5</value>
+  </data>
+  <data name="Label11.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="Label11.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Label11.Location" type="System.Drawing.Point, System.Drawing">
+    <value>702, 81</value>
+  </data>
+  <data name="Label11.Size" type="System.Drawing.Size, System.Drawing">
+    <value>56, 16</value>
+  </data>
+  <data name="Label11.TabIndex" type="System.Int32, mscorlib">
+    <value>1037</value>
+  </data>
+  <data name="Label11.Text" xml:space="preserve">
+    <value>統一編號</value>
+  </data>
+  <data name="&gt;&gt;Label11.Name" xml:space="preserve">
+    <value>Label11</value>
+  </data>
+  <data name="&gt;&gt;Label11.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label11.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Label11.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="帶入銷售_bt.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="帶入銷售_bt.Location" type="System.Drawing.Point, System.Drawing">
+    <value>415, 2</value>
+  </data>
+  <data name="帶入銷售_bt.Size" type="System.Drawing.Size, System.Drawing">
+    <value>175, 49</value>
+  </data>
+  <data name="帶入銷售_bt.TabIndex" type="System.Int32, mscorlib">
+    <value>1038</value>
+  </data>
+  <data name="帶入銷售_bt.Text" xml:space="preserve">
+    <value>選中的資料帶入銷售申請單</value>
+  </data>
+  <data name="&gt;&gt;帶入銷售_bt.Name" xml:space="preserve">
+    <value>帶入銷售_bt</value>
+  </data>
+  <data name="&gt;&gt;帶入銷售_bt.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;帶入銷售_bt.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;帶入銷售_bt.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -782,7 +902,7 @@
     <value>7, 16</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1487, 691</value>
+    <value>885, 604</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>微軟正黑體, 9pt</value>
@@ -790,6 +910,9 @@
   <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
     <value>3, 4, 3, 4</value>
   </data>
+  <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
+    <value>CenterScreen</value>
+  </data>
   <data name="$this.Text" xml:space="preserve">
     <value>客戶資料表</value>
   </data>

YD-ERP-SYS/業務系統管理/客戶資料表.vb

@@ -11,7 +11,8 @@ Public Class 客戶資料表
         SQL_客戶資料表_清單()
         da.Fill(ds1) : 客戶_dgv.DataSource = ds1.Tables(0) : conn.Close()
         客戶_dgv.Columns(0).Visible = False : 客戶_dgv.Columns(1).FillWeight = 50 : 客戶_dgv.Columns(2).FillWeight = 50 : 客戶_dgv.Columns(3).FillWeight = 100
-        客戶_dgv.Columns(4).FillWeight = 80 : 客戶_dgv.Columns(5).FillWeight = 80 : 客戶_dgv.Columns(6).FillWeight = 200
+        客戶_dgv.Columns(4).FillWeight = 80 : 客戶_dgv.Columns(5).FillWeight = 80 : 客戶_dgv.Columns(6).FillWeight = 150 : 客戶_dgv.Columns(7).FillWeight = 80
+        客戶_dgv.Columns(8).FillWeight = 150
 
         資料筆數_tb.Text = 客戶_dgv.Rows.Count : N1 = 1
         For i As Integer = 0 To 客戶_dgv.Rows.Count - 1
@@ -20,7 +21,13 @@ Public Class 客戶資料表
         Next i
     End Sub
     Private Sub 客戶資料表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        If 客戶資料強制對話框模式 = False Then
+            Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+            帶入銷售_bt.Visible = False
+        Else
+            帶入銷售_bt.Visible = True
+        End If
+
         流水號_tb.Visible = False : 編號_tb.Enabled = False : 第一次開啟判斷 = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
         狀態_lb.Text = "預覽
 狀態"
@@ -48,6 +55,7 @@ Public Class 客戶資料表
                 流水號_tb.Text = 客戶_dgv("流水號", e.RowIndex).Value.ToString : 編號_tb.Text = 客戶_dgv("編號", e.RowIndex).Value.ToString
                 電話1_tb.Text = 客戶_dgv("電話1", e.RowIndex).Value : 客戶_tb.Text = 客戶_dgv("客戶", e.RowIndex).Value.ToString
                 電話2_tb.Text = 客戶_dgv("電話2", e.RowIndex).Value.ToString : 住址_tb.Text = 客戶_dgv("地址", e.RowIndex).Value.ToString
+                公司_tb.Text = 客戶_dgv("公司名稱", e.RowIndex).Value.ToString : 統編_tb.Text = 客戶_dgv("統編", e.RowIndex).Value.ToString
             End If
         End If
     End Sub
@@ -81,8 +89,9 @@ Public Class 客戶資料表
             ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR
             ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR
             ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR
-            End If : 流水號_tb.Text = ESTR
+            End If : 流水號_tb.Text = ESTR : PA16 = ESTR
 
+            PA18 = 業務_cb.Text
             SQL_客戶資料表_編號_最後一筆資料()  '--------------------自動取得新編號
             If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If
             conn.Close() : EDR1 += 1
@@ -90,7 +99,7 @@ Public Class 客戶資料表
             ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1
             ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1
             ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1
-            End If : 編號_tb.Text = ESTR1
+            End If : 編號_tb.Text = ESTR1 : PA17 = ESTR1
 
             SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料
         End If
@@ -112,6 +121,9 @@ Public Class 客戶資料表
                         狀態_lb.Text = "預覽
 狀態"
                         客戶_dgv.Enabled = True : 查詢_tb.Enabled = True '--------------------開啟DGV與關鍵字查詢控件的點選控制功能
+
+                        PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                        PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 流水號_tb.Text
                         SQL_客戶資料表_修改() '--------------------資料修改
                         Set_清單() '--------------------資料修改後重新讀取清單
                     End If
@@ -130,6 +142,10 @@ Public Class 客戶資料表
             End If
         End If
     End Sub
+    Private Sub 帶入銷售_bt_Click(sender As Object, e As EventArgs) Handles 帶入銷售_bt.Click
+        PA15 = 編號_tb.Text
+        Me.Close()
+    End Sub
     '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
         Set_清單()

YD-ERP-SYS/業務系統管理/訂單控制表.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/業務系統管理/訂單控制表.vb

@@ -0,0 +1,166 @@
+Option Strict Off
+Public Class 訂單控制表
+    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 25
+
+        PA19 = 業務_cb.Text
+        SQL_銷售控制表()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
+        銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
+        銷售單據_dgv.Columns(8).Visible = False
+    End Sub
+    Private Sub Set_清單2()
+        客戶資料_dgv.DataSource = Nothing : ds2.Clear()
+        客戶資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        客戶資料_dgv.ColumnHeadersHeight = 25
+        客戶資料_dgv.AllowUserToAddRows = False
+        客戶資料_dgv.RowTemplate.Height = 25
+
+        PA16 = 客戶_tb.Text
+        SQL_銷售單申請_客戶資料驗證()
+        da.Fill(ds2) : 客戶資料_dgv.DataSource = ds2.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單4()
+        銷售明細_dgv.DataSource = Nothing : ds4.Clear()
+        銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售明細_dgv.ColumnHeadersHeight = 40
+        銷售明細_dgv.AllowUserToAddRows = False
+        銷售明細_dgv.RowTemplate.Height = 35
+
+        PA2 = "" : PA2 = 單號_tb.Text
+        SQL_銷售明細表()
+        da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+
+        銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
+        銷售明細_dgv.Columns(4).FillWeight = 150 : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).FillWeight = 190 : 銷售明細_dgv.Columns(7).FillWeight = 80
+        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 50 : 銷售明細_dgv.Columns(11).FillWeight = 80
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False
+
+        銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
+        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(7).ReadOnly = True : 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+            銷售明細_dgv("項次", i).Value = i + 1
+        Next
+        銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+    End Sub
+    Private Sub Set_清單5()
+        銷售備註_dgv.DataSource = Nothing : ds5.Clear()
+        銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售備註_dgv.ColumnHeadersHeight = 25
+        銷售備註_dgv.AllowUserToAddRows = False
+        銷售備註_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表()
+        da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        銷售備註_dgv.Columns(0).Visible = False : 銷售備註_dgv.Columns(1).FillWeight = 120 : 銷售備註_dgv.Columns(2).FillWeight = 910 : 銷售備註_dgv.Columns(3).FillWeight = 120
+        銷售備註_dgv.Columns(4).FillWeight = 120
+        銷售備註_dgv.Columns(0).ReadOnly = True : 銷售備註_dgv.Columns(1).ReadOnly = True
+
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Format = "#,##0" : 銷售備註_dgv.Columns("支出").DefaultCellStyle.Format = "#,##0"
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("收入").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            銷售備註_dgv("項次", i).Value = i + 1
+        Next
+        銷售備註_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub Set_清單6()
+        收款事項_dgv.DataSource = Nothing : ds6.Clear()
+        收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收款事項_dgv.ColumnHeadersHeight = 25
+        收款事項_dgv.AllowUserToAddRows = False
+        收款事項_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項()
+        da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
+        收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180
+
+        收款事項_dgv.Columns(2).ReadOnly = True
+
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            收款事項_dgv("項次", i).Value = i + 1
+        Next
+        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub Set_合記計算()
+        售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0"
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            If 銷售明細_dgv("含稅", i).Value = True Then
+                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+            End If
+        Next
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+        Next
+        銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
+                金額 += 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
+                收款事項_dgv("金額", i).Value = Val(銷售合計_tb.Text) - 金額
+            End If
+        Next
+
+        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
+    End Sub
+
+    Private Sub 訂單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+End Class

YD-ERP-SYS/業務系統管理/銷售單審核.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/業務系統管理/銷售單審核.vb

@@ -0,0 +1,808 @@
+Option Strict Off
+Public Class 銷售單審核
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String : Dim EDR1 As Integer = 0 : Dim ESTR1 As String : Dim NUM1 As Integer
+    Private Sub Set_清單()
+        物料清單_dgv.DataSource = Nothing : ds.Clear()
+        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料清單_dgv.ColumnHeadersHeight = 40
+        物料清單_dgv.AllowUserToAddRows = False
+        物料清單_dgv.RowTemplate.Height = 35
+
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
+        SQL_盤盈盤損申請_物料清單()
+        da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
+
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True
+
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
+            If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
+            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
+            If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 25
+
+        PA19 = 業務_cb.Text
+        SQL_銷售控制表_審核()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
+        銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
+        銷售單據_dgv.Columns(8).Visible = False
+    End Sub
+    Private Sub Set_清單2()
+        客戶資料_dgv.DataSource = Nothing : ds2.Clear()
+        客戶資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        客戶資料_dgv.ColumnHeadersHeight = 25
+        客戶資料_dgv.AllowUserToAddRows = False
+        客戶資料_dgv.RowTemplate.Height = 25
+
+        PA16 = 客戶_tb.Text
+        SQL_銷售單申請_客戶資料驗證()
+        da.Fill(ds2) : 客戶資料_dgv.DataSource = ds2.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub Set_清單4()
+        銷售明細_dgv.DataSource = Nothing : ds4.Clear()
+        銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售明細_dgv.ColumnHeadersHeight = 40
+        銷售明細_dgv.AllowUserToAddRows = False
+        銷售明細_dgv.RowTemplate.Height = 35
+
+        PA2 = "" : PA2 = 單號_tb.Text
+        SQL_銷售明細表()
+        da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+
+        銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
+        銷售明細_dgv.Columns(4).FillWeight = 150 : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).FillWeight = 190 : 銷售明細_dgv.Columns(7).FillWeight = 80
+        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 50 : 銷售明細_dgv.Columns(11).FillWeight = 80
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False
+
+        銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
+        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(7).ReadOnly = True : 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+            銷售明細_dgv("項次", i).Value = i + 1
+        Next
+        銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+    End Sub
+    Private Sub Set_清單5()
+        銷售備註_dgv.DataSource = Nothing : ds5.Clear()
+        銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售備註_dgv.ColumnHeadersHeight = 25
+        銷售備註_dgv.AllowUserToAddRows = False
+        銷售備註_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表()
+        da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        銷售備註_dgv.Columns(0).Visible = False : 銷售備註_dgv.Columns(1).FillWeight = 80 : 銷售備註_dgv.Columns(2).FillWeight = 1030 : 銷售備註_dgv.Columns(3).FillWeight = 80
+        銷售備註_dgv.Columns(4).FillWeight = 80
+        銷售備註_dgv.Columns(0).ReadOnly = True : 銷售備註_dgv.Columns(1).ReadOnly = True
+
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Format = "#,##0" : 銷售備註_dgv.Columns("支出").DefaultCellStyle.Format = "#,##0"
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("收入").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            銷售備註_dgv("項次", i).Value = i + 1
+        Next
+        銷售備註_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub Set_清單6()
+        收款事項_dgv.DataSource = Nothing : ds6.Clear()
+        收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收款事項_dgv.ColumnHeadersHeight = 25
+        收款事項_dgv.AllowUserToAddRows = False
+        收款事項_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項()
+        da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
+        收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180
+
+        收款事項_dgv.Columns(2).ReadOnly = True
+
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            收款事項_dgv("項次", i).Value = i + 1
+        Next
+        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub 地區碼_下拉表單資料載入()
+        SQL_地區碼_下拉清單() : 地區_cb.Items.Clear() : 地區編碼_cb.Items.Clear()
+        While (dr.Read()) : 地區_cb.Items.Add(dr("地區")) : 地區編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = "" : BL1 = 精準查詢_ch.Checked : PA3 = 地區編碼_cb.Text : PA4 = 地區_cb.Text
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub Set_合記計算()
+        售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0"
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            If 銷售明細_dgv("含稅", i).Value = True Then
+                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+            End If
+        Next
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+        Next
+        銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
+                金額 += 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
+                收款事項_dgv("金額", i).Value = Val(銷售合計_tb.Text) - 金額
+            End If
+        Next
+
+        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
+    End Sub
+    Private Sub 銷售單審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        地區編碼_cb.Enabled = False : 料號_tb.Enabled = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+        地區碼_下拉表單資料載入() : 供應商_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單1() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If 單號_tb.Text = "" Then : Else
+            Set_清單4() : Set_清單5() : Set_清單6()
+        End If
+        If Me.Size.Width > 1600 Then
+            物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(300, 167)
+        Else
+            物料圖1_pb.Visible = False
+        End If
+    End Sub
+    Private Sub 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
+        Set_合記計算()
+    End Sub
+    Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString : 項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
+            項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 銷售備註_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellEndEdit
+        If (Val(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And Val(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
+            MsgBox("支出與收入不能同時有金額")
+            Set_清單5()
+            Exit Sub
+        End If
+        Set_合記計算()
+    End Sub
+    Private Sub 銷售備註_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 銷售明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷售明細_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "已有貨" Then
+                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
+            ElseIf 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "未有貨" Then
+                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightPink
+            End If
+        End If
+    End Sub
+    Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+        Next
+        Set_合記計算()
+    End Sub
+    Private Sub 銷售明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售資料流水號_tb.Text = 銷售明細_dgv("資料流水號", e.RowIndex).Value.ToString : 倉儲資料流水號_tb.Text = 銷售明細_dgv("倉儲流水號", e.RowIndex).Value.ToString
+            項次_tb.Text = 銷售明細_dgv("項次", e.RowIndex).Value.ToString
+            物料圖1_pb.Image = Nothing : PA1 = 銷售明細_dgv("料號", e.RowIndex).Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 銷售明細_dgv("料號", e.RowIndex).Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+    Private Sub 銷售單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            流水號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("流水號").Value : 單號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value
+            開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("客戶編號").Value
+            交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
+            業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
+            Set_清單4() : Set_清單5()
+            Set_清單6()
+            PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
+            If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
+        End If
+    End Sub
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
+        地區編碼_cb.SelectedIndex = 地區_cb.SelectedIndex : 供應商_下拉表單資料載入()
+    End Sub
+    Private Sub 地區編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區編碼_cb.SelectedIndexChanged
+        地區_cb.SelectedIndex = 地區編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
+    End Sub
+    Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
+        PA = 查詢_tb.Text : Set_清單()
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
+        PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
+        If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 需要全部庫存區域清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 需要全部庫存區域清單_ch.CheckedChanged
+        指定倉庫_cb_下拉表單資料載入()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.CheckedChanged
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 含稅_ch.Checked = False Then : 銷售明細_dgv("含稅", i).Value = False
+            ElseIf 含稅_ch.Checked = True Then : 銷售明細_dgv("含稅", i).Value = True
+            End If
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+        Next
+        Set_合記計算()
+    End Sub
+    Private Sub 客戶編號_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶編號_tb.TextChanged
+        PA15 = 客戶編號_tb.Text
+        SQL_銷售單申請_客戶資料()
+        If dr.Read() Then
+            客戶_tb.Text = dr("名稱") : 公司_tb.Text = dr("公司名稱") : 統編_tb.Text = dr("統編") : 住址_tb.Text = dr("地址") : 電話1_tb.Text = dr("電話1") : 電話2_tb.Text = dr("電話2")
+        Else
+            客戶_tb.Text = "" : 公司_tb.Text = "" : 統編_tb.Text = "" : 住址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        地區碼_下拉表單資料載入() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+    End Sub
+    Private Sub 客戶資料查詢_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料查詢_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("指定客戶前要先有銷售單號，請新增單號或是挑選歷史資料!!")
+        Else
+            客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶資料強制對話框模式 = False : 客戶編號_tb.Text = PA15
+        End If
+    End Sub
+    Private Sub 客戶資料驗證_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料驗證_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            Set_清單2()
+            If 客戶資料_dgv.Rows.Count = 1 Then
+                客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value
+            ElseIf 客戶資料_dgv.Rows.Count > 1 Then
+                MsgBox("該客戶名稱有多筆資料，請點擊  [客戶資料查詢]  由操作介面中查詢確認。")
+            ElseIf 客戶資料_dgv.Rows.Count = 0 Then
+                Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+
+                    SQL_客戶資料表_流水號_最後一筆資料() '--------------------自動取得新流水號
+                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+                    conn.Close() : EDR += 1
+                    If EDR < 10 Then : ESTR = "CL" & "00000000" & EDR
+                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CL" & "0000000" & EDR
+                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CL" & "000000" & EDR
+                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CL" & "00000" & EDR
+                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CL" & "0000" & EDR
+                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CL" & "000" & EDR
+                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR
+                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR
+                    ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR
+                    End If : 客戶流水_tb.Text = ESTR : PA16 = ESTR
+
+                    PA18 = 業務_cb.Text
+                    SQL_客戶資料表_編號_最後一筆資料()  '--------------------自動取得新編號
+                    If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If
+                    conn.Close() : EDR1 += 1
+                    If EDR1 < 10 Then : ESTR1 = 業務_cb.Text & "000" & EDR1
+                    ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1
+                    ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1
+                    ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1
+                    End If : PA17 = ESTR1
+
+                    SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料
+
+                    PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                    PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                    SQL_客戶資料表_修改() : conn.Close() '--------------------資料修改
+                    客戶編號_tb.Text = ESTR1
+                    MsgBox("客戶資料新增完畢，請記得存檔。")
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                SQL_客戶資料表_修改() '--------------------資料修改
+
+                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked
+                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA1 = 流水號_tb.Text
+                SQL_銷售控制表_修改() '--------------------資料修改
+
+                For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+                    資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value
+                    SQL_銷售明細表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+                    資料數 = 銷售備註_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 銷售備註_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售備註_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 銷售備註_dgv.Rows(i).Cells("收入").Value : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                    SQL_銷售備註表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                    資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                    SQL_銷售收款事項_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                MsgBox("存檔完成。")
+            End If
+        End If
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                If 料號_tb.Text = "" Then
+                    MsgBox("請選擇物料，調整庫存需要指定物料!!")
+                Else
+                    If 儲態編號_cb.Text = "" Then
+                        MsgBox("倉儲狀態是一定要選擇的!!")
+                    Else
+                        If 訂製狀態_cb.Text = "" Then
+                            MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                        Else
+                            If 訂購數量_nud.Value = 0 Then
+                                MsgBox("訂購數量為零是不容許的!!")
+                            Else
+                                PA1 = 單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                                SQL_銷售明細表_確認單據是否申請()
+                                If dr.Read() Then
+                                    conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
+                                Else
+                                    SQL_銷售明細表_最後一筆資料()
+                                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                                    conn.Close() : EDR += 1
+                                    If EDR < 10 Then : ESTR = "SA" & "00000000" & EDR
+                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SA" & "0000000" & EDR
+                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SA" & "000000" & EDR
+                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SA" & "00000" & EDR
+                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SA" & "0000" & EDR
+                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SA" & "000" & EDR
+                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SA" & "00" & EDR
+                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SA" & "0" & EDR
+                                    ElseIf EDR > 99999999 Then : ESTR = "SA" & EDR : End If
+
+                                    Set_日期格式轉換()
+                                    PA3 = ESTR : PA4 = 單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 訂購數量_nud.Value : NU2 = 成本_nud.Value : NU3 = 售價_nud.Value
+                                    PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text : BL2 = 含稅_ch.Checked
+                                    If Val(可申請_tb.Text) > 0 Then
+                                        PA9 = "已有貨"
+                                        SQL_銷售單申請_銷售明細表_新增()
+
+                                        If 調庫單號_tb.Text = "" Then
+                                            Set_日期格式轉換()
+                                            For i As Integer = 1 To 999
+                                                NUM1 = 0 + i
+                                                If NUM1 < 10 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1
+                                                ElseIf NUM1 > 9 And NUM1 < 100 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
+                                                ElseIf NUM1 > 99 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-" & NUM1
+                                                End If
+                                                PA1 = 調庫單號_tb.Text
+                                                SQL_倉儲明細執行單號_執行單號驗證()
+                                                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+                                            Next
+                                            SQL_倉儲明細執行單號_新增() : conn.Close()
+                                        End If
+
+                                        SQL_倉儲明細表_最後一筆資料()
+                                        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                                        conn.Close() : EDR += 1
+                                        If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR
+                                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                                        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                                        ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                                        PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : PA9 = 單號_tb.Text
+                                        SQL_銷售單申請_倉儲明細表_銷售出庫()
+                                        Set_清單4()
+                                    ElseIf Val(可申請_tb.Text) = 0 Then
+                                        PA9 = "未有貨"
+                                        SQL_銷售單申請_銷售明細表_新增()
+                                        Set_清單4()
+                                    End If : conn.Close()
+                                    Set_清單()
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA = 銷售資料流水號_tb.Text : PA1 = 倉儲資料流水號_tb.Text
+                    SQL_銷售明細表_單筆刪除() : SQL_倉儲控制表_依銷售單號單筆刪除() : Set_清單() : Set_清單4() : PA = "" : PA1 = ""
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            Dim aa1 As MsgBoxResult = MsgBox("刪除銷售單會連同該單據串連的採購，倉儲等聯繫單據都依同刪除，請再次確定是否刪除該單據?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                PA = 單號_tb.Text
+                SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除()
+                Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6()
+                conn.Close()
+            End If
+        End If
+    End Sub
+    Private Sub 銷售備註_bt_Click(sender As Object, e As EventArgs) Handles 銷售備註_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                SQL_銷售備註表_最後一筆資料()
+                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = "SR" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SR" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SR" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SR" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SR" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SR" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SR" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SR" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If
+
+                PA1 = ESTR : PA = 單號_tb.Text
+                SQL_銷售備註表_新增() : Set_清單5()
+            End If
+        End If
+    End Sub
+    Private Sub 刪除備註_bt_Click(sender As Object, e As EventArgs) Handles 刪除備註_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA = 銷售備註流水號_tb.Text
+                    SQL_銷售備註表_刪除() : Set_清單5()
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                If 項次3_tb.Text = "" Then
+                    MsgBox("沒有選擇收款事項，無法作業。")
+                Else
+                    If 項次3_tb.Text = "0" Then
+                        MsgBox("不能刪除 [未收餘額] 選項!!")
+                    Else
+                        Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                        If aa1 = MsgBoxResult.Ok Then
+                            PA = 銷售收款流水號_tb.Text
+                            SQL_銷售收款事項_刪除() : Set_清單6()
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 新增一筆收款事項_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆收款事項_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                SQL_銷售收款事項_最後一筆資料()
+                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = "ST" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
+                PA1 = ESTR
+
+                SQL_銷售收款事項_最後一筆項次()
+                If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
+                PA2 = ESTR : PA = 單號_tb.Text
+                SQL_銷售收款事項_新增2() : Set_清單6()
+            End If
+        End If
+    End Sub
+    Private Sub 單據核准_bt_Click(sender As Object, e As EventArgs) Handles 單據核准_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                Set_日期格式轉換() : PA = gUserName : PA1 = 單號_tb.Text
+                SQL_銷售控制表_審核確認() : Set_清單() : Set_清單1() : conn.Close()
+                MsgBox("銷售單 [" & 單號_tb.Text & "] 審核完成，可繼續進行後續會計、採購等相關作業 。")
+            End If
+        End If
+    End Sub
+    Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                Set_日期格式轉換() : PA = "作廢-" & gUserName : PA1 = 單號_tb.Text
+                SQL_銷售控制表_審核確認()
+                Set_日期格式轉換() : PA10 = "作廢 - " & gUserName : PA9 = "" : PA11 = 單號_tb.Text : DTP2 = ""
+                SQL_銷售單審核_連帶作廢倉儲明細表() : Set_清單() : Set_清單1() : conn.Close()
+                MsgBox("銷售單 [" & 單號_tb.Text & "] 已完成單據作廢，可在 [訂單控制表] 中找到歷史資料 。")
+            End If
+        End If
+    End Sub
+End Class

YD-ERP-SYS/業務系統管理/銷售單申請.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

YD-ERP-SYS/業務系統管理/銷售單申請.vb

@@ -0,0 +1,828 @@
+Option Strict Off
+Public Class 銷售單申請
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String : Dim EDR1 As Integer = 0 : Dim ESTR1 As String : Dim NUM1 As Integer
+    Private Sub Set_清單()
+        物料清單_dgv.DataSource = Nothing : ds.Clear()
+        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料清單_dgv.ColumnHeadersHeight = 40
+        物料清單_dgv.AllowUserToAddRows = False
+        物料清單_dgv.RowTemplate.Height = 35
+
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
+        SQL_盤盈盤損申請_物料清單()
+        da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
+
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True
+
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
+            If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
+            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
+            If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 25
+
+        PA19 = 業務_cb.Text
+        SQL_銷售控制表()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
+        銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
+        銷售單據_dgv.Columns(8).Visible = False
+    End Sub
+    Private Sub Set_清單2()
+        客戶資料_dgv.DataSource = Nothing : ds2.Clear()
+        客戶資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        客戶資料_dgv.ColumnHeadersHeight = 25
+        客戶資料_dgv.AllowUserToAddRows = False
+        客戶資料_dgv.RowTemplate.Height = 25
+
+        PA16 = 客戶_tb.Text
+        SQL_銷售單申請_客戶資料驗證()
+        da.Fill(ds2) : 客戶資料_dgv.DataSource = ds2.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub Set_清單4()
+        銷售明細_dgv.DataSource = Nothing : ds4.Clear()
+        銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售明細_dgv.ColumnHeadersHeight = 40
+        銷售明細_dgv.AllowUserToAddRows = False
+        銷售明細_dgv.RowTemplate.Height = 35
+
+        PA2 = "" : PA2 = 單號_tb.Text
+        SQL_銷售明細表()
+        da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+
+        銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
+        銷售明細_dgv.Columns(4).FillWeight = 150 : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).FillWeight = 190 : 銷售明細_dgv.Columns(7).FillWeight = 80
+        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 50 : 銷售明細_dgv.Columns(11).FillWeight = 80
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False
+
+        銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
+        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(7).ReadOnly = True : 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+            銷售明細_dgv("項次", i).Value = i + 1
+        Next
+        銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+    End Sub
+    Private Sub Set_清單5()
+        銷售備註_dgv.DataSource = Nothing : ds5.Clear()
+        銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售備註_dgv.ColumnHeadersHeight = 25
+        銷售備註_dgv.AllowUserToAddRows = False
+        銷售備註_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表()
+        da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        銷售備註_dgv.Columns(0).Visible = False : 銷售備註_dgv.Columns(1).FillWeight = 120 : 銷售備註_dgv.Columns(2).FillWeight = 910 : 銷售備註_dgv.Columns(3).FillWeight = 120
+        銷售備註_dgv.Columns(4).FillWeight = 120
+        銷售備註_dgv.Columns(0).ReadOnly = True : 銷售備註_dgv.Columns(1).ReadOnly = True
+
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Format = "#,##0" : 銷售備註_dgv.Columns("支出").DefaultCellStyle.Format = "#,##0"
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("收入").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            銷售備註_dgv("項次", i).Value = i + 1
+        Next
+        銷售備註_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub Set_清單6()
+        收款事項_dgv.DataSource = Nothing : ds6.Clear()
+        收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收款事項_dgv.ColumnHeadersHeight = 25
+        收款事項_dgv.AllowUserToAddRows = False
+        收款事項_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項()
+        da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
+        收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180
+
+        收款事項_dgv.Columns(2).ReadOnly = True
+
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            收款事項_dgv("項次", i).Value = i + 1
+        Next
+        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub 地區碼_下拉表單資料載入()
+        SQL_地區碼_下拉清單() : 地區_cb.Items.Clear() : 地區編碼_cb.Items.Clear()
+        While (dr.Read()) : 地區_cb.Items.Add(dr("地區")) : 地區編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = "" : BL1 = 精準查詢_ch.Checked : PA3 = 地區編碼_cb.Text : PA4 = 地區_cb.Text
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub Set_合記計算()
+        售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0"
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            If 銷售明細_dgv("含稅", i).Value = True Then
+                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+            End If
+        Next
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+        Next
+        銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
+                金額 += 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
+                收款事項_dgv("金額", i).Value = Val(銷售合計_tb.Text) - 金額
+            End If
+        Next
+
+        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
+    End Sub
+    Private Sub 銷售單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        地區編碼_cb.Enabled = False : 料號_tb.Enabled = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+        地區碼_下拉表單資料載入() : 供應商_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單1() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        If 開立庫存調整單_bt.Enabled = False Then
+            PA = 單號_tb.Text
+            SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除() : conn.Close()
+            PA = ""
+        End If
+    End Sub
+    Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If 單號_tb.Text = "" Then : Else
+            Set_清單4() : Set_清單5() : Set_清單6()
+        End If
+        If Me.Size.Width > 1600 Then
+            物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(300, 167)
+        Else
+            物料圖1_pb.Visible = False
+        End If
+    End Sub
+    Private Sub 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
+        Set_合記計算()
+    End Sub
+    Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString : 項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
+            項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 銷售備註_dgvCellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellEndEdit
+        If (Val(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And Val(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
+            MsgBox("支出與收入不能同時有金額")
+            Set_清單5()
+            Exit Sub
+        End If
+        Set_合記計算()
+    End Sub
+    Private Sub 銷售備註_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 銷售明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷售明細_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "已有貨" Then
+                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
+            ElseIf 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "未有貨" Then
+                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightPink
+            End If
+        End If
+    End Sub
+    Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+        Next
+        Set_合記計算()
+    End Sub
+    Private Sub 銷售明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售資料流水號_tb.Text = 銷售明細_dgv("資料流水號", e.RowIndex).Value.ToString : 倉儲資料流水號_tb.Text = 銷售明細_dgv("倉儲流水號", e.RowIndex).Value.ToString
+            項次_tb.Text = 銷售明細_dgv("項次", e.RowIndex).Value.ToString
+            物料圖1_pb.Image = Nothing : PA1 = 銷售明細_dgv("料號", e.RowIndex).Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 銷售明細_dgv("料號", e.RowIndex).Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+    Private Sub 銷售單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            流水號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("流水號").Value : 單號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value
+            開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("客戶編號").Value
+            交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
+            業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
+            Set_清單4() : Set_清單5()
+            Set_清單6()
+            PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
+            If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
+        End If
+    End Sub
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
+        地區編碼_cb.SelectedIndex = 地區_cb.SelectedIndex : 供應商_下拉表單資料載入()
+    End Sub
+    Private Sub 地區編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區編碼_cb.SelectedIndexChanged
+        地區_cb.SelectedIndex = 地區編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
+    End Sub
+    Private Sub 查詢_tb_TextChanged(sender As Object, e As EventArgs) Handles 查詢_tb.TextChanged
+        PA = 查詢_tb.Text : Set_清單()
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
+        PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
+        If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 需要全部庫存區域清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 需要全部庫存區域清單_ch.CheckedChanged
+        指定倉庫_cb_下拉表單資料載入()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.CheckedChanged
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 含稅_ch.Checked = False Then : 銷售明細_dgv("含稅", i).Value = False
+            ElseIf 含稅_ch.Checked = True Then : 銷售明細_dgv("含稅", i).Value = True
+            End If
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+        Next
+        Set_合記計算()
+    End Sub
+    Private Sub 客戶編號_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶編號_tb.TextChanged
+        PA15 = 客戶編號_tb.Text
+        SQL_銷售單申請_客戶資料()
+        If dr.Read() Then
+            客戶_tb.Text = dr("名稱") : 公司_tb.Text = dr("公司名稱") : 統編_tb.Text = dr("統編") : 住址_tb.Text = dr("地址") : 電話1_tb.Text = dr("電話1") : 電話2_tb.Text = dr("電話2")
+        Else
+            客戶_tb.Text = "" : 公司_tb.Text = "" : 統編_tb.Text = "" : 住址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        地區碼_下拉表單資料載入() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+    End Sub
+    Private Sub 客戶資料查詢_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料查詢_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("指定客戶前要先有銷售單號，請新增單號或是挑選歷史資料!!")
+        Else
+            客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶資料強制對話框模式 = False : 客戶編號_tb.Text = PA15
+        End If
+    End Sub
+    Private Sub 開立庫存調整單_bt_Click(sender As Object, e As EventArgs) Handles 開立庫存調整單_bt.Click
+        If 業務_cb.Text = "" Then '--------------------設定條件讓業務控件不為空
+            MsgBox("沒有選擇業務編號。")
+        Else
+            PA = InputBox("請輸入銷售單號。")
+            If PA = "" Then
+                MsgBox("沒有輸入修改內容。")
+            Else
+                SQL_銷售控制表_單號是否重複()  '
+                If dr.Read() Then
+                    MsgBox("輸入的銷售單號重複。")
+                Else
+                    If IsNumeric(PA) = True Then
+                        If PA.Length = 7 Then
+                            開立庫存調整單_bt.Enabled = False
+                            單號_tb.Text = PA : 調庫單號_tb.Text = ""
+
+                            SQL_銷售控制表_最後一筆資料()  '--------------------自動取得新編號
+                            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 4)) : Else : EDR = 1 : End If
+                            conn.Close() : EDR += 1
+                            If EDR < 10 Then : ESTR = "PO" & "0000000" & EDR
+                            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PO" & "000000" & EDR
+                            ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PO" & "00000" & EDR
+                            ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PO" & "0000" & EDR
+                            ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PO" & "000" & EDR
+                            ElseIf EDR > 99999 And EDR < 1000000 Then : ESTR = "PO" & "00" & EDR
+                            ElseIf EDR > 999999 And EDR < 10000000 Then : ESTR = "PO" & "0" & EDR
+                            ElseIf EDR > 10000000 Then : ESTR = "PO" & EDR
+                            End If : 流水號_tb.Text = ESTR : PA1 = ESTR
+                            Set_日期格式轉換() : SQL_銷售控制表_新增() : SQL_銷售收款事項_新增() : conn.Close() : Set_清單1() : Set_清單6()
+                        Else
+                            MsgBox("輸入的單號需要完整七個數字。")
+                        End If
+                    Else
+                        MsgBox("請輸入數字。")
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 客戶資料驗證_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料驗證_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            Set_清單2()
+            If 客戶資料_dgv.Rows.Count = 1 Then
+                客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value
+            ElseIf 客戶資料_dgv.Rows.Count > 1 Then
+                MsgBox("該客戶名稱有多筆資料，請點擊  [客戶資料查詢]  由操作介面中查詢確認。")
+            ElseIf 客戶資料_dgv.Rows.Count = 0 Then
+                Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+
+                    SQL_客戶資料表_流水號_最後一筆資料() '--------------------自動取得新流水號
+                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+                    conn.Close() : EDR += 1
+                    If EDR < 10 Then : ESTR = "CL" & "00000000" & EDR
+                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CL" & "0000000" & EDR
+                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CL" & "000000" & EDR
+                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CL" & "00000" & EDR
+                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CL" & "0000" & EDR
+                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CL" & "000" & EDR
+                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR
+                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR
+                    ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR
+                    End If : 客戶流水_tb.Text = ESTR : PA16 = ESTR
+
+                    PA18 = 業務_cb.Text
+                    SQL_客戶資料表_編號_最後一筆資料()  '--------------------自動取得新編號
+                    If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If
+                    conn.Close() : EDR1 += 1
+                    If EDR1 < 10 Then : ESTR1 = 業務_cb.Text & "000" & EDR1
+                    ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1
+                    ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1
+                    ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1
+                    End If : PA17 = ESTR1
+
+                    SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料
+
+                    PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                    PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                    SQL_客戶資料表_修改() : conn.Close() '--------------------資料修改
+                    客戶編號_tb.Text = ESTR1
+                    MsgBox("客戶資料新增完畢，請記得存檔。")
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                SQL_客戶資料表_修改() '--------------------資料修改
+
+                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked
+                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA1 = 流水號_tb.Text
+                SQL_銷售控制表_修改() '--------------------資料修改
+
+                For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+                    資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value
+                    SQL_銷售明細表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+                    資料數 = 銷售備註_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 銷售備註_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售備註_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 銷售備註_dgv.Rows(i).Cells("收入").Value : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                    SQL_銷售備註表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                    資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                    SQL_銷售收款事項_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                MsgBox("存檔完成。")
+                開立庫存調整單_bt.Enabled = True
+            End If
+        End If
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                If 料號_tb.Text = "" Then
+                    MsgBox("請選擇物料，調整庫存需要指定物料!!")
+                Else
+                    If 儲態編號_cb.Text = "" Then
+                        MsgBox("倉儲狀態是一定要選擇的!!")
+                    Else
+                        If 訂製狀態_cb.Text = "" Then
+                            MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                        Else
+                            If 訂購數量_nud.Value = 0 Then
+                                MsgBox("訂購數量為零是不容許的!!")
+                            Else
+                                PA1 = 單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                                SQL_銷售明細表_確認單據是否申請()
+                                If dr.Read() Then
+                                    conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
+                                Else
+                                    SQL_銷售明細表_最後一筆資料()
+                                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                                    conn.Close() : EDR += 1
+                                    If EDR < 10 Then : ESTR = "SA" & "00000000" & EDR
+                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SA" & "0000000" & EDR
+                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SA" & "000000" & EDR
+                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SA" & "00000" & EDR
+                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SA" & "0000" & EDR
+                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SA" & "000" & EDR
+                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SA" & "00" & EDR
+                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SA" & "0" & EDR
+                                    ElseIf EDR > 99999999 Then : ESTR = "SA" & EDR : End If
+
+                                    Set_日期格式轉換()
+                                    PA3 = ESTR : PA4 = 單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 訂購數量_nud.Value : NU2 = 成本_nud.Value : NU3 = 售價_nud.Value
+                                    PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text : BL2 = 含稅_ch.Checked
+                                    If Val(可申請_tb.Text) > 0 Then
+                                        PA9 = "已有貨"
+                                        SQL_銷售單申請_銷售明細表_新增()
+
+                                        If 調庫單號_tb.Text = "" Then
+                                            Set_日期格式轉換()
+                                            For i As Integer = 1 To 999
+                                                NUM1 = 0 + i
+                                                If NUM1 < 10 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1
+                                                ElseIf NUM1 > 9 And NUM1 < 100 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
+                                                ElseIf NUM1 > 99 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-" & NUM1
+                                                End If
+                                                PA1 = 調庫單號_tb.Text
+                                                SQL_倉儲明細執行單號_執行單號驗證()
+                                                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+                                            Next
+                                            SQL_倉儲明細執行單號_新增() : conn.Close()
+                                        End If
+
+                                        SQL_倉儲明細表_最後一筆資料()
+                                        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                                        conn.Close() : EDR += 1
+                                        If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR
+                                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                                        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                                        ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                                        PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : PA9 = 單號_tb.Text
+                                        SQL_銷售單申請_倉儲明細表_銷售出庫()
+                                        Set_清單4()
+                                    ElseIf Val(可申請_tb.Text) = 0 Then
+                                        PA9 = "未有貨"
+                                        SQL_銷售單申請_銷售明細表_新增()
+                                        Set_清單4()
+                                    End If : conn.Close()
+                                    Set_清單()
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA = 銷售資料流水號_tb.Text : PA1 = 倉儲資料流水號_tb.Text
+                    SQL_銷售明細表_單筆刪除() : SQL_倉儲控制表_依銷售單號單筆刪除() : Set_清單() : Set_清單4() : PA = "" : PA1 = ""
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            Dim aa1 As MsgBoxResult = MsgBox("刪除銷售單會連同該單據串連的採購，倉儲等聯繫單據都依同刪除，請再次確定是否刪除該單據?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                PA = 單號_tb.Text
+                SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除()
+                Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6()
+                conn.Close()
+            End If
+        End If
+    End Sub
+    Private Sub 銷售備註_bt_Click(sender As Object, e As EventArgs) Handles 銷售備註_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                SQL_銷售備註表_最後一筆資料()
+                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = "SR" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SR" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SR" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SR" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SR" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SR" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SR" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SR" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If
+
+                PA1 = ESTR : PA = 單號_tb.Text
+                SQL_銷售備註表_新增() : Set_清單5()
+            End If
+        End If
+    End Sub
+    Private Sub 刪除備註_bt_Click(sender As Object, e As EventArgs) Handles 刪除備註_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA = 銷售備註流水號_tb.Text
+                    SQL_銷售備註表_刪除() : Set_清單5()
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                If 項次3_tb.Text = "" Then
+                    MsgBox("沒有選擇收款事項，無法作業。")
+                Else
+                    If 項次3_tb.Text = "0" Then
+                        MsgBox("不能刪除 [未收餘額] 選項!!")
+                    Else
+                        Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                        If aa1 = MsgBoxResult.Ok Then
+                            PA = 銷售收款流水號_tb.Text
+                            SQL_銷售收款事項_刪除() : Set_清單6()
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 新增一筆收款事項_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆收款事項_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                SQL_銷售收款事項_最後一筆資料()
+                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = "ST" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
+                PA1 = ESTR
+
+                SQL_銷售收款事項_最後一筆項次()
+                If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
+                PA2 = ESTR : PA = 單號_tb.Text
+                SQL_銷售收款事項_新增2() : Set_清單6()
+            End If
+        End If
+    End Sub
+End Class

YD-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb

@@ -22,9 +22,10 @@ Partial Class 系統編碼規則
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.級別修改_bt = New System.Windows.Forms.Button()
@@ -54,12 +55,23 @@ Partial Class 系統編碼規則
         Me.倉狀碼新增_bt = New System.Windows.Forms.Button()
         Me.倉狀碼刪除_bt = New System.Windows.Forms.Button()
         Me.倉儲狀態_tb = New System.Windows.Forms.TextBox()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.訂製編碼_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.料定狀態_dgv = New System.Windows.Forms.DataGridView()
+        Me.料定修改_bt = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.料定新增_bt = New System.Windows.Forms.Button()
+        Me.料定刪除_bt = New System.Windows.Forms.Button()
+        Me.訂製內容_tb = New System.Windows.Forms.TextBox()
         Me.GroupBox2.SuspendLayout()
         CType(Me.職稱_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
         CType(Me.地區碼_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox3.SuspendLayout()
         CType(Me.倉儲狀態_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox4.SuspendLayout()
+        CType(Me.料定狀態_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label3
@@ -123,8 +135,8 @@ Partial Class 系統編碼規則
         '
         '職稱_dgv
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.職稱_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.職稱_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -223,8 +235,8 @@ Partial Class 系統編碼規則
         '
         '地區碼_dgv
         '
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.地區碼_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.地區碼_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.地區碼_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.地區碼_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -323,8 +335,8 @@ Partial Class 系統編碼規則
         '
         '倉儲狀態_dgv
         '
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.倉儲狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.倉儲狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.倉儲狀態_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.倉儲狀態_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -385,11 +397,109 @@ Partial Class 系統編碼規則
         Me.倉儲狀態_tb.Size = New System.Drawing.Size(73, 23)
         Me.倉儲狀態_tb.TabIndex = 227
         '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.訂製編碼_tb)
+        Me.GroupBox4.Controls.Add(Me.Label7)
+        Me.GroupBox4.Controls.Add(Me.料定狀態_dgv)
+        Me.GroupBox4.Controls.Add(Me.料定修改_bt)
+        Me.GroupBox4.Controls.Add(Me.Label8)
+        Me.GroupBox4.Controls.Add(Me.料定新增_bt)
+        Me.GroupBox4.Controls.Add(Me.料定刪除_bt)
+        Me.GroupBox4.Controls.Add(Me.訂製內容_tb)
+        Me.GroupBox4.Location = New System.Drawing.Point(660, 39)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(276, 356)
+        Me.GroupBox4.TabIndex = 245
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "物料訂製狀態"
+        '
+        '訂製編碼_tb
+        '
+        Me.訂製編碼_tb.Location = New System.Drawing.Point(42, 44)
+        Me.訂製編碼_tb.Name = "訂製編碼_tb"
+        Me.訂製編碼_tb.Size = New System.Drawing.Size(88, 23)
+        Me.訂製編碼_tb.TabIndex = 1006
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(5, 47)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.TabIndex = 231
+        Me.Label7.Text = "編碼"
+        '
+        '料定狀態_dgv
+        '
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.料定狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.料定狀態_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.料定狀態_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.料定狀態_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.料定狀態_dgv.Location = New System.Drawing.Point(8, 70)
+        Me.料定狀態_dgv.Name = "料定狀態_dgv"
+        Me.料定狀態_dgv.RowHeadersWidth = 5
+        Me.料定狀態_dgv.RowTemplate.Height = 24
+        Me.料定狀態_dgv.Size = New System.Drawing.Size(262, 280)
+        Me.料定狀態_dgv.TabIndex = 222
+        '
+        '料定修改_bt
+        '
+        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.DarkGreen
+        Me.料定修改_bt.Location = New System.Drawing.Point(204, 43)
+        Me.料定修改_bt.Name = "料定修改_bt"
+        Me.料定修改_bt.Size = New System.Drawing.Size(66, 25)
+        Me.料定修改_bt.TabIndex = 224
+        Me.料定修改_bt.Text = "修改"
+        Me.料定修改_bt.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(5, 22)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 229
+        Me.Label8.Text = "訂製"
+        '
+        '料定新增_bt
+        '
+        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.Blue
+        Me.料定新增_bt.Location = New System.Drawing.Point(204, 17)
+        Me.料定新增_bt.Name = "料定新增_bt"
+        Me.料定新增_bt.Size = New System.Drawing.Size(66, 25)
+        Me.料定新增_bt.TabIndex = 223
+        Me.料定新增_bt.Text = "新增"
+        Me.料定新增_bt.UseVisualStyleBackColor = True
+        '
+        '料定刪除_bt
+        '
+        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.Red
+        Me.料定刪除_bt.Location = New System.Drawing.Point(136, 43)
+        Me.料定刪除_bt.Name = "料定刪除_bt"
+        Me.料定刪除_bt.Size = New System.Drawing.Size(66, 25)
+        Me.料定刪除_bt.TabIndex = 225
+        Me.料定刪除_bt.Text = "刪除"
+        Me.料定刪除_bt.UseVisualStyleBackColor = True
+        '
+        '訂製內容_tb
+        '
+        Me.訂製內容_tb.Location = New System.Drawing.Point(42, 19)
+        Me.訂製內容_tb.Name = "訂製內容_tb"
+        Me.訂製內容_tb.Size = New System.Drawing.Size(160, 23)
+        Me.訂製內容_tb.TabIndex = 227
+        '
         '系統編碼規則
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1490, 681)
+        Me.Controls.Add(Me.GroupBox4)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.GroupBox2)
@@ -407,6 +517,9 @@ Partial Class 系統編碼規則
         Me.GroupBox3.ResumeLayout(False)
         Me.GroupBox3.PerformLayout()
         CType(Me.倉儲狀態_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        CType(Me.料定狀態_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -441,4 +554,13 @@ Partial Class 系統編碼規則
     Friend WithEvents 倉狀碼新增_bt As Windows.Forms.Button
     Friend WithEvents 倉狀碼刪除_bt As Windows.Forms.Button
     Friend WithEvents 倉儲狀態_tb As Windows.Forms.TextBox
+    Friend WithEvents GroupBox4 As Windows.Forms.GroupBox
+    Friend WithEvents 訂製編碼_tb As Windows.Forms.TextBox
+    Friend WithEvents Label7 As Windows.Forms.Label
+    Friend WithEvents 料定狀態_dgv As Windows.Forms.DataGridView
+    Friend WithEvents 料定修改_bt As Windows.Forms.Button
+    Friend WithEvents Label8 As Windows.Forms.Label
+    Friend WithEvents 料定新增_bt As Windows.Forms.Button
+    Friend WithEvents 料定刪除_bt As Windows.Forms.Button
+    Friend WithEvents 訂製內容_tb As Windows.Forms.TextBox
 End Class

YD-ERP-SYS/資料庫系統管理/系統編碼規則.vb

@@ -1,6 +1,14 @@
-Imports System.Windows.Forms
-Public Class 系統編碼規則
-    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : Dim 首次開啟 As Boolean = False
+Public Class 系統編碼規則
+    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_物料訂製()
+        料定狀態_dgv.DataSource = Nothing : ds4.Clear() : 料定狀態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        料定狀態_dgv.ColumnHeadersHeight = 25
+        料定狀態_dgv.AllowUserToAddRows = False
+        SQL_系統編碼規則_物料訂製()
+        da.Fill(ds4) : 料定狀態_dgv.DataSource = ds4.Tables(0) : conn.Close()
+        料定狀態_dgv.Columns(0).FillWeight = 100 : 料定狀態_dgv.Columns(1).FillWeight = 50
+    End Sub
     Private Sub Set_職稱清單()
         職稱_dgv.DataSource = Nothing : ds1.Clear() : 職稱_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         職稱_dgv.ColumnHeadersHeight = 25
@@ -27,10 +35,19 @@ Public Class 系統編碼規則
     End Sub
     Private Sub 系統編碼規則_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        訂製編碼_tb.Enabled = False
+
         首次開啟 = False
-        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態()
+        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態() : Set_物料訂製()
         首次開啟 = True
     End Sub
+    Private Sub 料定狀態_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 料定狀態_dgv.CellEnter
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                訂製內容_tb.Text = 料定狀態_dgv(0, e.RowIndex).Value.ToString : 訂製編碼_tb.Text = 料定狀態_dgv(1, e.RowIndex).Value.ToString
+            End If
+        End If
+    End Sub
     Private Sub 倉儲狀態_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 倉儲狀態_dgv.CellEnter
         If 首次開啟 = True Then
             If e.RowIndex = -1 Then : Else
@@ -69,7 +86,7 @@ Public Class 系統編碼規則
         式共用1()
     End Sub
     Private Sub 式共用1()
-        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態()
+        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態() : Set_物料訂製()
     End Sub
     Private Sub 式共用2()
         dr.Close() : ConnOpen()
@@ -172,4 +189,41 @@ Public Class 系統編碼規則
     Private Sub 倉狀碼刪除_bt_Click(sender As Object, e As EventArgs) Handles 倉狀碼刪除_bt.Click
         SQL_系統編碼規則_倉儲狀態刪除() : SET_刪除按鈕程式共用1()
     End Sub
+    '------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 料定新增_bt_Click(sender As Object, e As EventArgs) Handles 料定新增_bt.Click
+        If 訂製內容_tb.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            式共用3() : SQL_系統編碼規則_物料訂製狀態重複查詢() : CmdSet_For_dr()
+            If dr.Read() Then
+                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+            Else
+                SQL_系統編碼規則_物料訂製狀態_最後一筆資料()  '--------------------自動取得新編號
+                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編碼").ToString, 4)) : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = "MA" & "000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "MA" & "00" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "MA" & "0" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "MA" & EDR
+                End If : 訂製編碼_tb.Text = ESTR
+
+                式共用2() : SQL_系統編碼規則_物料訂製狀新增() : SET_新增按鈕程式共用2()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub 料定修改_bt_Click(sender As Object, e As EventArgs) Handles 料定修改_bt.Click
+        If 訂製內容_tb.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            PA = InputBox("請輸入要修改的內容")
+            If PA = "" Then
+                MsgBox("沒有輸入修改內容")
+            Else
+                式共用3() : SQL_系統編碼規則_物料訂製修改() : SET_修改按鈕程式共用1()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub 料定刪除_bt_Click(sender As Object, e As EventArgs) Handles 料定刪除_bt.Click
+        SQL_系統編碼規則物料訂製刪除() : SET_刪除按鈕程式共用1()
+    End Sub
 End Class