版本號 : 2021042001

更新內容如下
1、物料檔案新增EXCEL列印。
2、修正營運成本收支單審核BUG。
3、採購控制表更名-採購對帳單、採購對帳單更名-採購應付帳款。
4、部分介面清單顯示處開啟加速模式。
5、銷售單物料清單新增不含管銷勾選功能。
6、銷售單新增衍生運費表單功能。
7、銷售單申請、審核、訂單控制表英新增衍伸運費版面不足問題，新增左邊顯示控件隱藏的功能。

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

@@ -15,11 +15,13 @@
                 SQL2 = " WHERE (物料資料庫.供應商編號 LIKE '" & 物料檔案.供應商編碼_cb.Text & "') AND (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') "
             End If
         End If
-
-        SQL1 = "SELECT 物料資料庫.料號, 物料資料庫.供應商編號 AS 供應商, 物料資料庫.成本, 物料資料庫.品名, 物料資料庫.最低庫存量, 物料資料庫.停用, 物料資料庫.是否有圖 AS 圖片, 系統選擇按鈕.選擇 AS 刪除
-                FROM   物料資料庫 LEFT OUTER JOIN 系統選擇按鈕 ON 物料資料庫.料號 = 系統選擇按鈕.按鈕
+        SQL1 = "SELECT      物料資料庫.料號, 物料資料庫.供應商編號 AS 供應商, 物料資料庫.成本, 物料資料庫.品名, 物料資料庫.最低庫存量, 
+                            物料資料庫.停用, 物料資料庫.是否有圖 AS 圖片, 系統選擇按鈕.選擇 AS 刪除, 供應商資料表.供應商 AS 廠商
+                FROM              物料資料庫 INNER JOIN
+                            供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN
+                            系統選擇按鈕 ON 物料資料庫.料號 = 系統選擇按鈕.按鈕
                 " & SQL2 & "
-                ORDER BY 物料資料庫.料號"
+                ORDER BY   物料資料庫.料號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_物料檔案_圖片修改()

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

@@ -81,6 +81,15 @@
                 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_供應商資料表_批量存檔()
+        ConnOpen()
+        SQL1 = "UPDATE 供應商資料表 SET 簡稱 = N'" & PA2 & "', 供應商 = N'" & PA3 & "', 公司地址 = N'" & PA4 & "', 電話1 = N'" & PA5 &
+                                    "', 電話2 = N'" & PA6 & "', 電話3 = N'" & PA7 & "', 電話4 = N'" & PA8 & "', 店面電話 = N'" & PA9 &
+                                    "', 電話 = N'" & PA10 & "' , 傳真 = N'" & PA11 & "', 票期 = N'" & PA12 & "', 支票_私人 = N'" & PA13 &
+                                    "', 支票_公司 = N'" & PA14 & "', 稅金倍率 = N'" & PA15 & "', 廣告費倍率 = N'" & PA16 & "'
+                WHERE  編號 LIKE N'" & PA1 & "'"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_供應商資料表_刪除()
         ConnOpen() : SQL1 = "DELETE 供應商資料表 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')" : CmdSet_For_dr()
     End Sub
@@ -107,10 +116,10 @@
                             供應商資料表.支票_私人
                  FROM      (SELECT   年月, 客編, 稅金, 廣告, 其他扣款, 票期, 公帳, 私帳
                             FROM     應付帳款基數
-                            WHERE   (年月 LIKE '" & Strings.Left(Format(採購對帳單.結束日期_dtp.Value, "yyyy/MM/dd"), 7) & "')) AS QQ RIGHT OUTER JOIN
+                            WHERE   (年月 LIKE '" & Strings.Left(Format(採購應負帳款.結束日期_dtp.Value, "yyyy/MM/dd"), 7) & "')) AS QQ RIGHT OUTER JOIN
                             供應商資料表 ON QQ.客編 = 供應商資料表.編號 RIGHT OUTER JOIN
                             採購控制表 ON 供應商資料表.編號 = LEFT(採購控制表.料號, 4)
