20220903備份

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

@@ -483,49 +483,31 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_查詢最後一筆年份清單()
-        ConnOpen()
-        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改會計()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 會計 = N'0' WHERE (會計 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 會計 = N'0' WHERE (會計 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改出納()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 出納 = N'0' WHERE (出納 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 出納 = N'0' WHERE (出納 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改現金()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 現金 = N'0' WHERE (現金 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 現金 = N'0' WHERE (現金 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改備用金()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 備用金 = N'0' WHERE (備用金 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 備用金 = N'0' WHERE (備用金 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改公帳()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 公帳 = N'0' WHERE (公帳 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 公帳 = N'0' WHERE (公帳 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改支票()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 支票 = N'0' WHERE (支票 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 支票 = N'0' WHERE (支票 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改日期()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 日期 = N'' WHERE (日期 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 日期 = N'' WHERE (日期 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改出納日期()
-        ConnOpen()
-        SQL1 = "UPDATE 公帳流水帳 SET 出納日期 = N'' WHERE (出納日期 IS NULL)"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 公帳流水帳 SET 出納日期 = N'' WHERE (出納日期 IS NULL)" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單對帳表_修改對帳記錄存檔()
         ConnOpen()
@@ -536,342 +518,61 @@
     End Sub
     '---------------------營運報表.-------------------------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運報表_年份查詢()
-        ConnOpen()
-        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運報表_查詢清單()
         ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
+                            EERR.細項金額
                 FROM        會計科目 FULL OUTER JOIN
-                               (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.支付單號
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) 
+                                       AS 細項金額
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號 INNER JOIN
+                                       會計科目 AS 會計科目_3 ON 公帳流水帳_3.類別 = 會計科目_3.編號
                                 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.支付單號
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號 INNER JOIN
+                                       會計科目 AS 會計科目_2 ON 公帳流水帳_2.類別 = 會計科目_2.編號
                                 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.支付單號
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號 INNER JOIN
+                                       會計科目 AS 會計科目_1 ON 公帳流水帳_1.類別 = 會計科目_1.編號
                                 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, 會計科目.編號"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_營運報表_查詢一月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢二月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢三月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢四月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢五月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢六月份清單()
+    Friend Sub SQL_營運報表_查詢單月份清單()
         ConnOpen()
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢七月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢八月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢九月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢十月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢十一月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & SQL4 & "
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) 
+                                       AS 細項金額
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號 INNER JOIN
+                                       會計科目 AS 會計科目_3 ON 公帳流水帳_3.類別 = 會計科目_3.編號
+                                WHERE (LEFT(公帳控制表_3. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/" & PA36 & "') AND (會計科目_3.顯示 = 1) " & 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') " & SQL3 & "
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號 INNER JOIN
+                                       會計科目 AS 會計科目_2 ON 公帳流水帳_2.類別 = 會計科目_2.編號
+                                WHERE (LEFT(公帳控制表_2. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/" & PA36 & "') AND (會計科目_2.顯示 = 1) " & 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') " & SQL2 & "
-                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
-                WHERE     (會計科目.顯示 = 1)
-                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_營運報表_查詢十二月份清單()
-        ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
-                            EERR.細項金額, EERR.細項金額 AS [金額]
-                FROM        會計科目 FULL OUTER JOIN
-                               (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') " & 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') " & 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') " & SQL2 & "
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號 INNER JOIN
+                                       會計科目 AS 會計科目_1 ON 公帳流水帳_1.類別 = 會計科目_1.編號
+                                WHERE (LEFT(公帳控制表_1. " & 財務_決算表.計算基礎_ch.Text & ",7) LIKE N'" & 財務_決算表.年份_cb.Text & "/" & PA36 & "') AND (會計科目_1.顯示 = 1) " & SQL2 & "
                                 GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -879,10 +580,11 @@
     End Sub
     Friend Sub SQL_營運報表_查詢會計科目()
         ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
+                            EERR.細項金額
                 FROM        會計科目 FULL OUTER JOIN
-                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
-                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) 
+                                       AS 細項金額
                                 FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
                                 GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN

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

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022071001"
+    Public 版本 As String = "2022081001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

@@ -23,9 +23,9 @@ Partial Class 財務_收支單申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.美金匯率_tb = New System.Windows.Forms.TextBox()
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
@@ -209,7 +209,7 @@ Partial Class 財務_收支單申請
         Me.已核准的營運成本收支單_rb.Location = New System.Drawing.Point(9, 26)
         Me.已核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.已核准的營運成本收支單_rb.Name = "已核准的營運成本收支單_rb"
-        Me.已核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
+        Me.已核准的營運成本收支單_rb.Size = New System.Drawing.Size(157, 20)
         Me.已核准的營運成本收支單_rb.TabIndex = 929
         Me.已核准的營運成本收支單_rb.TabStop = True
         Me.已核准的營運成本收支單_rb.Text = "已核准的營運成本收支單"
@@ -229,7 +229,7 @@ Partial Class 財務_收支單申請
         Me.Label11.AutoSize = True
         Me.Label11.Location = New System.Drawing.Point(590, 113)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.Size = New System.Drawing.Size(31, 16)
         Me.Label11.TabIndex = 927
         Me.Label11.Text = "支票"
         '
@@ -247,7 +247,7 @@ Partial Class 財務_收支單申請
         Me.Label10.AutoSize = True
         Me.Label10.Location = New System.Drawing.Point(455, 113)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(44, 16)
+        Me.Label10.Size = New System.Drawing.Size(43, 16)
         Me.Label10.TabIndex = 925
         Me.Label10.Text = "零用金"
         '
@@ -266,7 +266,7 @@ Partial Class 財務_收支單申請
         Me.Label9.AutoSize = True
         Me.Label9.Location = New System.Drawing.Point(961, 113)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
         Me.Label9.TabIndex = 923
         Me.Label9.Text = "合計"
         '
@@ -284,7 +284,7 @@ Partial Class 財務_收支單申請
         Me.Label5.AutoSize = True
         Me.Label5.Location = New System.Drawing.Point(838, 113)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
         Me.Label5.TabIndex = 921
         Me.Label5.Text = "支出"
         '
@@ -295,7 +295,7 @@ Partial Class 財務_收支單申請
         Me.補單_cb.CheckState = System.Windows.Forms.CheckState.Checked
         Me.補單_cb.Location = New System.Drawing.Point(739, 26)
         Me.補單_cb.Name = "補單_cb"
-        Me.補單_cb.Size = New System.Drawing.Size(39, 20)
+        Me.補單_cb.Size = New System.Drawing.Size(38, 20)
         Me.補單_cb.TabIndex = 920
         Me.補單_cb.Text = "補"
         Me.補單_cb.UseVisualStyleBackColor = True
@@ -306,7 +306,7 @@ Partial Class 財務_收支單申請
         Me.Label4.ForeColor = System.Drawing.Color.Blue
         Me.Label4.Location = New System.Drawing.Point(613, 26)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 919
         Me.Label4.Text = "日期"
         '
@@ -342,7 +342,7 @@ Partial Class 財務_收支單申請
         Me.Label8.AutoSize = True
         Me.Label8.Location = New System.Drawing.Point(714, 113)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
         Me.Label8.TabIndex = 913
         Me.Label8.Text = "收入"
         '
@@ -371,7 +371,7 @@ Partial Class 財務_收支單申請
         Me.Label28.AutoSize = True
         Me.Label28.Location = New System.Drawing.Point(387, 114)
         Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(44, 16)
+        Me.Label28.Size = New System.Drawing.Size(43, 16)
         Me.Label28.TabIndex = 910
         Me.Label28.Text = "項次。"
         '
@@ -380,7 +380,7 @@ Partial Class 財務_收支單申請
         Me.Label27.AutoSize = True
         Me.Label27.Location = New System.Drawing.Point(322, 114)
         Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(32, 16)
+        Me.Label27.Size = New System.Drawing.Size(31, 16)
         Me.Label27.TabIndex = 909
         Me.Label27.Text = "選擇"
         '
@@ -389,7 +389,7 @@ Partial Class 財務_收支單申請
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(501, 26)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 907
         Me.Label3.Text = "申請人"
         '
@@ -416,7 +416,7 @@ Partial Class 財務_收支單申請
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(321, 27)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
         Me.Label1.TabIndex = 905
         Me.Label1.Text = "收支單號"
         '
@@ -426,7 +426,7 @@ Partial Class 財務_收支單申請
         Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(173, 3)
         Me.作廢的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.作廢的營運成本收支單_rb.Name = "作廢的營運成本收支單_rb"
-        Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(146, 20)
+        Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(145, 20)
         Me.作廢的營運成本收支單_rb.TabIndex = 903
         Me.作廢的營運成本收支單_rb.TabStop = True
         Me.作廢的營運成本收支單_rb.Text = "作廢的營運成本收支單"
@@ -439,7 +439,7 @@ Partial Class 財務_收支單申請
         Me.未核准的營運成本收支單_rb.Location = New System.Drawing.Point(9, 3)
         Me.未核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.未核准的營運成本收支單_rb.Name = "未核准的營運成本收支單_rb"
-        Me.未核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
+        Me.未核准的營運成本收支單_rb.Size = New System.Drawing.Size(157, 20)
         Me.未核准的營運成本收支單_rb.TabIndex = 902
         Me.未核准的營運成本收支單_rb.TabStop = True
         Me.未核准的營運成本收支單_rb.Text = "未核准的營運成本收支單"
@@ -450,14 +450,14 @@ Partial Class 財務_收支單申請
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(322, 83)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
         Me.Label2.TabIndex = 917
         Me.Label2.Text = "會計科目"
         '
         '營運收支單_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.營運收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.營運收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.營運收支單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.營運收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -485,8 +485,8 @@ Partial Class 財務_收支單申請
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -497,8 +497,8 @@ Partial Class 財務_收支單申請
         Me.明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細表_dgv.Name = "明細表_dgv"
         Me.明細表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.明細表_dgv.RowTemplate.Height = 24
         Me.明細表_dgv.Size = New System.Drawing.Size(927, 471)
         Me.明細表_dgv.TabIndex = 908
@@ -558,7 +558,7 @@ Partial Class 財務_收支單申請
         Me.Label7.AutoSize = True
         Me.Label7.Location = New System.Drawing.Point(321, 37)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(873, 16)
+        Me.Label7.Size = New System.Drawing.Size(872, 16)
         Me.Label7.TabIndex = 948
         Me.Label7.Text = "_________________________________________________________________________________" &
     "________________________________________________________________________________" &
@@ -570,7 +570,7 @@ Partial Class 財務_收支單申請
         Me.Label12.AutoSize = True
         Me.Label12.Location = New System.Drawing.Point(378, 37)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(873, 16)
+        Me.Label12.Size = New System.Drawing.Size(872, 16)
         Me.Label12.TabIndex = 949
         Me.Label12.Text = "_________________________________________________________________________________" &
     "________________________________________________________________________________" &
@@ -586,7 +586,7 @@ Partial Class 財務_收支單申請
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.字體大小調整_lb.Location = New System.Drawing.Point(209, 25)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(55, 16)
         Me.字體大小調整_lb.TabIndex = 1497
         Me.字體大小調整_lb.Text = "字體調整"
         '
@@ -617,9 +617,9 @@ Partial Class 財務_收支單申請
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(851, 58)
+        Me.Label6.Location = New System.Drawing.Point(847, 57)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(121, 16)
+        Me.Label6.Size = New System.Drawing.Size(120, 16)
         Me.Label6.TabIndex = 947
         Me.Label6.Text = "關鍵字查詢-會計科目"
         '
@@ -629,7 +629,7 @@ Partial Class 財務_收支單申請
         Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label13.Location = New System.Drawing.Point(325, 56)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(219, 16)
+        Me.Label13.Size = New System.Drawing.Size(218, 16)
         Me.Label13.TabIndex = 1498
         Me.Label13.Text = "2、選擇會計科目後再新增一筆空白資料"
         '
@@ -639,7 +639,7 @@ Partial Class 財務_收支單申請
         Me.Label14.AutoSize = True
         Me.Label14.Location = New System.Drawing.Point(379, 93)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(873, 16)
+        Me.Label14.Size = New System.Drawing.Size(872, 16)
         Me.Label14.TabIndex = 1500
         Me.Label14.Text = "_________________________________________________________________________________" &
     "________________________________________________________________________________" &
@@ -650,7 +650,7 @@ Partial Class 財務_收支單申請
         Me.Label15.AutoSize = True
         Me.Label15.Location = New System.Drawing.Point(317, 93)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(873, 16)
+        Me.Label15.Size = New System.Drawing.Size(872, 16)
         Me.Label15.TabIndex = 1499
         Me.Label15.Text = "_________________________________________________________________________________" &
     "________________________________________________________________________________" &
@@ -662,7 +662,7 @@ Partial Class 財務_收支單申請
         Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label16.Location = New System.Drawing.Point(325, 6)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(219, 16)
+        Me.Label16.Size = New System.Drawing.Size(218, 16)
         Me.Label16.TabIndex = 1501
         Me.Label16.Text = "1、先開立財務收支單，在選會計科目。"
         '
@@ -699,7 +699,7 @@ Partial Class 財務_收支單申請
         Me.支出_cb.AutoSize = True
         Me.支出_cb.Location = New System.Drawing.Point(103, 32)
         Me.支出_cb.Name = "支出_cb"
-        Me.支出_cb.Size = New System.Drawing.Size(51, 20)
+        Me.支出_cb.Size = New System.Drawing.Size(50, 20)
         Me.支出_cb.TabIndex = 1376
         Me.支出_cb.Text = "支出"
         Me.支出_cb.UseVisualStyleBackColor = True
@@ -709,7 +709,7 @@ Partial Class 財務_收支單申請
         Me.收入_cb.AutoSize = True
         Me.收入_cb.Location = New System.Drawing.Point(8, 32)
         Me.收入_cb.Name = "收入_cb"
-        Me.收入_cb.Size = New System.Drawing.Size(51, 20)
+        Me.收入_cb.Size = New System.Drawing.Size(50, 20)
         Me.收入_cb.TabIndex = 1375
         Me.收入_cb.Text = "收入"
         Me.收入_cb.UseVisualStyleBackColor = True
@@ -730,7 +730,7 @@ Partial Class 財務_收支單申請
         Me.窗口說明1_lb.AutoSize = True
         Me.窗口說明1_lb.Location = New System.Drawing.Point(3, 6)
         Me.窗口說明1_lb.Name = "窗口說明1_lb"
-        Me.窗口說明1_lb.Size = New System.Drawing.Size(44, 16)
+        Me.窗口說明1_lb.Size = New System.Drawing.Size(43, 16)
         Me.窗口說明1_lb.TabIndex = 1373
         Me.窗口說明1_lb.Text = "零用金"
         '
@@ -750,7 +750,7 @@ Partial Class 財務_收支單申請
         Me.窗口表頭_lb.AutoSize = True
         Me.窗口表頭_lb.Location = New System.Drawing.Point(5, 7)
         Me.窗口表頭_lb.Name = "窗口表頭_lb"
-        Me.窗口表頭_lb.Size = New System.Drawing.Size(56, 16)
+        Me.窗口表頭_lb.Size = New System.Drawing.Size(55, 16)
         Me.窗口表頭_lb.TabIndex = 1375
         Me.窗口表頭_lb.Text = "編輯指定"
         '
@@ -833,8 +833,8 @@ Partial Class 財務_收支單申請
         Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.視窗1_pl)
+        Me.Controls.Add(Me.Label6)
         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)

YD-ERP-SYS/財務系統管理/財務_收支單申請.vb

@@ -230,6 +230,9 @@ Public Class 財務_收支單申請
                     End If
                 End If
                 選擇項次_tb.Text = 明細表_dgv(1, e.RowIndex).Value.ToString
+                幣別_cb.Text = 明細表_dgv("幣別", e.RowIndex).Value.ToString
+                ComboBox2.Text = Strings.Left(明細表_dgv("類別", e.RowIndex).Value.ToString, 4) : ComboBox4.Text = Strings.Left(明細表_dgv("類別", e.RowIndex).Value.ToString, 7)
+                ComboBox6.Text = 明細表_dgv("類別", e.RowIndex).Value.ToString
             End If
         Catch ex As Exception
             MsgBox(ex.Message)

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

@@ -91,8 +91,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "01"
+            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
             月1_dgv.Columns(8).Visible = False : 月1_dgv.Columns(9).FillWeight = 75
@@ -138,8 +138,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "02"
+            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
             月2_dgv.Columns(8).Visible = False : 月2_dgv.Columns(9).FillWeight = 75
@@ -192,8 +192,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "03"
+            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
             月3_dgv.Columns(8).Visible = False : 月3_dgv.Columns(9).FillWeight = 75
@@ -246,8 +246,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "04"
+            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
             月4_dgv.Columns(8).Visible = False : 月4_dgv.Columns(9).FillWeight = 75
@@ -300,8 +300,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "05"
+            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
             月5_dgv.Columns(8).Visible = False : 月5_dgv.Columns(9).FillWeight = 75
@@ -354,8 +354,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "06"
+            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
             月6_dgv.Columns(8).Visible = False : 月6_dgv.Columns(9).FillWeight = 75
@@ -408,8 +408,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "07"
+            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
             月7_dgv.Columns(8).Visible = False : 月7_dgv.Columns(9).FillWeight = 75
@@ -462,8 +462,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "08"
+            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
             月8_dgv.Columns(8).Visible = False : 月8_dgv.Columns(9).FillWeight = 75
@@ -516,8 +516,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "09"
+            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
             月9_dgv.Columns(8).Visible = False : 月9_dgv.Columns(9).FillWeight = 75
@@ -570,8 +570,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "10"
+            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
             月10_dgv.Columns(8).Visible = False : 月10_dgv.Columns(9).FillWeight = 75
@@ -624,8 +624,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "11"
+            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
             月11_dgv.Columns(8).Visible = False : 月11_dgv.Columns(9).FillWeight = 75
@@ -678,8 +678,8 @@ Public Class 財務_決算表
                 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()
+            End If : PA36 = "12"
+            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
             月12_dgv.Columns(8).Visible = False : 月12_dgv.Columns(9).FillWeight = 75