20210911備份

YD-ERP-SYS/Module/SQL_Module.vb

@@ -1,6 +1,6 @@
 Imports System.Data.SqlClient
 Module SQL_Module
-    Public ConString As String : Public SQL1 As String : Public SQL2 As String : Public SQL3 As String
+    Public ConString As String : Public SQL1 As String : Public SQL2 As String : Public SQL3 As String : Public SQL4 As String
     Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String : Public DTP4 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, 職稱, 級別, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21,

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

@@ -302,7 +302,7 @@
                             倉儲明細表 AS 倉儲明細表_1 ON 採購控制表_1.資料流水號 = 倉儲明細表_1.採購流水 LEFT OUTER JOIN
                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
                             物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號
-                WHERE      (銷售明細表.單號 LIKE '" & PA2 & "') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.已出貨 IS NULL OR 銷售明細表.已出貨 = 0)
+                WHERE      (銷售明細表.單號 LIKE '" & PA2 & "') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售明細表.已出貨 IS NULL OR 銷售明細表.已出貨 = 0)
                 ORDER BY    銷售明細表.排序 DESC, 銷售明細表.料號"
         CmdSet_For_DGV()
     End Sub

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

@@ -78,7 +78,9 @@
                                         電話 = N'" & 供應商資料表.手機_tb.Text & "', 傳真 = N'" & 供應商資料表.傳真_tb.Text & "', POS = N'" & 供應商資料表.POS_tb.Text & "', 
                                         備註1 = N'" & 供應商資料表.備註1_tb.Text & "', 備註2 = N'" & 供應商資料表.備註2_tb.Text & "', 登入日期 = N'" & 供應商資料表.登入日期_dtp.Value & "', 
                                         結算日 = N'" & 供應商資料表.結算日_nud.Value & "', KR1 = N'" & 供應商資料表.KR1_nud.Value & "', KR2 = N'" & 供應商資料表.KR2_nud.Value & "', 
-                                        KR3 = N'" & 供應商資料表.KR3_nud.Value & "', PEC = N'" & 供應商資料表.PEC_cb.Text & "', 停用 = N'" & 供應商資料表.停用_ch.Checked & "' 
+                                        KR3 = N'" & 供應商資料表.KR3_nud.Value & "', PEC = N'" & 供應商資料表.PEC_cb.Text & "', 停用 = N'" & 供應商資料表.停用_ch.Checked & "', 
+                                        票期 = N'" & 供應商資料表.票期_nud.Value & "', 支票_私人 = N'" & 供應商資料表.私人支票_tb.Text & "', 支票_公司 = N'" & 供應商資料表.公司支票_tb.Text & "', 
+                                        稅金倍率 = N'" & 供應商資料表.稅金倍率_tb.Text & "', 廣告費倍率 = N'" & 供應商資料表.廣告費倍率_tb.Text & "' 
                 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub

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

@@ -116,7 +116,7 @@
                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND  " & SQL2 & " 
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND  " & SQL2 & " 
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
@@ -136,7 +136,7 @@
                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND  " & SQL2 & " 
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND  " & SQL2 & " 
                 GROUP BY    LEFT(銷售控制表.單號, 1)
                 ORDER BY    銷售 DESC"
         CmdSet_For_DGV()
@@ -159,7 +159,7 @@
                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1001%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
@@ -179,7 +179,7 @@
                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1001%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 
                 GROUP BY    供應商資料表.簡稱
                 ORDER BY    它項收支"
         CmdSet_For_DGV()
@@ -275,7 +275,7 @@
                                                               供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                                                               銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                                                               銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                                  WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.成本 > 0) AND 
+                                  WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售明細表.成本 > 0) AND 
                                              (銷售明細表.售價 > 0) AND " & SQL2 & "
                                   GROUP BY    供應商資料表.簡稱, 物料資料庫.供應商編號, 物料資料庫.進度條用空白) AS AAA ON 
                             系統比例用空白圖片.選擇 = AAA.進度條用空白
@@ -299,7 +299,7 @@
                                                               供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                                                               銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                                                               銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                                  WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.成本 > 0) AND 
+                                  WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售明細表.成本 > 0) AND 
                                              (銷售明細表.售價 > 0) AND (銷售明細表.倉儲狀態 LIKE 'N03') AND " & SQL2 & "
                                   GROUP BY    供應商資料表.簡稱, 物料資料庫.供應商編號, 物料資料庫.進度條用空白) AS AAA ON 
                             系統比例用空白圖片.選擇 = AAA.進度條用空白
@@ -324,7 +324,7 @@
                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA20 & "%')AND (銷售明細表.料號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND 
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA20 & "%')AND (銷售明細表.料號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND 
                            (銷售明細表.成本 > 0) AND (銷售明細表.售價 > 0) AND (銷售明細表.倉儲狀態 LIKE 'N03') AND " & SQL2 & " 
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()

YD-ERP-SYS/Module/SQL_業績計算系統.vb

@@ -72,7 +72,7 @@
                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
-                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1%') AND
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND
                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
                                                        '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用
@@ -129,7 +129,7 @@
                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