-                 WHERE     (採購控制表.過帳日期 BETWEEN '" & Format(採購對帳單.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購對帳單.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                 WHERE     (採購控制表.過帳日期 BETWEEN '" & Format(採購應負帳款.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購應負帳款.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
                            (採購控制表.已過帳 = 1)
                  GROUP BY   LEFT(採購控制表.料號, 4), 供應商資料表.簡稱, 供應商資料表.票期, 供應商資料表.稅金倍率, 
                             供應商資料表.廣告費倍率, QQ.票期, QQ.稅金, QQ.廣告, QQ.其他扣款, QQ.公帳, QQ.私帳, 供應商資料表.支票_公司, 
@@ -131,9 +140,28 @@
                             倉儲狀態 ON 採購控制表.物料狀態 = 倉儲狀態.編碼 INNER JOIN
                             物料訂製狀態 ON 採購控制表.訂製狀態 = 物料訂製狀態.編碼 INNER JOIN
                             倉儲分區控制表 ON 採購控制表.倉儲狀態 = 倉儲分區控制表.倉名編號
-                WHERE      (採購控制表.過帳日期 BETWEEN '" & Format(採購對帳單.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購對帳單.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                WHERE      (採購控制表.過帳日期 BETWEEN '" & Format(採購應負帳款.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購應負帳款.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
                            (採購控制表.已過帳 = 1)
                 ORDER BY    採購控制表.供商編號, 採購控制表.料號"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_採購對帳單_合計()
+        ConnOpen()
+        SQL1 = "SELECT 票期, 數值 AS 公司, 數值 AS 個人 FROM 應付帳款基數 
+                WHERE (年月 LIKE '" & Strings.Left(Format(採購應負帳款.結束日期_dtp.Value, "yyyy/MM/dd"), 7) & "') 
+                GROUP BY 票期, 數值 ORDER BY 票期"
+        CmdSet_For_DGV()
+    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 '" & PA & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購對帳單_存檔()
+        ConnOpen()
+        SQL1 = "INSERT INTO 應付帳款基數 (年月, 客編, 稅金, 廣告, 其他扣款, 票期, 公帳, 私帳) 
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & Val(PA2) & "', N'" & Val(PA3) & "', N'" & Val(PA4) & "', N'" & PA5 & "', N'" & Val(PA6) & "', N'" & Val(PA7) & "')"
+        CmdSet_For_dr()
+    End Sub
 End Module

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

@@ -133,7 +133,8 @@
         ConnOpen()
         SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
                             公帳流水帳.零用金, 公帳流水帳.支票數 AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
-                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 
+                            公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號, 公帳流水帳.含稅
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
                 WHERE       (公帳流水帳.支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')
@@ -171,7 +172,7 @@
         ConnOpen()
         SQL1 = "UPDATE 公帳流水帳 SET  明細 = N'" & PA1 & "', 支出 = N'" & PA2 & "', 
                        備註 = N'" & PA3 & "' , 類別 = N'" & PA4 & "', 收入 = N'" & PA5 & "',
-                       零用金 = N'" & PA6 & "', 支票數 = N'" & PA7 & "', 匯率 = N'" & PA8 & "'
+                       零用金 = N'" & PA6 & "', 支票數 = N'" & PA7 & "', 匯率 = N'" & PA8 & "', 含稅 = N'" & BL1 & "'
                 WHERE  (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA9 & "')"
         CmdSet_For_dr()
     End Sub
@@ -228,9 +229,9 @@
     Friend Sub SQL_營運成本收支單申請_新增公帳流水帳資料()
         ConnOpen()
         SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
-                            出納日期, 零用金, 支票數, 匯率, 備註) " &
+                            出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
                    "VALUES (N'" & PA19 & "', N'" & 營運成本收支單申請.幣別_cb.Text & "', N'" & DTP & "', N'" & 營運成本收支單申請.ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & PA15 &
-                        "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'')"
+                        "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'' ,'0')"
         CmdSet_For_dr()
     End Sub
     '---------------------營運成本收支單審核.------------------------------------------------------------------------------------------------------------------------------------------
@@ -254,7 +255,7 @@
         ConnOpen()
         SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
                             Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
-                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號, 公帳流水帳.含稅
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
                 WHERE      (公帳流水帳.支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')

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

@@ -181,7 +181,7 @@
     Friend Sub SQL_銷售明細表_修改()
         ConnOpen()
         SQL1 = "UPDATE 銷售明細表 SET 備註 = N'" & PA10 & "', 成本 = N'" & NU1 & "', 售價 = N'" & NU2 & "', 含稅 = N'" & BL5 & "',倉儲狀態 = N'" & PA9 & "', 
-                                      物料狀態 = N'" & PA8 & "', 訂製狀態 = N'" & PA7 & "' 
+                                      物料狀態 = N'" & PA8 & "', 訂製狀態 = N'" & PA7 & "', 不含管銷 = N'" & BL5 & "' 
                 WHERE (資料流水號 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
@@ -195,6 +195,11 @@
         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 = "UPDATE 銷售收款事項 SET 內容 = N'" & PA10 & "', 金額 = N'" & NU1 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
@@ -241,9 +246,9 @@
     End Sub
     Friend Sub SQL_銷售單申請_銷售明細表_新增()
         ConnOpen()
-        SQL1 = "INSERT INTO 銷售明細表 (資料流水號, 單號, 料號, 物料狀態, 訂製狀態, 備註, 數量, 成本, 售價, 狀態, 含稅, 倉儲狀態, 排序) 
+        SQL1 = "INSERT INTO 銷售明細表 (資料流水號, 單號, 料號, 物料狀態, 訂製狀態, 備註, 數量, 成本, 售價, 狀態, 含稅, 倉儲狀態, 排序, 不含管銷) 
                 VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA2 & "',N'" & PA7 & "',N'" & PA8 & "', N'', N'" & NU1 & "', N'" & NU2 & "', N'" & NU3 & "', 
-                         '" & PA9 & "', N'" & BL2 & "', N'" & PA10 & "', N'" & PA11 & "')"
+                         '" & PA9 & "', N'" & BL2 & "', N'" & PA10 & "', N'" & PA11 & "', '0')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售單申請_倉儲明細表_銷售出庫()
@@ -258,7 +263,7 @@
         SQL1 = "SELECT      銷售明細表.資料流水號, 銷售明細表.資料流水號 AS 項次, 銷售明細表.料號, 物料資料庫.品名, 倉儲分區控制表.倉名, 
                             物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 
                             銷售明細表.含稅, 銷售明細表.售價, 銷售明細表.狀態 AS 倉儲情況, 銷售明細表.資料流水號 AS 倉儲流水號, 銷售明細表.倉儲狀態, 銷售明細表.訂製狀態, 
-                            銷售明細表.物料狀態
+                            銷售明細表.物料狀態, 銷售明細表.不含管銷 AS 無管銷
                 FROM              銷售明細表 INNER JOIN
                             倉儲狀態 ON 銷售明細表.物料狀態 = 倉儲狀態.編碼 INNER JOIN
                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
@@ -294,6 +299,11 @@
         SQL1 = "SELECT 資料流水號, 資料流水號 AS 項次, 備註, 收入, 支出 FROM 銷售備註表 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 倉儲明細表.執行單號"
@@ -304,6 +314,11 @@
         SQL1 = "INSERT INTO 銷售備註表 (資料流水號, 單號, 備註, 收入, 支出) VALUES (N'" & PA1 & "', '" & PA & "', '', N'0', N'0')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_銷售衍生運費_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 銷售衍生運費 (資料流水號, 單號, 運費備註, 支出) VALUES (N'" & PA1 & "', '" & PA & "', '', N'0')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_銷售收款事項_新增2()
         ConnOpen()
         SQL1 = "INSERT INTO 銷售收款事項 (資料流水號, 單號, 項次, 內容, 金額) VALUES (N'" & PA1 & "', '" & PA & "', '" & PA2 & "', N'', N'0')"
@@ -317,6 +332,9 @@
     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
@@ -332,6 +350,9 @@
     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

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

@@ -4,7 +4,7 @@
     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
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021040601"
+    Public 版本 As String = "2021042001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String
@@ -21,7 +21,7 @@
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     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 BL1 As Boolean : Public BL2 As Boolean : Public BL3 As Boolean : Public BL4 As Boolean : Public BL5 As Boolean : Public BL6 As Boolean
     '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 客戶資料強制對話框模式 As Boolean : Public 入庫選擇1 As Boolean : Public 入庫選擇2 As Boolean
     '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

@@ -294,28 +294,28 @@ Partial Class YD_ERP_SYS
         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.Report
         Me.採購控制表_tsm.Name = "採購控制表_tsm"
-        Me.採購控制表_tsm.Size = New System.Drawing.Size(170, 22)
-        Me.採購控制表_tsm.Text = "採購控制表"
+        Me.採購控制表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購控制表_tsm.Text = "採購對帳單"
         '
         '採購對帳單_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.business_info
         Me.採購對帳單_tsm.Name = "採購對帳單_tsm"
-        Me.採購對帳單_tsm.Size = New System.Drawing.Size(170, 22)
-        Me.採購對帳單_tsm.Text = "採購對帳單"
+        Me.採購對帳單_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購對帳單_tsm.Text = "採購應付帳款"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(167, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 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.pen
         Me.一般性申請採購單_tsm.Name = "一般性申請採購單_tsm"
-        Me.一般性申請採購單_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.一般性申請採購單_tsm.Size = New System.Drawing.Size(180, 22)
         Me.一般性申請採購單_tsm.Text = "一般性申請採購單"
         '
         '依銷售申請採購單_tsm
@@ -323,7 +323,7 @@ Partial Class YD_ERP_SYS
         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.pen
         Me.依銷售申請採購單_tsm.Name = "依銷售申請採購單_tsm"
-        Me.依銷售申請採購單_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.依銷售申請採購單_tsm.Size = New System.Drawing.Size(180, 22)
         Me.依銷售申請採購單_tsm.Text = "依銷售申請採購單"
         '
         '採購單審核_tsm
@@ -331,19 +331,19 @@ Partial Class YD_ERP_SYS
         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.check
         Me.採購單審核_tsm.Name = "採購單審核_tsm"
-        Me.採購單審核_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.採購單審核_tsm.Size = New System.Drawing.Size(180, 22)
         Me.採購單審核_tsm.Text = "採購單審核"
         '
         'ToolStripSeparator7
         '
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
-        Me.ToolStripSeparator7.Size = New System.Drawing.Size(167, 6)
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(177, 6)
         '
         '採購退貨申請_tsm
         '
         Me.採購退貨申請_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購退貨申請_tsm.Name = "採購退貨申請_tsm"
-        Me.採購退貨申請_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.採購退貨申請_tsm.Size = New System.Drawing.Size(180, 22)
         Me.採購退貨申請_tsm.Text = "採購退貨申請"
         Me.採購退貨申請_tsm.Visible = False
         '
@@ -351,14 +351,14 @@ Partial Class YD_ERP_SYS
         '
         Me.採購退貨審核_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購退貨審核_tsm.Name = "採購退貨審核_tsm"
-        Me.採購退貨審核_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.採購退貨審核_tsm.Size = New System.Drawing.Size(180, 22)
         Me.採購退貨審核_tsm.Text = "採購退貨審核"
         Me.採購退貨審核_tsm.Visible = False
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(167, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
         Me.ToolStripSeparator1.Visible = False
         '
         '供應商資料表_tsm
@@ -366,7 +366,7 @@ Partial Class YD_ERP_SYS
         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(170, 22)
+        Me.供應商資料表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.供應商資料表_tsm.Text = "供應商資料表"
         '
         '倉儲系統管理_tsm
@@ -607,6 +607,7 @@ Partial Class YD_ERP_SYS
         '
         '簽名檔管理ToolStripMenuItem
         '
+        Me.簽名檔管理ToolStripMenuItem.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.簽名檔管理ToolStripMenuItem.Name = "簽名檔管理ToolStripMenuItem"
         Me.簽名檔管理ToolStripMenuItem.Size = New System.Drawing.Size(182, 22)
         Me.簽名檔管理ToolStripMenuItem.Text = "簽名檔管理"

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

@@ -141,13 +141,13 @@ 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 = "" : 採購對帳單.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()
+        PA = "" : 採購應負帳款.Show() : 採購應負帳款.BringToFront()
     End Sub
     Private Sub 倉儲入庫_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲入庫_tsm.Click
         PA = "" : 倉儲入庫.Show() : 倉儲入庫.BringToFront()

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

@@ -209,16 +209,16 @@
     <Compile Include="採購系統管理\採購單審核.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="採購系統管理\採購對帳單.Designer.vb">
-      <DependentUpon>採購對帳單.vb</DependentUpon>
+    <Compile Include="採購系統管理\採購應負帳款.Designer.vb">
+      <DependentUpon>採購應負帳款.vb</DependentUpon>
     </Compile>
-    <Compile Include="採購系統管理\採購對帳單.vb">
+    <Compile Include="採購系統管理\採購應負帳款.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="採購系統管理\採購控制表.Designer.vb">
-      <DependentUpon>採購控制表.vb</DependentUpon>
+    <Compile Include="採購系統管理\採購對帳單.Designer.vb">
+      <DependentUpon>採購對帳單.vb</DependentUpon>
     </Compile>
-    <Compile Include="採購系統管理\採購控制表.vb">
+    <Compile Include="採購系統管理\採購對帳單.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="採購系統管理\採購訂製大圖.Designer.vb">
@@ -451,12 +451,12 @@
     <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>

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

@@ -1 +1 @@
-a4f6e87bc886a6a14ffb5949444fdd1a84718492
+134da36bc1a476ecd17ffb6779b8ecef1e31298c

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

@@ -119,7 +119,6 @@ D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.依銷售申請採購單.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購單審核.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購對帳單.resources
-D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購控制表.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.供應商資料表.resources
@@ -155,3 +154,4 @@ D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CopyComplete
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應負帳款.resources

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

@@ -79,6 +79,7 @@ Partial Class 物料檔案
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
         Me.低量_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label9 = New System.Windows.Forms.Label()
+        Me.列印_bt = New System.Windows.Forms.Button()
         CType(Me.物料清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -312,12 +313,12 @@ Partial Class 物料檔案
         '狀態_lb
         '
         Me.狀態_lb.AutoSize = True
-        Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.狀態_lb.ForeColor = System.Drawing.Color.Red
         Me.狀態_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.狀態_lb.Location = New System.Drawing.Point(864, 9)
+        Me.狀態_lb.Location = New System.Drawing.Point(953, 65)
         Me.狀態_lb.Name = "狀態_lb"
-        Me.狀態_lb.Size = New System.Drawing.Size(145, 40)
+        Me.狀態_lb.Size = New System.Drawing.Size(56, 16)
         Me.狀態_lb.TabIndex = 1102
         Me.狀態_lb.Text = "編輯狀態"
         '
@@ -613,12 +614,24 @@ Partial Class 物料檔案
         Me.Label9.TabIndex = 1132
         Me.Label9.Text = "最低庫存量"
         '
+        '列印_bt
+        '
+        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(945, 4)
+        Me.列印_bt.Name = "列印_bt"
+        Me.列印_bt.Size = New System.Drawing.Size(64, 51)
+        Me.列印_bt.TabIndex = 1133
+        Me.列印_bt.Text = "列印成EXCEL"
+        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(1312, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.列印_bt)
         Me.Controls.Add(Me.低量_nud)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.批量刪除_bt)
@@ -735,4 +748,5 @@ Partial Class 物料檔案
     Friend WithEvents 批量刪除_bt As Windows.Forms.Button
     Friend WithEvents 低量_nud As Windows.Forms.NumericUpDown
     Friend WithEvents Label9 As Windows.Forms.Label
+    Friend WithEvents 列印_bt As Button
 End Class

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

@@ -1,7 +1,17 @@
 Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports Microsoft.Office.Interop.Excel
 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
+    Dim 資料新增判斷 As Boolean : Dim EDR, N1 As Integer : Dim ESTR As String : Dim 首次開啟 As Boolean = False
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Private Sub Set_清單()
         物料清單_dgv.DataSource = Nothing : ds1.Clear() : 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         物料清單_dgv.ColumnHeadersHeight = 40
@@ -12,7 +22,7 @@ Public Class 物料檔案
 
         物料清單_dgv.Columns("料號").FillWeight = 70 : 物料清單_dgv.Columns("供應商").FillWeight = 40 : 物料清單_dgv.Columns("成本").FillWeight = 50
         物料清單_dgv.Columns("品名").FillWeight = 170 : 物料清單_dgv.Columns("停用").FillWeight = 40 : 物料清單_dgv.Columns("圖片").FillWeight = 40
-        物料清單_dgv.Columns("刪除").FillWeight = 40 : 物料清單_dgv.Columns("最低庫存量").FillWeight = 40
+        物料清單_dgv.Columns("刪除").FillWeight = 40 : 物料清單_dgv.Columns("最低庫存量").FillWeight = 40 : 物料清單_dgv.Columns("廠商").Visible = False
 
         物料清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
         物料清單_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -40,6 +50,10 @@ 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
+        Dim type0 As Type = 物料清單_dgv.GetType()
+        Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi0.SetValue(物料清單_dgv, True, Nothing)
+
         地區編碼_cb.Enabled = False : 下載檔名_tb.Visible = False : 檔名讀取_tb.Visible = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
         料號_tb.Enabled = False : 批量存檔_bt.Enabled = False : 批輛停用選擇_ch.Enabled = False : 批量刪除選擇_ch.Enabled = False : 批量刪除_bt.Enabled = False : 狀態_lb.Text = "預覽狀態"
 
@@ -221,7 +235,7 @@ Public Class 物料檔案
         If 物料圖_pb.Image Is Nothing Then : MsgBox("所選擇的資料沒有圖片檔案，無法下載。")
         Else
             With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
-            SaveFileDialog1.FileName = 料號_tb.Text & "-" & Format(Today(), "yyyyMMdd") & ".jpg"
+            SaveFileDialog1.FileName = 料號_tb.Text & "-" & Strings.Format(Today(), "yyyyMMdd") & ".jpg"
             Dim result As DialogResult = SaveFileDialog1.ShowDialog()
             下載檔名_tb.Text = SaveFileDialog1.FileName
             If result = System.Windows.Forms.DialogResult.Cancel Then
@@ -338,6 +352,71 @@ Public Class 物料檔案
             End If
         End If
     End Sub
+    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlBook.Activate()
+        xlSheet = NewMethod(xlBook)
+        xlSheet.Activate()
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+
+        xlSheet.Cells(1, 3) = "雅邸家居-物料清單"
+        xlSheet.Cells(2, 1) = "料號" : xlSheet.Cells(2, 2) = "廠商編號" : xlSheet.Cells(2, 3) = "廠商"
+        xlSheet.Cells(2, 4) = "品名" : xlSheet.Cells(2, 5) = "盤點數量" : xlSheet.Cells(2, 6) = "備註"
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 3, 1) = 物料清單_dgv.Rows(i).Cells("料號").Value
+            xlSheet.Cells(i + 3, 2) = 物料清單_dgv.Rows(i).Cells("供應商").Value
+            xlSheet.Cells(i + 3, 3) = 物料清單_dgv.Rows(i).Cells("廠商").Value
+            xlSheet.Cells(i + 3, 4) = 物料清單_dgv.Rows(i).Cells("品名").Value
+            N1 = i + 3
+        Next
+        BB(xlApp, xlSheet)
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        xlSheet.Cells.Select()
+        MsgBox("列印完成。")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
+    End Function
+    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+        '
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+        xlSheet.Columns("A:F").EntireColumn.AutoFit
+        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Cells.Select() : myExcel.Selection.RowHeight = 25
+        xlSheet.Rows("2:2").Select : myExcel.Selection.AutoFilter
+        xlSheet.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True
+
+        xlSheet.Range("A1:F1").Select()
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
+            .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        myExcel.Selection.Merge
+
+        xlSheet.Range("A1:F" & N1).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+    End Sub
     '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
         供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : 查詢_tb.Text = "" : Set_清單()

YD-ERP-SYS/採購系統管理/供應商資料表.Designer.vb

@@ -105,6 +105,7 @@ Partial Class 供應商資料表
         Me.Label33 = New System.Windows.Forms.Label()
         Me.廣告費倍率_tb = New System.Windows.Forms.TextBox()
         Me.Label34 = New System.Windows.Forms.Label()
+        Me.批量存檔_bt = New System.Windows.Forms.Button()
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.結算日_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.KR1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -127,7 +128,7 @@ Partial Class 供應商資料表
         Me.供應商_dgv.Name = "供應商_dgv"
         Me.供應商_dgv.RowHeadersWidth = 5
         Me.供應商_dgv.RowTemplate.Height = 24
-        Me.供應商_dgv.Size = New System.Drawing.Size(1563, 554)
+        Me.供應商_dgv.Size = New System.Drawing.Size(1563, 532)
         Me.供應商_dgv.TabIndex = 225
         '
         '地區編碼_cb
@@ -867,12 +868,26 @@ Partial Class 供應商資料表
         Me.Label34.TabIndex = 1144
         Me.Label34.Text = "廣告倍率"
         '
+        '批量存檔_bt
+        '
+        Me.批量存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.批量存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.批量存檔_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.批量存檔_bt.Location = New System.Drawing.Point(5, 665)
+        Me.批量存檔_bt.Name = "批量存檔_bt"
+        Me.批量存檔_bt.Size = New System.Drawing.Size(1563, 25)
+        Me.批量存檔_bt.TabIndex = 1145
+        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(1574, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.批量存檔_bt)
         Me.Controls.Add(Me.廣告費倍率_tb)
         Me.Controls.Add(Me.Label34)
         Me.Controls.Add(Me.稅金倍率_tb)
@@ -1045,4 +1060,5 @@ Partial Class 供應商資料表
     Friend WithEvents Label33 As Label
     Friend WithEvents 廣告費倍率_tb As TextBox
     Friend WithEvents Label34 As Label
+    Friend WithEvents 批量存檔_bt As Button
 End Class

YD-ERP-SYS/採購系統管理/供應商資料表.vb

@@ -12,6 +12,8 @@ Public Class 供應商資料表
         供應商_dgv.DataSource = ds1.Tables(0)
         conn.Close()
 
+        供應商_dgv.Columns(0).ReadOnly = True : 供應商_dgv.Columns(11).ReadOnly = True
+
         供應商_dgv.Columns("編號").FillWeight = 20 : 供應商_dgv.Columns("簡稱").FillWeight = 35 : 供應商_dgv.Columns("供應商").FillWeight = 50
         供應商_dgv.Columns("公司地址").FillWeight = 100 : 供應商_dgv.Columns("電話1").FillWeight = 35 : 供應商_dgv.Columns("電話2").FillWeight = 35
         供應商_dgv.Columns("電話3").FillWeight = 35 : 供應商_dgv.Columns("電話4").FillWeight = 35 : 供應商_dgv.Columns("店面地址").Visible = False
@@ -169,4 +171,16 @@ Public Class 供應商資料表
     Private Sub 刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除ToolStripMenuItem.Click
         刪除_bt.PerformClick()
     End Sub
+
+    Private Sub 批量存檔_bt_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            資料數 = 供應商_dgv.Rows.Count : MyModule1.進度條() : YD_ERP_SYS.ToolStripProgressBar1.Value = 最終數
+            PA1 = 供應商_dgv.Rows(i).Cells("編號").Value : PA2 = 供應商_dgv.Rows(i).Cells("簡稱").Value : PA3 = 供應商_dgv.Rows(i).Cells("供應商").Value.ToString
+            PA4 = 供應商_dgv.Rows(i).Cells("公司地址").Value : PA5 = 供應商_dgv.Rows(i).Cells("電話1").Value.ToString : PA6 = 供應商_dgv.Rows(i).Cells("電話2").Value.ToString
+            PA7 = 供應商_dgv.Rows(i).Cells("電話3").Value.ToString : PA8 = 供應商_dgv.Rows(i).Cells("電話4").Value.ToString : PA9 = 供應商_dgv.Rows(i).Cells("店面電話").Value
+            PA10 = 供應商_dgv.Rows(i).Cells("手機").Value : PA11 = 供應商_dgv.Rows(i).Cells("傳真").Value : PA12 = 供應商_dgv.Rows(i).Cells("票期").Value : PA13 = 供應商_dgv.Rows(i).Cells("支票_私人").Value
+            PA14 = 供應商_dgv.Rows(i).Cells("支票_公司").Value : PA15 = 供應商_dgv.Rows(i).Cells("稅金倍率").Value : PA16 = 供應商_dgv.Rows(i).Cells("廣告費倍率").Value
+            SQL_供應商資料表_批量存檔() : conn.Close()
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("修改完成")
+    End Sub
 End Class

YD-ERP-SYS/採購系統管理/採購對帳單.resx

@@ -117,4 +117,19 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="Label17.Text" xml:space="preserve">
+    <value>-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</value>
+  </data>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>18, 12</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>198, 12</value>
+  </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>342, 12</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>36</value>
+  </metadata>
 </root>

YD-ERP-SYS/採購系統管理/採購對帳單.vb

@@ -1,102 +1,9 @@
 Option Strict Off
 Public Class 採購對帳單
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    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
+    Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字, 首次開啟 As Boolean
     Private Sub Set_清單1()
-        供應商_dgv.DataSource = Nothing : ds1.Clear()
-        供應商_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        供應商_dgv.ColumnHeadersHeight = 40
-        供應商_dgv.AllowUserToAddRows = False
-
-        SQL_採購對帳單_總表()
-        da.Fill(ds1) : 供應商_dgv.DataSource = ds1.Tables(0) : conn.Close()
-
-        供應商_dgv.Columns(0).FillWeight = 50 : 供應商_dgv.Columns(1).FillWeight = 80 : 供應商_dgv.Columns(2).FillWeight = 90 : 供應商_dgv.Columns(3).Visible = False
-        供應商_dgv.Columns(4).FillWeight = 50 : 供應商_dgv.Columns(5).FillWeight = 80 : 供應商_dgv.Columns(6).Visible = False : 供應商_dgv.Columns(7).FillWeight = 50
-        供應商_dgv.Columns(8).FillWeight = 80 : 供應商_dgv.Columns(9).FillWeight = 80 : 供應商_dgv.Columns(10).FillWeight = 80 : 供應商_dgv.Columns(11).Visible = False
-        供應商_dgv.Columns(12).FillWeight = 80 : 供應商_dgv.Columns(13).FillWeight = 50 : 供應商_dgv.Columns(14).FillWeight = 50 : 供應商_dgv.Columns(15).FillWeight = 100
-        供應商_dgv.Columns(16).FillWeight = 100 : 供應商_dgv.Columns(17).FillWeight = 150 : 供應商_dgv.Columns(18).FillWeight = 150
-
-        供應商_dgv.Columns(0).ReadOnly = True : 供應商_dgv.Columns(1).ReadOnly = True : 供應商_dgv.Columns(2).ReadOnly = True : 供應商_dgv.Columns(5).ReadOnly = True
-        供應商_dgv.Columns(8).ReadOnly = True : 供應商_dgv.Columns(10).ReadOnly = True : 供應商_dgv.Columns(14).ReadOnly = True : 供應商_dgv.Columns(15).ReadOnly = True
-        供應商_dgv.Columns(16).ReadOnly = True
-
-        資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
-        供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose
-        供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
-        供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
-        供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
-        供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
-        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
-            If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
-            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
-            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
-            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
-            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
-            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
-            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
-            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
-            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
-            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
-            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
-
-            If 供應商_dgv("票期", i).Value.ToString = "" Then
-                If Strings.Mid(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
-                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
-                        供應商_dgv("票期1", i).Value = "28"
-                    End If
-                End If
-                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
-                If 供應商_dgv("票期1", i).Value < 10 Then
-                    PA16 = "0" & 供應商_dgv("票期1", i).Value.ToString
-                Else
-                    PA16 = 供應商_dgv("票期1", i).Value.ToString
-                End If
-                供應商_dgv("票期", i).Value = Strings.Left(Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA16
-            End If
-        Next
-
-        供應商_dgv.Columns("公司").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("公司").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("公司").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("個人").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("個人").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("個人").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("公司%").DefaultCellStyle.Format = "#,##0.00"
-        供應商_dgv.Columns("公司%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("公司%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("個人%").DefaultCellStyle.Format = "#,##0.00"
-        供應商_dgv.Columns("個人%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("個人%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("實付金額").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("實付金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("實付金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("其他扣款").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("廣告").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("廣告").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("廣告").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("廣告%").DefaultCellStyle.Format = "#,##0.00"
-        供應商_dgv.Columns("廣告%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("廣告%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("稅金").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("稅金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("稅金").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("稅金%").DefaultCellStyle.Format = "#,##0.00"
-        供應商_dgv.Columns("稅金%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_dgv.Columns("稅金%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        供應商_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
-    End Sub
-    Private Sub Set_清單2()
-        採購清單_dgv.DataSource = Nothing : ds.Clear()
+        採購清單_dgv.DataSource = Nothing : ds1.Clear()
         採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         採購清單_dgv.ColumnHeadersHeight = 40
         採購清單_dgv.AllowUserToAddRows = False
@@ -109,19 +16,22 @@ Public Class 採購對帳單
             採購清單_dgv.RowTemplate.Height = 25
         End If
 
-        SQL_採購對帳單_明細()
-        da.Fill(ds) : 採購清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
+        PA20 = 業務1_cb.Text
+        SQL_採購控制表_未過帳()
+        da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
 
-        採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 80 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
-        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 200 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).FillWeight = 100
-        採購清單_dgv.Columns(8).Visible = False : 採購清單_dgv.Columns(9).FillWeight = 160 : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 95
-        採購清單_dgv.Columns(12).FillWeight = 145 : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 45 : 採購清單_dgv.Columns(15).Visible = False
-        採購清單_dgv.Columns(16).FillWeight = 80 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 70 : 採購清單_dgv.Columns(19).FillWeight = 70
-        採購清單_dgv.Columns(20).FillWeight = 70 : 採購清單_dgv.Columns(21).FillWeight = 70 : 採購清單_dgv.Columns(22).FillWeight = 70 : 採購清單_dgv.Columns(23).FillWeight = 45
-        採購清單_dgv.Columns(24).FillWeight = 45
+        採購清單_dgv.Columns(0).FillWeight = 40 : 採購清單_dgv.Columns(1).Visible = False : 採購清單_dgv.Columns(2).FillWeight = 70 : 採購清單_dgv.Columns(3).Visible = False
+        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 80 : 採購清單_dgv.Columns(6).FillWeight = 200 : 採購清單_dgv.Columns(7).Visible = False
+        採購清單_dgv.Columns(8).FillWeight = 100 : 採購清單_dgv.Columns(9).Visible = False : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 160
+        採購清單_dgv.Columns(12).Visible = False : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 95 : 採購清單_dgv.Columns(15).Visible = False
+        採購清單_dgv.Columns(16).FillWeight = 195 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 45 : 採購清單_dgv.Columns(19).FillWeight = 80
+        採購清單_dgv.Columns(20).Visible = False : 採購清單_dgv.Columns(21).Visible = False : 採購清單_dgv.Columns(22).Visible = False : 採購清單_dgv.Columns(23).FillWeight = 80
+        採購清單_dgv.Columns(24).FillWeight = 80 : 採購清單_dgv.Columns(25).FillWeight = 80 : 採購清單_dgv.Columns(26).FillWeight = 80 : 採購清單_dgv.Columns(27).FillWeight = 45
+        採購清單_dgv.Columns(28).FillWeight = 45
 
-        採購清單_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.Format = "#,##0"
         採購清單_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -129,17 +39,51 @@ Public Class 採購對帳單
         採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        採購清單_dgv.Columns(1).ReadOnly = True : 採購清單_dgv.Columns(3).ReadOnly = True : 採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True
-        採購清單_dgv.Columns(7).ReadOnly = True : 採購清單_dgv.Columns(9).ReadOnly = True : 採購清單_dgv.Columns(11).ReadOnly = True : 採購清單_dgv.Columns(12).ReadOnly = True
-        採購清單_dgv.Columns(13).ReadOnly = True : 採購清單_dgv.Columns(14).ReadOnly = True : 採購清單_dgv.Columns(15).ReadOnly = True : 採購清單_dgv.Columns(16).ReadOnly = True
-        採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(18).ReadOnly = True : 採購清單_dgv.Columns(19).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
-        採購清單_dgv.Columns(21).ReadOnly = True : 採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(23).ReadOnly = True
+        採購清單_dgv.Columns(0).ReadOnly = True : 採購清單_dgv.Columns(2).ReadOnly = True : 採購清單_dgv.Columns(21).ReadOnly = True
+        採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(6).ReadOnly = True
+        採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
 
-        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
-        資料筆數_tb.Text = 採購清單_dgv.Rows.Count
+        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 採購清單_dgv.Rows.Count
+        關鍵字 = False
 
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            採購清單_dgv("選擇", i).Value = False
+        Next
         Set_合記計算()
     End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單1()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "倉名"
+        }
+        SQL_倉名_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close()
+        Col.HeaderText = "倉名" : Col.Name = "倉名"
+        採購清單_dgv.Columns.Insert(8, Col)
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單2()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "訂製"
+        }
+        SQL_訂製狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close()
+        Col.HeaderText = "訂製" : Col.Name = "訂製"
+        採購清單_dgv.Columns.Insert(11, Col)
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單3()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "狀態"
+        }
+        SQL_倉儲狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close()
+        Col.HeaderText = "狀態" : Col.Name = "狀態"
+        採購清單_dgv.Columns.Insert(14, Col)
+    End Sub
     Private Sub Set_合記計算()
         採購金額_tb.Text = "0" : 採購金額1_tb.Text = "0"
         For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
@@ -152,64 +96,50 @@ Public Class 採購對帳單
         Next
         採購金額_tb.Text = Format(Val(採購金額_tb.Text), "#,##0") : 採購金額1_tb.Text = Format(Val(採購金額1_tb.Text), "#,##0")
     End Sub
-    Private Sub 日期格式()
-        If 會計月_ch.Checked = True Then
-            '-------------日期一----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
-            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
-            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
-            '-------------日期二----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
-        Else
-            '-------------日期一----------------------------------------------------------------------------------------
-            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
-            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
-            '-------------日期二----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
-            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+    Private Sub Set_清單5()
+        訂製圖檔_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).Visible = False : 訂製圖檔_dgv.Columns(1).Visible = False : 訂製圖檔_dgv.Columns(2).FillWeight = 100
+    End Sub
+    Private Sub 供應商1_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = ""
+        If 地區1_cb.Text = "" Then : PA3 = ""
+        ElseIf 地區1_cb.Text = "北部" Then : PA3 = "2"
+        ElseIf 地區1_cb.Text = "南部" Then : PA3 = "3"
+        ElseIf 地區1_cb.Text = "材料" Then : PA3 = "9"
+        ElseIf 地區1_cb.Text = "調貨" Then : PA3 = "Y"
         End If
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+        While (dr.Read()) : 供應商1_cb.Items.Add(dr("簡稱")) : 供應商編碼1_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
-    Private Sub 採購對帳單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 採購控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        小間距_ch.Checked = True : 供應商_dgv.Visible = False : 供應商_dgv.Visible = True
-        日期格式() : Set_清單2()
-    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.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
-            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
-            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
-            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
-            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
-            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
-            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
-            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
-            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
-            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
-            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+        Dim type0 As Type = 採購清單_dgv.GetType()
+        Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi0.SetValue(採購清單_dgv, True, Nothing)
+        小間距_ch.Checked = True : 業務1_cb.Text = 業務號碼 '--------------------控件隱藏、操作許可設定與其他基本顯示設定
 
-            If 供應商_dgv("票期", i).Value.ToString = "" Then
-                If Strings.Mid(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
-                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
-                        供應商_dgv("票期1", i).Value = "28"
-                    End If
-                End If
-                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
-                供應商_dgv("票期", i).Value = Strings.Left(Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & 供應商_dgv("票期1", i).Value.ToString
-            End If
-        Next
-
-        Dim EU As String
-        EU = 供應商_dgv("票期", e.RowIndex).Value.ToString
-        If EU = "" Then : Else
-            If IsDate(EU) Then
-                DTP2.Text = EU : 供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(DTP2.Value, "yyyy/MM/dd")
-            Else
-                供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = ""
-            End If
-        End If
+        首次開啟 = True : Set_清單1() : 首次開啟 = False
+        Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
     End Sub
     Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
+        If 首次開啟 = True Then : Else
+            For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                If 採購清單_dgv("選擇", I).Value = True Then
+                    採購清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen
+                Else
+                    採購清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White
+                End If
+            Next
+        End If
+
         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
@@ -222,30 +152,55 @@ Public Class 採購對帳單
     Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
         Set_合記計算()
 
-        PA20 = 採購清單_dgv(8, e.RowIndex).Value : SQL_銷售明細_改倉名()
+        PA20 = 採購清單_dgv(8, e.RowIndex).Value.ToString : SQL_銷售明細_改倉名()
         If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
-        PA19 = 採購清單_dgv(11, e.RowIndex).Value : SQL_銷售明細_改物料訂製狀態()
+        PA19 = 採購清單_dgv(11, e.RowIndex).Value.ToString : SQL_銷售明細_改物料訂製狀態()
         If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
-        PA18 = 採購清單_dgv(14, e.RowIndex).Value : SQL_銷售明細_倉儲狀態()
+        PA18 = 採購清單_dgv(14, e.RowIndex).Value.ToString : SQL_銷售明細_倉儲狀態()
         If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
 
-        Dim EU(1) As String
+        Dim EU(3) As String
         EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
         If EU(0) = "" Then : Else
-            日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+            If IsDate(EU(0)) Then
+                日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = ""
+            End If
         End If
         EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
         If EU(1) = "" Then : Else
-            日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+            If IsDate(EU(1)) Then
+                日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = ""
+            End If
+        End If
+        EU(2) = 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString
+        If EU(2) = "" Then : Else
+            If IsDate(EU(2)) Then
+                日期3_dtp.Text = EU(2) : 採購清單_dgv.Rows(e.RowIndex).Cells("實際進廠日").Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("實際進廠日").Value = ""
+            End If
+        End If
+        EU(3) = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
+        If EU(3) = "" Then : Else
+            If IsDate(EU(3)) Then
+                日期4_dtp.Text = EU(3) : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = "" : 採購清單_dgv("選擇", e.RowIndex).Value = False
+            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
-            供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
+            項次_tb.Text = 採購清單_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 採購清單_dgv("申請人", e.RowIndex).Value.ToString
+            版次_tb.Text = 採購清單_dgv("訂製圖號", e.RowIndex).Value.ToString : 單號1_tb.Text = 採購清單_dgv("銷售單號", e.RowIndex).Value.ToString
+            料號_tb.Text = 採購清單_dgv("料號", e.RowIndex).Value.ToString : 供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
 
             Set_合記計算()
-
-            PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString
+            PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
 
             物料圖1_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
             If dr.Read() Then
@@ -263,66 +218,288 @@ Public Class 採購對帳單
                     物料圖1_pb.Image = Nothing
                 End If
             End If : conn.Close()
+            If 批量勾選_cb.Checked = True Then
+                If 採購清單_dgv("選擇", e.RowIndex).Value = False Then
+                    採購清單_dgv("選擇", e.RowIndex).Value = True
+                    If 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString = "" Then
+                        PA = InputBox("請輸入指定過帳日期")
+                        If IsDate(PA) Then
+                            採購清單_dgv("過帳日期", e.RowIndex).Value = PA
+                            Dim EU As String
+                            EU = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
+                            If EU = "" Then : Else
+                                日期4_dtp.Text = EU : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
+                            End If
+                        Else
+                            MsgBox("請輸入日期格式資料!!!!")
+                            採購清單_dgv("過帳日期", e.RowIndex).Value = ""
+                            採購清單_dgv("選擇", e.RowIndex).Value = False
+                        End If
+                    Else
+                        採購清單_dgv("過帳日期", e.RowIndex).Value = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+                    End If
+                End If
+            End If
         End If
     End Sub
-    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
-        If 會計月_ch.Checked = True Then
-            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
-            開始日期_dtp.Value = 中間日期_dtp.Value
-            結束日期_dtp.Value = 中間日期_dtp.Value
-        Else
-            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
-            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
-            結束日期_dtp.Value = 中間日期_dtp.Value
+    Private Sub 採購清單_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellDoubleClick
+        If e.RowIndex = -1 Then : Else
+            採購清單_dgv("選擇", e.RowIndex).Value = False
+            採購清單_dgv("過帳日期", e.RowIndex).Value = ""
         End If
-        日期格式()
     End Sub
-    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
-        If 會計月_ch.Checked = True Then
-            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
-            開始日期_dtp.Value = 中間日期_dtp.Value
-            結束日期_dtp.Value = 中間日期_dtp.Value
-        Else
-            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
-            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
-            結束日期_dtp.Value = 中間日期_dtp.Value
+    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
+
+            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            物料圖1_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_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)
+                物料圖1_pb.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close()
+            物料圖1_pb.SizeMode = 4
         End If
-        日期格式()
     End Sub
-    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
-        Set_清單1() : Set_清單2()
+    Private Sub 地區1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區1_cb.SelectedIndexChanged
+        If 地區1_cb.Text = "" And 查詢1_tb.Text = "" Then
+            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear() : Set_清單1()
+        ElseIf 地區1_cb.Text = "" Then
+            查詢1_tb.Text = "" : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+        ElseIf 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商1_下拉表單資料載入()
+        End If
     End Sub
-    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
-        Set_清單1() : Set_清單2()
+    Private Sub 供應商1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商1_cb.SelectedIndexChanged
+        If 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商編碼1_cb.SelectedIndex = 供應商1_cb.SelectedIndex
+        End If
     End Sub
-    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
-        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    Private Sub 供應商編碼1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼1_cb.SelectedIndexChanged
+        If 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商1_cb.SelectedIndex = 供應商編碼1_cb.SelectedIndex : 供應商編碼1_tb.Text = 供應商編碼1_cb.Text : Set_清單1()
+        End If
     End Sub
-    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
-        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    Private Sub 查詢1_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢1_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+            關鍵字 = True : PA = 查詢1_tb.Text : Set_清單1() : 地區1_cb.Text = ""
+        End If
+    End Sub
+    Private Sub 清空1_bt_Click(sender As Object, e As EventArgs) Handles 清空1_bt.Click
+        業務1_cb.Text = "" : 查詢1_tb.Text = "" : 地區1_cb.Text = ""
     End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
-        Set_清單2()
+        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            存檔1() : Set_清單1()
+        Else
+            Set_清單1()
+        End If
     End Sub
     Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
-        Set_清單2()
+        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            存檔1() : Set_清單1()
+        Else
+            Set_清單1()
+        End If
     End Sub
     Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
-        Set_清單2()
+        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            存檔1() : Set_清單1()
+        Else
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim files As String()
+            Try
+                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
+                檔案名稱_tb.Text = files(files.Length - 1)
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+                Return
+            End Try
+        End If
+        Dim STR2 As Integer = 0
+        檔名讀取_tb.Text = 檔案名稱_tb.Text
+        If 檔案名稱_tb.Text = "" Then
+        Else
+            For i As Integer = 0 To 9999
+                Dim STR1 As Integer = Strings.Len(檔名讀取_tb.Text)
+                If Strings.Right((檔名讀取_tb.Text), 1) <> "\" Then
+                    STR1 -= 1 : STR2 += 1
+                    If STR1 = 0 Then
+                        檔名讀取_tb.Text = ""
+                        檔案名稱_tb.Text = ""
+                        i = 9999
+                    Else
+                        檔名讀取_tb.Text = Strings.Left((檔名讀取_tb.Text), STR1)
+                    End If
+                Else
+                    檔名讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
+                    檔案名稱_tb.Text = 檔名讀取_tb.Text
+                    i = 9999
+                End If
+            Next
+        End If
+    End Sub
+    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
+        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
+        For Each file As String In files
+            檔案名稱_tb.AppendText(file + Environment.NewLine)
+        Next
+    End Sub
+    Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If gUserName <> 申請人_tb.Text And Val(登入人級別) >= 3 Then
+            MsgBox("不能修改其他申請人的資料")
+        Else
+            PA = 項次_tb.Text : SQL_採購控制表_刪除()
+        End If
+        Set_清單1() : MsgBox("已刪除選中的資料")
+    End Sub
+    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : 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
+                Dim 驗證 As String : Dim 取變數 As String
+                取變數 = Strings.StrReverse(檔案名稱_tb.Text)
+                For i As Integer = 1 To 10
+                    If i = 1 Then
+                        驗證 = Strings.Left(取變數, i)
+                    Else
+                        If Strings.Mid(取變數, i, 1) = "." Then
+                            驗證 = Strings.StrReverse(驗證) : Exit For
+                        Else
+                            驗證 = 驗證 & Strings.Mid(取變數, i, 1)
+                        End If
+                    End If
+                Next
+
+                If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
+                    Dim 進版 As Integer
+                    If 版次_tb.Text = "" Then
+                        版次_tb.Text = "V01"
+                    Else
+                        進版 = Strings.Right(版次_tb.Text, 2) : 進版 += 1
+                        If 進版 < 10 Then : 版次_tb.Text = "V" & "0" & 進版
+                        Else : 版次_tb.Text = "V" & EDR : End If
+                    End If
+
+                    PA1 = 項次_tb.Text : PA2 = 單號1_tb.Text : PA3 = 版次_tb.Text : PA4 = 檔案名稱_tb.Text
+                    SQL_採購控制表_圖片新增() : SQL_採購控制表_修改() : conn.Close()
+                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
+                    frq.Credentials = fcr
+                    frq.Method = WebRequestMethods.Ftp.DeleteFile
+                    frq.UseBinary = True
+                    frp = CType(frq.GetResponse, FtpWebResponse)
+                    frp.Close()
+                    FTP資料夾_wb.Refresh()
+                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    物料圖1_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_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)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    存檔1() : Set_清單5() : Set_清單1() : 檔案名稱_tb.Text = ""
+                Else
+                    MsgBox("上傳文件並非常用圖片格式，文件已自動刪除，請專換成常用圖片檔案再行操作。")
+                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
+                    frq.Credentials = fcr
+                    frq.Method = WebRequestMethods.Ftp.DeleteFile
+                    frq.UseBinary = True
+                    frp = CType(frq.GetResponse, FtpWebResponse)
+                    frp.Close()
+                    FTP資料夾_wb.Refresh()
+                    檔案名稱_tb.Text = ""
+                End If
+            End If
+        End If
     End Sub
-    Private Sub 採購明細_bt_Click(sender As Object, e As EventArgs) Handles 採購明細_bt.Click
-        採購明細_bt.Enabled = False : 應負帳款_bt.Enabled = True : 採購清單_dgv.Visible = True : 供應商_dgv.Visible = False
+    Private Sub 下載圖檔_bt_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click
+        If 物料圖1_pb.Image Is Nothing Then : MsgBox("所選擇的資料沒有圖片檔案，無法下載。")
+        Else
+            With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
+            SaveFileDialog1.FileName = 單號1_tb.Text & "-" & 料號_tb.Text & "-" & 版次_tb.Text & ".jpg"
+
+            Dim result As DialogResult = SaveFileDialog1.ShowDialog()
+            下載檔名_tb.Text = SaveFileDialog1.FileName
+            If result = System.Windows.Forms.DialogResult.Cancel Then
+                Exit Sub
+            End If
+
+            PA15 = 項次_tb.Text : PA16 = 版次_tb.Text
+            ds3.Clear() : SQL_採購控制表_訂製圖片下載() : da.Fill(ds3)
+            If ds3.Tables(0).Rows.Count > 0 Then
+                Dim imgData() As Byte
+                imgData = ds3.Tables(0).Rows(0).Item("圖片")
+                Dim fs As FileStream
+                fs = File.Create(下載檔名_tb.Text, imgData.Length - 1)
+                fs.Write(imgData, 0, imgData.Length - 1)
+                fs.Close()
+            End If : conn.Close() : MsgBox("下載完成")
+        End If
     End Sub
-    Private Sub 應負帳款_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款_bt.Click
-        採購明細_bt.Enabled = True : 應負帳款_bt.Enabled = False : 採購清單_dgv.Visible = False : 供應商_dgv.Visible = True
+    Private Sub 大圖預覽_bt_Click(sender As Object, e As EventArgs) Handles 大圖預覽_bt.Click
+        If 項次_tb.Text = "" Or 版次_tb.Text = "" Then
+            MsgBox("沒有訂製圖或是沒有決哲訂製圖")
+        Else
+            採購訂製大圖.ShowDialog()
+        End If
     End Sub
-    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
-        Set_清單1() : Set_清單2()
+    Private Sub 存檔1()
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
+            If gUserName <> 採購清單_dgv("申請人", i).Value And Val(登入人級別) >= 3 Then
+            Else
+                PA = 採購清單_dgv("資料流水號", i).Value : PA1 = 採購清單_dgv("物料狀態", i).Value : PA2 = 採購清單_dgv("訂製狀態", i).Value : PA3 = 採購清單_dgv("倉儲狀態", i).Value
+                PA4 = 採購清單_dgv("備註", i).Value.ToString : PA5 = 採購清單_dgv("採購日期", i).Value.ToString : PA6 = 採購清單_dgv("預計進廠日", i).Value.ToString
+                NU1 = 採購清單_dgv("數量", i).Value : NU2 = 採購清單_dgv("成本", i).Value : NU3 = NU1 * NU2
+                SQL_採購控制表_存檔()
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        Set_清單1()
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔1() : MsgBox("修改完成。")
+    End Sub
+    Private Sub 過帳_bt_Click(sender As Object, e As EventArgs) Handles 過帳_bt.Click
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
+            If 採購清單_dgv("選擇", i).Value = True Then
+                PA = 採購清單_dgv("資料流水號", i).Value : PA2 = "1" : PA1 = 採購清單_dgv("過帳日期", i).Value
+                SQL_採購控制表_過帳()
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        Set_清單1()
     End Sub
-    Private Sub 開啟供應商資料表_bt_Click(sender As Object, e As EventArgs) Handles 開啟供應商資料表_bt.Click
-        PA = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
+    Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
+        Set_清單1()
     End Sub
 End Class

YD-ERP-SYS/採購系統管理/採購應負帳款.Designer.vb

@@ -0,0 +1,806 @@
+<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 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 DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        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.採購清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.資料筆數_tb = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.大間距_ch = New System.Windows.Forms.CheckBox()
+        Me.中間距_ch = New System.Windows.Forms.CheckBox()
+        Me.小間距_ch = New System.Windows.Forms.CheckBox()
+        Me.採購金額1_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.供應商_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.當月貨款_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.日期2_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
+        Me.採購明細_bt = New System.Windows.Forms.Button()
+        Me.應負帳款_bt = New System.Windows.Forms.Button()
+        Me.DTP1 = New System.Windows.Forms.DateTimePicker()
+        Me.DTP2 = New System.Windows.Forms.DateTimePicker()
+        Me.開啟供應商資料表_bt = New System.Windows.Forms.Button()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.個人實付_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.公司實付_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.實付金額_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.其他扣款_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.廣告費_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.稅金_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.合計_dgv = New System.Windows.Forms.DataGridView()
+        CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(888, 209)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1175
+        Me.中間日期_dtp.UseWaitCursor = True
+        Me.中間日期_dtp.Visible = False
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.一般月_ch.Location = New System.Drawing.Point(143, 34)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1174
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        Me.一般月_ch.UseWaitCursor = True
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Checked = True
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月_ch.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.會計月_ch.Location = New System.Drawing.Point(8, 34)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1173
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.UseVisualStyleBackColor = True
+        Me.會計月_ch.UseWaitCursor = True
+        '
+        '下個月_bt
+        '
+        Me.下個月_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        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(129, 55)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(115, 23)
+        Me.下個月_bt.TabIndex = 1172
+        Me.下個月_bt.Text = "下個月"
+        Me.下個月_bt.UseVisualStyleBackColor = True
+        Me.下個月_bt.UseWaitCursor = True
+        '
+        '上個月_bt
+        '
+        Me.上個月_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        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(8, 55)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(115, 23)
+        Me.上個月_bt.TabIndex = 1171
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        Me.上個月_bt.UseWaitCursor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label4.Location = New System.Drawing.Point(114, 11)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1170
+        Me.Label4.Text = "到"
+        Me.Label4.UseWaitCursor = True
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.結束日期_dtp.Enabled = False
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(136, 7)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(105, 23)
+        Me.結束日期_dtp.TabIndex = 1169
+        Me.結束日期_dtp.UseWaitCursor = True
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.開始日期_dtp.Enabled = False
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(8, 7)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(105, 23)
+        Me.開始日期_dtp.TabIndex = 1168
+        Me.開始日期_dtp.UseWaitCursor = True
+        '
+        '供應商_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
+        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.Cursor = System.Windows.Forms.Cursors.Default
+        Me.供應商_dgv.Location = New System.Drawing.Point(247, 7)
+        Me.供應商_dgv.Name = "供應商_dgv"
+        Me.供應商_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.供應商_dgv.RowTemplate.Height = 24
+        Me.供應商_dgv.Size = New System.Drawing.Size(1092, 738)
+        Me.供應商_dgv.TabIndex = 1439
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label9.Location = New System.Drawing.Point(197, 532)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.TabIndex = 1442
+        Me.Label9.Text = "筆資料"
+        Me.Label9.UseWaitCursor = True
+        '
+        '資料筆數1_tb
+        '
+        Me.資料筆數1_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(91, 529)
+        Me.資料筆數1_tb.Name = "資料筆數1_tb"
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(103, 23)
+        Me.資料筆數1_tb.TabIndex = 1441
+        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.資料筆數1_tb.UseWaitCursor = True
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label10.Location = New System.Drawing.Point(6, 532)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(80, 16)
+        Me.Label10.TabIndex = 1440
+        Me.Label10.Text = "應付賬款，共"
+        Me.Label10.UseWaitCursor = True
+        '
+        '採購清單_dgv
+        '
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        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.Cursor = System.Windows.Forms.Cursors.Default
+        Me.採購清單_dgv.Location = New System.Drawing.Point(247, 7)
+        Me.採購清單_dgv.Name = "採購清單_dgv"
+        Me.採購清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.採購清單_dgv.RowTemplate.Height = 24
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 738)
+        Me.採購清單_dgv.TabIndex = 1443
+        Me.採購清單_dgv.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label1.Location = New System.Drawing.Point(197, 507)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.TabIndex = 1446
+        Me.Label1.Text = "筆資料"
+        Me.Label1.UseWaitCursor = True
+        '
+        '資料筆數_tb
+        '
+        Me.資料筆數_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.資料筆數_tb.Location = New System.Drawing.Point(91, 504)
+        Me.資料筆數_tb.Name = "資料筆數_tb"
+        Me.資料筆數_tb.Size = New System.Drawing.Size(103, 23)
+        Me.資料筆數_tb.TabIndex = 1445
+        Me.資料筆數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.資料筆數_tb.UseWaitCursor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label2.Location = New System.Drawing.Point(5, 507)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(80, 16)
+        Me.Label2.TabIndex = 1444
+        Me.Label2.Text = "採購明細，共"
+        Me.Label2.UseWaitCursor = True
+        '
+        '大間距_ch
+        '
+        Me.大間距_ch.AutoSize = True
+        Me.大間距_ch.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.大間距_ch.Location = New System.Drawing.Point(142, 238)
+        Me.大間距_ch.Name = "大間距_ch"
+        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.TabIndex = 1449
+        Me.大間距_ch.Text = "大間距"
+        Me.大間距_ch.UseVisualStyleBackColor = True
+        Me.大間距_ch.UseWaitCursor = True
+        '
+        '中間距_ch
+        '
+        Me.中間距_ch.AutoSize = True
+        Me.中間距_ch.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.中間距_ch.Location = New System.Drawing.Point(73, 238)
+        Me.中間距_ch.Name = "中間距_ch"
+        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.TabIndex = 1448
+        Me.中間距_ch.Text = "中間距"
+        Me.中間距_ch.UseVisualStyleBackColor = True
+        Me.中間距_ch.UseWaitCursor = True
+        '
+        '小間距_ch
+        '
+        Me.小間距_ch.AutoSize = True
+        Me.小間距_ch.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.小間距_ch.Location = New System.Drawing.Point(4, 238)
+        Me.小間距_ch.Name = "小間距_ch"
+        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.TabIndex = 1447
+        Me.小間距_ch.Text = "小間距"
+        Me.小間距_ch.UseVisualStyleBackColor = True
+        Me.小間距_ch.UseWaitCursor = True
+        '
+        '採購金額1_tb
+        '
+        Me.採購金額1_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.採購金額1_tb.ForeColor = System.Drawing.Color.Green
+        Me.採購金額1_tb.Location = New System.Drawing.Point(72, 288)
+        Me.採購金額1_tb.Name = "採購金額1_tb"
+        Me.採購金額1_tb.Size = New System.Drawing.Size(169, 23)
+        Me.採購金額1_tb.TabIndex = 1456
+        Me.採購金額1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.採購金額1_tb.UseWaitCursor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label6.ForeColor = System.Drawing.Color.Green
+        Me.Label6.Location = New System.Drawing.Point(4, 291)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(68, 16)
+        Me.Label6.TabIndex = 1455
+        Me.Label6.Text = "採 購  金 額"
+        Me.Label6.UseWaitCursor = True
+        '
+        '供應商_tb
+        '
+        Me.供應商_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.供應商_tb.ForeColor = System.Drawing.Color.Green
+        Me.供應商_tb.Location = New System.Drawing.Point(72, 263)
+        Me.供應商_tb.Name = "供應商_tb"
+        Me.供應商_tb.Size = New System.Drawing.Size(169, 23)
+        Me.供應商_tb.TabIndex = 1454
+        Me.供應商_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.供應商_tb.UseWaitCursor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label3.ForeColor = System.Drawing.Color.Green
+        Me.Label3.Location = New System.Drawing.Point(4, 266)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(68, 16)
+        Me.Label3.TabIndex = 1453
+        Me.Label3.Text = "供    應    商"
+        Me.Label3.UseWaitCursor = True
+        '
+        '當月貨款_tb
+        '
+        Me.當月貨款_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.當月貨款_tb.ForeColor = System.Drawing.Color.Blue
+        Me.當月貨款_tb.Location = New System.Drawing.Point(72, 322)
+        Me.當月貨款_tb.Name = "當月貨款_tb"
+        Me.當月貨款_tb.Size = New System.Drawing.Size(169, 23)
+        Me.當月貨款_tb.TabIndex = 1452
+        Me.當月貨款_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.當月貨款_tb.UseWaitCursor = True
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label16.ForeColor = System.Drawing.Color.Blue
+        Me.Label16.Location = New System.Drawing.Point(5, 325)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(56, 16)
+        Me.Label16.TabIndex = 1451
+        Me.Label16.Text = "當月貨款"
+        Me.Label16.UseWaitCursor = True
+        '
+        '日期2_dtp
+        '
+        Me.日期2_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期2_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.日期2_dtp.Enabled = False
+        Me.日期2_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期2_dtp.Location = New System.Drawing.Point(937, 238)
+        Me.日期2_dtp.Name = "日期2_dtp"
+        Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.日期2_dtp.TabIndex = 1458
+        Me.日期2_dtp.UseWaitCursor = True
+        Me.日期2_dtp.Visible = False
+        '
+        '日期1_dtp
+        '
+        Me.日期1_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期1_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.日期1_dtp.Enabled = False
+        Me.日期1_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期1_dtp.Location = New System.Drawing.Point(937, 209)
+        Me.日期1_dtp.Name = "日期1_dtp"
+        Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.日期1_dtp.TabIndex = 1457
+        Me.日期1_dtp.UseWaitCursor = True
+        Me.日期1_dtp.Visible = False
+        '
+        '物料圖1_pb
+        '
+        Me.物料圖1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.物料圖1_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料圖1_pb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.物料圖1_pb.Location = New System.Drawing.Point(4, 82)
+        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(238, 152)
+        Me.物料圖1_pb.TabIndex = 1459
+        Me.物料圖1_pb.TabStop = False
+        Me.物料圖1_pb.UseWaitCursor = True
+        '
+        '採購明細_bt
+        '
+        Me.採購明細_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.採購明細_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        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(4, 668)
+        Me.採購明細_bt.Name = "採購明細_bt"
+        Me.採購明細_bt.Size = New System.Drawing.Size(237, 25)
+        Me.採購明細_bt.TabIndex = 1460
+        Me.採購明細_bt.Text = "採購明細"
+        Me.採購明細_bt.UseVisualStyleBackColor = True
+        Me.採購明細_bt.UseWaitCursor = True
+        '
+        '應負帳款_bt
+        '
+        Me.應負帳款_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.應負帳款_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.應負帳款_bt.Enabled = False
+        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(4, 696)
+        Me.應負帳款_bt.Name = "應負帳款_bt"
+        Me.應負帳款_bt.Size = New System.Drawing.Size(237, 25)
+        Me.應負帳款_bt.TabIndex = 1461
+        Me.應負帳款_bt.Text = "應付帳款"
+        Me.應負帳款_bt.UseVisualStyleBackColor = True
+        Me.應負帳款_bt.UseWaitCursor = True
+        '
+        'DTP1
+        '
+        Me.DTP1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DTP1.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.DTP1.Enabled = False
+        Me.DTP1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DTP1.Location = New System.Drawing.Point(937, 266)
+        Me.DTP1.Name = "DTP1"
+        Me.DTP1.Size = New System.Drawing.Size(122, 23)
+        Me.DTP1.TabIndex = 1462
+        Me.DTP1.UseWaitCursor = True
+        Me.DTP1.Visible = False
+        '
+        'DTP2
+        '
+        Me.DTP2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DTP2.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.DTP2.Enabled = False
+        Me.DTP2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DTP2.Location = New System.Drawing.Point(937, 295)
+        Me.DTP2.Name = "DTP2"
+        Me.DTP2.Size = New System.Drawing.Size(122, 23)
+        Me.DTP2.TabIndex = 1463
+        Me.DTP2.UseWaitCursor = True
+        Me.DTP2.Visible = False
+        '
+        '開啟供應商資料表_bt
+        '
+        Me.開啟供應商資料表_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.開啟供應商資料表_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        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(4, 750)
+        Me.開啟供應商資料表_bt.Name = "開啟供應商資料表_bt"
+        Me.開啟供應商資料表_bt.Size = New System.Drawing.Size(237, 25)
+        Me.開啟供應商資料表_bt.TabIndex = 1464
+        Me.開啟供應商資料表_bt.Text = "開啟供應商資料表"
+        Me.開啟供應商資料表_bt.UseVisualStyleBackColor = True
+        Me.開啟供應商資料表_bt.UseWaitCursor = True
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.重新讀取_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        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(4, 723)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(237, 25)
+        Me.重新讀取_bt.TabIndex = 1465
+        Me.重新讀取_bt.Text = "重新讀取"
+        Me.重新讀取_bt.UseVisualStyleBackColor = True
+        Me.重新讀取_bt.UseWaitCursor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        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(247, 751)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(1092, 25)
+        Me.存檔_bt.TabIndex = 1466
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        Me.存檔_bt.UseWaitCursor = True
+        '
+        '個人實付_tb
+        '
+        Me.個人實付_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.個人實付_tb.ForeColor = System.Drawing.Color.Blue
+        Me.個人實付_tb.Location = New System.Drawing.Point(72, 472)
+        Me.個人實付_tb.Name = "個人實付_tb"
+        Me.個人實付_tb.Size = New System.Drawing.Size(169, 23)
+        Me.個人實付_tb.TabIndex = 1468
+        Me.個人實付_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.個人實付_tb.UseWaitCursor = True
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label5.ForeColor = System.Drawing.Color.Blue
+        Me.Label5.Location = New System.Drawing.Point(5, 475)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1467
+        Me.Label5.Text = "個人實付"
+        Me.Label5.UseWaitCursor = True
+        '
+        '公司實付_tb
+        '
+        Me.公司實付_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.公司實付_tb.ForeColor = System.Drawing.Color.Blue
+        Me.公司實付_tb.Location = New System.Drawing.Point(72, 447)
+        Me.公司實付_tb.Name = "公司實付_tb"
+        Me.公司實付_tb.Size = New System.Drawing.Size(169, 23)
+        Me.公司實付_tb.TabIndex = 1470
+        Me.公司實付_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.公司實付_tb.UseWaitCursor = True
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label7.ForeColor = System.Drawing.Color.Blue
+        Me.Label7.Location = New System.Drawing.Point(5, 450)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.TabIndex = 1469
+        Me.Label7.Text = "公司實付"
+        Me.Label7.UseWaitCursor = True
+        '
+        '實付金額_tb
+        '
+        Me.實付金額_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.實付金額_tb.ForeColor = System.Drawing.Color.Blue
+        Me.實付金額_tb.Location = New System.Drawing.Point(72, 422)
+        Me.實付金額_tb.Name = "實付金額_tb"
+        Me.實付金額_tb.Size = New System.Drawing.Size(169, 23)
+        Me.實付金額_tb.TabIndex = 1472
+        Me.實付金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.實付金額_tb.UseWaitCursor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label8.ForeColor = System.Drawing.Color.Blue
+        Me.Label8.Location = New System.Drawing.Point(5, 425)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(56, 16)
+        Me.Label8.TabIndex = 1471
+        Me.Label8.Text = "實付金額"
+        Me.Label8.UseWaitCursor = True
+        '
+        '其他扣款_tb
+        '
+        Me.其他扣款_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.其他扣款_tb.ForeColor = System.Drawing.Color.Blue
+        Me.其他扣款_tb.Location = New System.Drawing.Point(72, 397)
+        Me.其他扣款_tb.Name = "其他扣款_tb"
+        Me.其他扣款_tb.Size = New System.Drawing.Size(169, 23)
+        Me.其他扣款_tb.TabIndex = 1474
+        Me.其他扣款_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.其他扣款_tb.UseWaitCursor = True
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label11.ForeColor = System.Drawing.Color.Blue
+        Me.Label11.Location = New System.Drawing.Point(5, 400)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.TabIndex = 1473
+        Me.Label11.Text = "其他扣款"
+        Me.Label11.UseWaitCursor = True
+        '
+        '廣告費_tb
+        '
+        Me.廣告費_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.廣告費_tb.ForeColor = System.Drawing.Color.Blue
+        Me.廣告費_tb.Location = New System.Drawing.Point(72, 372)
+        Me.廣告費_tb.Name = "廣告費_tb"
+        Me.廣告費_tb.Size = New System.Drawing.Size(169, 23)
+        Me.廣告費_tb.TabIndex = 1476
+        Me.廣告費_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.廣告費_tb.UseWaitCursor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label12.ForeColor = System.Drawing.Color.Blue
+        Me.Label12.Location = New System.Drawing.Point(5, 375)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(44, 16)
+        Me.Label12.TabIndex = 1475
+        Me.Label12.Text = "廣告費"
+        Me.Label12.UseWaitCursor = True
+        '
+        '稅金_tb
+        '
+        Me.稅金_tb.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.稅金_tb.ForeColor = System.Drawing.Color.Blue
+        Me.稅金_tb.Location = New System.Drawing.Point(72, 347)
+        Me.稅金_tb.Name = "稅金_tb"
+        Me.稅金_tb.Size = New System.Drawing.Size(169, 23)
+        Me.稅金_tb.TabIndex = 1478
+        Me.稅金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.稅金_tb.UseWaitCursor = True
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.Label13.ForeColor = System.Drawing.Color.Blue
+        Me.Label13.Location = New System.Drawing.Point(5, 350)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(32, 16)
+        Me.Label13.TabIndex = 1477
+        Me.Label13.Text = "稅金"
+        Me.Label13.UseWaitCursor = True
+        '
+        '合計_dgv
+        '
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        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.Cursor = System.Windows.Forms.Cursors.Default
+        Me.合計_dgv.Location = New System.Drawing.Point(4, 557)
+        Me.合計_dgv.Name = "合計_dgv"
+        Me.合計_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.合計_dgv.RowTemplate.Height = 24
+        Me.合計_dgv.Size = New System.Drawing.Size(237, 107)
+        Me.合計_dgv.TabIndex = 1479
+        '
+        '採購應負帳款
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1344, 782)
+        Me.Controls.Add(Me.合計_dgv)
+        Me.Controls.Add(Me.稅金_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.廣告費_tb)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.其他扣款_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.實付金額_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.公司實付_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.個人實付_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.重新讀取_bt)
+        Me.Controls.Add(Me.開啟供應商資料表_bt)
+        Me.Controls.Add(Me.DTP2)
+        Me.Controls.Add(Me.DTP1)
+        Me.Controls.Add(Me.採購明細_bt)
+        Me.Controls.Add(Me.應負帳款_bt)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.日期2_dtp)
+        Me.Controls.Add(Me.日期1_dtp)
+        Me.Controls.Add(Me.採購金額1_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.供應商_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.當月貨款_tb)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.大間距_ch)
+        Me.Controls.Add(Me.中間距_ch)
+        Me.Controls.Add(Me.小間距_ch)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.資料筆數_tb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.資料筆數1_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.物料圖1_pb)
+        Me.Controls.Add(Me.供應商_dgv)
+        Me.Controls.Add(Me.採購清單_dgv)
+        Me.Cursor = System.Windows.Forms.Cursors.Default
+        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.採購清單_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 中間日期_dtp As DateTimePicker
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 供應商_dgv As DataGridView
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 資料筆數1_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 採購清單_dgv As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 資料筆數_tb As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 大間距_ch As CheckBox
+    Friend WithEvents 中間距_ch As CheckBox
+    Friend WithEvents 小間距_ch As CheckBox
+    Friend WithEvents 採購金額1_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 供應商_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 當月貨款_tb As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 日期2_dtp As DateTimePicker
+    Friend WithEvents 日期1_dtp As DateTimePicker
+    Friend WithEvents 物料圖1_pb As PictureBox
+    Friend WithEvents 採購明細_bt As Button
+    Friend WithEvents 應負帳款_bt As Button
+    Friend WithEvents DTP1 As DateTimePicker
+    Friend WithEvents DTP2 As DateTimePicker
+    Friend WithEvents 開啟供應商資料表_bt As Button
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 個人實付_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 公司實付_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 實付金額_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 其他扣款_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 廣告費_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 稅金_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 合計_dgv As DataGridView
+End Class

YD-ERP-SYS/採購系統管理/採購控制表.resx → YD-ERP-SYS/採購系統管理/採購應負帳款.resx

@@ -117,19 +117,4 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <data name="Label17.Text" xml:space="preserve">
-    <value>-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</value>
-  </data>
-  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>18, 12</value>
-  </metadata>
-  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>198, 12</value>
-  </metadata>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>342, 12</value>
-  </metadata>
-  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>36</value>
-  </metadata>
 </root>

YD-ERP-SYS/採購系統管理/採購應負帳款.vb

@@ -0,0 +1,391 @@
+Option Strict Off
+Public Class 採購應負帳款
+    ReadOnly ds, ds1, da2 As New DataSet
+    Dim 首次 As Boolean
+    Private Sub Set_清單1()
+        供應商_dgv.DataSource = Nothing : ds1.Clear()
+        供應商_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        供應商_dgv.ColumnHeadersHeight = 40
+        供應商_dgv.AllowUserToAddRows = False
+
+        SQL_採購對帳單_總表()
+        da.Fill(ds1) : 供應商_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        供應商_dgv.Columns(0).FillWeight = 50 : 供應商_dgv.Columns(1).FillWeight = 120 : 供應商_dgv.Columns(2).FillWeight = 70 : 供應商_dgv.Columns(3).Visible = False
+        供應商_dgv.Columns(4).FillWeight = 50 : 供應商_dgv.Columns(5).FillWeight = 80 : 供應商_dgv.Columns(6).Visible = False : 供應商_dgv.Columns(7).FillWeight = 50
+        供應商_dgv.Columns(8).FillWeight = 80 : 供應商_dgv.Columns(9).FillWeight = 80 : 供應商_dgv.Columns(10).FillWeight = 80 : 供應商_dgv.Columns(11).Visible = False
+        供應商_dgv.Columns(12).FillWeight = 80 : 供應商_dgv.Columns(13).FillWeight = 50 : 供應商_dgv.Columns(14).FillWeight = 50 : 供應商_dgv.Columns(15).FillWeight = 100
+        供應商_dgv.Columns(16).FillWeight = 100 : 供應商_dgv.Columns(17).FillWeight = 150 : 供應商_dgv.Columns(18).FillWeight = 70
+
+        供應商_dgv.Columns(0).ReadOnly = True : 供應商_dgv.Columns(1).ReadOnly = True : 供應商_dgv.Columns(2).ReadOnly = True : 供應商_dgv.Columns(5).ReadOnly = True
+        供應商_dgv.Columns(8).ReadOnly = True : 供應商_dgv.Columns(10).ReadOnly = True : 供應商_dgv.Columns(14).ReadOnly = True : 供應商_dgv.Columns(15).ReadOnly = True
+        供應商_dgv.Columns(16).ReadOnly = True
+
+        資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
+
+        稅金_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
+            If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
+            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
+            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
+            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
+            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
+            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
+            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
+            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
+            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
+            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
+            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+
+            稅金_tb.Text = Val(稅金_tb.Text) + 供應商_dgv("稅金", i).Value
+            廣告費_tb.Text = Val(廣告費_tb.Text) + 供應商_dgv("廣告", i).Value
+            其他扣款_tb.Text = Val(其他扣款_tb.Text) + 供應商_dgv("其他扣款", i).Value
+            實付金額_tb.Text = Val(實付金額_tb.Text) + 供應商_dgv("實付金額", i).Value
+            公司實付_tb.Text = Val(公司實付_tb.Text) + 供應商_dgv("公司", i).Value
+            個人實付_tb.Text = Val(個人實付_tb.Text) + 供應商_dgv("個人", i).Value
+
+            If 供應商_dgv("票期", i).Value.ToString = "" Then
+                If Strings.Mid(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
+                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
+                        供應商_dgv("票期1", i).Value = "28"
+                    End If
+                End If
+                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+                If 供應商_dgv("票期1", i).Value < 10 Then
+                    PA16 = "0" & 供應商_dgv("票期1", i).Value.ToString
+                Else
+                    PA16 = 供應商_dgv("票期1", i).Value.ToString
+                End If
+                供應商_dgv("票期", i).Value = Strings.Left(Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA16
+            End If
+        Next
+
+        供應商_dgv.Columns("公司").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("公司").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("公司").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("個人").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("個人").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("個人").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("公司%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("公司%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("公司%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("個人%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("個人%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("個人%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("實付金額").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("實付金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("實付金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("其他扣款").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("廣告").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("廣告").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("廣告").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("廣告%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("廣告%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("廣告%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("稅金").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("稅金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("稅金").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("稅金%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("稅金%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("稅金%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_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
+        If 首次 = True Then : Else : Set_清單3() : End If
+    End Sub
+    Private Sub Set_清單2()
+        採購清單_dgv.DataSource = Nothing : ds.Clear()
+        採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        採購清單_dgv.ColumnHeadersHeight = 40
+        採購清單_dgv.AllowUserToAddRows = False
+
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
+            採購清單_dgv.RowTemplate.Height = 95
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 60
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 25
+        End If
+
+        SQL_採購對帳單_明細()
+        da.Fill(ds) : 採購清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 80 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
+        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 200 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).FillWeight = 100
+        採購清單_dgv.Columns(8).Visible = False : 採購清單_dgv.Columns(9).FillWeight = 160 : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 95
+        採購清單_dgv.Columns(12).FillWeight = 145 : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 45 : 採購清單_dgv.Columns(15).Visible = False
+        採購清單_dgv.Columns(16).FillWeight = 80 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 70 : 採購清單_dgv.Columns(19).FillWeight = 70
+        採購清單_dgv.Columns(20).FillWeight = 70 : 採購清單_dgv.Columns(21).FillWeight = 70 : 採購清單_dgv.Columns(22).FillWeight = 70 : 採購清單_dgv.Columns(23).FillWeight = 45
+        採購清單_dgv.Columns(24).FillWeight = 45
+
+        採購清單_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(1).ReadOnly = True : 採購清單_dgv.Columns(3).ReadOnly = True : 採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True
+        採購清單_dgv.Columns(7).ReadOnly = True : 採購清單_dgv.Columns(9).ReadOnly = True : 採購清單_dgv.Columns(11).ReadOnly = True : 採購清單_dgv.Columns(12).ReadOnly = True
+        採購清單_dgv.Columns(13).ReadOnly = True : 採購清單_dgv.Columns(14).ReadOnly = True : 採購清單_dgv.Columns(15).ReadOnly = True : 採購清單_dgv.Columns(16).ReadOnly = True
+        採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(18).ReadOnly = True : 採購清單_dgv.Columns(19).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
+        採購清單_dgv.Columns(21).ReadOnly = True : 採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(23).ReadOnly = True
+
+        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        資料筆數_tb.Text = 採購清單_dgv.Rows.Count
+
+        Set_合記計算()
+    End Sub
+    Private Sub Set_清單3()
+        合計_dgv.DataSource = Nothing : da2.Clear()
+        合計_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計_dgv.ColumnHeadersHeight = 25
+        合計_dgv.AllowUserToAddRows = False
+
+        SQL_採購對帳單_合計()
+        da.Fill(da2) : 合計_dgv.DataSource = da2.Tables(0) : conn.Close()
+
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            合計_dgv("個人", i).Value = "0" : 合計_dgv("公司", i).Value = "0"
+        Next
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            For ii As Integer = 0 To 供應商_dgv.Rows.Count - 1
+                If 供應商_dgv("票期", ii).Value.ToString = 合計_dgv("票期", i).Value.ToString Then
+                    合計_dgv("公司", i).Value = Val(合計_dgv("公司", i).Value.ToString) + Val(供應商_dgv("公司", ii).Value)
+                    合計_dgv("個人", i).Value = Val(合計_dgv("個人", i).Value.ToString) + Val(供應商_dgv("個人", ii).Value)
+                End If
+            Next
+        Next
+        合計_dgv.Columns("公司").DefaultCellStyle.Format = "#,##0"
+        合計_dgv.Columns("公司").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計_dgv.Columns("公司").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        合計_dgv.Columns("個人").DefaultCellStyle.Format = "#,##0"
+        合計_dgv.Columns("個人").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計_dgv.Columns("個人").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub Set_合記計算()
+        當月貨款_tb.Text = "0" : 採購金額1_tb.Text = "0"
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            採購清單_dgv("金額", i).Value = 採購清單_dgv("數量", i).Value * 採購清單_dgv("成本", i).Value
+            當月貨款_tb.Text = Val(當月貨款_tb.Text) + 採購清單_dgv("金額", i).Value
+
+            If 供應商_tb.Text = 採購清單_dgv("供應商", i).Value.ToString Then
+                採購金額1_tb.Text = Val(採購金額1_tb.Text) + 採購清單_dgv("金額", i).Value
+            End If
+        Next
+        當月貨款_tb.Text = Format(Val(當月貨款_tb.Text), "#,##0") : 採購金額1_tb.Text = Format(Val(採購金額1_tb.Text), "#,##0")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        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
+        小間距_ch.Checked = True : 供應商_dgv.Visible = False : 供應商_dgv.Visible = True
+        首次 = True : 日期格式() : 首次 = False : Set_清單3()
+    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.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
+            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
+            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
+            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
+            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
+            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
+            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
+            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
+            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
+            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
+            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+
+            If 供應商_dgv("票期", i).Value.ToString = "" Then
+                If Strings.Mid(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
+                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
+                        供應商_dgv("票期1", i).Value = "28"
+                    End If
+                End If
+                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+                供應商_dgv("票期", i).Value = Strings.Left(Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & 供應商_dgv("票期1", i).Value.ToString
+            End If
+        Next
+
+        Dim EU As String
+        EU = 供應商_dgv("票期", e.RowIndex).Value.ToString
+        If EU = "" Then : Else
+            If IsDate(EU) Then
+                DTP2.Text = EU : 供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(DTP2.Value, "yyyy/MM/dd")
+            Else
+                供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = ""
+            End If
+        End If
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            合計_dgv("個人", i).Value = "0" : 合計_dgv("公司", i).Value = "0"
+        Next
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            For ii As Integer = 0 To 供應商_dgv.Rows.Count - 1
+                If 供應商_dgv("票期", ii).Value.ToString = 合計_dgv("票期", i).Value.ToString Then
+                    合計_dgv("公司", i).Value = Val(合計_dgv("公司", i).Value.ToString) + Val(供應商_dgv("公司", ii).Value)
+                    合計_dgv("個人", i).Value = Val(合計_dgv("個人", i).Value.ToString) + Val(供應商_dgv("個人", ii).Value)
+                End If
+            Next
+        Next
+    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
+    End Sub
+    Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
+        Set_合記計算()
+
+        PA20 = 採購清單_dgv(8, e.RowIndex).Value : SQL_銷售明細_改倉名()
+        If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
+        PA19 = 採購清單_dgv(11, e.RowIndex).Value : SQL_銷售明細_改物料訂製狀態()
+        If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
+        PA18 = 採購清單_dgv(14, e.RowIndex).Value : SQL_銷售明細_倉儲狀態()
+        If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
+
+        Dim EU(1) As String
+        EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
+        If EU(0) = "" Then : Else
+            日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+        End If
+        EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+        If EU(1) = "" Then : Else
+            日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+        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("供應商", e.RowIndex).Value.ToString
+
+            Set_合記計算()
+
+            PA15 = 採購清單_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 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2()
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
+        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
+        Set_清單2()
+    End Sub
+    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
+        Set_清單2()
+    End Sub
+    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
+        Set_清單2()
+    End Sub
+    Private Sub 採購明細_bt_Click(sender As Object, e As EventArgs) Handles 採購明細_bt.Click
+        採購明細_bt.Enabled = False : 應負帳款_bt.Enabled = True : 採購清單_dgv.Visible = True : 供應商_dgv.Visible = False
+    End Sub
+    Private Sub 應負帳款_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款_bt.Click
+        採購明細_bt.Enabled = True : 應負帳款_bt.Enabled = False : 採購清單_dgv.Visible = False : 供應商_dgv.Visible = True
+    End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        Set_清單1() : Set_清單2()
+    End Sub
+    Private Sub 開啟供應商資料表_bt_Click(sender As Object, e As EventArgs) Handles 開啟供應商資料表_bt.Click
+        PA = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
+    End Sub
+
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        PA = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7)
+        SQL_採購對帳單_判斷是否有資料()
+        If dr.Read() Then : SQL_採購對帳單_刪除當天() : conn.Close() : End If : conn.Close()
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            PA1 = 供應商_dgv.Rows(i).Cells("編號").Value : PA2 = 供應商_dgv.Rows(i).Cells("稅金%").Value
+            PA3 = 供應商_dgv.Rows(i).Cells("廣告%").Value : PA4 = 供應商_dgv.Rows(i).Cells("其他扣款").Value
+            PA5 = 供應商_dgv.Rows(i).Cells("票期").Value : PA6 = 供應商_dgv.Rows(i).Cells("公司%").Value
+            PA7 = 供應商_dgv.Rows(i).Cells("個人%").Value
+            SQL_採購對帳單_存檔()
+        Next : MsgBox("存檔完成!!") : conn.Close()
+    End Sub
+End Class

YD-ERP-SYS/採購系統管理/採購控制表.Designer.vb

@@ -1,839 +0,0 @@
-<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()
-        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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(採購控制表))
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.下載檔名_tb = New System.Windows.Forms.TextBox()
-        Me.料號_tb = New System.Windows.Forms.TextBox()
-        Me.單號1_tb = New System.Windows.Forms.TextBox()
-        Me.大圖預覽_bt = New System.Windows.Forms.Button()
-        Me.版次_tb = New System.Windows.Forms.TextBox()
-        Me.訂製圖檔_dgv = New System.Windows.Forms.DataGridView()
-        Me.下載圖檔_bt = New System.Windows.Forms.Button()
-        Me.圖檔入系統_bt = New System.Windows.Forms.Button()
-        Me.檔名讀取_tb = New System.Windows.Forms.TextBox()
-        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
-        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
-        Me.FTP資料夾_wb = New System.Windows.Forms.WebBrowser()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.大間距_ch = New System.Windows.Forms.CheckBox()
-        Me.中間距_ch = New System.Windows.Forms.CheckBox()
-        Me.申請人_tb = New System.Windows.Forms.TextBox()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.日期2_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.業務1_cb = New System.Windows.Forms.ComboBox()
-        Me.單號_tb = New System.Windows.Forms.TextBox()
-        Me.採購金額_tb = New System.Windows.Forms.TextBox()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.小間距_ch = New System.Windows.Forms.CheckBox()
-        Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
-        Me.清空1_bt = New System.Windows.Forms.Button()
-        Me.供應商編碼1_tb = New System.Windows.Forms.TextBox()
-        Me.查詢1_tb = New System.Windows.Forms.TextBox()
-        Me.地區1_cb = New System.Windows.Forms.ComboBox()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.供應商1_cb = New System.Windows.Forms.ComboBox()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.供應商編碼1_cb = New System.Windows.Forms.ComboBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.存檔_bt = New System.Windows.Forms.Button()
-        Me.刪除單據上點選的資料_bt = New System.Windows.Forms.Button()
-        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.選擇_lb = New System.Windows.Forms.Label()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.採購清單_dgv = New System.Windows.Forms.DataGridView()
-        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
-        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
-        Me.採購金額1_tb = New System.Windows.Forms.TextBox()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.供應商_tb = New System.Windows.Forms.TextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.日期3_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.日期4_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.批量勾選_cb = New System.Windows.Forms.CheckBox()
-        Me.過帳_bt = New System.Windows.Forms.Button()
-        CType(Me.訂製圖檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStrip1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        '下載檔名_tb
-        '
-        Me.下載檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        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(743, 356)
-        Me.下載檔名_tb.Name = "下載檔名_tb"
-        Me.下載檔名_tb.Size = New System.Drawing.Size(122, 23)
-        Me.下載檔名_tb.TabIndex = 1394
-        Me.下載檔名_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        Me.下載檔名_tb.Visible = False
-        '
-        '料號_tb
-        '
-        Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.料號_tb.Enabled = False
-        Me.料號_tb.Location = New System.Drawing.Point(743, 327)
-        Me.料號_tb.Name = "料號_tb"
-        Me.料號_tb.Size = New System.Drawing.Size(122, 23)
-        Me.料號_tb.TabIndex = 1393
-        Me.料號_tb.Visible = False
-        '
-        '單號1_tb
-        '
-        Me.單號1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.單號1_tb.Enabled = False
-        Me.單號1_tb.Location = New System.Drawing.Point(743, 298)
-        Me.單號1_tb.Name = "單號1_tb"
-        Me.單號1_tb.Size = New System.Drawing.Size(122, 23)
-        Me.單號1_tb.TabIndex = 1392
-        Me.單號1_tb.Visible = False
-        '
-        '大圖預覽_bt
-        '
-        Me.大圖預覽_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.Blue
-        Me.大圖預覽_bt.Location = New System.Drawing.Point(959, 297)
-        Me.大圖預覽_bt.Name = "大圖預覽_bt"
-        Me.大圖預覽_bt.Size = New System.Drawing.Size(89, 24)
-        Me.大圖預覽_bt.TabIndex = 1391
-        Me.大圖預覽_bt.Text = "大圖預覽"
-        Me.大圖預覽_bt.UseVisualStyleBackColor = True
-        '
-        '版次_tb
-        '
-        Me.版次_tb.Location = New System.Drawing.Point(743, 270)
-        Me.版次_tb.Name = "版次_tb"
-        Me.版次_tb.Size = New System.Drawing.Size(122, 23)
-        Me.版次_tb.TabIndex = 1390
-        Me.版次_tb.Visible = False
-        '
-        '訂製圖檔_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.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(958, 323)
-        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(90, 354)
-        Me.訂製圖檔_dgv.TabIndex = 1389
-        '
-        '下載圖檔_bt
-        '
-        Me.下載圖檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下載圖檔_bt.Location = New System.Drawing.Point(1223, 271)
-        Me.下載圖檔_bt.Name = "下載圖檔_bt"
-        Me.下載圖檔_bt.Size = New System.Drawing.Size(94, 24)
-        Me.下載圖檔_bt.TabIndex = 1388
-        Me.下載圖檔_bt.Text = "下載圖片"
-        Me.下載圖檔_bt.UseVisualStyleBackColor = True
-        '
-        '圖檔入系統_bt
-        '
-        Me.圖檔入系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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(1049, 271)
-        Me.圖檔入系統_bt.Name = "圖檔入系統_bt"
-        Me.圖檔入系統_bt.Size = New System.Drawing.Size(173, 24)
-        Me.圖檔入系統_bt.TabIndex = 1387
-        Me.圖檔入系統_bt.Text = "圖檔入系統 或 圖片修改存檔"
-        Me.圖檔入系統_bt.UseVisualStyleBackColor = True
-        '
-        '檔名讀取_tb
-        '
-        Me.檔名讀取_tb.AllowDrop = True
-        Me.檔名讀取_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔名讀取_tb.Location = New System.Drawing.Point(743, 212)
-        Me.檔名讀取_tb.Multiline = True
-        Me.檔名讀取_tb.Name = "檔名讀取_tb"
-        Me.檔名讀取_tb.Size = New System.Drawing.Size(122, 23)
-        Me.檔名讀取_tb.TabIndex = 1386
-        Me.檔名讀取_tb.Visible = False
-        '
-        '檔案名稱_tb
-        '
-        Me.檔案名稱_tb.AllowDrop = True
-        Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1104, 482)
-        Me.檔案名稱_tb.Name = "檔案名稱_tb"
-        Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
-        Me.檔案名稱_tb.TabIndex = 1384
-        '
-        'Label12
-        '
-        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(1052, 508)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(108, 17)
-        Me.Label12.TabIndex = 1382
-        Me.Label12.Text = "伺服器FTP文件夾"
-        '
-        'Label4
-        '
-        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label4.Location = New System.Drawing.Point(1054, 300)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(56, 16)
-        Me.Label4.TabIndex = 1381
-        Me.Label4.Text = "我的電腦"
-        '
-        '讀取資料夾路徑_bt
-        '
-        Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.Blue
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(959, 271)
-        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
-        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(89, 24)
-        Me.讀取資料夾路徑_bt.TabIndex = 1380
-        Me.讀取資料夾路徑_bt.Text = "讀取料夾路徑"
-        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
-        '
-        '本機資料夾_wb
-        '
-        Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1053, 356)
-        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.本機資料夾_wb.Name = "本機資料夾_wb"
-        Me.本機資料夾_wb.Size = New System.Drawing.Size(287, 122)
-        Me.本機資料夾_wb.TabIndex = 1379
-        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        'FTP資料夾_wb
-        '
-        Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1053, 525)
-        Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
-        Me.FTP資料夾_wb.Size = New System.Drawing.Size(282, 152)
-        Me.FTP資料夾_wb.TabIndex = 1378
-        Me.FTP資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        'Label11
-        '
-        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label11.AutoSize = True
-        Me.Label11.ForeColor = System.Drawing.Color.Red
-        Me.Label11.Location = New System.Drawing.Point(1061, 321)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(244, 32)
-        Me.Label11.TabIndex = 1383
-        Me.Label11.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "檔案名稱不要帶有中文字或是符號"
-        '
-        'Label5
-        '
-        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(1050, 485)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
-        Me.Label5.TabIndex = 1385
-        Me.Label5.Text = "檔案名稱"
-        '
-        '大間距_ch
-        '
-        Me.大間距_ch.AutoSize = True
-        Me.大間距_ch.Location = New System.Drawing.Point(146, 66)
-        Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
-        Me.大間距_ch.TabIndex = 1377
-        Me.大間距_ch.Text = "大間距"
-        Me.大間距_ch.UseVisualStyleBackColor = True
-        '
-        '中間距_ch
-        '
-        Me.中間距_ch.AutoSize = True
-        Me.中間距_ch.Location = New System.Drawing.Point(77, 66)
-        Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
-        Me.中間距_ch.TabIndex = 1376
-        Me.中間距_ch.Text = "中間距"
-        Me.中間距_ch.UseVisualStyleBackColor = True
-        '
-        '申請人_tb
-        '
-        Me.申請人_tb.Enabled = False
-        Me.申請人_tb.Location = New System.Drawing.Point(550, 31)
-        Me.申請人_tb.Name = "申請人_tb"
-        Me.申請人_tb.Size = New System.Drawing.Size(130, 23)
-        Me.申請人_tb.TabIndex = 1375
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(500, 34)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(44, 16)
-        Me.Label19.TabIndex = 1374
-        Me.Label19.Text = "申請人"
-        '
-        '日期2_dtp
-        '
-        Me.日期2_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.日期2_dtp.Enabled = False
-        Me.日期2_dtp.Location = New System.Drawing.Point(743, 183)
-        Me.日期2_dtp.Name = "日期2_dtp"
-        Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
-        Me.日期2_dtp.TabIndex = 1373
-        Me.日期2_dtp.Visible = False
-        '
-        '日期1_dtp
-        '
-        Me.日期1_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.日期1_dtp.Enabled = False
-        Me.日期1_dtp.Location = New System.Drawing.Point(743, 154)
-        Me.日期1_dtp.Name = "日期1_dtp"
-        Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
-        Me.日期1_dtp.TabIndex = 1372
-        Me.日期1_dtp.Visible = False
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(319, 9)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(32, 16)
-        Me.Label3.TabIndex = 1371
-        Me.Label3.Text = "業務"
-        '
-        '業務1_cb
-        '
-        Me.業務1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.業務1_cb.FormattingEnabled = True
-        Me.業務1_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "B", "Y"})
-        Me.業務1_cb.Location = New System.Drawing.Point(316, 31)
-        Me.業務1_cb.Name = "業務1_cb"
-        Me.業務1_cb.Size = New System.Drawing.Size(42, 24)
-        Me.業務1_cb.TabIndex = 1370
-        '
-        '單號_tb
-        '
-        Me.單號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.單號_tb.Enabled = False
-        Me.單號_tb.Location = New System.Drawing.Point(743, 125)
-        Me.單號_tb.Name = "單號_tb"
-        Me.單號_tb.Size = New System.Drawing.Size(122, 23)
-        Me.單號_tb.TabIndex = 1369
-        Me.單號_tb.Visible = False
-        '
-        '採購金額_tb
-        '
-        Me.採購金額_tb.ForeColor = System.Drawing.Color.Blue
-        Me.採購金額_tb.Location = New System.Drawing.Point(282, 64)
-        Me.採購金額_tb.Name = "採購金額_tb"
-        Me.採購金額_tb.Size = New System.Drawing.Size(130, 23)
-        Me.採購金額_tb.TabIndex = 1368
-        Me.採購金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.ForeColor = System.Drawing.Color.Blue
-        Me.Label16.Location = New System.Drawing.Point(215, 67)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(68, 16)
-        Me.Label16.TabIndex = 1367
-        Me.Label16.Text = "總採購金額"
-        '
-        '小間距_ch
-        '
-        Me.小間距_ch.AutoSize = True
-        Me.小間距_ch.Location = New System.Drawing.Point(8, 66)
-        Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
-        Me.小間距_ch.TabIndex = 1366
-        Me.小間距_ch.Text = "小間距"
-        Me.小間距_ch.UseVisualStyleBackColor = True
-        '
-        '物料圖1_pb
-        '
-        Me.物料圖1_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), 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(962, 6)
-        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(373, 262)
-        Me.物料圖1_pb.TabIndex = 1354
-        Me.物料圖1_pb.TabStop = False
-        '
-        '清空1_bt
-        '
-        Me.清空1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.清空1_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.清空1_bt.Location = New System.Drawing.Point(361, 4)
-        Me.清空1_bt.Name = "清空1_bt"
-        Me.清空1_bt.Size = New System.Drawing.Size(59, 52)
-        Me.清空1_bt.TabIndex = 1364
-        Me.清空1_bt.Text = "清除查詢條件"
-        Me.清空1_bt.UseVisualStyleBackColor = True
-        '
-        '供應商編碼1_tb
-        '
-        Me.供應商編碼1_tb.Location = New System.Drawing.Point(743, 241)
-        Me.供應商編碼1_tb.Name = "供應商編碼1_tb"
-        Me.供應商編碼1_tb.Size = New System.Drawing.Size(122, 23)
-        Me.供應商編碼1_tb.TabIndex = 1363
-        Me.供應商編碼1_tb.Visible = False
-        '
-        '查詢1_tb
-        '
-        Me.查詢1_tb.Location = New System.Drawing.Point(179, 5)
-        Me.查詢1_tb.Name = "查詢1_tb"
-        Me.查詢1_tb.Size = New System.Drawing.Size(134, 23)
-        Me.查詢1_tb.TabIndex = 1361
-        '
-        '地區1_cb
-        '
-        Me.地區1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.地區1_cb.FormattingEnabled = True
-        Me.地區1_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨"})
-        Me.地區1_cb.Location = New System.Drawing.Point(60, 4)
-        Me.地區1_cb.Name = "地區1_cb"
-        Me.地區1_cb.Size = New System.Drawing.Size(76, 24)
-        Me.地區1_cb.TabIndex = 1360
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.ForeColor = System.Drawing.Color.Red
-        Me.Label14.Location = New System.Drawing.Point(5, 9)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(32, 16)
-        Me.Label14.TabIndex = 1359
-        Me.Label14.Text = "地區"
-        '
-        '供應商1_cb
-        '
-        Me.供應商1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.供應商1_cb.FormattingEnabled = True
-        Me.供應商1_cb.Location = New System.Drawing.Point(179, 31)
-        Me.供應商1_cb.Name = "供應商1_cb"
-        Me.供應商1_cb.Size = New System.Drawing.Size(134, 24)
-        Me.供應商1_cb.TabIndex = 1358
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.ForeColor = System.Drawing.Color.Red
-        Me.Label13.Location = New System.Drawing.Point(138, 35)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(44, 16)
-        Me.Label13.TabIndex = 1357
-        Me.Label13.Text = "供應商"
-        '
-        '供應商編碼1_cb
-        '
-        Me.供應商編碼1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.供應商編碼1_cb.FormattingEnabled = True
-        Me.供應商編碼1_cb.Location = New System.Drawing.Point(60, 31)
-        Me.供應商編碼1_cb.Name = "供應商編碼1_cb"
-        Me.供應商編碼1_cb.Size = New System.Drawing.Size(76, 24)
-        Me.供應商編碼1_cb.TabIndex = 1356
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.ForeColor = System.Drawing.Color.Red
-        Me.Label1.Location = New System.Drawing.Point(5, 35)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 16)
-        Me.Label1.TabIndex = 1355
-        Me.Label1.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.Green
-        Me.存檔_bt.Location = New System.Drawing.Point(422, 4)
-        Me.存檔_bt.Name = "存檔_bt"
-        Me.存檔_bt.Size = New System.Drawing.Size(59, 52)
-        Me.存檔_bt.TabIndex = 1349
-        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(683, 5)
-        Me.刪除單據上點選的資料_bt.Name = "刪除單據上點選的資料_bt"
-        Me.刪除單據上點選的資料_bt.Size = New System.Drawing.Size(102, 50)
-        Me.刪除單據上點選的資料_bt.TabIndex = 1350
-        Me.刪除單據上點選的資料_bt.Text = "刪除採購單據上點選的資料"
-        Me.刪除單據上點選的資料_bt.UseVisualStyleBackColor = True
-        '
-        'Label9
-        '
-        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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(912, 67)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(44, 16)
-        Me.Label9.TabIndex = 1353
-        Me.Label9.Text = "筆資料"
-        '
-        '資料筆數1_tb
-        '
-        Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(870, 64)
-        Me.資料筆數1_tb.Name = "資料筆數1_tb"
-        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
-        Me.資料筆數1_tb.TabIndex = 1352
-        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label10
-        '
-        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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(848, 67)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(20, 16)
-        Me.Label10.TabIndex = 1351
-        Me.Label10.Text = "共"
-        '
-        '項次_tb
-        '
-        Me.項次_tb.Enabled = False
-        Me.項次_tb.Location = New System.Drawing.Point(550, 5)
-        Me.項次_tb.Name = "項次_tb"
-        Me.項次_tb.Size = New System.Drawing.Size(130, 23)
-        Me.項次_tb.TabIndex = 1348
-        '
-        '選擇_lb
-        '
-        Me.選擇_lb.AutoSize = True
-        Me.選擇_lb.Location = New System.Drawing.Point(482, 8)
-        Me.選擇_lb.Name = "選擇_lb"
-        Me.選擇_lb.Size = New System.Drawing.Size(68, 16)
-        Me.選擇_lb.TabIndex = 1347
-        Me.選擇_lb.Text = "資料流水號"
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label15.Location = New System.Drawing.Point(138, 8)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(44, 16)
-        Me.Label15.TabIndex = 1362
-        Me.Label15.Text = "關鍵字"
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(3, 51)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(1513, 16)
-        Me.Label17.TabIndex = 1365
-        Me.Label17.Text = resources.GetString("Label17.Text")
-        '
-        '採購清單_dgv
-        '
-        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(5, 92)
-        Me.採購清單_dgv.Name = "採購清單_dgv"
-        Me.採購清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.採購清單_dgv.RowTemplate.Height = 24
-        Me.採購清單_dgv.Size = New System.Drawing.Size(951, 585)
-        Me.採購清單_dgv.TabIndex = 1346
-        '
-        'SaveFileDialog1
-        '
-        Me.SaveFileDialog1.DefaultExt = "jpg"
-        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
-        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
-        '
-        '採購金額1_tb
-        '
-        Me.採購金額1_tb.ForeColor = System.Drawing.Color.Green
-        Me.採購金額1_tb.Location = New System.Drawing.Point(623, 64)
-        Me.採購金額1_tb.Name = "採購金額1_tb"
-        Me.採購金額1_tb.Size = New System.Drawing.Size(117, 23)
-        Me.採購金額1_tb.TabIndex = 1454
-        Me.採購金額1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.ForeColor = System.Drawing.Color.Green
-        Me.Label6.Location = New System.Drawing.Point(556, 67)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
-        Me.Label6.TabIndex = 1453
-        Me.Label6.Text = "採購金額"
-        '
-        '供應商_tb
-        '
-        Me.供應商_tb.ForeColor = System.Drawing.Color.Green
-        Me.供應商_tb.Location = New System.Drawing.Point(462, 64)
-        Me.供應商_tb.Name = "供應商_tb"
-        Me.供應商_tb.Size = New System.Drawing.Size(88, 23)
-        Me.供應商_tb.TabIndex = 1452
-        Me.供應商_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.ForeColor = System.Drawing.Color.Green
-        Me.Label2.Location = New System.Drawing.Point(418, 67)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(44, 16)
-        Me.Label2.TabIndex = 1451
-        Me.Label2.Text = "供應商"
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理_tsm})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
-        '
-        '重新整理_tsm
-        '
-        Me.重新整理_tsm.Name = "重新整理_tsm"
-        Me.重新整理_tsm.Size = New System.Drawing.Size(122, 22)
-        Me.重新整理_tsm.Text = "重新整理"
-        '
-        '日期3_dtp
-        '
-        Me.日期3_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.日期3_dtp.Enabled = False
-        Me.日期3_dtp.Location = New System.Drawing.Point(615, 154)
-        Me.日期3_dtp.Name = "日期3_dtp"
-        Me.日期3_dtp.Size = New System.Drawing.Size(122, 23)
-        Me.日期3_dtp.TabIndex = 1455
-        Me.日期3_dtp.Visible = False
-        '
-        '日期4_dtp
-        '
-        Me.日期4_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.日期4_dtp.Enabled = False
-        Me.日期4_dtp.Location = New System.Drawing.Point(615, 183)
-        Me.日期4_dtp.Name = "日期4_dtp"
-        Me.日期4_dtp.Size = New System.Drawing.Size(122, 23)
-        Me.日期4_dtp.TabIndex = 1456
-        Me.日期4_dtp.Visible = False
-        '
-        '批量勾選_cb
-        '
-        Me.批量勾選_cb.AutoSize = True
-        Me.批量勾選_cb.Location = New System.Drawing.Point(746, 66)
-        Me.批量勾選_cb.Name = "批量勾選_cb"
-        Me.批量勾選_cb.Size = New System.Drawing.Size(75, 20)
-        Me.批量勾選_cb.TabIndex = 1457
-        Me.批量勾選_cb.Text = "批量勾選"
-        Me.批量勾選_cb.UseVisualStyleBackColor = True
-        '
-        '過帳_bt
-        '
-        Me.過帳_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), 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(840, 4)
-        Me.過帳_bt.Name = "過帳_bt"
-        Me.過帳_bt.Size = New System.Drawing.Size(116, 52)
-        Me.過帳_bt.TabIndex = 1458
-        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(1344, 681)
-        Me.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.Controls.Add(Me.過帳_bt)
-        Me.Controls.Add(Me.批量勾選_cb)
-        Me.Controls.Add(Me.日期4_dtp)
-        Me.Controls.Add(Me.日期3_dtp)
-        Me.Controls.Add(Me.採購金額1_tb)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.供應商_tb)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.下載檔名_tb)
-        Me.Controls.Add(Me.料號_tb)
-        Me.Controls.Add(Me.單號1_tb)
-        Me.Controls.Add(Me.大圖預覽_bt)
-        Me.Controls.Add(Me.版次_tb)
-        Me.Controls.Add(Me.訂製圖檔_dgv)
-        Me.Controls.Add(Me.下載圖檔_bt)
-        Me.Controls.Add(Me.圖檔入系統_bt)
-        Me.Controls.Add(Me.檔名讀取_tb)
-        Me.Controls.Add(Me.檔案名稱_tb)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.讀取資料夾路徑_bt)
-        Me.Controls.Add(Me.本機資料夾_wb)
-        Me.Controls.Add(Me.FTP資料夾_wb)
-        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.大間距_ch)
-        Me.Controls.Add(Me.中間距_ch)
-        Me.Controls.Add(Me.申請人_tb)
-        Me.Controls.Add(Me.Label19)
-        Me.Controls.Add(Me.日期2_dtp)
-        Me.Controls.Add(Me.日期1_dtp)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.業務1_cb)
-        Me.Controls.Add(Me.單號_tb)
-        Me.Controls.Add(Me.採購金額_tb)
-        Me.Controls.Add(Me.Label16)
-        Me.Controls.Add(Me.小間距_ch)
-        Me.Controls.Add(Me.物料圖1_pb)
-        Me.Controls.Add(Me.清空1_bt)
-        Me.Controls.Add(Me.供應商編碼1_tb)
-        Me.Controls.Add(Me.查詢1_tb)
-        Me.Controls.Add(Me.地區1_cb)
-        Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.供應商1_cb)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.供應商編碼1_cb)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.存檔_bt)
-        Me.Controls.Add(Me.刪除單據上點選的資料_bt)
-        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.選擇_lb)
-        Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.Label17)
-        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.ContextMenuStrip1.ResumeLayout(False)
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents 下載檔名_tb As TextBox
-    Friend WithEvents 料號_tb As TextBox
-    Friend WithEvents 單號1_tb As TextBox
-    Friend WithEvents 大圖預覽_bt As Button
-    Friend WithEvents 版次_tb As TextBox
-    Friend WithEvents 訂製圖檔_dgv As DataGridView
-    Friend WithEvents 下載圖檔_bt As Button
-    Friend WithEvents 圖檔入系統_bt As Button
-    Friend WithEvents 檔名讀取_tb As TextBox
-    Friend WithEvents 檔案名稱_tb As TextBox
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents 讀取資料夾路徑_bt As Button
-    Friend WithEvents 本機資料夾_wb As WebBrowser
-    Friend WithEvents FTP資料夾_wb As WebBrowser
-    Friend WithEvents Label11 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents 大間距_ch As CheckBox
-    Friend WithEvents 中間距_ch As CheckBox
-    Friend WithEvents 申請人_tb As TextBox
-    Friend WithEvents Label19 As Label
-    Friend WithEvents 日期2_dtp As DateTimePicker
-    Friend WithEvents 日期1_dtp As DateTimePicker
-    Friend WithEvents Label3 As Label
-    Friend WithEvents 業務1_cb As ComboBox
-    Friend WithEvents 單號_tb As TextBox
-    Friend WithEvents 採購金額_tb As TextBox
-    Friend WithEvents Label16 As Label
-    Friend WithEvents 小間距_ch As CheckBox
-    Friend WithEvents 物料圖1_pb As PictureBox
-    Friend WithEvents 清空1_bt As Button
-    Friend WithEvents 供應商編碼1_tb As TextBox
-    Friend WithEvents 查詢1_tb As TextBox
-    Friend WithEvents 地區1_cb As ComboBox
-    Friend WithEvents Label14 As Label
-    Friend WithEvents 供應商1_cb As ComboBox
-    Friend WithEvents Label13 As Label
-    Friend WithEvents 供應商編碼1_cb As ComboBox
-    Friend WithEvents Label1 As Label
-    Friend WithEvents 存檔_bt As Button
-    Friend WithEvents 刪除單據上點選的資料_bt As Button
-    Friend WithEvents Label9 As Label
-    Friend WithEvents 資料筆數1_tb As TextBox
-    Friend WithEvents Label10 As Label
-    Friend WithEvents 項次_tb As TextBox
-    Friend WithEvents 選擇_lb As Label
-    Friend WithEvents Label15 As Label
-    Friend WithEvents Label17 As Label
-    Friend WithEvents 採購清單_dgv As DataGridView
-    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
-    Friend WithEvents SaveFileDialog1 As SaveFileDialog
-    Friend WithEvents 採購金額1_tb As TextBox
-    Friend WithEvents Label6 As Label
-    Friend WithEvents 供應商_tb As TextBox
-    Friend WithEvents Label2 As Label
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
-    Friend WithEvents 重新整理_tsm As ToolStripMenuItem
-    Friend WithEvents 日期3_dtp As DateTimePicker
-    Friend WithEvents 日期4_dtp As DateTimePicker
-    Friend WithEvents 批量勾選_cb As CheckBox
-    Friend WithEvents 過帳_bt As Button
-End Class

