20210911備份

YD-ERP-SYS/Module/SQL_Module.vb

 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

                             倉儲明細表 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

                                         電話 = 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

                             供應商資料表 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
                             供應商資料表 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()
                             供應商資料表 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
                             供應商資料表 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()
                                                               供應商資料表 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.進度條用空白
                                                               供應商資料表 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.進度條用空白
                             供應商資料表 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

                            銷售明細表 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   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用
                            銷售明細表 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   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價
                 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   銷售控制表.單號"
                 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

                             公帳流水帳.銀行 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_營運成本收支單申請_查詢最後一筆公帳控制表會計科目()
     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
     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_會計科目管理_修改收支單申請表()
         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_營運成本收支單申請_查詢最後一筆公帳支付單號()
         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
                             出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
                    "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()
         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
     '---------------------營運成本收支單審核.------------------------------------------------------------------------------------------------------------------------------------------
     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_營運成本收支單審核_查詢收支單審核()
                             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
     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_營運成本收支單審核_修改公帳控制表_應負帳款用()
     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_營運成本收支單審核_修改公帳流水帳_應付帳款用()
     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_營運成本收支單審核_修改公帳流水帳支出_應付帳款用()
         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
                 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)"
                             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
     '---------------------營運成本收支單_對帳表.----------------------------------------------------------------------------------------------------------------------------------------------
                 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
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
                                (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, 會計科目.編號"
     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

     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_銷售控制表_刪除()
                             倉儲明細表 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

     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

     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()
         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()
         '
         '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)
         '著作權_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
         '
         '
         '銷售單據_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
         '
         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!)
     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

     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
     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
     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

     <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">
     <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

-7306029ad47280a03329fef82e4399e994c6e258
+a295a2c2a91acb30ae4591c544c591a7f823e28f

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

 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
 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

 
         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_合記計算()
         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

             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

             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

 
         收款事項_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"
         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
             字體_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
                         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
             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

 
         收款事項_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"
             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
             字體_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
             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
 
                         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
             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

             End If
             銷售明細_dgv("項次", i).Value = i + 1
         Next
-        銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
     Private Sub Set_清單5()
         銷售備註_dgv.DataSource = Nothing : ds5.Clear()
         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()
 
         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()
         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_下拉表單資料載入()
             銷售合計_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
             字體_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
     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

             字體_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

         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()
         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()
         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()
         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
         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))
         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)
         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))
         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)
         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

         運費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()
         稅金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()
         銷售明細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()
         銷售它項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()
         銷售備註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()
             字體_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

 
         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_合記計算()
             銷售合計_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
                 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
 
                 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
 
                 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
 
                 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
 
             銷售合計_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
             銷售合計_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
             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

 
         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_合記計算()
             銷售合計_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
                 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
 
                 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
 
                 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
 
             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
 
                 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
 
             銷售合計_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
             銷售合計_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

         未完單_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

             字體_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

         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()
         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)
         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 = "業績運費明細表"
     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

             字體_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

     <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()
         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()
         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)
         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)
         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
         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
         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)
         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()
     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

         明細_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
             字體_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")
         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
         損益_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
     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
         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 & ""
     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
         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

 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class 營運成本收支單一覽表
+Partial Class 財務_收支單一覽表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
     <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()
         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()
         '
         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
         '人民幣零用金_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
         '
         '人民幣支票_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)
         '
         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
         '
         '
         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
         '人民幣現金_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
         '
         '
         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
         '
         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
         '台幣零用金_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
         '
         '台幣支票_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)
         '
         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
         '
         '
         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
         '台幣現金_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
         '
         '
         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
         '
         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
         '
         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
         '
         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
         '審核日期_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
         '申請日期_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
         '
         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
         '審核人_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
         '申請人_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
         '收支單號_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
         '
         '單據彙總_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
         '
         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
         '
         '明細_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)
         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)
         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
         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 = "字體調整"
         '
         '
         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)
         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()
     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

 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
         財務彙總_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
         明細_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
         明細_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"
         開始日期_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
             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

 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單審核
+Partial Class 財務_收支單審核
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
     <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()
         '
         '彙總_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
         '
         '明細_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)
         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
         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
         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

 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

 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單申請
+Partial Class 財務_收支單申請
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
         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
         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

 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

 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運報表
+Partial Class 財務_決算表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
     '請勿使用程式碼編輯器進行修改。
     <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()
         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()
         '
         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
         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
         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
         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
         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
         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
         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
         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
         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
         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
         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
         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
         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
         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
         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)
         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()
     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

 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
     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
     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
     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
     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
     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
     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
     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
     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
     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
     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
     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
     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
         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)