-                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1003%') AND (銷售明細表.料號 LIKE '1%') AND
+                          (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1003%') AND (銷售明細表.料號 LIKE '1001%') AND
                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
                                             '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價
@@ -218,7 +218,7 @@
                 FROM       銷售控制表 LEFT OUTER JOIN
                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN 銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
-                          (銷售控制表.轉業績日期 IS NULL OR 銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1%') AND 
+                          (銷售控制表.轉業績日期 IS NULL OR 銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND 
                           (銷售控制表.單號 LIKE N'" & 業績單據完單設定.查詢單號_tb.Text & "%')
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎
                 ORDER BY   銷售控制表.單號"
@@ -231,7 +231,7 @@
                 FROM       銷售控制表 LEFT OUTER JOIN
                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN 銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
-                           銷售控制表.轉業績日期 IS NOT NULL AND 銷售控制表.轉業績日期 NOT LIKE '' AND (銷售明細表.料號 NOT LIKE '1%') AND 
+                           銷售控制表.轉業績日期 IS NOT NULL AND 銷售控制表.轉業績日期 NOT LIKE '' AND (銷售明細表.料號 NOT LIKE '1001%') AND 
                           (銷售控制表.單號 LIKE N'" & 業績單據完單設定.查詢單號_tb.Text & "%')
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎
                 ORDER BY   銷售控制表.單號"

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

@@ -137,13 +137,13 @@
                             公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號, 公帳流水帳.含稅
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
-                WHERE       (公帳流水帳.支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')
+                WHERE       (公帳流水帳.支付單號 LIKE '" & 財務_收支單申請.營運成本收支單號_tb.Text & "')
                 ORDER BY    公帳流水帳.項次"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單申請_查詢公帳控制表會計科目()
         ConnOpen()
-        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 營運成本收支單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 財務_收支單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_查詢最後一筆公帳控制表會計科目()
@@ -153,7 +153,7 @@
     End Sub
     Friend Sub SQL_營運成本收支單申請_查詢最左邊公帳控制表會計科目()
         ConnOpen()
-        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 營運成本收支單申請.ComboBox2.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 財務_收支單申請.ComboBox2.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
         CmdSet_For_dr()
     End Sub
@@ -165,7 +165,7 @@
     End Sub
     Friend Sub SQL_營運成本收支單申請_營運成本會計科目查詢()
         ConnOpen()
-        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & 營運成本收支單申請.關鍵字查詢會計科目_tb.Text & "%') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & 財務_收支單申請.關鍵字查詢會計科目_tb.Text & "%') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_會計科目管理_修改收支單申請表()
@@ -197,28 +197,28 @@
         SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                             出納日期, 零用金, 支票數, 匯率, 備註) 
                     VALUES (N'" & PA19 & "', N'" & PA21 & "', N'" & DTP & "', N'" & PA22 & "', N'" & PA23 & "', N'" & PA24 & "', N'" & PA25 & "', '', 
-                            N'" & gUserName & "', N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & PA26 & "', '1', '0', '0', '0', '0', '0', '" & DTP & "', N'" & PA27 & "', 
+                            N'" & gUserName & "', N'" & 財務_收支單申請.營運成本收支單號_tb.Text & "', N'" & PA26 & "', '1', '0', '0', '0', '0', '0', '" & DTP & "', N'" & PA27 & "', 
                             N'" & PA28 & "', N'" & PA29 & "', N'" & PA30 & "')"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單申請_刪除公帳控制表()
         ConnOpen()
-        SQL1 = "DELETE FROM 公帳控制表 WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
+        SQL1 = "DELETE FROM 公帳控制表 WHERE (支付單號 LIKE '" & 財務_收支單申請.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_刪除公帳流水帳()
         ConnOpen()
-        SQL1 = "DELETE FROM 公帳流水帳 WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
+        SQL1 = "DELETE FROM 公帳流水帳 WHERE (支付單號 LIKE '" & 財務_收支單申請.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_刪除公帳流水帳支付單號()
         ConnOpen()
-        SQL1 = "DELETE FROM 公帳流水帳 WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & 營運成本收支單申請.選擇項次_tb.Text & "')"
+        SQL1 = "DELETE FROM 公帳流水帳 WHERE (支付單號 LIKE '" & 財務_收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & 財務_收支單申請.選擇項次_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_修改公帳流水帳支付單號()
         ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 項次 = N'" & PA18 & "' WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA17 & "')"
+        SQL1 = "UPDATE 公帳流水帳 SET 項次 = N'" & PA18 & "' WHERE (支付單號 LIKE '" & 財務_收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA17 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
@@ -230,7 +230,7 @@
         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 &
+                   "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'' ,'0')"
         CmdSet_For_dr()
     End Sub
@@ -240,7 +240,7 @@
                             出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
                    "VALUES (N'" & PA19 & "', N'" & 採購應付帳款.幣別_cb.Text & "', N'" & DTP4 & "', N'" & 採購應付帳款.ComboBox6.Text & "', N'0', N'" & PA2 & "', 
                             N'" & PA1 & "-公司-[" & 採購應付帳款.開始日期_dtp.Value & "-" & 採購應付帳款.結束日期_dtp.Value & "]', N'" & gUserName & "', 
-                            N'" & 採購應付帳款.營運成本收支單號_tb.Text & "', N'" & PA15 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP4 & "', N'0', N'0', N'" & PA16 & "', N'" & PA3 & "' ,'0')"
+                            N'" & 採購應付帳款.營運成本收支單號_tb.Text & "', N'" & PA15 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP4 & "', N'0', N'0', N'" & PA16 & "', N'" & PA3 & "' ,'1')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_採購應負帳款_新增公帳流水帳資料1()
@@ -258,7 +258,7 @@
         SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                             出納日期, 零用金, 支票數, 匯率, 備註, 含稅) VALUES (N'" & PA19 & "', N'" & PA17 & "', N'" & DTP4 & "', N'" & PA18 & "', N'" & PA20 & "', 
                             N'0', N'" & PA14 & "', N'" & gUserName & "', N'" & PA & "', N'" & PA15 & "', 
-                            N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP4 & "', N'0', N'0', N'" & PA16 & "', N'' ,'0')"
+                            N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP4 & "', N'0', N'0', N'" & PA16 & "', N'' ,N'" & PA21 & "')"
         CmdSet_For_dr()
     End Sub
     '---------------------營運成本收支單審核.------------------------------------------------------------------------------------------------------------------------------------------
@@ -270,7 +270,7 @@
     End Sub
     Friend Sub SQL_營運成本收支單審核_審核人3()
         ConnOpen()
-        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
+        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 財務_收支單審核.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_查詢收支單審核()
@@ -285,7 +285,7 @@
                             Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號, 公帳流水帳.含稅
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
-                WHERE      (公帳流水帳.支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')
+                WHERE      (公帳流水帳.支付單號 LIKE '" & 財務_收支單審核.營運成本收支單號_tb.Text & "')
                 ORDER BY    公帳流水帳.項次"
         CmdSet_For_DGV()
     End Sub
@@ -296,19 +296,19 @@
     End Sub
     Friend Sub SQL_營運成本收支單審核_查詢簽名檔圖片()
         ConnOpen()
-        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 營運成本收支單審核.圖片編碼_tb.Text & "'"
+        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 財務_收支單審核.圖片編碼_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_查詢簽名編碼()
         ConnOpen()
-        SQL1 = "SELECT 簽名編碼 FROM 公帳控制表 WHERE 簽名編碼 LIKE '" & 營運成本收支單審核.驗證碼_tb.Text & "'"
+        SQL1 = "SELECT 簽名編碼 FROM 公帳控制表 WHERE 簽名編碼 LIKE '" & 財務_收支單審核.驗證碼_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳控制表()
         ConnOpen()
-        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'" & PA & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 營運成本收支單審核.圖片編碼_tb.Text & "', 簽名編碼 = N'" &
-                                                     營運成本收支單審核.驗證碼_tb.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "'
-                WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
+        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'" & PA & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 財務_收支單審核.圖片編碼_tb.Text & "', 簽名編碼 = N'" &
+                                                     財務_收支單審核.驗證碼_tb.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "'
+                WHERE (支付單號 = N'" & 財務_收支單審核.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳控制表_應負帳款用()
@@ -320,7 +320,7 @@
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳()
         ConnOpen()
         SQL1 = "UPDATE 公帳流水帳 SET 出納 = '1', 出納日期 = N'" & DTP & "'
-                WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
+                WHERE (支付單號 LIKE '" & 財務_收支單審核.營運成本收支單號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳_應付帳款用()
@@ -331,17 +331,17 @@
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳備用金()
         ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
+        SQL1 = "UPDATE 公帳流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & 財務_收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳現金()
         ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
+        SQL1 = "UPDATE 公帳流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & 財務_收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳支出()
         ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
+        SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 財務_收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_修改公帳流水帳支出_應付帳款用()
@@ -354,7 +354,7 @@
         ConnOpen()
         SQL1 = "SELECT 支付單號 AS 收支單號, 申請人, 申請日期, 審核人, 審核日期, 核准圖檔,  簽名編碼 FROM 公帳控制表 
                 WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND 
-                審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(營運成本收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "'
+                審核日期 BETWEEN '" & Strings.Format(財務_收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(財務_收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "'
                 ORDER BY 審核日期 DESC"
         CmdSet_For_DGV()
     End Sub
@@ -366,7 +366,8 @@
                 FROM        公帳控制表 RIGHT OUTER JOIN
                             公帳流水帳 ON 公帳控制表.支付單號 = 公帳流水帳.支付單號 RIGHT OUTER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
-                WHERE      (公帳控制表.審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(營運成本收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                WHERE      (公帳控制表.審核日期 BETWEEN '" & Strings.Format(財務_收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' 
+                            AND '" & Strings.Format(財務_收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "') " & SQL2 & "
                 GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), 
                             LEFT(公帳控制表.審核日期, 7), 公帳流水帳.銀行, 公帳流水帳.匯率
                 ORDER BY    幣別, LEFT(公帳控制表.審核日期, 7), LEFT(會計科目.編號, 7)"
@@ -379,13 +380,13 @@
                             Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
-                WHERE      (公帳流水帳.支付單號 LIKE '" & 營運成本收支單一覽表.收支單號_tb.Text & "')
+                WHERE      (公帳流水帳.支付單號 LIKE '" & 財務_收支單一覽表.收支單號_tb.Text & "') " & SQL2 & "
                 ORDER BY    公帳流水帳.項次"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單一覽表_查詢簽名檔圖片()
         ConnOpen()
-        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 營運成本收支單一覽表.圖片編碼_tb.Text & "'"
+        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 財務_收支單一覽表.圖片編碼_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     '---------------------營運成本收支單_對帳表.----------------------------------------------------------------------------------------------------------------------------------------------
@@ -400,8 +401,7 @@
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號 FULL OUTER JOIN
                             公帳控制表 ON 公帳流水帳.支付單號 = 公帳控制表.支付單號
-                WHERE      (公帳控制表.審核人 NOT LIKE '') AND 
-                           (公帳控制表.審核人 NOT LIKE '作廢%') " & PA20 & PA19 & PA18 & " 
+                WHERE      (公帳控制表.審核人 NOT LIKE '作廢%') " & PA20 & PA19 & PA18 & SQL2 & " 
                 ORDER BY    收支單號 DESC, 公帳流水帳.項次"
         CmdSet_For_DGV()
     End Sub
@@ -470,19 +470,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",4) LIKE N'" & 營運報表.年份_cb.Text & "')
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",4) LIKE N'" & 財務_決算表.年份_cb.Text & "') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",4) LIKE N'" & 營運報表.年份_cb.Text & "')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",4) LIKE N'" & 財務_決算表.年份_cb.Text & "') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",4) LIKE N'" & 營運報表.年份_cb.Text & "')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",4) LIKE N'" & 財務_決算表.年份_cb.Text & "') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -496,19 +496,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/01') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/01') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/01')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/01') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/01')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/01') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -522,19 +522,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/02') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/02') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/02')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/02') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/02')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/02') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -548,19 +548,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/03') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/03') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/03')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/03') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/03')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/03') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -574,19 +574,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/04') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/04') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/04')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/04') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/04')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/04') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -600,19 +600,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/05') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/05') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/05')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/05') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/05')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/05') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -626,19 +626,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/06') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/06') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/06')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/06') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/06')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/06') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -652,19 +652,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/07') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/07') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/07')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/07') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/07')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/07') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -678,19 +678,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/08') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/08') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/08')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/08') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/08')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/08') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -704,19 +704,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/09') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/09') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/09')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/09') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/09')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/09') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -730,19 +730,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/10') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/10') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/10')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/10') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/10')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/10') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -756,19 +756,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/11') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/11') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/11')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/11') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/11')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/11') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -782,19 +782,19 @@
                                (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
                                        SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
-                                WHERE (LEFT(公帳控制表_3. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/12') 
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/12') " & SQL4 & "
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
                                        SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
-                                WHERE (LEFT(公帳控制表_2. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/12')
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/12') " & SQL3 & "
                                 GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
                                        SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
-                                WHERE (LEFT(公帳控制表_1. " & 營運報表.計算基礎_ch.Text & ",7) LIKE N'" & 營運報表.年份_cb.Text & "/12')
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/12') " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -868,7 +868,8 @@
     Friend Sub SQL_薪資轉帳表_新增()
         ConnOpen()
         SQL1 = "INSERT INTO 薪資轉帳表 (流水號, 身分證, 結算日期, 獎金, 薪資, 領現, 薪資合計, 領現合計, 給付方式, 人事資料流水號) 
-                VALUES (N'" & 薪資轉帳表.流水號_tb.Text & "', N'" & 薪資轉帳表.身分證_tb.Text & "', N'" & 薪資轉帳表.結束日期_dtp.Value.ToString("yyyy/MM/dd") & "', N'', N'', N'', N'', N'', N'', N'" & 薪資轉帳表.人事流水號_tb.Text & "')"
+                VALUES (N'" & 薪資轉帳表.流水號_tb.Text & "', N'" & 薪資轉帳表.身分證_tb.Text & "', N'" & 薪資轉帳表.結束日期_dtp.Value.ToString("yyyy/MM/dd") & "', 
+                        N'', N'', N'', N'', N'', N'', N'" & 薪資轉帳表.人事流水號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_薪資轉帳表_修改()

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

@@ -205,12 +205,12 @@
     End Sub
     Friend Sub SQL_銷售收款事項_修改()
         ConnOpen()
-        SQL1 = "UPDATE 銷售收款事項 SET 內容 = N'" & PA10 & "', 金額 = N'" & NU1 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
+        SQL1 = "UPDATE 銷售收款事項 SET 內容 = N'" & PA10 & "', 金額 = N'" & NU1 & "', 含稅 = N'" & PA12 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售收款事項()
         ConnOpen()
-        SQL1 = "SELECT 資料流水號, 單號, 項次 AS 真項次, 項次, 內容, 金額, 收支單號, 轉財務  FROM 銷售收款事項 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 項次 DESC, 內容 DESC"
+        SQL1 = "SELECT 資料流水號, 單號, 項次 AS 真項次, 項次, 內容, 金額, 收支單號, 轉財務, 含稅  FROM 銷售收款事項 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 項次 DESC, 內容 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_銷售控制表_刪除()
@@ -289,7 +289,7 @@
                             倉儲明細表 ON 銷售明細表.料號 = 倉儲明細表.料號 AND 銷售明細表.單號 = 倉儲明細表.採購單號 LEFT OUTER JOIN
                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
                             物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號
-                WHERE      (銷售明細表.單號 LIKE '" & PA2 & "') AND (銷售明細表.料號 NOT LIKE '1%')
+                WHERE      (銷售明細表.單號 LIKE '" & PA2 & "') AND (銷售明細表.料號 NOT LIKE '1001%')
                 GROUP BY    銷售明細表.資料流水號, 銷售明細表.資料流水號, 銷售明細表.料號, 物料資料庫.品名, 倉儲分區控制表.倉名, 
                             物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價, 
                             銷售明細表.含稅, 銷售明細表.售價, 銷售明細表.狀態, 銷售明細表.資料流水號, 銷售明細表.倉儲狀態, 

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 = "2021090501"
+    Public 版本 As String = "2021091101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

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

@@ -25,8 +25,8 @@ Partial Class YD_ERP_SYS
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(YD_ERP_SYS))
-        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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.業績運費明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip = New System.Windows.Forms.MenuStrip()
         Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem()
@@ -113,6 +113,7 @@ Partial Class YD_ERP_SYS
         Me.業務_cb = New System.Windows.Forms.ComboBox()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -680,7 +681,7 @@ Partial Class YD_ERP_SYS
         '
         'StatusStrip
         '
-        Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.著作權_tss, Me.執行進度_tss, Me.ToolStripProgressBar1})
+        Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.著作權_tss, Me.執行進度_tss, Me.ToolStripProgressBar1, Me.合計_TSSL})
         Me.StatusStrip.Location = New System.Drawing.Point(0, 707)
         Me.StatusStrip.Name = "StatusStrip"
         Me.StatusStrip.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
@@ -691,9 +692,8 @@ Partial Class YD_ERP_SYS
         '著作權_tss
         '
         Me.著作權_tss.Name = "著作權_tss"
-        Me.著作權_tss.Size = New System.Drawing.Size(382, 17)
-        Me.著作權_tss.Text = "著作權 : 工巧明智能企業有限公司                                                                " &
-    "  "
+        Me.著作權_tss.Size = New System.Drawing.Size(325, 17)
+        Me.著作權_tss.Text = "著作權 : 工巧明智能企業有限公司                                               "
         '
         '執行進度_tss
         '
@@ -732,16 +732,16 @@ Partial Class YD_ERP_SYS
         '
         '銷售單據_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        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.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售單據_dgv.Location = New System.Drawing.Point(639, 90)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        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(542, 465)
         Me.銷售單據_dgv.TabIndex = 1257
@@ -751,6 +751,12 @@ Partial Class YD_ERP_SYS
         '
         Me.Timer1.Interval = 1000
         '
+        '合計_TSSL
+        '
+        Me.合計_TSSL.Name = "合計_TSSL"
+        Me.合計_TSSL.Size = New System.Drawing.Size(47, 17)
+        Me.合計_TSSL.Text = "合計 : 0"
+        '
         'YD_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -866,4 +872,5 @@ Partial Class YD_ERP_SYS
     Friend WithEvents 業務獎金計算基礎_tcm As ToolStripMenuItem
     Friend WithEvents 業績單據完單設定_tsm As ToolStripMenuItem
     Friend WithEvents 業績運費明細表_tsm As ToolStripMenuItem
+    Friend WithEvents 合計_TSSL As ToolStripStatusLabel
 End Class

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

@@ -228,11 +228,11 @@ Public Class YD_ERP_SYS
     End Sub
     Private Sub 營運成本收支單申請ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單申請_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 營運成本收支單申請.Show() : 營運成本收支單申請.BringToFront()
+        PA = "" : 財務_收支單申請.Show() : 財務_收支單申請.BringToFront()
     End Sub
     Private Sub 營運成本收支單審核ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單審核_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 營運成本收支單審核.Show() : 營運成本收支單審核.BringToFront()
+        PA = "" : 財務_收支單審核.Show() : 財務_收支單審核.BringToFront()
     End Sub
     Private Sub 業績獎金彙總表_tsm_Click(sender As Object, e As EventArgs) Handles 業績獎金彙總表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
@@ -252,7 +252,7 @@ Public Class YD_ERP_SYS
     End Sub
     Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
+        PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 財務_收支單一覽表.Show() : 財務_收支單一覽表.BringToFront()
     End Sub
     Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
@@ -260,7 +260,7 @@ Public Class YD_ERP_SYS
     End Sub
     Private Sub 營運成本收支決算表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運報表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 營運報表.Show() : 營運報表.BringToFront()
+        PA = "" : 財務_決算表.Show() : 財務_決算表.BringToFront()
     End Sub
     Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

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

@@ -336,34 +336,34 @@
     <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">
-      <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">
-      <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">
@@ -551,20 +551,20 @@
     <EmbeddedResource Include="財務系統管理\業績運費明細表.resx">
       <DependentUpon>業績運費明細表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運報表.resx">
-      <DependentUpon>營運報表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_決算表.resx">
+      <DependentUpon>財務_決算表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單 - 對帳表.resx">
-      <DependentUpon>營運成本收支單 - 對帳表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_對帳表.resx">
+      <DependentUpon>財務_對帳表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單一覽表.resx">
-      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_收支單一覽表.resx">
+      <DependentUpon>財務_收支單一覽表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單審核.resx">
-      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_收支單審核.resx">
+      <DependentUpon>財務_收支單審核.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單申請.resx">
-      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_收支單申請.resx">
+      <DependentUpon>財務_收支單申請.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\薪資轉帳表.resx">
       <DependentUpon>薪資轉帳表.vb</DependentUpon>

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

@@ -1 +1 @@
-7306029ad47280a03329fef82e4399e994c6e258
+a295a2c2a91acb30ae4591c544c591a7f823e28f

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

@@ -128,11 +128,7 @@ D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯入EXCEL.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.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
-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.FTP資料夾管理.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
@@ -511,3 +507,7 @@ D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績獎金彙總表.re
 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

YD-ERP-SYS/倉儲系統管理/倉儲出庫.vb

@@ -178,6 +178,9 @@ Public Class 倉儲出庫
 
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             收款事項_dgv("項次", i).Value = i + 1
+            If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                收款事項_dgv("含稅", i).Value = False
+            End If
         Next
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
@@ -204,11 +207,11 @@ Public Class 倉儲出庫
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
 
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
             End If
 

YD-ERP-SYS/倉儲系統管理/單據狀態查詢.vb

@@ -121,7 +121,7 @@ Public Class 單據狀態查詢
             If 銷售明細_dgv("倉名", i).Value.ToString = "工廠品" Then
                 記數 = 記數 + 1
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then : Else
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then : Else
                 記數1 = 記數1 + 1
             End If
         Next

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

@@ -291,6 +291,53 @@ Public Class 採購應付帳款
             End If
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 合計_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 合計_dgv.MouseUp
+        'If 合計_dgv.SelectedCells.Count = 1 Then : MsgBox(合計_dgv.SelectedCells(0).ColumnIndex & "  " & 合計_dgv.SelectedCells(0).RowIndex) : End If
+        If 合計_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 合計_dgv.SelectedCells.Count > 0 Then
+            If 合計_dgv.SelectedCells(0).ColumnIndex = 1 Or 合計_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 合計_dgv.SelectedCells.Count - 1
+                        x += Val(合計_dgv.Rows(合計_dgv.SelectedCells.Item(i).RowIndex).Cells(合計_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 供應商_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 供應商_dgv.MouseUp
+        'If 供應商_dgv.SelectedCells.Count = 1 Then : MsgBox(供應商_dgv.SelectedCells(0).ColumnIndex & "  " & 供應商_dgv.SelectedCells(0).RowIndex) : End If
+        If 供應商_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 供應商_dgv.SelectedCells.Count > 0 Then
+            If 供應商_dgv.SelectedCells(0).ColumnIndex = 2 Or 供應商_dgv.SelectedCells(0).ColumnIndex = 5 Or 供應商_dgv.SelectedCells(0).ColumnIndex = 8 Or
+               供應商_dgv.SelectedCells(0).ColumnIndex = 10 Or 供應商_dgv.SelectedCells(0).ColumnIndex = 15 Or 供應商_dgv.SelectedCells(0).ColumnIndex = 16 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 供應商_dgv.SelectedCells.Count - 1
+                        x += Val(供應商_dgv.Rows(供應商_dgv.SelectedCells.Item(i).RowIndex).Cells(供應商_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 採購清單_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 採購清單_dgv.MouseUp
+        'If 採購清單_dgv.SelectedCells.Count = 1 Then : MsgBox(採購清單_dgv.SelectedCells(0).ColumnIndex & "  " & 採購清單_dgv.SelectedCells(0).RowIndex) : End If
+        If 採購清單_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 採購清單_dgv.SelectedCells.Count > 0 Then
+            If 採購清單_dgv.SelectedCells(0).ColumnIndex = 16 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 採購清單_dgv.SelectedCells.Count - 1
+                        x += Val(採購清單_dgv.Rows(採購清單_dgv.SelectedCells.Item(i).RowIndex).Cells(採購清單_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub 供應商_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 供應商_dgv.CellEndEdit
         For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
             If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If

YD-ERP-SYS/業務系統管理/應收帳款已收.vb

@@ -49,7 +49,7 @@
 
         收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
         收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180 : 收款事項_dgv.Columns(6).Visible = False : 收款事項_dgv.Columns(7).FillWeight = 50
-
+        收款事項_dgv.Columns(8).FillWeight = 50
         收款事項_dgv.Columns(3).ReadOnly = True : 收款事項_dgv.Columns(7).ReadOnly = True
 
         收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
@@ -69,9 +69,16 @@
         Else
             For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
                 收款事項_dgv("項次", i).Value = i + 1
+                If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                    收款事項_dgv("含稅", i).Value = False
+                End If
             Next
         End If
-
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                收款事項_dgv("含稅", i).Value = False
+            End If
+        Next
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
     End Sub
@@ -162,6 +169,22 @@
             字體_NUD.Value = 7.6
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 銷售單據_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售單據_dgv.MouseUp
+        'If 銷售單據_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售單據_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售單據_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售單據_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售單據_dgv.SelectedCells.Count > 0 Then
+            If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Or 銷售單據_dgv.SelectedCells(0).ColumnIndex = 11 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售單據_dgv.SelectedCells.Count - 1
+                        x += Val(銷售單據_dgv.Rows(銷售單據_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售單據_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科1_ch.TextChanged
         會科碼1_ch.SelectedIndex = 會科1_ch.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
     End Sub
@@ -226,6 +249,7 @@
                         PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & RR & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]"
 
                         PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                        PA21 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                         SQL_應收轉財務_新增公帳流水帳資料()
 
                         PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
@@ -265,7 +289,7 @@
             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
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                 SQL_銷售收款事項_修改() : conn.Close()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
             Set_清單1()

YD-ERP-SYS/業務系統管理/應收帳款未收.vb

@@ -49,7 +49,7 @@
 
         收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
         收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180 : 收款事項_dgv.Columns(6).Visible = False : 收款事項_dgv.Columns(7).FillWeight = 50
-
+        收款事項_dgv.Columns(8).FillWeight = 50
         收款事項_dgv.Columns(3).ReadOnly = True : 收款事項_dgv.Columns(7).ReadOnly = True
 
         收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
@@ -76,6 +76,9 @@
             If IsDBNull(收款事項_dgv.Rows(i).Cells("轉財務").Value) Then
                 收款事項_dgv.Rows(i).Cells("轉財務").Value = False
             End If
+            If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                收款事項_dgv("含稅", i).Value = False
+            End If
         Next
 
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
@@ -168,6 +171,22 @@
             字體_NUD.Value = 7.6
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 銷售單據_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售單據_dgv.MouseUp
+        'If 銷售單據_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售單據_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售單據_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售單據_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售單據_dgv.SelectedCells.Count > 0 Then
+            If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Or 銷售單據_dgv.SelectedCells(0).ColumnIndex = 11 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售單據_dgv.SelectedCells.Count - 1
+                        x += Val(銷售單據_dgv.Rows(銷售單據_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售單據_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科1_ch.TextChanged
         會科碼1_ch.SelectedIndex = 會科1_ch.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
     End Sub
@@ -265,7 +284,7 @@
             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
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                 SQL_銷售收款事項_修改() : conn.Close()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -337,6 +356,7 @@
                         PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & RR & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]"
 
                         PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                        PA21 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                         SQL_應收轉財務_新增公帳流水帳資料()
 
                         PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
@@ -376,7 +396,7 @@
             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
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                 SQL_銷售收款事項_修改() : conn.Close()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
             Set_清單1()

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

@@ -87,7 +87,6 @@ Public Class 訂單控制表
             End If
             銷售明細_dgv("項次", i).Value = i + 1
         Next
-        銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
     Private Sub Set_清單5()
         銷售備註_dgv.DataSource = Nothing : ds5.Clear()
@@ -114,7 +113,6 @@ Public Class 訂單控制表
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             銷售備註_dgv("項次", i).Value = i + 1
         Next
-        銷售備註_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
     End Sub
     Private Sub Set_清單6()
@@ -140,8 +138,10 @@ Public Class 訂單控制表
 
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             收款事項_dgv("項次", i).Value = i + 1
+            If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                收款事項_dgv("含稅", i).Value = False
+            End If
         Next
-        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
     End Sub
     Private Sub Set_清單7()
@@ -168,7 +168,6 @@ Public Class 訂單控制表
         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_下拉表單資料載入()
@@ -194,15 +193,15 @@ Public Class 訂單控制表
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
@@ -301,6 +300,82 @@ Public Class 訂單控制表
             字體_NUD.Value = 8
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 銷售單據_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售單據_dgv.MouseUp
+        'If 銷售單據_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售單據_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售單據_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售單據_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售單據_dgv.SelectedCells.Count > 0 Then
+            If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售單據_dgv.SelectedCells.Count - 1
+                        x += Val(銷售單據_dgv.Rows(銷售單據_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售單據_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售明細_dgv.MouseUp
+        'If 銷售明細_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售明細_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售明細_dgv.SelectedCells.Count > 0 Then
+            If 銷售明細_dgv.SelectedCells(0).ColumnIndex = 12 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售明細_dgv.SelectedCells.Count - 1
+                        x += Val(銷售明細_dgv.Rows(銷售明細_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售備註_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售備註_dgv.MouseUp
+        'If 銷售備註_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售備註_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售備註_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售備註_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售備註_dgv.SelectedCells.Count > 0 Then
+            If 銷售備註_dgv.SelectedCells(0).ColumnIndex >= 3 And 銷售備註_dgv.SelectedCells(0).ColumnIndex <= 4 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售備註_dgv.SelectedCells.Count - 1
+                        x += Val(銷售備註_dgv.Rows(銷售備註_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售備註_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售衍生運費_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售衍生運費_dgv.MouseUp
+        'If 銷售衍生運費_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售衍生運費_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售衍生運費_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售衍生運費_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售衍生運費_dgv.SelectedCells.Count > 0 Then
+            If 銷售衍生運費_dgv.SelectedCells(0).ColumnIndex = 4 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售衍生運費_dgv.SelectedCells.Count - 1
+                        x += Val(銷售衍生運費_dgv.Rows(銷售衍生運費_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售衍生運費_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 收款事項_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 收款事項_dgv.MouseUp
+        'If 收款事項_dgv.SelectedCells.Count = 1 Then : MsgBox(收款事項_dgv.SelectedCells(0).ColumnIndex & "  " & 收款事項_dgv.SelectedCells(0).RowIndex) : End If
+        If 收款事項_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 收款事項_dgv.SelectedCells.Count > 0 Then
+            If 收款事項_dgv.SelectedCells(0).ColumnIndex = 5 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 收款事項_dgv.SelectedCells.Count - 1
+                        x += Val(收款事項_dgv.Rows(收款事項_dgv.SelectedCells.Item(i).RowIndex).Cells(收款事項_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
         Set_合記計算()
     End Sub
@@ -328,7 +403,7 @@ Public Class 訂單控制表
     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
+            項次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

YD-ERP-SYS/業務系統管理/貨款試算表.vb

@@ -155,6 +155,37 @@ Public Class 貨款試算表
             字體_NUD.Value = 8
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 廠商彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 廠商彙總_dgv.MouseUp
+        'If 廠商彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(廠商彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 廠商彙總_dgv.SelectedCells(0).RowIndex) : End If
+        If 廠商彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 廠商彙總_dgv.SelectedCells.Count > 0 Then
+            If 廠商彙總_dgv.SelectedCells(0).ColumnIndex = 3 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 廠商彙總_dgv.SelectedCells.Count - 1
+                        x += Val(廠商彙總_dgv.Rows(廠商彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(廠商彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 訂貨明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 訂貨明細_dgv.MouseUp
+        'If 訂貨明細_dgv.SelectedCells.Count = 1 Then : MsgBox(訂貨明細_dgv.SelectedCells(0).ColumnIndex & "  " & 訂貨明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 訂貨明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 訂貨明細_dgv.SelectedCells.Count > 0 Then
+            If 訂貨明細_dgv.SelectedCells(0).ColumnIndex = 13 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 訂貨明細_dgv.SelectedCells.Count - 1
+                        x += Val(訂貨明細_dgv.Rows(訂貨明細_dgv.SelectedCells.Item(i).RowIndex).Cells(訂貨明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub 日期格式()
         If 會計月_ch.Checked = True Then
             '-------------日期一----------------------------------------------------------------------------------------

YD-ERP-SYS/業務系統管理/銷售分析表.Designer.vb

@@ -35,14 +35,8 @@ Partial Class 銷售分析表
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim ChartArea5 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend5 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series5 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
         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 ChartArea6 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend6 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series6 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
         Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
         Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
         Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
@@ -55,14 +49,20 @@ Partial Class 銷售分析表
         Dim Series2 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
         Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim ChartArea4 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend4 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
         Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim ChartArea3 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
         Dim Legend3 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
         Dim Series3 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea4 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend4 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea5 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend5 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series5 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea6 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend6 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series6 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
@@ -115,17 +115,17 @@ Partial Class 銷售分析表
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.Chart6 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.銷售備註1_dgv = New System.Windows.Forms.DataGridView()
-        Me.Chart5 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.Chart4 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.銷售它項1_dgv = New System.Windows.Forms.DataGridView()
         Me.銷售明細1_dgv = New System.Windows.Forms.DataGridView()
         Me.Chart3 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.稅金1_dgv = New System.Windows.Forms.DataGridView()
-        Me.Chart2 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.運費1_dgv = New System.Windows.Forms.DataGridView()
         Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Chart2 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Chart6 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Chart5 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.報表_bt = New System.Windows.Forms.Button()
         Me.圖表_bt = New System.Windows.Forms.Button()
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -139,17 +139,17 @@ Partial Class 銷售分析表
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Chart6, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售備註1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Chart5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售它項1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售明細1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.稅金1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.運費1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart5, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '中間日期_dtp
@@ -737,44 +737,6 @@ Partial Class 銷售分析表
         Me.PictureBox1.TabIndex = 1343
         Me.PictureBox1.TabStop = False
         '
-        'Chart6
-        '
-        Me.Chart6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Chart6.BackColor = System.Drawing.SystemColors.Control
-        ChartArea5.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea5.Area3DStyle.Inclination = 60
-        ChartArea5.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea5.AxisX.IsLabelAutoFit = False
-        ChartArea5.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea5.AxisX.LabelStyle.IsStaggered = True
-        ChartArea5.AxisX.MaximumAutoSize = 100.0!
-        ChartArea5.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea5.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea5.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea5.AxisY.MaximumAutoSize = 100.0!
-        ChartArea5.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea5.Name = "ChartArea1"
-        Me.Chart6.ChartAreas.Add(ChartArea5)
-        Legend5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend5.IsTextAutoFit = False
-        Legend5.Name = "Legend1"
-        Me.Chart6.Legends.Add(Legend5)
-        Me.Chart6.Location = New System.Drawing.Point(1080, 170)
-        Me.Chart6.Name = "Chart6"
-        Me.Chart6.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Berry
-        Series5.ChartArea = "ChartArea1"
-        Series5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series5.Legend = "Legend1"
-        Series5.Name = "Series1"
-        Me.Chart6.Series.Add(Series5)
-        Me.Chart6.Size = New System.Drawing.Size(489, 220)
-        Me.Chart6.TabIndex = 1342
-        Me.Chart6.Text = "Chart6"
-        '
         '銷售備註1_dgv
         '
         DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -793,44 +755,6 @@ Partial Class 銷售分析表
         Me.銷售備註1_dgv.Size = New System.Drawing.Size(359, 165)
         Me.銷售備註1_dgv.TabIndex = 1341
         '
-        'Chart5
-        '
-        Me.Chart5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Chart5.BackColor = System.Drawing.SystemColors.Control
-        ChartArea6.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea6.Area3DStyle.Inclination = 60
-        ChartArea6.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea6.AxisX.IsLabelAutoFit = False
-        ChartArea6.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea6.AxisX.LabelStyle.IsStaggered = True
-        ChartArea6.AxisX.MaximumAutoSize = 100.0!
-        ChartArea6.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea6.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea6.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea6.AxisY.MaximumAutoSize = 100.0!
-        ChartArea6.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea6.Name = "ChartArea1"
-        Me.Chart5.ChartAreas.Add(ChartArea6)
-        Legend6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend6.IsTextAutoFit = False
-        Legend6.Name = "Legend1"
-        Me.Chart5.Legends.Add(Legend6)
-        Me.Chart5.Location = New System.Drawing.Point(708, 170)
-        Me.Chart5.Name = "Chart5"
-        Me.Chart5.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.EarthTones
-        Series6.ChartArea = "ChartArea1"
-        Series6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series6.Legend = "Legend1"
-        Series6.Name = "Series1"
-        Me.Chart5.Series.Add(Series6)
-        Me.Chart5.Size = New System.Drawing.Size(493, 220)
-        Me.Chart5.TabIndex = 1340
-        Me.Chart5.Text = "Chart5"
-        '
         'Chart4
         '
         Me.Chart4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -962,45 +886,6 @@ Partial Class 銷售分析表
         Me.稅金1_dgv.Size = New System.Drawing.Size(359, 165)
         Me.稅金1_dgv.TabIndex = 1335
         '
-        'Chart2
-        '
-        Me.Chart2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Chart2.BackColor = System.Drawing.SystemColors.Control
-        ChartArea4.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea4.Area3DStyle.Inclination = 60
-        ChartArea4.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea4.AxisX.IsLabelAutoFit = False
-        ChartArea4.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
-            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea4.AxisX.LabelStyle.IsStaggered = True
-        ChartArea4.AxisX.MaximumAutoSize = 100.0!
-        ChartArea4.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea4.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea4.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea4.AxisY.MaximumAutoSize = 100.0!
-        ChartArea4.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea4.Name = "ChartArea1"
-        Me.Chart2.ChartAreas.Add(ChartArea4)
-        Legend4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend4.IsTextAutoFit = False
-        Legend4.Name = "Legend1"
-        Me.Chart2.Legends.Add(Legend4)
-        Me.Chart2.Location = New System.Drawing.Point(1448, 170)
-        Me.Chart2.Name = "Chart2"
-        Me.Chart2.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Pastel
-        Series4.ChartArea = "ChartArea1"
-        Series4.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
-        Series4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series4.Legend = "Legend1"
-        Series4.Name = "Series1"
-        Me.Chart2.Series.Add(Series4)
-        Me.Chart2.Size = New System.Drawing.Size(359, 220)
-        Me.Chart2.TabIndex = 1265
-        Me.Chart2.Text = "Chart2"
-        '
         '運費1_dgv
         '
         DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -1056,6 +941,121 @@ Partial Class 銷售分析表
         Me.Chart1.TabIndex = 813
         Me.Chart1.Text = "Chart1"
         '
+        'Chart2
+        '
+        Me.Chart2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Chart2.BackColor = System.Drawing.SystemColors.Control
+        ChartArea4.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea4.Area3DStyle.Inclination = 60
+        ChartArea4.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea4.AxisX.IsLabelAutoFit = False
+        ChartArea4.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea4.AxisX.LabelStyle.IsStaggered = True
+        ChartArea4.AxisX.MaximumAutoSize = 100.0!
+        ChartArea4.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea4.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea4.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea4.AxisY.MaximumAutoSize = 100.0!
+        ChartArea4.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea4.Name = "ChartArea1"
+        Me.Chart2.ChartAreas.Add(ChartArea4)
+        Legend4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend4.IsTextAutoFit = False
+        Legend4.Name = "Legend1"
+        Me.Chart2.Legends.Add(Legend4)
+        Me.Chart2.Location = New System.Drawing.Point(1448, 170)
+        Me.Chart2.Name = "Chart2"
+        Me.Chart2.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Pastel
+        Series4.ChartArea = "ChartArea1"
+        Series4.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series4.Legend = "Legend1"
+        Series4.Name = "Series1"
+        Me.Chart2.Series.Add(Series4)
+        Me.Chart2.Size = New System.Drawing.Size(359, 220)
+        Me.Chart2.TabIndex = 1265
+        Me.Chart2.Text = "Chart2"
+        '
+        'Chart6
+        '
+        Me.Chart6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Chart6.BackColor = System.Drawing.SystemColors.Control
+        ChartArea5.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea5.Area3DStyle.Inclination = 60
+        ChartArea5.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea5.AxisX.IsLabelAutoFit = False
+        ChartArea5.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea5.AxisX.LabelStyle.IsStaggered = True
+        ChartArea5.AxisX.MaximumAutoSize = 100.0!
+        ChartArea5.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea5.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea5.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea5.AxisY.MaximumAutoSize = 100.0!
+        ChartArea5.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea5.Name = "ChartArea1"
+        Me.Chart6.ChartAreas.Add(ChartArea5)
+        Legend5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend5.IsTextAutoFit = False
+        Legend5.Name = "Legend1"
+        Me.Chart6.Legends.Add(Legend5)
+        Me.Chart6.Location = New System.Drawing.Point(1080, 170)
+        Me.Chart6.Name = "Chart6"
+        Me.Chart6.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Berry
+        Series5.ChartArea = "ChartArea1"
+        Series5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series5.Legend = "Legend1"
+        Series5.Name = "Series1"
+        Me.Chart6.Series.Add(Series5)
+        Me.Chart6.Size = New System.Drawing.Size(489, 220)
+        Me.Chart6.TabIndex = 1342
+        Me.Chart6.Text = "Chart6"
+        '
+        'Chart5
+        '
+        Me.Chart5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Chart5.BackColor = System.Drawing.SystemColors.Control
+        ChartArea6.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea6.Area3DStyle.Inclination = 60
+        ChartArea6.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea6.AxisX.IsLabelAutoFit = False
+        ChartArea6.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea6.AxisX.LabelStyle.IsStaggered = True
+        ChartArea6.AxisX.MaximumAutoSize = 100.0!
+        ChartArea6.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea6.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea6.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea6.AxisY.MaximumAutoSize = 100.0!
+        ChartArea6.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea6.Name = "ChartArea1"
+        Me.Chart5.ChartAreas.Add(ChartArea6)
+        Legend6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend6.IsTextAutoFit = False
+        Legend6.Name = "Legend1"
+        Me.Chart5.Legends.Add(Legend6)
+        Me.Chart5.Location = New System.Drawing.Point(708, 170)
+        Me.Chart5.Name = "Chart5"
+        Me.Chart5.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.EarthTones
+        Series6.ChartArea = "ChartArea1"
+        Series6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series6.Legend = "Legend1"
+        Series6.Name = "Series1"
+        Me.Chart5.Series.Add(Series6)
+        Me.Chart5.Size = New System.Drawing.Size(493, 220)
+        Me.Chart5.TabIndex = 1340
+        Me.Chart5.Text = "Chart5"
+        '
         '報表_bt
         '
         Me.報表_bt.Location = New System.Drawing.Point(1267, 2)
@@ -1140,17 +1140,17 @@ Partial Class 銷售分析表
         Me.Panel1.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Chart6, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.銷售備註1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Chart5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Chart4, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.銷售它項1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.銷售明細1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Chart3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.稅金1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.運費1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart5, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

YD-ERP-SYS/業務系統管理/銷售分析表.vb

@@ -332,7 +332,7 @@ Public Class 銷售分析表
         運費1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         運費1_dgv.ColumnHeadersHeight = 25
         運費1_dgv.AllowUserToAddRows = False
-        運費1_dgv.RowTemplate.Height = 35
+        運費1_dgv.RowTemplate.Height = 22
 
         PA19 = 業務_cb.Text
         SQL_銷售分析表_運費1()
@@ -365,7 +365,7 @@ Public Class 銷售分析表
         稅金1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         稅金1_dgv.ColumnHeadersHeight = 25
         稅金1_dgv.AllowUserToAddRows = False
-        稅金1_dgv.RowTemplate.Height = 35
+        稅金1_dgv.RowTemplate.Height = 22
 
         PA19 = 業務_cb.Text
         SQL_銷售分析表_稅金1()
@@ -398,7 +398,7 @@ Public Class 銷售分析表
         銷售明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售明細1_dgv.ColumnHeadersHeight = 25
         銷售明細1_dgv.AllowUserToAddRows = False
-        銷售明細1_dgv.RowTemplate.Height = 35
+        銷售明細1_dgv.RowTemplate.Height = 22
 
         PA19 = 業務_cb.Text
         SQL_銷售分析表_物料明細1()
@@ -431,7 +431,7 @@ Public Class 銷售分析表
         銷售它項1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售它項1_dgv.ColumnHeadersHeight = 25
         銷售它項1_dgv.AllowUserToAddRows = False
-        銷售它項1_dgv.RowTemplate.Height = 35
+        銷售它項1_dgv.RowTemplate.Height = 22
 
         PA19 = 業務_cb.Text
         SQL_銷售分析表_它項明細1()
@@ -464,7 +464,7 @@ Public Class 銷售分析表
         銷售備註1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售備註1_dgv.ColumnHeadersHeight = 25
         銷售備註1_dgv.AllowUserToAddRows = False
-        銷售備註1_dgv.RowTemplate.Height = 25
+        銷售備註1_dgv.RowTemplate.Height = 22
 
         PA19 = 業務_cb.Text
         SQL_銷售分析表_銷售備註1()
@@ -513,6 +513,172 @@ Public Class 銷售分析表
             字體_NUD.Value = 8
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 銷售明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售明細_dgv.MouseUp
+        'If 銷售明細_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售明細_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售明細_dgv.SelectedCells.Count > 0 Then
+            If 銷售明細_dgv.SelectedCells(0).ColumnIndex = 13 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售明細_dgv.SelectedCells.Count - 1
+                        x += Val(銷售明細_dgv.Rows(銷售明細_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售它項_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售它項_dgv.MouseUp
+        'If 銷售它項_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售它項_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售它項_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售它項_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售它項_dgv.SelectedCells.Count > 0 Then
+            If 銷售它項_dgv.SelectedCells(0).ColumnIndex >= 10 And 銷售它項_dgv.SelectedCells(0).ColumnIndex <= 11 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售它項_dgv.SelectedCells.Count - 1
+                        x += Val(銷售它項_dgv.Rows(銷售它項_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售它項_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售備註_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售備註_dgv.MouseUp
+        'If 銷售備註_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售備註_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售備註_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售備註_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售備註_dgv.SelectedCells.Count > 0 Then
+            If 銷售備註_dgv.SelectedCells(0).ColumnIndex >= 3 And 銷售備註_dgv.SelectedCells(0).ColumnIndex <= 4 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售備註_dgv.SelectedCells.Count - 1
+                        x += Val(銷售備註_dgv.Rows(銷售備註_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售備註_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 稅金_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 稅金_dgv.MouseUp
+        'If 稅金_dgv.SelectedCells.Count = 1 Then : MsgBox(稅金_dgv.SelectedCells(0).ColumnIndex & "  " & 稅金_dgv.SelectedCells(0).RowIndex) : End If
+        If 稅金_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 稅金_dgv.SelectedCells.Count > 0 Then
+            If 稅金_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 稅金_dgv.SelectedCells.Count - 1
+                        x += Val(稅金_dgv.Rows(稅金_dgv.SelectedCells.Item(i).RowIndex).Cells(稅金_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 運費_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 運費_dgv.MouseUp
+        'If 運費_dgv.SelectedCells.Count = 1 Then : MsgBox(運費_dgv.SelectedCells(0).ColumnIndex & "  " & 運費_dgv.SelectedCells(0).RowIndex) : End If
+        If 運費_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 運費_dgv.SelectedCells.Count > 0 Then
+            If 運費_dgv.SelectedCells(0).ColumnIndex = 3 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 運費_dgv.SelectedCells.Count - 1
+                        x += Val(運費_dgv.Rows(運費_dgv.SelectedCells.Item(i).RowIndex).Cells(運費_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 廠商彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 廠商彙總_dgv.MouseUp
+        'If 廠商彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(廠商彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 廠商彙總_dgv.SelectedCells(0).RowIndex) : End If
+        If 廠商彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 廠商彙總_dgv.SelectedCells.Count > 0 Then
+            If 廠商彙總_dgv.SelectedCells(0).ColumnIndex = 3 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 廠商彙總_dgv.SelectedCells.Count - 1
+                        x += Val(廠商彙總_dgv.Rows(廠商彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(廠商彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售明細1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售明細1_dgv.MouseUp
+        'If 銷售明細1_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售明細1_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售明細1_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售明細1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售明細1_dgv.SelectedCells.Count > 0 Then
+            If 銷售明細1_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售明細1_dgv.SelectedCells.Count - 1
+                        x += Val(銷售明細1_dgv.Rows(銷售明細1_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售明細1_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 稅金1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 稅金1_dgv.MouseUp
+        'If 稅金1_dgv.SelectedCells.Count = 1 Then : MsgBox(稅金1_dgv.SelectedCells(0).ColumnIndex & "  " & 稅金1_dgv.SelectedCells(0).RowIndex) : End If
+        If 稅金1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 稅金1_dgv.SelectedCells.Count > 0 Then
+            If 稅金1_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 稅金1_dgv.SelectedCells.Count - 1
+                        x += Val(稅金1_dgv.Rows(稅金1_dgv.SelectedCells.Item(i).RowIndex).Cells(稅金1_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售它項1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售它項1_dgv.MouseUp
+        'If 銷售它項1_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售它項1_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售它項1_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售它項1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售它項1_dgv.SelectedCells.Count > 0 Then
+            If 銷售它項1_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售它項1_dgv.SelectedCells.Count - 1
+                        x += Val(銷售它項1_dgv.Rows(銷售它項1_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售它項1_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售備註1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售備註1_dgv.MouseUp
+        'If 銷售備註1_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售備註1_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售備註1_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷售備註1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 銷售備註1_dgv.SelectedCells.Count > 0 Then
+            If 銷售備註1_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售備註1_dgv.SelectedCells.Count - 1
+                        x += Val(銷售備註1_dgv.Rows(銷售備註1_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售備註1_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 運費1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 運費1_dgv.MouseUp
+        'If 運費1_dgv.SelectedCells.Count = 1 Then : MsgBox(運費1_dgv.SelectedCells(0).ColumnIndex & "  " & 運費1_dgv.SelectedCells(0).RowIndex) : End If
+        If 運費1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 運費1_dgv.SelectedCells.Count > 0 Then
+            If 運費1_dgv.SelectedCells(0).ColumnIndex = 2 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 運費1_dgv.SelectedCells.Count - 1
+                        x += Val(運費1_dgv.Rows(運費1_dgv.SelectedCells.Item(i).RowIndex).Cells(運費1_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub 日期格式()
         If 會計月_ch.Checked = True Then
             '-------------日期一----------------------------------------------------------------------------------------

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

@@ -240,6 +240,9 @@ Public Class 銷售單審核
 
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             收款事項_dgv("項次", i).Value = i + 1
+            If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                收款事項_dgv("含稅", i).Value = False
+            End If
         Next
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
@@ -314,15 +317,15 @@ Public Class 銷售單審核
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
@@ -811,7 +814,7 @@ Public Class 銷售單審核
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -908,7 +911,7 @@ Public Class 銷售單審核
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -958,7 +961,7 @@ Public Class 銷售單審核
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -1178,7 +1181,7 @@ Public Class 銷售單審核
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -1240,15 +1243,15 @@ Public Class 銷售單審核
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
@@ -1352,15 +1355,15 @@ Public Class 銷售單審核
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
@@ -1458,7 +1461,7 @@ Public Class 銷售單審核
             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
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                 SQL_銷售收款事項_修改() : conn.Close()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 

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

@@ -240,6 +240,9 @@ Public Class 銷售單申請
 
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             收款事項_dgv("項次", i).Value = i + 1
+            If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
+                收款事項_dgv("含稅", i).Value = False
+            End If
         Next
         收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Set_合記計算()
@@ -314,15 +317,15 @@ Public Class 銷售單申請
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
@@ -882,7 +885,7 @@ Public Class 銷售單申請
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -978,7 +981,7 @@ Public Class 銷售單申請
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -1028,7 +1031,7 @@ Public Class 銷售單申請
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -1243,7 +1246,7 @@ Public Class 銷售單申請
             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
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                 SQL_銷售收款事項_修改() : conn.Close()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -1284,7 +1287,7 @@ Public Class 銷售單申請
                 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
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -1318,15 +1321,15 @@ Public Class 銷售單申請
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
@@ -1424,15 +1427,15 @@ Public Class 銷售單申請
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
-                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = "1" Then
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If

YD-ERP-SYS/財務系統管理/業績單據完單設定.vb

@@ -33,6 +33,22 @@
         未完單_bt.Enabled = False
         Set_獎金基礎下拉() : Set_清單1()
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 彙總1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 彙總1_dgv.MouseUp
+        'If 彙總1_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總1_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總1_dgv.SelectedCells(0).RowIndex) : End If
+        If 彙總1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 彙總1_dgv.SelectedCells.Count > 0 Then
+            If 彙總1_dgv.SelectedCells(0).ColumnIndex >= 1 And 彙總1_dgv.SelectedCells(0).ColumnIndex <= 5 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 彙總1_dgv.SelectedCells.Count - 1
+                        x += Val(彙總1_dgv.Rows(彙總1_dgv.SelectedCells.Item(i).RowIndex).Cells(彙總1_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub 彙總1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 彙總1_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             業務單號_tb.Text = 彙總1_dgv("單號", e.RowIndex).Value.ToString

YD-ERP-SYS/財務系統管理/業績獎金彙總表.vb

@@ -380,6 +380,37 @@ Public Class 業績獎金彙總表
             字體_NUD.Value = 8
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 獎金彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 獎金彙總_dgv.MouseUp
+        'If 獎金彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(獎金彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 獎金彙總_dgv.SelectedCells(0).RowIndex) : End If
+        If 獎金彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 獎金彙總_dgv.SelectedCells.Count > 0 Then
+            If 獎金彙總_dgv.SelectedCells(0).ColumnIndex >= 2 And 獎金彙總_dgv.SelectedCells(0).ColumnIndex <= 9 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 獎金彙總_dgv.SelectedCells.Count - 1
+                        x += Val(獎金彙總_dgv.Rows(獎金彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(獎金彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 獎金明細表_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 獎金明細表_dgv.MouseUp
+        'If 獎金明細表_dgv.SelectedCells.Count = 1 Then : MsgBox(獎金明細表_dgv.SelectedCells(0).ColumnIndex & "  " & 獎金明細表_dgv.SelectedCells(0).RowIndex) : End If
+        If 獎金明細表_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 獎金明細表_dgv.SelectedCells.Count > 0 Then
+            If 獎金明細表_dgv.SelectedCells(0).ColumnIndex >= 2 And 獎金明細表_dgv.SelectedCells(0).ColumnIndex <= 8 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 獎金明細表_dgv.SelectedCells.Count - 1
+                        x += Val(獎金明細表_dgv.Rows(獎金明細表_dgv.SelectedCells.Item(i).RowIndex).Cells(獎金明細表_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub NUD2_ValueChanged(sender As Object, e As EventArgs) Handles NUD2.ValueChanged
         NUD5.Value = NUD1.Value - NUD2.Value - NUD3.Value - NUD4.Value
     End Sub

YD-ERP-SYS/財務系統管理/業績運費明細表.Designer.vb

@@ -42,6 +42,7 @@ Partial Class 業績運費明細表
         Me.存檔_bt = New System.Windows.Forms.Button()
         Me.全部取消_bt = New System.Windows.Forms.Button()
         Me.全部選擇_bt = New System.Windows.Forms.Button()
+        Me.方便點選功能_ch = New System.Windows.Forms.CheckBox()
         CType(Me.運費明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NUD2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -261,11 +262,22 @@ Partial Class 業績運費明細表
         Me.全部選擇_bt.Text = "全部選擇"
         Me.全部選擇_bt.UseVisualStyleBackColor = True
         '
+        '方便點選功能_ch
+        '
+        Me.方便點選功能_ch.AutoSize = True
+        Me.方便點選功能_ch.Location = New System.Drawing.Point(450, 5)
+        Me.方便點選功能_ch.Name = "方便點選功能_ch"
+        Me.方便點選功能_ch.Size = New System.Drawing.Size(99, 20)
+        Me.方便點選功能_ch.TabIndex = 1555
+        Me.方便點選功能_ch.Text = "方便點選功能"
+        Me.方便點選功能_ch.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(1338, 603)
+        Me.Controls.Add(Me.方便點選功能_ch)
         Me.Controls.Add(Me.全部取消_bt)
         Me.Controls.Add(Me.全部選擇_bt)
         Me.Controls.Add(Me.存檔_bt)
@@ -278,13 +290,13 @@ Partial Class 業績運費明細表
         Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
-        Me.Controls.Add(Me.運費明細表_dgv)
         Me.Controls.Add(Me.列印成EXCEL_bt)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.下個月_bt)
         Me.Controls.Add(Me.上個月_bt)
         Me.Controls.Add(Me.結束日期_dtp)
         Me.Controls.Add(Me.開始日期_dtp)
+        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 = "業績運費明細表"
@@ -318,4 +330,5 @@ Partial Class 業績運費明細表
     Friend WithEvents 存檔_bt As Button
     Friend WithEvents 全部取消_bt As Button
     Friend WithEvents 全部選擇_bt As Button
+    Friend WithEvents 方便點選功能_ch As CheckBox
 End Class

YD-ERP-SYS/財務系統管理/業績運費明細表.vb

@@ -70,12 +70,30 @@ Public Class 業績運費明細表
             字體_NUD.Value = 8
         End If
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 運費明細表_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 運費明細表_dgv.MouseUp
+        'If 運費明細表_dgv.SelectedCells.Count = 1 Then : MsgBox(運費明細表_dgv.SelectedCells(0).ColumnIndex & "  " & 運費明細表_dgv.SelectedCells(0).RowIndex) : End If
+        If 運費明細表_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 運費明細表_dgv.SelectedCells.Count > 0 Then
+            If 運費明細表_dgv.SelectedCells(0).ColumnIndex = 3 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 運費明細表_dgv.SelectedCells.Count - 1
+                        x += Val(運費明細表_dgv.Rows(運費明細表_dgv.SelectedCells.Item(i).RowIndex).Cells(運費明細表_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            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
-            If 運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True Then
-                運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = False
-            Else
-                運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True
+            If 方便點選功能_ch.Checked = True Then
+                If 運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True Then
+                    運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = False
+                Else
+                    運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True
+                End If
             End If
         End If
     End Sub

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

@@ -23,7 +23,7 @@ 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()
         Me.未兌現支票1_tb = New System.Windows.Forms.TextBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.未兌現支票_tb = New System.Windows.Forms.TextBox()
@@ -67,6 +67,9 @@ Partial Class 營運成本收支單_對帳表
         Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -402,7 +405,7 @@ Partial Class 營運成本收支單_對帳表
         Me.查詢日期1_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.查詢日期1_cb.FormattingEnabled = True
         Me.查詢日期1_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
-        Me.查詢日期1_cb.Location = New System.Drawing.Point(153, 3)
+        Me.查詢日期1_cb.Location = New System.Drawing.Point(143, 4)
         Me.查詢日期1_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.查詢日期1_cb.Name = "查詢日期1_cb"
         Me.查詢日期1_cb.Size = New System.Drawing.Size(63, 24)
@@ -414,7 +417,7 @@ Partial Class 營運成本收支單_對帳表
         Me.查詢日期_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.查詢日期_cb.FormattingEnabled = True
         Me.查詢日期_cb.Items.AddRange(New Object() {"2019"})
-        Me.查詢日期_cb.Location = New System.Drawing.Point(64, 3)
+        Me.查詢日期_cb.Location = New System.Drawing.Point(59, 4)
         Me.查詢日期_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.查詢日期_cb.Name = "查詢日期_cb"
         Me.查詢日期_cb.Size = New System.Drawing.Size(81, 24)
@@ -425,7 +428,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label2.Location = New System.Drawing.Point(2, 7)
+        Me.Label2.Location = New System.Drawing.Point(2, 8)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(56, 16)
         Me.Label2.TabIndex = 1041
@@ -442,10 +445,10 @@ Partial Class 營運成本收支單_對帳表
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(1050, 524)
+        Me.明細_dgv.Size = New System.Drawing.Size(1128, 524)
         Me.明細_dgv.TabIndex = 1073
         '
         'ContextMenuStrip1
@@ -537,12 +540,47 @@ Partial Class 營運成本收支單_對帳表
         Me.字體_NUD.TabIndex = 1494
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
+        '非稅_ch
+        '
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(1060, 58)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.非稅_ch.TabIndex = 1501
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(1059, 32)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.TabIndex = 1500
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(1059, 6)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(51, 20)
+        Me.全部_ch.TabIndex = 1499
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.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(1061, 611)
+        Me.ClientSize = New System.Drawing.Size(1139, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.匯出EXCEL_bt)
@@ -585,7 +623,7 @@ Partial Class 營運成本收支單_對帳表
         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 = "營運成本收支單___對帳表"
+        Me.Text = "財務對帳表"
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
@@ -637,4 +675,7 @@ Partial Class 營運成本收支單_對帳表
     Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
 End Class

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

@@ -23,6 +23,13 @@ Public Class 營運成本收支單_對帳表
         明細_dgv.ColumnHeadersHeight = 25
         明細_dgv.AllowUserToAddRows = False
         明細_dgv.RowTemplate.Height = 30
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)"
+        End If
         SQL_營運成本收支單對帳表_查詢最後一筆清單()
         da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
     End Sub
@@ -113,7 +120,32 @@ Public Class 營運成本收支單_對帳表
             字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True
         End If
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 清除查詢資料_bt.Click
+    Dim 已超出 As Boolean
+    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
+        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 明細_dgv.SelectedCells.Count > 0 Then
+            If 明細_dgv.SelectedCells(0).ColumnIndex >= 8 And 明細_dgv.SelectedCells(0).ColumnIndex <= 11 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1
+                        x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    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_清單1()
+    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_清單1()
+    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_清單1()
+    End Sub
+    Private Sub 清除查詢資料_bt_Click(sender As Object, e As EventArgs) Handles 清除查詢資料_bt.Click
         ComboBox1下拉表單資料載入()
         查詢日期1_cb.Items.Clear()
         查詢日期1_cb.Items.Add("01") : 查詢日期1_cb.Items.Add("02") : 查詢日期1_cb.Items.Add("03") : 查詢日期1_cb.Items.Add("04") : 查詢日期1_cb.Items.Add("05") : 查詢日期1_cb.Items.Add("06")
@@ -121,15 +153,11 @@ Public Class 營運成本收支單_對帳表
         PA17 = "" : PA16 = "" : PA20 = ""
         明細_dgv.DataSource = Nothing : ds.Clear()
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_bt.Click
-
+    Private Sub 對帳記錄存檔_bt_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_bt.Click
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            PA15 = 明細_dgv.Rows(i).Cells("現金點交").Value
-            PA14 = 明細_dgv.Rows(i).Cells("零用金點交").Value
-            PA13 = 明細_dgv.Rows(i).Cells("支出點交").Value
-            PA12 = 明細_dgv.Rows(i).Cells("支票兌現").Value
-            PA11 = 明細_dgv.Rows(i).Cells("收支單號").Value
-            PA10 = 明細_dgv.Rows(i).Cells("項次").Value
+            PA15 = 明細_dgv.Rows(i).Cells("現金點交").Value : PA14 = 明細_dgv.Rows(i).Cells("零用金點交").Value
+            PA13 = 明細_dgv.Rows(i).Cells("支出點交").Value : PA12 = 明細_dgv.Rows(i).Cells("支票兌現").Value
+            PA11 = 明細_dgv.Rows(i).Cells("收支單號").Value : PA10 = 明細_dgv.Rows(i).Cells("項次").Value
             資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
             SQL_營運成本收支單對帳表_修改對帳記錄存檔() : conn1.Close()
         Next
@@ -154,12 +182,13 @@ Public Class 營運成本收支單_對帳表
         損益_tb.Text = JJKK + HHJJ + FFGG - GGHH
         If Val(損益_tb.Text) > 0 Then : 損益_tb.ForeColor = Color.Blue : Else : 損益_tb.ForeColor = Color.Red : End If
         現金_tb.Text = Strings.Format(Val(現金_tb.Text), "#,##0") : 支出_tb.Text = Strings.Format(Val(支出_tb.Text), "#,##0") : 損益_tb.Text = Strings.Format(Val(損益_tb.Text), "#,##0")
-        零用金_tb.Text = Strings.Format(Val(零用金_tb.Text), "#,##0") : 已兌現支票_tb.Text = Strings.Format(Val(已兌現支票_tb.Text), "#,##0") : 未兌現支票_tb.Text = Strings.Format(Val(未兌現支票_tb.Text), "#,##0")
+        零用金_tb.Text = Strings.Format(Val(零用金_tb.Text), "#,##0")
+        已兌現支票_tb.Text = Strings.Format(Val(已兌現支票_tb.Text), "#,##0")
+        未兌現支票_tb.Text = Strings.Format(Val(未兌現支票_tb.Text), "#,##0")
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            收支單號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("收支單號").Value
-            總金額計算()
+            收支單號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("收支單號").Value : 總金額計算()
         End If
     End Sub
     Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 明細_dgv.RowPostPaint
@@ -186,26 +215,18 @@ Public Class 營運成本收支單_對帳表
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期_cb.SelectedIndexChanged
         PA17 = 查詢日期_cb.Text
         If PA17 = "" Or PA16 = "" Then
-        Else
-            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
-            Set_清單1()
+        Else : PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') " : Set_清單1()
         End If
     End Sub
     Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期1_cb.SelectedIndexChanged
         PA16 = 查詢日期1_cb.Text
         If PA17 = "" Or PA16 = "" Then
-        Else
-            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
-            Set_清單1()
+        Else : PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') " : Set_清單1()
         End If
     End Sub
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示支票資料_cb.Click
-        If 只顯示支票資料_cb.Checked = False Then
-            PA19 = ""
-            Set_清單1()
-        Else
-            PA19 = " AND (公帳流水帳.支票數 <> 0) "
-            Set_清單1()
+        If 只顯示支票資料_cb.Checked = False Then : PA19 = "" : Set_清單1()
+        Else : PA19 = " AND (公帳流水帳.支票數 <> 0) " : Set_清單1()
         End If
     End Sub
     Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏申請審核資訊_cb.Click
@@ -240,42 +261,21 @@ Public Class 營運成本收支單_對帳表
         xlBook.Activate()
         xlSheet.Activate()
 
-        xlSheet.Cells(1, 1) = "雅邸家具有限公司-營運費用收支明細表"
-        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) = "零用金"
-        xlSheet.Cells(2, 10) = "支票"
-        xlSheet.Cells(2, 11) = "現金"
-        xlSheet.Cells(2, 12) = "支出"
-
+        xlSheet.Cells(1, 1) = "雅邸家具有限公司-營運費用收支明細表" : 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) = "零用金" : xlSheet.Cells(2, 10) = "支票" : xlSheet.Cells(2, 11) = "現金" : xlSheet.Cells(2, 12) = "支出"
         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
-            xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("審核日期").Value
-            xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("項次").Value
-            xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("會計科目").Value
-            xlSheet.Cells(i + 3, 8) = 明細_dgv.Rows(i).Cells("用途與內容").Value
-            xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("零用金").Value
-            xlSheet.Cells(i + 3, 10) = 明細_dgv.Rows(i).Cells("支票").Value
-            xlSheet.Cells(i + 3, 11) = 明細_dgv.Rows(i).Cells("現金").Value
-            xlSheet.Cells(i + 3, 12) = 明細_dgv.Rows(i).Cells("支出").Value
+            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
+            xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("審核日期").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("項次").Value
+            xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("會計科目").Value : xlSheet.Cells(i + 3, 8) = 明細_dgv.Rows(i).Cells("用途與內容").Value
+            xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("零用金").Value : xlSheet.Cells(i + 3, 10) = 明細_dgv.Rows(i).Cells("支票").Value
+            xlSheet.Cells(i + 3, 11) = 明細_dgv.Rows(i).Cells("現金").Value : xlSheet.Cells(i + 3, 12) = 明細_dgv.Rows(i).Cells("支出").Value
             N2 = i + 3
         Next i
-
         xlSheet.Cells(N2 + 1, 8) = "合計"
-        xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")"
-        xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"
-        xlSheet.Cells(N2 + 1, 11) = "=SUM(K3:K" & N2 & ")"
-        xlSheet.Cells(N2 + 1, 12) = "=SUM(L3:L" & N2 & ")"
-
+        xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")" : xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 11) = "=SUM(K3:K" & N2 & ")" : xlSheet.Cells(N2 + 1, 12) = "=SUM(L3:L" & N2 & ")"
         '--------------------------------------彙總-----------------------------
         xlSheet.Cells(N2 + 2, 8) = "彙總"
         xlSheet.Cells(N2 + 2, 9) = "=I" & N2 + 1 & "+J" & N2 + 1 & "+K" & N2 + 1 & "-L" & N2 + 1 & ""
@@ -289,23 +289,17 @@ Public Class 營運成本收支單_對帳表
     End Sub
     Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.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
+        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.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 15
-        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 9
-        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 9
-        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9
-        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 9
-        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 5
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 15 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 9 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 9 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 5
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
         End With
 
-        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20
-        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 35
+        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20 : xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 35
         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
         End With
@@ -313,139 +307,66 @@ Public Class 營運成本收支單_對帳表
         xlSheet.Columns("I:L").Select : myExcel.Selection.ColumnWidth = 9 : myExcel.Selection.Style = "Comma"
         myExcel.Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
         myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
-        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35
-        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35 : xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
         With myExcel.Selection : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
-            .ReadingOrder = xlContext : .MergeCells = False
-        End With
+            .ReadingOrder = xlContext : .MergeCells = False : End With
 
         myExcel.Selection.AutoFilter
         xlSheet.Rows("1:1").Select
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
-            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
-        End With
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
         xlSheet.Range("A1:L1").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
+        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.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True : xlSheet.Range("A1:L2").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
+        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
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : 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
 
-        With myExcel.Selection.Borders(xlEdgeLeft)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        End With
-
-        With myExcel.Selection.Borders(xlEdgeTop)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        End With
-
-        With myExcel.Selection.Borders(xlEdgeBottom)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        End With
-        With myExcel.Selection.Borders(xlEdgeRight)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        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
         xlSheet.Range("A3:L" & N2).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
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : 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
 
-        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
-        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
-        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
-        With myExcel.Selection.Borders(xlEdgeLeft)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        End With
-        With myExcel.Selection.Borders(xlEdgeTop)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        End With
-        With myExcel.Selection.Borders(xlEdgeBottom)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        End With
-        With myExcel.Selection.Borders(xlEdgeRight)
-            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
-        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
-        xlSheet.Range("L2").Select() : myExcel.Selection.ClearContents
         xlSheet.Range("L2").Select() : myExcel.Selection.ClearContents
 
         xlSheet.Range("A2:L2").Select()
-        With myExcel.Selection
-            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
-            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
-        End With
-        With myExcel.Selection.Font
-            .Name = "微軟正黑體"
-            .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone
-            .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
-        End With
-        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
-        With myExcel.Selection.Interior
-            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : .PatternTintAndShade = 0
-        End With
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+        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
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
+
         xlSheet.Range("A1:L1").Select() : myExcel.Selection.Font.Size = 11
-        With myExcel.Selection.Font
-            .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
-            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
-        End With
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
     End Sub
-
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub

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

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class 營運成本收支單一覽表
+Partial Class 財務_收支單一覽表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,11 +23,11 @@ Partial Class 營運成本收支單一覽表
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        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 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()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
         Me.下個月_bt = New System.Windows.Forms.Button()
         Me.上個月_bt = New System.Windows.Forms.Button()
@@ -84,6 +84,9 @@ Partial Class 營運成本收支單一覽表
         Me.財務彙總_dgv = New System.Windows.Forms.DataGridView()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -162,7 +165,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.Red
-        Me.Label2.Location = New System.Drawing.Point(525, 59)
+        Me.Label2.Location = New System.Drawing.Point(504, 59)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(32, 16)
         Me.Label2.TabIndex = 1217
@@ -171,10 +174,10 @@ Partial Class 營運成本收支單一覽表
         '人民幣零用金_tb
         '
         Me.人民幣零用金_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣零用金_tb.Location = New System.Drawing.Point(420, 56)
+        Me.人民幣零用金_tb.Location = New System.Drawing.Point(417, 56)
         Me.人民幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣零用金_tb.Name = "人民幣零用金_tb"
-        Me.人民幣零用金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣零用金_tb.Size = New System.Drawing.Size(85, 23)
         Me.人民幣零用金_tb.TabIndex = 1216
         Me.人民幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -191,17 +194,17 @@ Partial Class 營運成本收支單一覽表
         '人民幣支票_tb
         '
         Me.人民幣支票_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣支票_tb.Location = New System.Drawing.Point(559, 56)
+        Me.人民幣支票_tb.Location = New System.Drawing.Point(537, 56)
         Me.人民幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣支票_tb.Name = "人民幣支票_tb"
-        Me.人民幣支票_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣支票_tb.Size = New System.Drawing.Size(85, 23)
         Me.人民幣支票_tb.TabIndex = 1218
         Me.人民幣支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         '人民幣現金餘額_tb
         '
         Me.人民幣現金餘額_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(1000, 56)
+        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(895, 56)
         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)
@@ -212,19 +215,19 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label13.AutoSize = True
         Me.Label13.ForeColor = System.Drawing.Color.Red
-        Me.Label13.Location = New System.Drawing.Point(942, 60)
+        Me.Label13.Location = New System.Drawing.Point(863, 60)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(32, 16)
         Me.Label13.TabIndex = 1213
-        Me.Label13.Text = "現金餘額"
+        Me.Label13.Text = "總和"
         '
         '人民幣支出_tb
         '
         Me.人民幣支出_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣支出_tb.Location = New System.Drawing.Point(837, 56)
+        Me.人民幣支出_tb.Location = New System.Drawing.Point(776, 56)
         Me.人民幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣支出_tb.Name = "人民幣支出_tb"
-        Me.人民幣支出_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣支出_tb.Size = New System.Drawing.Size(85, 23)
         Me.人民幣支出_tb.TabIndex = 1212
         Me.人民幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -232,7 +235,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label16.AutoSize = True
         Me.Label16.ForeColor = System.Drawing.Color.Red
-        Me.Label16.Location = New System.Drawing.Point(803, 59)
+        Me.Label16.Location = New System.Drawing.Point(744, 59)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(32, 16)
         Me.Label16.TabIndex = 1211
@@ -241,9 +244,9 @@ Partial Class 營運成本收支單一覽表
         '人民幣現金_tb
         '
         Me.人民幣現金_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣現金_tb.Location = New System.Drawing.Point(698, 56)
+        Me.人民幣現金_tb.Location = New System.Drawing.Point(657, 56)
         Me.人民幣現金_tb.Name = "人民幣現金_tb"
-        Me.人民幣現金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣現金_tb.Size = New System.Drawing.Size(85, 23)
         Me.人民幣現金_tb.TabIndex = 1210
         Me.人民幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -251,7 +254,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label17.AutoSize = True
         Me.Label17.ForeColor = System.Drawing.Color.Red
-        Me.Label17.Location = New System.Drawing.Point(664, 59)
+        Me.Label17.Location = New System.Drawing.Point(624, 59)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(32, 16)
         Me.Label17.TabIndex = 1209
@@ -337,7 +340,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label14.AutoSize = True
         Me.Label14.ForeColor = System.Drawing.Color.Green
-        Me.Label14.Location = New System.Drawing.Point(525, 33)
+        Me.Label14.Location = New System.Drawing.Point(504, 33)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(32, 16)
         Me.Label14.TabIndex = 1200
@@ -346,10 +349,10 @@ Partial Class 營運成本收支單一覽表
         '台幣零用金_tb
         '
         Me.台幣零用金_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣零用金_tb.Location = New System.Drawing.Point(420, 30)
+        Me.台幣零用金_tb.Location = New System.Drawing.Point(417, 30)
         Me.台幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣零用金_tb.Name = "台幣零用金_tb"
-        Me.台幣零用金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣零用金_tb.Size = New System.Drawing.Size(85, 23)
         Me.台幣零用金_tb.TabIndex = 1199
         Me.台幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -366,17 +369,17 @@ Partial Class 營運成本收支單一覽表
         '台幣支票_tb
         '
         Me.台幣支票_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣支票_tb.Location = New System.Drawing.Point(559, 30)
+        Me.台幣支票_tb.Location = New System.Drawing.Point(537, 30)
         Me.台幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣支票_tb.Name = "台幣支票_tb"
-        Me.台幣支票_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣支票_tb.Size = New System.Drawing.Size(85, 23)
         Me.台幣支票_tb.TabIndex = 1201
         Me.台幣支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         '台幣現金餘額_tb
         '
         Me.台幣現金餘額_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣現金餘額_tb.Location = New System.Drawing.Point(1000, 30)
+        Me.台幣現金餘額_tb.Location = New System.Drawing.Point(895, 30)
         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)
@@ -387,19 +390,19 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label9.AutoSize = True
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(942, 34)
+        Me.Label9.Location = New System.Drawing.Point(863, 34)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
         Me.Label9.TabIndex = 1196
-        Me.Label9.Text = "現金餘額"
+        Me.Label9.Text = "總和"
         '
         '台幣支出_tb
         '
         Me.台幣支出_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣支出_tb.Location = New System.Drawing.Point(837, 30)
+        Me.台幣支出_tb.Location = New System.Drawing.Point(776, 30)
         Me.台幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣支出_tb.Name = "台幣支出_tb"
-        Me.台幣支出_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣支出_tb.Size = New System.Drawing.Size(85, 23)
         Me.台幣支出_tb.TabIndex = 1195
         Me.台幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -407,7 +410,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Green
-        Me.Label11.Location = New System.Drawing.Point(803, 33)
+        Me.Label11.Location = New System.Drawing.Point(745, 33)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(32, 16)
         Me.Label11.TabIndex = 1194
@@ -463,9 +466,9 @@ Partial Class 營運成本收支單一覽表
         '台幣現金_tb
         '
         Me.台幣現金_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣現金_tb.Location = New System.Drawing.Point(698, 30)
+        Me.台幣現金_tb.Location = New System.Drawing.Point(657, 30)
         Me.台幣現金_tb.Name = "台幣現金_tb"
-        Me.台幣現金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣現金_tb.Size = New System.Drawing.Size(85, 23)
         Me.台幣現金_tb.TabIndex = 1188
         Me.台幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -473,7 +476,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label10.AutoSize = True
         Me.Label10.ForeColor = System.Drawing.Color.Green
-        Me.Label10.Location = New System.Drawing.Point(664, 33)
+        Me.Label10.Location = New System.Drawing.Point(625, 33)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(32, 16)
         Me.Label10.TabIndex = 1187
@@ -483,9 +486,9 @@ Partial Class 營運成本收支單一覽表
         '
         Me.支付單列印成EXCEL.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.支付單列印成EXCEL.ForeColor = System.Drawing.Color.Blue
-        Me.支付單列印成EXCEL.Location = New System.Drawing.Point(1119, 3)
+        Me.支付單列印成EXCEL.Location = New System.Drawing.Point(1010, 29)
         Me.支付單列印成EXCEL.Name = "支付單列印成EXCEL"
-        Me.支付單列印成EXCEL.Size = New System.Drawing.Size(130, 45)
+        Me.支付單列印成EXCEL.Size = New System.Drawing.Size(79, 51)
         Me.支付單列印成EXCEL.TabIndex = 1186
         Me.支付單列印成EXCEL.Text = "支付單列印成EXCEL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.支付單列印成EXCEL.UseVisualStyleBackColor = True
@@ -494,7 +497,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label8.AutoSize = True
         Me.Label8.ForeColor = System.Drawing.Color.Blue
-        Me.Label8.Location = New System.Drawing.Point(980, 7)
+        Me.Label8.Location = New System.Drawing.Point(957, 7)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(32, 16)
         Me.Label8.TabIndex = 1185
@@ -504,7 +507,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.Blue
-        Me.Label7.Location = New System.Drawing.Point(715, 7)
+        Me.Label7.Location = New System.Drawing.Point(697, 7)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(32, 16)
         Me.Label7.TabIndex = 1184
@@ -513,7 +516,7 @@ Partial Class 營運成本收支單一覽表
         '審核日期_dtp
         '
         Me.審核日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.審核日期_dtp.Location = New System.Drawing.Point(1014, 4)
+        Me.審核日期_dtp.Location = New System.Drawing.Point(989, 4)
         Me.審核日期_dtp.Name = "審核日期_dtp"
         Me.審核日期_dtp.Size = New System.Drawing.Size(99, 23)
         Me.審核日期_dtp.TabIndex = 1183
@@ -521,7 +524,7 @@ Partial Class 營運成本收支單一覽表
         '申請日期_dtp
         '
         Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.申請日期_dtp.Location = New System.Drawing.Point(750, 4)
+        Me.申請日期_dtp.Location = New System.Drawing.Point(729, 4)
         Me.申請日期_dtp.Name = "申請日期_dtp"
         Me.申請日期_dtp.Size = New System.Drawing.Size(99, 23)
         Me.申請日期_dtp.TabIndex = 1182
@@ -530,7 +533,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label5.AutoSize = True
         Me.Label5.ForeColor = System.Drawing.Color.Blue
-        Me.Label5.Location = New System.Drawing.Point(859, 7)
+        Me.Label5.Location = New System.Drawing.Point(834, 7)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(44, 16)
         Me.Label5.TabIndex = 1181
@@ -539,7 +542,7 @@ Partial Class 營運成本收支單一覽表
         '審核人_tb
         '
         Me.審核人_tb.ForeColor = System.Drawing.Color.Blue
-        Me.審核人_tb.Location = New System.Drawing.Point(904, 4)
+        Me.審核人_tb.Location = New System.Drawing.Point(878, 4)
         Me.審核人_tb.Name = "審核人_tb"
         Me.審核人_tb.Size = New System.Drawing.Size(74, 23)
         Me.審核人_tb.TabIndex = 1180
@@ -547,7 +550,7 @@ Partial Class 營運成本收支單一覽表
         '申請人_tb
         '
         Me.申請人_tb.ForeColor = System.Drawing.Color.Blue
-        Me.申請人_tb.Location = New System.Drawing.Point(639, 4)
+        Me.申請人_tb.Location = New System.Drawing.Point(617, 4)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(74, 23)
         Me.申請人_tb.TabIndex = 1177
@@ -555,7 +558,7 @@ Partial Class 營運成本收支單一覽表
         '收支單號_tb
         '
         Me.收支單號_tb.ForeColor = System.Drawing.Color.Blue
-        Me.收支單號_tb.Location = New System.Drawing.Point(438, 4)
+        Me.收支單號_tb.Location = New System.Drawing.Point(417, 4)
         Me.收支單號_tb.Name = "收支單號_tb"
         Me.收支單號_tb.Size = New System.Drawing.Size(150, 23)
         Me.收支單號_tb.TabIndex = 1175
@@ -571,8 +574,8 @@ Partial Class 營運成本收支單一覽表
         '
         '單據彙總_dgv
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.單據彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.單據彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.單據彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.單據彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -588,17 +591,17 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.Color.Blue
-        Me.Label1.Location = New System.Drawing.Point(334, 7)
+        Me.Label1.Location = New System.Drawing.Point(336, 7)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.Size = New System.Drawing.Size(80, 16)
         Me.Label1.TabIndex = 1176
-        Me.Label1.Text = "營運成本收支單號"
+        Me.Label1.Text = "財務收支單號"
         '
         'Label3
         '
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.Blue
-        Me.Label3.Location = New System.Drawing.Point(594, 7)
+        Me.Label3.Location = New System.Drawing.Point(573, 7)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 1178
@@ -606,8 +609,8 @@ Partial Class 營運成本收支單一覽表
         '
         '明細_dgv
         '
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        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
         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)
@@ -616,16 +619,16 @@ Partial Class 營運成本收支單一覽表
         Me.明細_dgv.Location = New System.Drawing.Point(342, 82)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(1045, 537)
         Me.明細_dgv.TabIndex = 1179
         '
         '財務彙總_dgv
         '
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.財務彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, 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) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -633,9 +636,10 @@ Partial Class 營運成本收支單一覽表
         Me.財務彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.財務彙總_dgv.Location = New System.Drawing.Point(342, 82)
         Me.財務彙總_dgv.Name = "財務彙總_dgv"
+        Me.財務彙總_dgv.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.None
         Me.財務彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.財務彙總_dgv.RowTemplate.Height = 24
         Me.財務彙總_dgv.Size = New System.Drawing.Size(1045, 537)
         Me.財務彙總_dgv.TabIndex = 1224
@@ -645,12 +649,12 @@ Partial Class 營運成本收支單一覽表
         Me.字體大小調整_lb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1123, 55)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1153, 58)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1495
         Me.字體大小調整_lb.Text = "字體調整"
         '
@@ -658,19 +662,56 @@ Partial Class 營運成本收支單一覽表
         '
         Me.字體_NUD.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1192, 54)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(1214, 55)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
-        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
-        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.Size = New System.Drawing.Size(42, 23)
         Me.字體_NUD.TabIndex = 1494
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
-        '營運成本收支單一覽表
+        '非稅_ch
+        '
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(1096, 56)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.非稅_ch.TabIndex = 1498
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(1095, 30)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.TabIndex = 1497
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(1095, 4)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(51, 20)
+        Me.全部_ch.TabIndex = 1496
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.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(1399, 631)
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.會計月_ch)
@@ -728,8 +769,8 @@ Partial Class 營運成本收支單一覽表
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.ForeColor = System.Drawing.Color.CornflowerBlue
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "營運成本收支單一覽表"
-        Me.Text = "營運成本收支單一覽表"
+        Me.Name = "財務_收支單一覽表"
+        Me.Text = "財務收支單一覽表"
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -797,4 +838,7 @@ Partial Class 營運成本收支單一覽表
     Friend WithEvents 財務彙總_dgv As DataGridView
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
 End Class

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

@@ -8,7 +8,7 @@ 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 營運成本收支單一覽表
+Public Class 財務_收支單一覽表
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer
     Dim xlApp As Application
@@ -33,6 +33,13 @@ Public Class 營運成本收支單一覽表
         財務彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         財務彙總_dgv.ColumnHeadersHeight = 25
         財務彙總_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)"
+        End If
         SQL_營運成本收支單一覽表_查詢清單2() : da.Fill(ds2) : 財務彙總_dgv.DataSource = ds2.Tables(0) : conn.Close()
 
         財務彙總_dgv.Columns(0).FillWeight = 100 : 財務彙總_dgv.Columns(1).FillWeight = 140 : 財務彙總_dgv.Columns(2).FillWeight = 140 : 財務彙總_dgv.Columns(3).FillWeight = 140
@@ -56,6 +63,13 @@ Public Class 營運成本收支單一覽表
         明細_dgv.ColumnHeadersHeight = 25
         明細_dgv.AllowUserToAddRows = False
         明細_dgv.RowTemplate.Height = 35
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)"
+        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).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
@@ -74,7 +88,6 @@ Public Class 營運成本收支單一覽表
         明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
         台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00"
         人民幣零用金_tb.Text = "0.00" : 人民幣支票_tb.Text = "0.00" : 人民幣現金_tb.Text = "0.00" : 人民幣支出_tb.Text = "0.00" : 人民幣現金餘額_tb.Text = "0.00"
@@ -123,6 +136,37 @@ Public Class 營運成本收支單一覽表
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
         日期格式() : 財務彙總_dgv.Visible = False : 明細_rb.Checked = True
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 財務彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 財務彙總_dgv.MouseUp
+        'If 財務彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(財務彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 財務彙總_dgv.SelectedCells(0).RowIndex) : End If
+        If 財務彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 財務彙總_dgv.SelectedCells.Count > 0 Then
+            If 財務彙總_dgv.SelectedCells(0).ColumnIndex >= 4 And 財務彙總_dgv.SelectedCells(0).ColumnIndex <= 7 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 財務彙總_dgv.SelectedCells.Count - 1
+                        x += Val(財務彙總_dgv.Rows(財務彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(財務彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
+        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 明細_dgv.SelectedCells.Count > 0 Then
+            If 明細_dgv.SelectedCells(0).ColumnIndex >= 4 And 明細_dgv.SelectedCells(0).ColumnIndex <= 7 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1
+                        x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
     Private Sub 單據彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單據彙總_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             收支單號_tb.Text = 單據彙總_dgv(0, e.RowIndex).Value.ToString : 驗證碼_tb.Text = 單據彙總_dgv(6, e.RowIndex).Value.ToString
@@ -160,6 +204,15 @@ Public Class 營運成本收支單一覽表
             End If
         End If
     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_費用清單() : 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_費用清單() : 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_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 當日_bt.Click
         DTP = Strings.Format(Today(), "yyyy/MM/dd")
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP

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

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單審核
+Partial Class 財務_收支單審核
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,9 +23,9 @@ Partial Class 營運成本收支單審核
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim 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()
         Me.圖片編碼_tb = New System.Windows.Forms.TextBox()
         Me.驗證碼_tb = New System.Windows.Forms.TextBox()
         Me.Label20 = New System.Windows.Forms.Label()
@@ -353,8 +353,8 @@ Partial Class 營運成本收支單審核
         '
         '彙總_dgv
         '
-        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
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -421,8 +421,8 @@ Partial Class 營運成本收支單審核
         '
         '明細_dgv
         '
-        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
+        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
         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)
@@ -432,8 +432,8 @@ Partial Class 營運成本收支單審核
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(896, 520)
         Me.明細_dgv.TabIndex = 968
@@ -479,7 +479,7 @@ Partial Class 營運成本收支單審核
         Me.簽名圖_pb.TabIndex = 989
         Me.簽名圖_pb.TabStop = False
         '
-        '營運成本收支單審核
+        '財務_收支單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -521,9 +521,9 @@ Partial Class 營運成本收支單審核
         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.Name = "財務_收支單審核"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
-        Me.Text = "營運成本收支單審核"
+        Me.Text = "財務收支單審核"
         CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)

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

@@ -1,5 +1,5 @@
 Option Strict Off
-Public Class 營運成本收支單審核
+Public Class 財務_收支單審核
     ReadOnly ds, ds1, ds2 As New DataSet
     'Dim dr As SqlDataReader
     Private ReadOnly QQW(11) As String

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

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單申請
+Partial Class 財務_收支單申請
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -650,7 +650,7 @@ Partial Class 營運成本收支單申請
         Me.Label16.TabIndex = 1501
         Me.Label16.Text = "1、先開立財務收支單，在選會計科目。"
         '
-        '營運成本收支單申請
+        '財務_收支單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -711,9 +711,9 @@ Partial Class 營運成本收支單申請
         Me.Controls.Add(Me.Label6)
         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.Name = "財務_收支單申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
-        Me.Text = "營運成本收支單申請"
+        Me.Text = "財務收支單申請"
         CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()

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

@@ -1,6 +1,6 @@
 Option Strict Off
 Imports System.Data.SqlClient
-Public Class 營運成本收支單申請
+Public Class 財務_收支單申請
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
     Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String
     Dim NUM1 As Integer : Dim 匯率1 As Double

YD-ERP-SYS/財務系統管理/營運報表.Designer.vb → YD-ERP-SYS/財務系統管理/財務_決算表.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運報表
+Partial Class 財務_決算表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -22,19 +22,19 @@ Partial Class 營運報表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.TextBox77 = New System.Windows.Forms.TextBox()
         Me.TextBox78 = New System.Windows.Forms.TextBox()
         Me.TextBox79 = New System.Windows.Forms.TextBox()
@@ -162,6 +162,9 @@ Partial Class 營運報表
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.計算基礎_ch = New System.Windows.Forms.ComboBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
         CType(Me.月12_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月11_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月10_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -916,7 +919,7 @@ Partial Class 營運報表
         '
         Me.TextBox29.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox29.Location = New System.Drawing.Point(597, 802)
+        Me.TextBox29.Location = New System.Drawing.Point(601, 802)
         Me.TextBox29.Name = "TextBox29"
         Me.TextBox29.Size = New System.Drawing.Size(116, 23)
         Me.TextBox29.TabIndex = 1278
@@ -1406,8 +1409,8 @@ Partial Class 營運報表
         Me.月12_dgv.Location = New System.Drawing.Point(1781, 28)
         Me.月12_dgv.Name = "月12_dgv"
         Me.月12_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月12_dgv.RowsDefaultCellStyle = DataGridViewCellStyle40
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月12_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.月12_dgv.RowTemplate.Height = 24
         Me.月12_dgv.Size = New System.Drawing.Size(116, 720)
         Me.月12_dgv.TabIndex = 1235
@@ -1421,8 +1424,8 @@ Partial Class 營運報表
         Me.月11_dgv.Location = New System.Drawing.Point(1663, 28)
         Me.月11_dgv.Name = "月11_dgv"
         Me.月11_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月11_dgv.RowsDefaultCellStyle = DataGridViewCellStyle41
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月11_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.月11_dgv.RowTemplate.Height = 24
         Me.月11_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月11_dgv.TabIndex = 1234
@@ -1436,8 +1439,8 @@ Partial Class 營運報表
         Me.月10_dgv.Location = New System.Drawing.Point(1545, 28)
         Me.月10_dgv.Name = "月10_dgv"
         Me.月10_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月10_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月10_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.月10_dgv.RowTemplate.Height = 24
         Me.月10_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月10_dgv.TabIndex = 1233
@@ -1451,8 +1454,8 @@ Partial Class 營運報表
         Me.月9_dgv.Location = New System.Drawing.Point(1427, 28)
         Me.月9_dgv.Name = "月9_dgv"
         Me.月9_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle43
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.月9_dgv.RowTemplate.Height = 24
         Me.月9_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月9_dgv.TabIndex = 1232
@@ -1466,8 +1469,8 @@ Partial Class 營運報表
         Me.月8_dgv.Location = New System.Drawing.Point(1309, 28)
         Me.月8_dgv.Name = "月8_dgv"
         Me.月8_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle44
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.月8_dgv.RowTemplate.Height = 24
         Me.月8_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月8_dgv.TabIndex = 1231
@@ -1481,8 +1484,8 @@ Partial Class 營運報表
         Me.月7_dgv.Location = New System.Drawing.Point(1191, 28)
         Me.月7_dgv.Name = "月7_dgv"
         Me.月7_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.月7_dgv.RowTemplate.Height = 24
         Me.月7_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月7_dgv.TabIndex = 1230
@@ -1496,8 +1499,8 @@ Partial Class 營運報表
         Me.月6_dgv.Location = New System.Drawing.Point(1073, 28)
         Me.月6_dgv.Name = "月6_dgv"
         Me.月6_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle46
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
         Me.月6_dgv.RowTemplate.Height = 24
         Me.月6_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月6_dgv.TabIndex = 1229
@@ -1511,8 +1514,8 @@ Partial Class 營運報表
         Me.月5_dgv.Location = New System.Drawing.Point(955, 28)
         Me.月5_dgv.Name = "月5_dgv"
         Me.月5_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.月5_dgv.RowTemplate.Height = 24
         Me.月5_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月5_dgv.TabIndex = 1228
@@ -1526,8 +1529,8 @@ Partial Class 營運報表
         Me.月4_dgv.Location = New System.Drawing.Point(837, 28)
         Me.月4_dgv.Name = "月4_dgv"
         Me.月4_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle48
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.月4_dgv.RowTemplate.Height = 24
         Me.月4_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月4_dgv.TabIndex = 1227
@@ -1541,8 +1544,8 @@ Partial Class 營運報表
         Me.月3_dgv.Location = New System.Drawing.Point(719, 28)
         Me.月3_dgv.Name = "月3_dgv"
         Me.月3_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle49
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.月3_dgv.RowTemplate.Height = 24
         Me.月3_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月3_dgv.TabIndex = 1226
@@ -1556,8 +1559,8 @@ Partial Class 營運報表
         Me.月2_dgv.Location = New System.Drawing.Point(601, 28)
         Me.月2_dgv.Name = "月2_dgv"
         Me.月2_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle11
         Me.月2_dgv.RowTemplate.Height = 24
         Me.月2_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月2_dgv.TabIndex = 1225
@@ -1571,8 +1574,8 @@ Partial Class 營運報表
         Me.月1_dgv.Location = New System.Drawing.Point(483, 28)
         Me.月1_dgv.Name = "月1_dgv"
         Me.月1_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.月1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle51
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.月1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.月1_dgv.RowTemplate.Height = 24
         Me.月1_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月1_dgv.TabIndex = 1224
@@ -1607,8 +1610,8 @@ Partial Class 營運報表
         Me.主表_dgv.Location = New System.Drawing.Point(8, 28)
         Me.主表_dgv.Name = "主表_dgv"
         Me.主表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle52
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
         Me.主表_dgv.RowTemplate.Height = 24
         Me.主表_dgv.Size = New System.Drawing.Size(493, 720)
         Me.主表_dgv.TabIndex = 1221
@@ -1655,15 +1658,53 @@ Partial Class 營運報表
         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.PictureBox1.Location = New System.Drawing.Point(8, 754)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(288, 171)
+        Me.PictureBox1.Size = New System.Drawing.Size(288, 146)
         Me.PictureBox1.TabIndex = 1501
         Me.PictureBox1.TabStop = False
         '
-        '營運報表
+        '非稅_ch
+        '
+        Me.非稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(245, 904)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.非稅_ch.TabIndex = 1508
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(188, 904)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.TabIndex = 1507
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(131, 904)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(51, 20)
+        Me.全部_ch.TabIndex = 1506
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.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(1900, 929)
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.計算基礎_ch)
         Me.Controls.Add(Me.字體大小調整_lb)
@@ -1793,8 +1834,8 @@ Partial Class 營運報表
         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 = "營運報表"
+        Me.Name = "財務_決算表"
+        Me.Text = "財務決算表"
         CType(Me.月12_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.月11_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.月10_dgv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1942,4 +1983,7 @@ Partial Class 營運報表
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 計算基礎_ch As ComboBox
     Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
 End Class

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

@@ -1,6 +1,6 @@
 Option Strict Off
 Imports System.Data.SqlClient
-Public Class 營運報表
+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 ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet : ReadOnly ds10 As New DataSet : ReadOnly ds11 As New DataSet
     ReadOnly ds12 As New DataSet
@@ -55,12 +55,30 @@ Public Class 營運報表
     End Sub
     Private Sub Set_清單()
         Set_DGV2開始()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢清單()
         Set_DGV2結束()
     End Sub
     Private Sub Set_清單1()
         月1_dgv.DataSource = Nothing : ds.Clear() : 月1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月1_dgv.ColumnHeadersHeight = 50 : 月1_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢一月份清單() : da.Fill(ds) : 月1_dgv.DataSource = ds.Tables(0) : conn.Close()
         月1_dgv.Columns(0).FillWeight = 20 : 月1_dgv.Columns(1).Visible = False : 月1_dgv.Columns(2).Visible = False : 月1_dgv.Columns(3).Visible = False
         月1_dgv.Columns(4).Visible = False : 月1_dgv.Columns(5).Visible = False : 月1_dgv.Columns(6).Visible = False : 月1_dgv.Columns(7).Visible = False
@@ -95,6 +113,15 @@ Public Class 營運報表
     Private Sub Set_清單2()
         月2_dgv.DataSource = Nothing : ds1.Clear() : 月2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月2_dgv.ColumnHeadersHeight = 50 : 月2_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢二月份清單() : da.Fill(ds1) : 月2_dgv.DataSource = ds1.Tables(0) : conn.Close()
         月2_dgv.Columns(0).FillWeight = 20 : 月2_dgv.Columns(1).Visible = False : 月2_dgv.Columns(2).Visible = False : 月2_dgv.Columns(3).Visible = False
         月2_dgv.Columns(4).Visible = False : 月2_dgv.Columns(5).Visible = False : 月2_dgv.Columns(6).Visible = False : 月2_dgv.Columns(7).Visible = False
@@ -136,6 +163,15 @@ Public Class 營運報表
     Private Sub Set_清單3()
         月3_dgv.DataSource = Nothing : ds3.Clear() : 月3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月3_dgv.ColumnHeadersHeight = 50 : 月3_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢三月份清單() : da.Fill(ds3) : 月3_dgv.DataSource = ds3.Tables(0) : conn.Close()
         月3_dgv.Columns(0).FillWeight = 20 : 月3_dgv.Columns(1).Visible = False : 月3_dgv.Columns(2).Visible = False : 月3_dgv.Columns(3).Visible = False
         月3_dgv.Columns(4).Visible = False : 月3_dgv.Columns(5).Visible = False : 月3_dgv.Columns(6).Visible = False : 月3_dgv.Columns(7).Visible = False
@@ -177,6 +213,15 @@ Public Class 營運報表
     Private Sub Set_清單4()
         月4_dgv.DataSource = Nothing : ds4.Clear() : 月4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月4_dgv.ColumnHeadersHeight = 50 : 月4_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢四月份清單() : da.Fill(ds4) : 月4_dgv.DataSource = ds4.Tables(0) : conn.Close()
         月4_dgv.Columns(0).FillWeight = 20 : 月4_dgv.Columns(1).Visible = False : 月4_dgv.Columns(2).Visible = False : 月4_dgv.Columns(3).Visible = False
         月4_dgv.Columns(4).Visible = False : 月4_dgv.Columns(5).Visible = False : 月4_dgv.Columns(6).Visible = False : 月4_dgv.Columns(7).Visible = False
@@ -218,6 +263,15 @@ Public Class 營運報表
     Private Sub Set_清單5()
         月5_dgv.DataSource = Nothing : ds5.Clear() : 月5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月5_dgv.ColumnHeadersHeight = 50 : 月5_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢五月份清單() : da.Fill(ds5) : 月5_dgv.DataSource = ds5.Tables(0) : conn.Close()
         月5_dgv.Columns(0).FillWeight = 20 : 月5_dgv.Columns(1).Visible = False : 月5_dgv.Columns(2).Visible = False : 月5_dgv.Columns(3).Visible = False
         月5_dgv.Columns(4).Visible = False : 月5_dgv.Columns(5).Visible = False : 月5_dgv.Columns(6).Visible = False : 月5_dgv.Columns(7).Visible = False
@@ -259,6 +313,15 @@ Public Class 營運報表
     Private Sub Set_清單6()
         月6_dgv.DataSource = Nothing : ds6.Clear() : 月6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月6_dgv.ColumnHeadersHeight = 50 : 月6_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢六月份清單() : da.Fill(ds6) : 月6_dgv.DataSource = ds6.Tables(0) : conn.Close()
         月6_dgv.Columns(0).FillWeight = 20 : 月6_dgv.Columns(1).Visible = False : 月6_dgv.Columns(2).Visible = False : 月6_dgv.Columns(3).Visible = False
         月6_dgv.Columns(4).Visible = False : 月6_dgv.Columns(5).Visible = False : 月6_dgv.Columns(6).Visible = False : 月6_dgv.Columns(7).Visible = False
@@ -300,6 +363,15 @@ Public Class 營運報表
     Private Sub Set_清單7()
         月7_dgv.DataSource = Nothing : ds7.Clear() : 月7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月7_dgv.ColumnHeadersHeight = 50 : 月7_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢七月份清單() : da.Fill(ds7) : 月7_dgv.DataSource = ds7.Tables(0) : conn.Close()
         月7_dgv.Columns(0).FillWeight = 20 : 月7_dgv.Columns(1).Visible = False : 月7_dgv.Columns(2).Visible = False : 月7_dgv.Columns(3).Visible = False
         月7_dgv.Columns(4).Visible = False : 月7_dgv.Columns(5).Visible = False : 月7_dgv.Columns(6).Visible = False : 月7_dgv.Columns(7).Visible = False
@@ -341,6 +413,15 @@ Public Class 營運報表
     Private Sub Set_清單8()
         月8_dgv.DataSource = Nothing : ds8.Clear() : 月8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月8_dgv.ColumnHeadersHeight = 50 : 月8_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢八月份清單() : da.Fill(ds8) : 月8_dgv.DataSource = ds8.Tables(0) : conn.Close()
         月8_dgv.Columns(0).FillWeight = 20 : 月8_dgv.Columns(1).Visible = False : 月8_dgv.Columns(2).Visible = False : 月8_dgv.Columns(3).Visible = False
         月8_dgv.Columns(4).Visible = False : 月8_dgv.Columns(5).Visible = False : 月8_dgv.Columns(6).Visible = False : 月8_dgv.Columns(7).Visible = False
@@ -382,6 +463,15 @@ Public Class 營運報表
     Private Sub Set_清單9()
         月9_dgv.DataSource = Nothing : ds9.Clear() : 月9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月9_dgv.ColumnHeadersHeight = 50 : 月9_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢九月份清單() : da.Fill(ds9) : 月9_dgv.DataSource = ds9.Tables(0) : conn.Close()
         月9_dgv.Columns(0).FillWeight = 20 : 月9_dgv.Columns(1).Visible = False : 月9_dgv.Columns(2).Visible = False : 月9_dgv.Columns(3).Visible = False
         月9_dgv.Columns(4).Visible = False : 月9_dgv.Columns(5).Visible = False : 月9_dgv.Columns(6).Visible = False : 月9_dgv.Columns(7).Visible = False
@@ -423,6 +513,15 @@ Public Class 營運報表
     Private Sub Set_清單10()
         月10_dgv.DataSource = Nothing : ds10.Clear() : 月10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月10_dgv.ColumnHeadersHeight = 50 : 月10_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢十月份清單() : da.Fill(ds10) : 月10_dgv.DataSource = ds10.Tables(0) : conn.Close()
         月10_dgv.Columns(0).FillWeight = 20 : 月10_dgv.Columns(1).Visible = False : 月10_dgv.Columns(2).Visible = False : 月10_dgv.Columns(3).Visible = False
         月10_dgv.Columns(4).Visible = False : 月10_dgv.Columns(5).Visible = False : 月10_dgv.Columns(6).Visible = False : 月10_dgv.Columns(7).Visible = False
@@ -464,6 +563,15 @@ Public Class 營運報表
     Private Sub Set_清單11()
         月11_dgv.DataSource = Nothing : ds11.Clear() : 月11_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月11_dgv.ColumnHeadersHeight = 50 : 月11_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢十一月份清單() : da.Fill(ds11) : 月11_dgv.DataSource = ds11.Tables(0) : conn.Close()
         月11_dgv.Columns(0).FillWeight = 20 : 月11_dgv.Columns(1).Visible = False : 月11_dgv.Columns(2).Visible = False : 月11_dgv.Columns(3).Visible = False
         月11_dgv.Columns(4).Visible = False : 月11_dgv.Columns(5).Visible = False : 月11_dgv.Columns(6).Visible = False : 月11_dgv.Columns(7).Visible = False
@@ -505,6 +613,15 @@ Public Class 營運報表
     Private Sub Set_清單12()
         月12_dgv.DataSource = Nothing : ds12.Clear() : 月12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月12_dgv.ColumnHeadersHeight = 50 : 月12_dgv.AllowUserToAddRows = False
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
+        End If
         SQL_營運報表_查詢十二月份清單() : da.Fill(ds12) : 月12_dgv.DataSource = ds12.Tables(0) : conn.Close()
         月12_dgv.Columns(0).FillWeight = 30 : 月12_dgv.Columns(1).Visible = False : 月12_dgv.Columns(2).Visible = False : 月12_dgv.Columns(3).Visible = False
         月12_dgv.Columns(4).Visible = False : 月12_dgv.Columns(5).Visible = False : 月12_dgv.Columns(6).Visible = False : 月12_dgv.Columns(7).Visible = False
@@ -628,6 +745,15 @@ Public Class 營運報表
         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
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : 重新整理_bt.PerformClick()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : 重新整理_bt.PerformClick()
+    End Sub
+    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : 重新整理_bt.PerformClick()
+    End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         月1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
         月2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)