YD-ERP-SYS/採購系統管理/採購控制表.vb

@@ -1,502 +0,0 @@
-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
-    Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字, 首次開啟 As Boolean
-    Private Sub Set_清單1()
-        採購清單_dgv.DataSource = Nothing : ds1.Clear()
-        採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        採購清單_dgv.ColumnHeadersHeight = 40
-        採購清單_dgv.AllowUserToAddRows = False
-
-        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
-            採購清單_dgv.RowTemplate.Height = 95
-        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
-            採購清單_dgv.RowTemplate.Height = 60
-        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
-            採購清單_dgv.RowTemplate.Height = 25
-        End If
-
-        If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
-        PA20 = 業務1_cb.Text
-        SQL_採購控制表_未過帳()
-        da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
-
-        採購清單_dgv.Columns(0).FillWeight = 40 : 採購清單_dgv.Columns(1).Visible = False : 採購清單_dgv.Columns(2).FillWeight = 70 : 採購清單_dgv.Columns(3).Visible = False
-        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 80 : 採購清單_dgv.Columns(6).FillWeight = 200 : 採購清單_dgv.Columns(7).Visible = False
-        採購清單_dgv.Columns(8).FillWeight = 100 : 採購清單_dgv.Columns(9).Visible = False : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 160
-        採購清單_dgv.Columns(12).Visible = False : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 95 : 採購清單_dgv.Columns(15).Visible = False
-        採購清單_dgv.Columns(16).FillWeight = 195 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 45 : 採購清單_dgv.Columns(19).FillWeight = 80
-        採購清單_dgv.Columns(20).Visible = False : 採購清單_dgv.Columns(21).Visible = False : 採購清單_dgv.Columns(22).Visible = False : 採購清單_dgv.Columns(23).FillWeight = 80
-        採購清單_dgv.Columns(24).FillWeight = 80 : 採購清單_dgv.Columns(25).FillWeight = 80 : 採購清單_dgv.Columns(26).FillWeight = 80 : 採購清單_dgv.Columns(27).FillWeight = 45
-        採購清單_dgv.Columns(28).FillWeight = 45
-
-        採購清單_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(0).ReadOnly = True : 採購清單_dgv.Columns(2).ReadOnly = True : 採購清單_dgv.Columns(21).ReadOnly = True
-        採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(6).ReadOnly = True
-        採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
-
-        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 採購清單_dgv.Rows.Count
-        關鍵字 = False
-
-        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-            採購清單_dgv("選擇", i).Value = False
-        Next
-        Set_合記計算()
-    End Sub
-    Private Sub Set_採購清單_dgv_下拉式清單1()
-        Dim Col As New DataGridViewComboBoxColumn With {
-            .FillWeight = 130,
-            .DataPropertyName = "倉名"
-        }
-        SQL_倉名_下拉清單()
-        Col.Items.Clear()
-        While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close()
-        Col.HeaderText = "倉名" : Col.Name = "倉名"
-        採購清單_dgv.Columns.Insert(8, Col)
-    End Sub
-    Private Sub Set_採購清單_dgv_下拉式清單2()
-        Dim Col As New DataGridViewComboBoxColumn With {
-            .FillWeight = 130,
-            .DataPropertyName = "訂製"
-        }
-        SQL_訂製狀態_下拉清單()
-        Col.Items.Clear()
-        While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close()
-        Col.HeaderText = "訂製" : Col.Name = "訂製"
-        採購清單_dgv.Columns.Insert(11, Col)
-    End Sub
-    Private Sub Set_採購清單_dgv_下拉式清單3()
-        Dim Col As New DataGridViewComboBoxColumn With {
-            .FillWeight = 130,
-            .DataPropertyName = "狀態"
-        }
-        SQL_倉儲狀態_下拉清單()
-        Col.Items.Clear()
-        While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close()
-        Col.HeaderText = "狀態" : Col.Name = "狀態"
-        採購清單_dgv.Columns.Insert(14, Col)
-    End Sub
-    Private Sub Set_合記計算()
-        採購金額_tb.Text = "0" : 採購金額1_tb.Text = "0"
-        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-            採購清單_dgv("金額", i).Value = 採購清單_dgv("數量", i).Value * 採購清單_dgv("成本", i).Value
-            採購金額_tb.Text = Val(採購金額_tb.Text) + 採購清單_dgv("金額", i).Value
-
-            If 供應商_tb.Text = 採購清單_dgv("供應商", i).Value.ToString Then
-                採購金額1_tb.Text = Val(採購金額1_tb.Text) + 採購清單_dgv("金額", i).Value
-            End If
-        Next
-        採購金額_tb.Text = Format(Val(採購金額_tb.Text), "#,##0") : 採購金額1_tb.Text = Format(Val(採購金額1_tb.Text), "#,##0")
-    End Sub
-    Private Sub Set_清單5()
-        訂製圖檔_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).Visible = False : 訂製圖檔_dgv.Columns(1).Visible = False : 訂製圖檔_dgv.Columns(2).FillWeight = 100
-    End Sub
-    Private Sub 供應商1_下拉表單資料載入()
-        BL1 = False : PA3 = "" : PA4 = ""
-        If 地區1_cb.Text = "" Then : PA3 = ""
-        ElseIf 地區1_cb.Text = "北部" Then : PA3 = "2"
-        ElseIf 地區1_cb.Text = "南部" Then : PA3 = "3"
-        ElseIf 地區1_cb.Text = "材料" Then : PA3 = "9"
-        ElseIf 地區1_cb.Text = "調貨" Then : PA3 = "Y"
-        End If
-        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
-        While (dr.Read()) : 供應商1_cb.Items.Add(dr("簡稱")) : 供應商編碼1_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
-        小間距_ch.Checked = True : 業務1_cb.Text = 業務號碼 '--------------------控件隱藏、操作許可設定與其他基本顯示設定
-
-        首次開啟 = True : Set_清單1() : 首次開啟 = False
-        Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
-    End Sub
-    Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
-        If 首次開啟 = True Then : Else
-            For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-                If 採購清單_dgv("選擇", I).Value = True Then
-                    採購清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen
-                Else
-                    採購清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White
-                End If
-            Next
-        End If
-
-        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
-    End Sub
-    Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
-        Set_合記計算()
-
-        PA20 = 採購清單_dgv(8, e.RowIndex).Value.ToString : SQL_銷售明細_改倉名()
-        If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
-        PA19 = 採購清單_dgv(11, e.RowIndex).Value.ToString : SQL_銷售明細_改物料訂製狀態()
-        If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
-        PA18 = 採購清單_dgv(14, e.RowIndex).Value.ToString : SQL_銷售明細_倉儲狀態()
-        If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
-
-        Dim EU(3) As String
-        EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
-        If EU(0) = "" Then : Else
-            If IsDate(EU(0)) Then
-                日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
-            Else
-                採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = ""
-            End If
-        End If
-        EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
-        If EU(1) = "" Then : Else
-            If IsDate(EU(1)) Then
-                日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
-            Else
-                採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = ""
-            End If
-        End If
-        EU(2) = 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString
-        If EU(2) = "" Then : Else
-            If IsDate(EU(2)) Then
-                日期3_dtp.Text = EU(2) : 採購清單_dgv.Rows(e.RowIndex).Cells("實際進廠日").Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
-            Else
-                採購清單_dgv.Rows(e.RowIndex).Cells("實際進廠日").Value = ""
-            End If
-        End If
-        EU(3) = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
-        If EU(3) = "" Then : Else
-            If IsDate(EU(3)) Then
-                日期4_dtp.Text = EU(3) : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
-            Else
-                採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = "" : 採購清單_dgv("選擇", e.RowIndex).Value = False
-            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
-            項次_tb.Text = 採購清單_dgv(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 採購清單_dgv("申請人", e.RowIndex).Value.ToString
-            版次_tb.Text = 採購清單_dgv("訂製圖號", e.RowIndex).Value.ToString : 單號1_tb.Text = 採購清單_dgv("銷售單號", e.RowIndex).Value.ToString
-            料號_tb.Text = 採購清單_dgv("料號", e.RowIndex).Value.ToString : 供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
-
-            Set_合記計算()
-            PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
-
-            物料圖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()
-            If 批量勾選_cb.Checked = True Then
-                If 採購清單_dgv("選擇", e.RowIndex).Value = False Then
-                    採購清單_dgv("選擇", e.RowIndex).Value = True
-                    If 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString = "" Then
-                        PA = InputBox("請輸入指定過帳日期")
-                        If IsDate(PA) Then
-                            採購清單_dgv("過帳日期", e.RowIndex).Value = PA
-                            Dim EU As String
-                            EU = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
-                            If EU = "" Then : Else
-                                日期4_dtp.Text = EU : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
-                            End If
-                        Else
-                            MsgBox("請輸入日期格式資料!!!!")
-                            採購清單_dgv("過帳日期", e.RowIndex).Value = ""
-                            採購清單_dgv("選擇", e.RowIndex).Value = False
-                        End If
-                    Else
-                        採購清單_dgv("過帳日期", e.RowIndex).Value = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
-                    End If
-                End If
-            End If
-        End If
-    End Sub
-    Private Sub 採購清單_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellDoubleClick
-        If e.RowIndex = -1 Then : Else
-            採購清單_dgv("選擇", e.RowIndex).Value = False
-            採購清單_dgv("過帳日期", e.RowIndex).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
-
-            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            物料圖1_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_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)
-                物料圖1_pb.Image = Bitmap.FromStream(oStream)
-            End While
-            conn.Close()
-            物料圖1_pb.SizeMode = 4
-        End If
-    End Sub
-    Private Sub 地區1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區1_cb.SelectedIndexChanged
-        If 地區1_cb.Text = "" And 查詢1_tb.Text = "" Then
-            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear() : Set_清單1()
-        ElseIf 地區1_cb.Text = "" Then
-            查詢1_tb.Text = "" : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
-        ElseIf 地區1_cb.Text <> "" Then
-            查詢1_tb.Text = "" : 供應商1_下拉表單資料載入()
-        End If
-    End Sub
-    Private Sub 供應商1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商1_cb.SelectedIndexChanged
-        If 地區1_cb.Text <> "" Then
-            查詢1_tb.Text = "" : 供應商編碼1_cb.SelectedIndex = 供應商1_cb.SelectedIndex
-        End If
-    End Sub
-    Private Sub 供應商編碼1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼1_cb.SelectedIndexChanged
-        If 地區1_cb.Text <> "" Then
-            查詢1_tb.Text = "" : 供應商1_cb.SelectedIndex = 供應商編碼1_cb.SelectedIndex : 供應商編碼1_tb.Text = 供應商編碼1_cb.Text : Set_清單1()
-        End If
-    End Sub
-    Private Sub 查詢1_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢1_tb.KeyPress
-        If e.KeyChar = Chr(13) Then
-            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
-            關鍵字 = True : PA = 查詢1_tb.Text : Set_清單1() : 地區1_cb.Text = ""
-        End If
-    End Sub
-    Private Sub 清空1_bt_Click(sender As Object, e As EventArgs) Handles 清空1_bt.Click
-        業務1_cb.Text = "" : 查詢1_tb.Text = "" : 地區1_cb.Text = ""
-    End Sub
-    Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
-        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
-        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
-        If aa1 = MsgBoxResult.Ok Then
-            存檔1() : Set_清單1()
-        Else
-            Set_清單1()
-        End If
-    End Sub
-    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
-        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
-        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
-        If aa1 = MsgBoxResult.Ok Then
-            存檔1() : Set_清單1()
-        Else
-            Set_清單1()
-        End If
-    End Sub
-    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
-        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
-        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
-        If aa1 = MsgBoxResult.Ok Then
-            存檔1() : Set_清單1()
-        Else
-            Set_清單1()
-        End If
-    End Sub
-    Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
-        Set_清單1()
-    End Sub
-    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
-        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-            Dim files As String()
-            Try
-                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
-                檔案名稱_tb.Text = files(files.Length - 1)
-            Catch ex As Exception
-                MessageBox.Show(ex.Message)
-                Return
-            End Try
-        End If
-        Dim STR2 As Integer = 0
-        檔名讀取_tb.Text = 檔案名稱_tb.Text
-        If 檔案名稱_tb.Text = "" Then
-        Else
-            For i As Integer = 0 To 9999
-                Dim STR1 As Integer = Strings.Len(檔名讀取_tb.Text)
-                If Strings.Right((檔名讀取_tb.Text), 1) <> "\" Then
-                    STR1 -= 1 : STR2 += 1
-                    If STR1 = 0 Then
-                        檔名讀取_tb.Text = ""
-                        檔案名稱_tb.Text = ""
-                        i = 9999
-                    Else
-                        檔名讀取_tb.Text = Strings.Left((檔名讀取_tb.Text), STR1)
-                    End If
-                Else
-                    檔名讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
-                    檔案名稱_tb.Text = 檔名讀取_tb.Text
-                    i = 9999
-                End If
-            Next
-        End If
-    End Sub
-    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
-        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
-        For Each file As String In files
-            檔案名稱_tb.AppendText(file + Environment.NewLine)
-        Next
-    End Sub
-    Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
-        If gUserName <> 申請人_tb.Text And Val(登入人級別) >= 3 Then
-            MsgBox("不能修改其他申請人的資料")
-        Else
-            PA = 項次_tb.Text : SQL_採購控制表_刪除()
-        End If
-        Set_清單1() : MsgBox("已刪除選中的資料")
-    End Sub
-    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : 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
-                Dim 驗證 As String : Dim 取變數 As String
-                取變數 = Strings.StrReverse(檔案名稱_tb.Text)
-                For i As Integer = 1 To 10
-                    If i = 1 Then
-                        驗證 = Strings.Left(取變數, i)
-                    Else
-                        If Strings.Mid(取變數, i, 1) = "." Then
-                            驗證 = Strings.StrReverse(驗證) : Exit For
-                        Else
-                            驗證 = 驗證 & Strings.Mid(取變數, i, 1)
-                        End If
-                    End If
-                Next
-
-                If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
-                    Dim 進版 As Integer
-                    If 版次_tb.Text = "" Then
-                        版次_tb.Text = "V01"
-                    Else
-                        進版 = Strings.Right(版次_tb.Text, 2) : 進版 += 1
-                        If 進版 < 10 Then : 版次_tb.Text = "V" & "0" & 進版
-                        Else : 版次_tb.Text = "V" & EDR : End If
-                    End If
-
-                    PA1 = 項次_tb.Text : PA2 = 單號1_tb.Text : PA3 = 版次_tb.Text : PA4 = 檔案名稱_tb.Text
-                    SQL_採購控制表_圖片新增() : SQL_採購控制表_修改() : conn.Close()
-                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
-                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
-                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
-                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
-                    frq.Credentials = fcr
-                    frq.Method = WebRequestMethods.Ftp.DeleteFile
-                    frq.UseBinary = True
-                    frp = CType(frq.GetResponse, FtpWebResponse)
-                    frp.Close()
-                    FTP資料夾_wb.Refresh()
-                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-                    物料圖1_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_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)
-                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
-                    End While
-                    conn.Close()
-                    物料圖1_pb.SizeMode = 4
-                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-                    存檔1() : Set_清單5() : Set_清單1() : 檔案名稱_tb.Text = ""
-                Else
-                    MsgBox("上傳文件並非常用圖片格式，文件已自動刪除，請專換成常用圖片檔案再行操作。")
-                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
-                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
-                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
-                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
-                    frq.Credentials = fcr
-                    frq.Method = WebRequestMethods.Ftp.DeleteFile
-                    frq.UseBinary = True
-                    frp = CType(frq.GetResponse, FtpWebResponse)
-                    frp.Close()
-                    FTP資料夾_wb.Refresh()
-                    檔案名稱_tb.Text = ""
-                End If
-            End If
-        End If
-    End Sub
-    Private Sub 下載圖檔_bt_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click
-        If 物料圖1_pb.Image Is Nothing Then : MsgBox("所選擇的資料沒有圖片檔案，無法下載。")
-        Else
-            With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
-            SaveFileDialog1.FileName = 單號1_tb.Text & "-" & 料號_tb.Text & "-" & 版次_tb.Text & ".jpg"
-
-            Dim result As DialogResult = SaveFileDialog1.ShowDialog()
-            下載檔名_tb.Text = SaveFileDialog1.FileName
-            If result = System.Windows.Forms.DialogResult.Cancel Then
-                Exit Sub
-            End If
-
-            PA15 = 項次_tb.Text : PA16 = 版次_tb.Text
-            ds3.Clear() : SQL_採購控制表_訂製圖片下載() : da.Fill(ds3)
-            If ds3.Tables(0).Rows.Count > 0 Then
-                Dim imgData() As Byte
-                imgData = ds3.Tables(0).Rows(0).Item("圖片")
-                Dim fs As FileStream
-                fs = File.Create(下載檔名_tb.Text, imgData.Length - 1)
-                fs.Write(imgData, 0, imgData.Length - 1)
-                fs.Close()
-            End If : conn.Close() : MsgBox("下載完成")
-        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
-            採購訂製大圖.ShowDialog()
-        End If
-    End Sub
-    Private Sub 存檔1()
-        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
-            If gUserName <> 採購清單_dgv("申請人", i).Value And Val(登入人級別) >= 3 Then
-            Else
-                PA = 採購清單_dgv("資料流水號", i).Value : PA1 = 採購清單_dgv("物料狀態", i).Value : PA2 = 採購清單_dgv("訂製狀態", i).Value : PA3 = 採購清單_dgv("倉儲狀態", i).Value
-                PA4 = 採購清單_dgv("備註", i).Value.ToString : PA5 = 採購清單_dgv("採購日期", i).Value.ToString : PA6 = 採購清單_dgv("預計進廠日", i).Value.ToString
-                NU1 = 採購清單_dgv("數量", i).Value : NU2 = 採購清單_dgv("成本", i).Value : NU3 = NU1 * NU2
-                SQL_採購控制表_存檔()
-            End If
-        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-        Set_清單1()
-    End Sub
-    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        存檔1() : MsgBox("修改完成。")
-    End Sub
-    Private Sub 過帳_bt_Click(sender As Object, e As EventArgs) Handles 過帳_bt.Click
-        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
-            If 採購清單_dgv("選擇", i).Value = True Then
-                PA = 採購清單_dgv("資料流水號", i).Value : PA2 = "1" : PA1 = 採購清單_dgv("過帳日期", i).Value
-                SQL_採購控制表_過帳()
-            End If
-        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-        Set_清單1()
-    End Sub
-    Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
-        Set_清單1()
-    End Sub
-End Class

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

@@ -1,6 +1,6 @@
 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
+    ReadOnly ds1, ds2, ds4, ds5, ds6, ds7 As New DataSet
     Dim 首次開啟 As Boolean = False : Dim 運費 As Integer
     Private Sub Set_清單1()
         銷售單據_dgv.DataSource = Nothing : ds1.Clear()
@@ -13,9 +13,9 @@ Public Class 訂單控制表
         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 = 100
-        銷售單據_dgv.Columns(4).FillWeight = 100 : 銷售單據_dgv.Columns(5).FillWeight = 50 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 100
-        銷售單據_dgv.Columns(8).FillWeight = 100 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 110
+        銷售單據_dgv.Columns(4).FillWeight = 110 : 銷售單據_dgv.Columns(5).FillWeight = 50 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 110
+        銷售單據_dgv.Columns(8).FillWeight = 85 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
         銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = False : 銷售單據_dgv.Columns(14).Visible = False : 銷售單據_dgv.Columns(15).Visible = False
         銷售單據_dgv.Columns(16).Visible = False : 銷售單據_dgv.Columns(17).Visible = False
 
@@ -56,7 +56,7 @@ Public Class 訂單控制表
         銷售明細_dgv.Columns(4).FillWeight = 120 : 銷售明細_dgv.Columns(5).FillWeight = 120 : 銷售明細_dgv.Columns(6).FillWeight = 120 : 銷售明細_dgv.Columns(7).FillWeight = 190
         銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 80 : 銷售明細_dgv.Columns(11).FillWeight = 50
         銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False : 銷售明細_dgv.Columns(14).Visible = False : 銷售明細_dgv.Columns(15).Visible = False
-        銷售明細_dgv.Columns(16).Visible = False : 銷售明細_dgv.Columns(17).Visible = False
+        銷售明細_dgv.Columns(16).Visible = False : 銷售明細_dgv.Columns(17).Visible = False : 銷售明細_dgv.Columns(18).FillWeight = 50
 
         銷售明細_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(8).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
@@ -94,7 +94,7 @@ Public Class 訂單控制表
         銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售備註_dgv.ColumnHeadersHeight = 25
         銷售備註_dgv.AllowUserToAddRows = False
-        銷售備註_dgv.RowTemplate.Height = 25
+        銷售備註_dgv.RowTemplate.Height = 45
 
         PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表()
         da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
@@ -144,6 +144,33 @@ Public Class 訂單控制表
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
     End Sub
+    Private Sub Set_清單7()
+        銷售衍生運費_dgv.DataSource = Nothing : ds7.Clear()
+        銷售衍生運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售衍生運費_dgv.ColumnHeadersHeight = 25
+        銷售衍生運費_dgv.AllowUserToAddRows = False
+        銷售衍生運費_dgv.RowTemplate.Height = 45
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售衍生費用()
+        da.Fill(ds7) : 銷售衍生運費_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+        銷售衍生運費_dgv.Columns(0).Visible = False : 銷售衍生運費_dgv.Columns(1).FillWeight = 30 : 銷售衍生運費_dgv.Columns(2).Visible = False : 銷售衍生運費_dgv.Columns(3).FillWeight = 160
+        銷售衍生運費_dgv.Columns(4).FillWeight = 30
+
+        銷售衍生運費_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
+        銷售衍生運費_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 送貨地點_cb_下拉表單資料載入()
         SQL_送貨地點_下拉清單() : 送貨地點_cb.Items.Clear() : 最低運費_cb.Items.Clear() : 最低售價_cb.Items.Clear() : 司機運費_tb.Text = "0"
         While (dr.Read()) : 送貨地點_cb.Items.Add(dr("地區")) : 最低運費_cb.Items.Add(dr("起車")) : 最低售價_cb.Items.Add(dr("最低售額")) : End While : conn.Close()
@@ -223,6 +250,11 @@ Public Class 訂單控制表
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        If 銷售衍生運費_dgv.Rows.Count > 0 Then
+            For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
+                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+            Next
+        End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         售價小計_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")
@@ -232,13 +264,14 @@ 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
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True
         中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
         送貨地點_cb_下拉表單資料載入()
         首次開啟 = False : 業務_cb.Text = 業務號碼 : 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()
+            Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
         End If
     End Sub
     Private Sub 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
@@ -263,6 +296,14 @@ Public Class 訂單控制表
             銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_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
+        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
+            項次4_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
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             If 銷售明細_dgv("含稅", i).Value = False Then
@@ -304,7 +345,7 @@ Public Class 訂單控制表
             運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value
             '業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
             Set_清單4() : Set_清單5()
-            Set_清單6()
+            Set_清單6() : Set_清單7()
             PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
             If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
         End If
@@ -361,6 +402,24 @@ Public Class 訂單控制表
         End If
     End Sub
     Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
-        Set_清單4() : Set_清單5() : Set_清單6()
+        Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
+    End Sub
+    Private Sub 隱藏_bt_Click(sender As Object, e As EventArgs) Handles 隱藏_bt.Click
+        顯示_bt.Enabled = True : 隱藏_bt.Enabled = False
+        Panel2.Visible = False
+        Panel3.Location = New Point(2, 2)
+        NU1 = Panel3.Size.Width
+        NU2 = Panel3.Size.Height
+        NU1 = Panel3.Size.Width + 556
+        Panel3.Size = New Size(NU1, NU2)
+    End Sub
+    Private Sub 顯示_bt_Click(sender As Object, e As EventArgs) Handles 顯示_bt.Click
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True
+        Panel2.Visible = True
+        Panel3.Location = New Point(559, 2)
+        NU1 = Panel3.Size.Width
+        NU2 = Panel3.Size.Height
+        NU1 = Panel3.Size.Width - 556
+        Panel3.Size = New Size(NU1, NU2)
     End Sub
 End Class

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

@@ -1,9 +1,6 @@
 Option Strict Off
-Imports System.Net
-Imports System.IO
 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
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 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
     Dim 運費 As Integer : Dim 刷卡控制 As Boolean = False
     Private Sub Set_清單()
@@ -127,7 +124,7 @@ Public Class 銷售單審核
         銷售明細_dgv.Columns(8).Visible = False : 銷售明細_dgv.Columns(9).FillWeight = 130 : 銷售明細_dgv.Columns(10).FillWeight = 150 : 銷售明細_dgv.Columns(11).FillWeight = 80
         銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).FillWeight = 50 : 銷售明細_dgv.Columns(15).FillWeight = 80
         銷售明細_dgv.Columns(16).Visible = False : 銷售明細_dgv.Columns(17).Visible = False : 銷售明細_dgv.Columns(18).Visible = False : 銷售明細_dgv.Columns(19).Visible = False
-        銷售明細_dgv.Columns(20).Visible = False
+        銷售明細_dgv.Columns(20).Visible = False : 銷售明細_dgv.Columns(21).FillWeight = 50
 
         銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
         銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(13).ReadOnly = True : 銷售明細_dgv.Columns(16).ReadOnly = True
@@ -197,7 +194,7 @@ Public Class 銷售單審核
         銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售備註_dgv.ColumnHeadersHeight = 25
         銷售備註_dgv.AllowUserToAddRows = False
-        銷售備註_dgv.RowTemplate.Height = 25
+        銷售備註_dgv.RowTemplate.Height = 45
 
         PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表()
         da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
@@ -247,6 +244,33 @@ Public Class 銷售單審核
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
     End Sub
+    Private Sub Set_清單7()
+        銷售衍生運費_dgv.DataSource = Nothing : ds7.Clear()
+        銷售衍生運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售衍生運費_dgv.ColumnHeadersHeight = 25
+        銷售衍生運費_dgv.AllowUserToAddRows = False
+        銷售衍生運費_dgv.RowTemplate.Height = 45
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售衍生費用()
+        da.Fill(ds7) : 銷售衍生運費_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+        銷售衍生運費_dgv.Columns(0).Visible = False : 銷售衍生運費_dgv.Columns(1).FillWeight = 30 : 銷售衍生運費_dgv.Columns(2).Visible = False : 銷售衍生運費_dgv.Columns(3).FillWeight = 160
+        銷售衍生運費_dgv.Columns(4).FillWeight = 30
+
+        銷售衍生運費_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
+        銷售衍生運費_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 供應商_下拉表單資料載入()
         BL1 = False : PA3 = "" : PA4 = ""
         If 地區_cb.Text = "" Then : PA3 = ""
@@ -346,6 +370,11 @@ Public Class 銷售單審核
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        If 銷售衍生運費_dgv.Rows.Count > 0 Then
+            For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
+                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+            Next
+        End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         售價小計_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")
@@ -373,7 +402,7 @@ 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
-
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True
         If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
         If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
         料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
@@ -383,7 +412,7 @@ Public Class 銷售單審核
     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()
+            Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
         End If
         If Me.Size.Width > 1600 Then
             物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(300, 167)
@@ -413,6 +442,14 @@ Public Class 銷售單審核
             銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_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
+        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 : 項次4_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
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             If 銷售明細_dgv("含稅", i).Value = False Then
@@ -470,7 +507,7 @@ Public Class 銷售單審核
             運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value : 客戶流水_tb.Text = ""
             業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
             Set_清單4() : Set_清單5()
-            Set_清單6()
+            Set_清單6() : Set_清單7()
             PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
             If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
         End If
@@ -545,15 +582,15 @@ Public Class 銷售單審核
     End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
-        存檔3() : Set_清單4()
+        存檔1() : Set_清單4()
     End Sub
     Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
-        存檔3() : Set_清單4()
+        存檔1() : Set_清單4()
     End Sub
     Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
-        存檔3() : Set_清單4()
+        存檔1() : Set_清單4()
     End Sub
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
@@ -740,6 +777,13 @@ Public Class 銷售單審核
                     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("存檔完成。")
                 Set_清單1()
             End If
@@ -830,6 +874,13 @@ Public Class 銷售單審核
                     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("存檔完成。")
                 Set_清單1()
             End If
@@ -873,6 +924,13 @@ Public Class 銷售單審核
                     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
+
                 Set_清單1() : 銷售單據_dgv.Enabled = True
             End If
         End If
@@ -960,7 +1018,7 @@ Public Class 銷售單審核
             If aa1 = MsgBoxResult.Ok Then
                 PA = 單號_tb.Text
                 SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除()
-                Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6()
+                Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
                 conn.Close()
             End If
         End If
@@ -1185,6 +1243,11 @@ Public Class 銷售單審核
         存檔1()
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        If 銷售衍生運費_dgv.Rows.Count > 0 Then
+            For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
+                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+            Next
+        End If
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         售價小計_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")
@@ -1238,4 +1301,78 @@ Public Class 銷售單審核
     Private Sub 已審核資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核資料_ch.CheckedChanged
         Set_清單1()
     End Sub
+    Private Sub 隱藏_bt_Click(sender As Object, e As EventArgs) Handles 隱藏_bt.Click
+        顯示_bt.Enabled = True : 隱藏_bt.Enabled = False
+        Panel2.Visible = False
+        Panel3.Location = New Point(2, 2)
+        NU1 = Panel3.Size.Width
+        NU2 = Panel3.Size.Height
+        NU1 = Panel3.Size.Width + 543
+        Panel3.Size = New Size(NU1, NU2)
+    End Sub
+    Private Sub 顯示_bt_Click(sender As Object, e As EventArgs) Handles 顯示_bt.Click
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True
+        Panel2.Visible = True
+        Panel3.Location = New Point(546, 2)
+        NU1 = Panel3.Size.Width
+        NU2 = Panel3.Size.Height
+        NU1 = Panel3.Size.Width - 543
+        Panel3.Size = New Size(NU1, NU2)
+    End Sub
+    Private Sub Panel3_Size(sender As Object, e As EventArgs) Handles Panel3.SizeChanged
+        If Panel3.Size.Width > 914 Then
+            物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(300, 167)
+        Else
+            物料圖1_pb.Visible = False
+        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 = "SE" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SE" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SE" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SE" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SE" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SE" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SE" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SE" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "SE" & EDR : End If
+
+                PA1 = ESTR : PA = 單號_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
+                    SQL_銷售衍生運費_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                Set_清單7()
+            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_清單7()
+                End If
+            End If
+        End If
+    End Sub
 End Class

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

@@ -1,9 +1,8 @@
 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
-    Dim 運費 As Integer : Dim 刷卡控制 As Boolean = False
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
+    Dim 首次開啟 As Boolean : Dim EDR As Integer : Dim ESTR As String : Dim EDR1 As Integer : Dim ESTR1 As String : Dim NUM1 As Integer
+    Dim 運費 As Integer : Dim 刷卡控制 As Boolean
     Private Sub Set_清單()
         物料清單_dgv.DataSource = Nothing : ds.Clear()
         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -125,7 +124,7 @@ Public Class 銷售單申請
         銷售明細_dgv.Columns(8).Visible = False : 銷售明細_dgv.Columns(9).FillWeight = 130 : 銷售明細_dgv.Columns(10).FillWeight = 150 : 銷售明細_dgv.Columns(11).FillWeight = 80
         銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).FillWeight = 50 : 銷售明細_dgv.Columns(15).FillWeight = 80
         銷售明細_dgv.Columns(16).Visible = False : 銷售明細_dgv.Columns(17).Visible = False : 銷售明細_dgv.Columns(18).Visible = False : 銷售明細_dgv.Columns(19).Visible = False
-        銷售明細_dgv.Columns(20).Visible = False
+        銷售明細_dgv.Columns(20).Visible = False : 銷售明細_dgv.Columns(21).FillWeight = 50
 
         銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
         銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(13).ReadOnly = True : 銷售明細_dgv.Columns(16).ReadOnly = True
@@ -195,7 +194,7 @@ Public Class 銷售單申請
         銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售備註_dgv.ColumnHeadersHeight = 25
         銷售備註_dgv.AllowUserToAddRows = False
-        銷售備註_dgv.RowTemplate.Height = 25
+        銷售備註_dgv.RowTemplate.Height = 45
 
         PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表()
         da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
@@ -245,6 +244,33 @@ Public Class 銷售單申請
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
     End Sub
+    Private Sub Set_清單7()
+        銷售衍生運費_dgv.DataSource = Nothing : ds7.Clear()
+        銷售衍生運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售衍生運費_dgv.ColumnHeadersHeight = 25
+        銷售衍生運費_dgv.AllowUserToAddRows = False
+        銷售衍生運費_dgv.RowTemplate.Height = 45
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售衍生費用()
+        da.Fill(ds7) : 銷售衍生運費_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+        銷售衍生運費_dgv.Columns(0).Visible = False : 銷售衍生運費_dgv.Columns(1).FillWeight = 30 : 銷售衍生運費_dgv.Columns(2).Visible = False : 銷售衍生運費_dgv.Columns(3).FillWeight = 160
+        銷售衍生運費_dgv.Columns(4).FillWeight = 30
+
+        銷售衍生運費_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
+        銷售衍生運費_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 供應商_下拉表單資料載入()
         BL1 = False : PA3 = "" : PA4 = ""
         If 地區_cb.Text = "" Then : PA3 = ""
@@ -344,6 +370,11 @@ Public Class 銷售單申請
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        If 銷售衍生運費_dgv.Rows.Count > 0 Then
+            For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
+                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+            Next
+        End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         售價小計_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")
@@ -370,7 +401,7 @@ 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
-
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True
         If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
         If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
         料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
@@ -387,12 +418,7 @@ Public Class 銷售單申請
     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
+            Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
         End If
     End Sub
     Private Sub 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
@@ -417,6 +443,14 @@ Public Class 銷售單申請
             銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_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
+        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 : 項次4_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 e.RowIndex = -1 Then : Else
             For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
@@ -477,7 +511,7 @@ Public Class 銷售單申請
             業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
 
             Set_清單4() : Set_清單5()
-            Set_清單6()
+            Set_清單6() : Set_清單7()
             PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
             If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
         End If
@@ -552,15 +586,15 @@ Public Class 銷售單申請
     End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
-        存檔3() : Set_清單4()
+        存檔1() : Set_清單4()
     End Sub
     Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
-        存檔3() : Set_清單4()
+        存檔1() : Set_清單4()
     End Sub
     Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
-        存檔3() : Set_清單4()
+        存檔1() : Set_清單4()
     End Sub
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
@@ -713,7 +747,7 @@ Public Class 銷售單申請
                             ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
                             PA1 = ESTR
 
-                            SQL_銷售收款事項_新增() : conn.Close() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6() : 送貨地點_cb_下拉表單資料載入()
+                            SQL_銷售收款事項_新增() : conn.Close() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : 送貨地點_cb_下拉表單資料載入()
                             司機運費_tb.Text = "0" : 預估利潤_tb.Text = "0" : 客戶編號_tb.Text = "" : 客戶_tb.Text = "" : 公司_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = ""
                             統編_tb.Text = "" : 住址_tb.Text = "" : 含稅_ch.Checked = False
                         Else
@@ -795,7 +829,7 @@ Public Class 銷售單申請
                     資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
                     PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value.ToString : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
                     NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
-                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : BL6 = 銷售明細_dgv.Rows(i).Cells("無管銷").Value
                     SQL_銷售明細表_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -813,6 +847,13 @@ Public Class 銷售單申請
                     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
+
                 Set_清單1()
             End If
         End If
@@ -884,7 +925,7 @@ Public Class 銷售單申請
                     資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
                     PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value.ToString : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
                     NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
-                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : BL6 = 銷售明細_dgv.Rows(i).Cells("無管銷").Value
                     SQL_銷售明細表_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -902,6 +943,13 @@ Public Class 銷售單申請
                     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 : Set_清單1() : 銷售單據_dgv.Enabled = True
             End If
@@ -927,7 +975,7 @@ Public Class 銷售單申請
                     資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
                     PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value.ToString : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
                     NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
-                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : BL6 = 銷售明細_dgv.Rows(i).Cells("無管銷").Value
                     SQL_銷售明細表_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -945,6 +993,13 @@ Public Class 銷售單申請
                     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
+
                 開立庫存調整單_bt.Enabled = True : Set_清單1() : 銷售單據_dgv.Enabled = True
             End If
         End If
@@ -956,12 +1011,10 @@ Public Class 銷售單申請
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
-            If 銷售單據_dgv.Enabled = False Then
-                If 銷售明細_dgv.Rows.Count = 0 Then
-                    存檔2()
-                Else
-                    存檔3()
-                End If
+            If 銷售明細_dgv.Rows.Count = 0 Then
+                存檔2()
+            Else
+                存檔3()
             End If
             If 料號_tb.Text = "" Then
                 MsgBox("請選擇物料，調整庫存需要指定物料!!")
@@ -976,11 +1029,6 @@ Public Class 銷售單申請
                             MsgBox("訂購數量為零是不容許的!!")
                         Else
                             PA1 = 單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
-                            SQL_銷售明細表_確認單據是否申請()
-                            If dr.Read() Then
-                                conn.Close() : MsgBox("該料號已經在本單據中申請過了，如果是標準規格品，請不要重複開兩次。")
-                            Else
-                            End If
 
                             SQL_銷售明細表_最後一筆資料()
                             If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
@@ -1035,7 +1083,7 @@ Public Class 銷售單申請
                 If aa1 = MsgBoxResult.Ok Then
                     PA = 單號_tb.Text
                     SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除()
-                    Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6()
+                    Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
                     conn.Close()
                 End If
             Else
@@ -1281,6 +1329,11 @@ Public Class 銷售單申請
         存檔1()
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        If 銷售衍生運費_dgv.Rows.Count > 0 Then
+            For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
+                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+            Next
+        End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         售價小計_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")
@@ -1290,10 +1343,85 @@ Public Class 銷售單申請
     End Sub
     Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress
         If e.KeyChar = Chr(13) Then
-            運費 = 司機運費_tb.Text : 存檔1() : Set_合記計算()
+            運費 = 司機運費_tb.Text
+            存檔1() : Set_合記計算()
         End If
     End Sub
     Private Sub 已審核資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核資料_ch.CheckedChanged
         Set_清單1()
     End Sub
+    Private Sub 隱藏_bt_Click(sender As Object, e As EventArgs) Handles 隱藏_bt.Click
+        顯示_bt.Enabled = True : 隱藏_bt.Enabled = False
+        Panel2.Visible = False
+        Panel3.Location = New Point(2, 2)
+        NU1 = Panel3.Size.Width
+        NU2 = Panel3.Size.Height
+        NU1 = Panel3.Size.Width + 548
+        Panel3.Size = New Size(NU1, NU2)
+    End Sub
+    Private Sub 顯示_bt_Click(sender As Object, e As EventArgs) Handles 顯示_bt.Click
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True
+        Panel2.Visible = True
+        Panel3.Location = New Point(551, 2)
+        NU1 = Panel3.Size.Width
+        NU2 = Panel3.Size.Height
+        NU1 = Panel3.Size.Width - 548
+        Panel3.Size = New Size(NU1, NU2)
+    End Sub
+    Private Sub Panel3_Size(sender As Object, e As EventArgs) Handles Panel3.SizeChanged
+        If Panel3.Size.Width > 914 Then
+            物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(300, 167)
+        Else
+            物料圖1_pb.Visible = False
+        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 = "SE" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SE" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SE" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SE" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SE" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SE" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SE" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SE" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "SE" & EDR : End If
+
+                PA1 = ESTR : PA = 單號_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
+                    SQL_銷售衍生運費_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                Set_清單7()
+            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_清單7()
+                End If
+            End If
+        End If
+    End Sub
 End Class

YD-ERP-SYS/財務系統管理/營運報表.vb

@@ -561,6 +561,46 @@ 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
+        Dim type0 As Type = 主表_dgv.GetType()
+        Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi0.SetValue(主表_dgv, True, Nothing)
+        Dim type1 As Type = 月1_dgv.GetType()
+        Dim pi1 As Reflection.PropertyInfo = type1.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi1.SetValue(月1_dgv, True, Nothing)
+        Dim type2 As Type = 月2_dgv.GetType()
+        Dim pi2 As Reflection.PropertyInfo = type2.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi2.SetValue(月2_dgv, True, Nothing)
+        Dim type3 As Type = 月3_dgv.GetType()
+        Dim pi3 As Reflection.PropertyInfo = type3.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi3.SetValue(月3_dgv, True, Nothing)
+        Dim type4 As Type = 月4_dgv.GetType()
+        Dim pi4 As Reflection.PropertyInfo = type4.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi4.SetValue(月4_dgv, True, Nothing)
+        Dim type5 As Type = 月5_dgv.GetType()
+        Dim pi5 As Reflection.PropertyInfo = type5.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi5.SetValue(月5_dgv, True, Nothing)
+        Dim type6 As Type = 月6_dgv.GetType()
+        Dim pi6 As Reflection.PropertyInfo = type6.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi6.SetValue(月6_dgv, True, Nothing)
+        Dim type7 As Type = 月7_dgv.GetType()
+        Dim pi7 As Reflection.PropertyInfo = type7.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi7.SetValue(月7_dgv, True, Nothing)
+        Dim type8 As Type = 月8_dgv.GetType()
+        Dim pi8 As Reflection.PropertyInfo = type8.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi8.SetValue(月8_dgv, True, Nothing)
+        Dim type9 As Type = 月9_dgv.GetType()
+        Dim pi9 As Reflection.PropertyInfo = type9.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi9.SetValue(月9_dgv, True, Nothing)
+        Dim type10 As Type = 月10_dgv.GetType()
+        Dim pi10 As Reflection.PropertyInfo = type10.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi10.SetValue(月10_dgv, True, Nothing)
+        Dim type11 As Type = 月11_dgv.GetType()
+        Dim pi11 As Reflection.PropertyInfo = type11.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi11.SetValue(月11_dgv, True, Nothing)
+        Dim type12 As Type = 月12_dgv.GetType()
+        Dim pi12 As Reflection.PropertyInfo = type12.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi12.SetValue(月12_dgv, True, Nothing)
+
         ComboBox1下拉表單資料載入() : 年份_cb.Text = Year(Today)
         Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
     End Sub

YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.vb

@@ -92,6 +92,7 @@ Public Class 營運成本收支單_對帳表
         資料尚未存檔_lb.Visible = False
         ComboBox1下拉表單資料載入()
         查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1
+        PA20 = "" : PA19 = "" : PA18 = ""
         PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.vb

@@ -264,7 +264,7 @@ Public Class 營運成本收支單一覽表
 
         xlSheet.Cells(1, 1) = "年度" : xlSheet.Cells(1, 2) = Year(Today) - 1911
         If 明細_rb.Checked = True And 彙總_rb.Checked = False Then
-            xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支明細表"
+            xlSheet.Cells(1, 3) = "雅邸家居-營運費用收支明細表"
             xlSheet.Cells(2, 1) = "收款日期" : xlSheet.Cells(2, 2) = "會計科目" : xlSheet.Cells(2, 3) = "客戶或用途"
             xlSheet.Cells(2, 4) = "零用金" : xlSheet.Cells(2, 5) = "支票" : xlSheet.Cells(2, 6) = "現金" : xlSheet.Cells(2, 7) = "支出" : xlSheet.Cells(2, 8) = "現金餘額" : xlSheet.Cells(2, 9) = "票期"
 
@@ -289,7 +289,7 @@ Public Class 營運成本收支單一覽表
 
             AA(xlApp, xlSheet) : BB(xlApp, xlSheet)
         ElseIf 明細_rb.Checked = False And 彙總_rb.Checked = True Then
-            xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支彙總簡表"
+            xlSheet.Cells(1, 3) = "雅邸家居-營運費用收支彙總簡表"
             xlSheet.Cells(2, 1) = "日期" : xlSheet.Cells(2, 2) = "主項" : xlSheet.Cells(2, 3) = "子項" : xlSheet.Cells(2, 4) = "子細項" : xlSheet.Cells(2, 5) = "零用金"
             xlSheet.Cells(2, 6) = "支票" : xlSheet.Cells(2, 7) = "現金" : xlSheet.Cells(2, 8) = "支出" : xlSheet.Cells(2, 9) = "現金餘額"
 

YD-ERP-SYS/財務系統管理/營運成本收支單審核.vb

@@ -5,7 +5,7 @@ Public Class 營運成本收支單審核
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     'Dim dr As SqlDataReader
     Private ReadOnly QQW(11) As String
-    Dim DTP As String : Dim WWEE As String : Private II As Integer
+    Dim WWEE As String : Private II As Integer
     Private Sub Set_清單1()
         彙總_dgv.DataSource = Nothing : ds1.Clear()
         彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

YD-ERP-SYS/財務系統管理/營運成本收支單申請.Designer.vb

@@ -23,9 +23,9 @@ 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()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.美金匯率_tb = New System.Windows.Forms.TextBox()
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
@@ -76,6 +76,8 @@ Partial Class 營運成本收支單申請
         Me.Label6 = New System.Windows.Forms.Label()
         Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
         Me.BackgroundWorker2 = New System.ComponentModel.BackgroundWorker()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
         CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.單一筆收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -175,7 +177,7 @@ Partial Class 營運成本收支單申請
         '複製歷史單據重新開立_bt
         '
         Me.複製歷史單據重新開立_bt.ForeColor = System.Drawing.Color.Green
-        Me.複製歷史單據重新開立_bt.Location = New System.Drawing.Point(497, 3)
+        Me.複製歷史單據重新開立_bt.Location = New System.Drawing.Point(1043, 4)
         Me.複製歷史單據重新開立_bt.Name = "複製歷史單據重新開立_bt"
         Me.複製歷史單據重新開立_bt.Size = New System.Drawing.Size(163, 26)
         Me.複製歷史單據重新開立_bt.TabIndex = 931
@@ -204,7 +206,7 @@ Partial Class 營運成本收支單申請
         '
         '支票_tb
         '
-        Me.支票_tb.Location = New System.Drawing.Point(529, 59)
+        Me.支票_tb.Location = New System.Drawing.Point(529, 32)
         Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.支票_tb.Name = "支票_tb"
         Me.支票_tb.Size = New System.Drawing.Size(113, 23)
@@ -214,7 +216,7 @@ Partial Class 營運成本收支單申請
         'Label11
         '
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(495, 62)
+        Me.Label11.Location = New System.Drawing.Point(495, 35)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(32, 16)
         Me.Label11.TabIndex = 927
@@ -222,7 +224,7 @@ Partial Class 營運成本收支單申請
         '
         '零用金_tb
         '
-        Me.零用金_tb.Location = New System.Drawing.Point(380, 59)
+        Me.零用金_tb.Location = New System.Drawing.Point(380, 32)
         Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.零用金_tb.Name = "零用金_tb"
         Me.零用金_tb.Size = New System.Drawing.Size(113, 23)
@@ -232,7 +234,7 @@ Partial Class 營運成本收支單申請
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(334, 62)
+        Me.Label10.Location = New System.Drawing.Point(334, 35)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(44, 16)
         Me.Label10.TabIndex = 925
@@ -241,7 +243,7 @@ Partial Class 營運成本收支單申請
         '現金餘額_tb
         '
         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(1001, 58)
+        Me.現金餘額_tb.Location = New System.Drawing.Point(1001, 31)
         Me.現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.現金餘額_tb.Name = "現金餘額_tb"
         Me.現金餘額_tb.Size = New System.Drawing.Size(113, 23)
@@ -251,7 +253,7 @@ Partial Class 營運成本收支單申請
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(943, 61)
+        Me.Label9.Location = New System.Drawing.Point(943, 34)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(56, 16)
         Me.Label9.TabIndex = 923
@@ -259,7 +261,7 @@ Partial Class 營運成本收支單申請
         '
         '支出_tb
         '
-        Me.支出_tb.Location = New System.Drawing.Point(827, 59)
+        Me.支出_tb.Location = New System.Drawing.Point(827, 32)
         Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.支出_tb.Name = "支出_tb"
         Me.支出_tb.Size = New System.Drawing.Size(113, 23)
@@ -269,7 +271,7 @@ Partial Class 營運成本收支單申請
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(793, 62)
+        Me.Label5.Location = New System.Drawing.Point(793, 35)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(32, 16)
         Me.Label5.TabIndex = 921
@@ -280,7 +282,7 @@ Partial Class 營運成本收支單申請
         Me.補單_cb.AutoSize = True
         Me.補單_cb.Checked = True
         Me.補單_cb.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.補單_cb.Location = New System.Drawing.Point(834, 33)
+        Me.補單_cb.Location = New System.Drawing.Point(834, 6)
         Me.補單_cb.Name = "補單_cb"
         Me.補單_cb.Size = New System.Drawing.Size(39, 20)
         Me.補單_cb.TabIndex = 920
@@ -291,7 +293,7 @@ Partial Class 營運成本收支單申請
         '
         Me.Label4.AutoSize = True
         Me.Label4.ForeColor = System.Drawing.Color.Blue
-        Me.Label4.Location = New System.Drawing.Point(703, 35)
+        Me.Label4.Location = New System.Drawing.Point(703, 8)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(32, 16)
         Me.Label4.TabIndex = 919
@@ -300,7 +302,7 @@ Partial Class 營運成本收支單申請
         '申請日期_dtp
         '
         Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.申請日期_dtp.Location = New System.Drawing.Point(735, 32)
+        Me.申請日期_dtp.Location = New System.Drawing.Point(735, 5)
         Me.申請日期_dtp.Name = "申請日期_dtp"
         Me.申請日期_dtp.Size = New System.Drawing.Size(90, 23)
         Me.申請日期_dtp.TabIndex = 918
@@ -317,7 +319,7 @@ Partial Class 營運成本收支單申請
         '
         '現金_tb
         '
-        Me.現金_tb.Location = New System.Drawing.Point(678, 59)
+        Me.現金_tb.Location = New System.Drawing.Point(678, 32)
         Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.現金_tb.Name = "現金_tb"
         Me.現金_tb.Size = New System.Drawing.Size(113, 23)
@@ -327,7 +329,7 @@ Partial Class 營運成本收支單申請
         'Label8
         '
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(644, 62)
+        Me.Label8.Location = New System.Drawing.Point(644, 35)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(32, 16)
         Me.Label8.TabIndex = 913
@@ -335,11 +337,12 @@ Partial Class 營運成本收支單申請
         '
         '資料尚未存檔_lb
         '
-        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.資料尚未存檔_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.資料尚未存檔_lb.ForeColor = System.Drawing.Color.Red
-        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(864, 17)
+        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(1254, 35)
         Me.資料尚未存檔_lb.Name = "資料尚未存檔_lb"
-        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(250, 50)
+        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(118, 24)
         Me.資料尚未存檔_lb.TabIndex = 912
         Me.資料尚未存檔_lb.Text = "資  料  尚  未  存  檔"
         Me.資料尚未存檔_lb.Visible = False
@@ -374,7 +377,7 @@ Partial Class 營運成本收支單申請
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(561, 35)
+        Me.Label3.Location = New System.Drawing.Point(561, 8)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 907
@@ -382,7 +385,7 @@ Partial Class 營運成本收支單申請
         '
         '申請人_tb
         '
-        Me.申請人_tb.Location = New System.Drawing.Point(605, 32)
+        Me.申請人_tb.Location = New System.Drawing.Point(605, 5)
         Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(92, 23)
@@ -391,7 +394,7 @@ Partial Class 營運成本收支單申請
         '
         '營運成本收支單號_tb
         '
-        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(438, 32)
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(438, 5)
         Me.營運成本收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
         Me.營運成本收支單號_tb.Size = New System.Drawing.Size(122, 23)
@@ -401,7 +404,7 @@ Partial Class 營運成本收支單申請
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(334, 35)
+        Me.Label1.Location = New System.Drawing.Point(334, 8)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(104, 16)
         Me.Label1.TabIndex = 905
@@ -443,8 +446,8 @@ Partial Class 營運成本收支單申請
         '
         '營運收支單_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
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.營運收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         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
@@ -471,8 +474,8 @@ Partial Class 營運成本收支單申請
         '
         '單一筆收支單_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.單一筆收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.單一筆收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         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)
@@ -482,10 +485,10 @@ Partial Class 營運成本收支單申請
         Me.單一筆收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.單一筆收支單_dgv.Name = "單一筆收支單_dgv"
         Me.單一筆收支單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.單一筆收支單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.單一筆收支單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.單一筆收支單_dgv.RowTemplate.Height = 24
-        Me.單一筆收支單_dgv.Size = New System.Drawing.Size(906, 435)
+        Me.單一筆收支單_dgv.Size = New System.Drawing.Size(1039, 435)
         Me.單一筆收支單_dgv.TabIndex = 908
         '
         '申請_bt
@@ -495,7 +498,7 @@ Partial Class 營運成本收支單申請
         Me.申請_bt.ForeColor = System.Drawing.Color.Red
         Me.申請_bt.Location = New System.Drawing.Point(333, 584)
         Me.申請_bt.Name = "申請_bt"
-        Me.申請_bt.Size = New System.Drawing.Size(906, 23)
+        Me.申請_bt.Size = New System.Drawing.Size(1039, 23)
         Me.申請_bt.TabIndex = 942
         Me.申請_bt.Text = "申請完成"
         Me.申請_bt.UseVisualStyleBackColor = True
@@ -503,7 +506,7 @@ Partial Class 營運成本收支單申請
         '開立營運成本收支單_bt
         '
         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(333, 3)
+        Me.開立營運成本收支單_bt.Location = New System.Drawing.Point(879, 4)
         Me.開立營運成本收支單_bt.Name = "開立營運成本收支單_bt"
         Me.開立營運成本收支單_bt.Size = New System.Drawing.Size(158, 25)
         Me.開立營運成本收支單_bt.TabIndex = 943
@@ -513,7 +516,7 @@ Partial Class 營運成本收支單申請
         '刪除選中的營運成本收支單_bt
         '
         Me.刪除選中的營運成本收支單_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除選中的營運成本收支單_bt.Location = New System.Drawing.Point(666, 3)
+        Me.刪除選中的營運成本收支單_bt.Location = New System.Drawing.Point(1212, 4)
         Me.刪除選中的營運成本收支單_bt.Name = "刪除選中的營運成本收支單_bt"
         Me.刪除選中的營運成本收支單_bt.Size = New System.Drawing.Size(159, 26)
         Me.刪除選中的營運成本收支單_bt.TabIndex = 944
@@ -548,13 +551,38 @@ Partial Class 營運成本收支單申請
         Me.Label6.Size = New System.Drawing.Size(121, 16)
         Me.Label6.TabIndex = 947
         Me.Label6.Text = "關鍵字查詢-會計科目"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(334, 59)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(878, 16)
+        Me.Label7.TabIndex = 948
+        Me.Label7.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "_____________"
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(495, 59)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(878, 16)
+        Me.Label12.TabIndex = 949
+        Me.Label12.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "_____________"
         '
         '營運成本收支單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.ClientSize = New System.Drawing.Size(1382, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.刪除選中的一筆資料_bt)
         Me.Controls.Add(Me.收支單中新增一筆空白資料_bt)
@@ -662,4 +690,6 @@ Partial Class 營運成本收支單申請
     Friend WithEvents Label6 As Label
     Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
     Friend WithEvents BackgroundWorker2 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label12 As Label
 End Class

YD-ERP-SYS/財務系統管理/營運成本收支單申請.vb

@@ -188,6 +188,7 @@ Public Class 營運成本收支單申請
             PA1 = 單一筆收支單_dgv.Rows(i).Cells("用途").Value : PA2 = 單一筆收支單_dgv.Rows(i).Cells("支出").Value : PA3 = 單一筆收支單_dgv.Rows(i).Cells("票期").Value
             PA4 = 單一筆收支單_dgv.Rows(i).Cells("類別").Value : PA5 = 單一筆收支單_dgv.Rows(i).Cells("現金").Value : PA6 = 單一筆收支單_dgv.Rows(i).Cells("零用金").Value
             PA7 = 單一筆收支單_dgv.Rows(i).Cells("支票").Value : PA8 = 單一筆收支單_dgv.Rows(i).Cells("匯率").Value : PA9 = 單一筆收支單_dgv.Rows(i).Cells("項次").Value
+            BL1 = 單一筆收支單_dgv.Rows(i).Cells("含稅").Value
             SQL_會計科目管理_修改收支單申請表() : conn.Close()
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
@@ -232,6 +233,7 @@ Public Class 營運成本收支單申請
         營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
         存檔() : Set_清單1()
         MsgBox("申請完成,請通知主管審核。")
+        單一筆收支單_dgv.DataSource = Nothing : ds.Clear()
     End Sub
 
     Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click