20220406備份

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

@@ -1,7 +1,7 @@
 Module SQL_業績計算系統
     Friend Sub SQL_業績主表3()
         ConnOpen()
-        SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 
+        SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, SUM(銷售控制表.運費) AS 管銷, 
                            SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 
                            銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 業績機算基礎.階級2, 業績機算基礎.比例2, 
@@ -18,7 +18,8 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          LEFT(銷售控制表.單號, 2) LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   LEFT(銷售控制表.單號, 2), QQ.姓名, 銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 
                            業績機算基礎.階級2, 業績機算基礎.比例2, 業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 
                            業績機算基礎.比例4, 業績機算基礎.階級5, 業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 
@@ -42,14 +43,15 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                                         '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                                         '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號, QQ.姓名, 銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址, 管銷費用
                 ORDER BY   編號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_業績主表1()
         ConnOpen()
-        SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 
+        SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, SUM(銷售控制表.運費) AS 管銷, 
                            SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金
                 FROM       銷售控制表 LEFT OUTER JOIN
@@ -60,7 +62,8 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           LEFT(銷售控制表.單號, 2) LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   LEFT(銷售控制表.單號, 2), QQ.姓名
                 ORDER BY   編號"
         CmdSet_For_DGV()
@@ -75,7 +78,8 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) 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") & "')
+                                                       '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷貨總額, 管銷費用
                 ORDER BY   銷售控制表.單號"
         CmdSet_For_DGV()
@@ -89,7 +93,8 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號
                 ORDER BY   銷售控制表.單號"
         CmdSet_For_DGV()
@@ -104,7 +109,8 @@
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售備註表.支出 - 銷售備註表.收入 <> 0) AND 
                           (銷售備註表.備註 NOT LIKE '%外車%') AND (銷售備註表.備註 NOT LIKE '%車資%') AND (銷售備註表.備註 NOT LIKE '%運費%') AND
                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號
                 ORDER BY   銷售控制表.單號"
         CmdSet_For_DGV()
@@ -118,7 +124,8 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 LIKE '1003%')AND
                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價
                 ORDER BY   銷售控制表.單號"
         CmdSet_For_DGV()
@@ -132,7 +139,8 @@
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) 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") & "')
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價
                 ORDER BY   銷售控制表.單號"
         CmdSet_For_DGV()
@@ -147,7 +155,8 @@
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售備註表.支出 - 銷售備註表.收入 <> 0) AND 
                           (銷售備註表.備註 LIKE '%外車%' OR 銷售備註表.備註 LIKE '%車資%' OR 銷售備註表.備註 LIKE '%運費%') AND
                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                                            '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   銷售控制表.單號
                 ORDER BY   銷售控制表.單號"
         CmdSet_For_DGV()
@@ -255,9 +264,13 @@
                             客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN
                             銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
                             銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
-                WHERE      (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 <> 0 OR 銷售控制表.已出貨 = 0) AND 
-                           (銷售控制表.轉業績日期 IS NULL OR 銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND 
-                           (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%') " & SQL2 & "
+                WHERE      (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%') AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 <> 0) AND 
+                           (銷售控制表.轉業績日期 IS NULL OR
+                            銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') OR
+                           (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%') AND (銷售收款事項.內容 = N'未收餘額') AND 
+                           (銷售控制表.轉業績日期 IS NULL OR
+                            銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售控制表.已出貨 = 0 OR
+                            銷售控制表.已出貨 IS NULL) " & SQL2 & "
                 GROUP BY    銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 
                             銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址, 銷售控制表.開單日期, 銷售控制表.交貨日期
                 ORDER BY    銷售控制表.交貨日期 DESC, 銷售控制表.單號"

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

@@ -982,5 +982,102 @@
     Friend Sub SQL採購轉財務_刪除流水帳()
         ConnOpen() : SQL1 = "DELETE 公帳流水帳 WHERE (支付單號 = N'" & 採購應付帳款.營運成本收支單號_tb.Text & "')" : CmdSet_For_dr()
     End Sub
+
+    '---------------------高層客製報表.------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_今日簽單()
+        ConnOpen()
+        SQL1 = "SELECT 日期, 類別, A1 AS 訂編, A2 AS 客戶姓名, A3 AS 簽單金額, A4 AS 現金, A5 AS 匯款, A6 AS 刷卡, A7 AS 支票, A8 AS 備註, 流水號
+                FROM   YD客製報表1 WHERE (日期 LIKE '" & PA & "') AND (類別 = 'A') ORDER BY A1"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_今日送貨()
+        ConnOpen()
+        SQL1 = "SELECT 日期, 類別, A1 AS 訂編, A2 AS 客戶姓名, A3 AS 出貨金額, A4 AS 應收已收, A5 AS [匯款/收現], A6 AS [支票/刷卡], A7 AS 應收未收, A8 AS 備註, 流水號
+                FROM   YD客製報表1 WHERE (日期 LIKE '" & PA & "') AND (類別 = 'B') ORDER BY A1"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_今日支出()
+        ConnOpen()
+        SQL1 = "SELECT 日期, 類別, A1 AS 收支單號, A2 AS 會計科目, A3 AS 用途, A4 AS 零用金, A5 AS 支票, A6 AS 收入, A7 AS 支出, A8 AS [票期/備註], 流水號
+                FROM   YD客製報表1 WHERE (日期 LIKE '" & PA & "') AND (類別 = 'C') ORDER BY A1"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_今日結算()
+        ConnOpen()
+        SQL1 = "SELECT 日期, 流水號, 銀行, 狀態, 前日結存, 現金, 匯款, [刷卡/支票], 支出, 備註, 當日結存
+                FROM   YD客製報表2
+                WHERE (日期 LIKE '" & PA & "') ORDER BY 銀行"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_客製表1_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO YD客製報表1 (日期, 類別, A1, A2, A3, A4, A5, A6, A7, A8, 流水號) 
+                VALUES (N'" & PA & "', N'" & 類別 & "', N'" & PA2 & "', N'', N'', N'', N'', N'', N'', N'', N'" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表1_最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM YD客製報表1 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表1_刪除()
+        ConnOpen() : SQL1 = "DELETE YD客製報表1 WHERE 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表2_最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM YD客製報表2 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表2_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO YD客製報表2 (日期, 流水號, 銀行, 狀態, 前日結存, 現金, 匯款, [刷卡/支票], 支出, 備註, 當日結存) 
+                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'', N'', N'', N'', N'', N'', N'')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表1_修改()
+        ConnOpen()
+        SQL1 = "UPDATE YD客製報表1 SET  A1 = N'" & PA2 & "', A2 = N'" & PA3 & "', A3 = N'" & PA4 & "', 
+                                      A4 = N'" & PA5 & "', A5 = N'" & PA6 & "', A6 = N'" & PA7 & "', A7 = N'" & PA8 & "', A8 = N'" & PA9 & "'
+                WHERE (流水號 LIKE N'" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表2_修改()
+        ConnOpen()
+        SQL1 = "UPDATE YD客製報表2 SET 前日結存 = N'" & PA4 & "', 現金 = N'" & PA5 & "', 
+                                       匯款 = N'" & PA6 & "', [刷卡/支票] = N'" & PA7 & "', 支出 = N'" & PA8 & "', 備註 = N'" & PA9 & "', 當日結存 = N'" & PA10 & "'
+                WHERE (流水號 LIKE N'" & PA1 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客製表_訂單控制表()
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 
+                            銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額 AS 未收額額, 
+                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 
+                            客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金, 銷售控制表.已出貨 AS 出貨, 
+                            銷售控制表.轉業績日期, 銷售控制表.已出貨 AS 已結單, 銷售控制表.銷貨總額
+                FROM        銷售控制表 INNER JOIN
+                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 INNER JOIN
+                                (SELECT          銷售明細表.單號
+                                  FROM               銷售明細表 INNER JOIN
+                                                              物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號
+                                  GROUP BY    銷售明細表.單號) AS QQQ ON 銷售控制表.單號 = QQQ.單號 LEFT OUTER JOIN
+                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%') OR
+                           (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.電話1 LIKE N'%" & PA20 & "%') OR
+                           (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.電話2 LIKE N'%" & PA20 & "%') OR
+                           (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.地址 LIKE N'%" & PA20 & "%') OR
+                           (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.公司名稱 LIKE N'%" & PA20 & "%') OR
+                           (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.統編 LIKE N'%" & PA20 & "%')
+                ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_客製表_查詢費用清單()
+        ConnOpen()
+        SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
+                            Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 收入, 
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
+                FROM        公帳流水帳 INNER JOIN
+                            會計科目 ON 公帳流水帳.類別 = 會計科目.編號 INNER JOIN
+                            公帳控制表 ON 公帳流水帳.支付單號 = 公帳控制表.支付單號
+                WHERE      (公帳控制表.申請日期 LIKE '" & PA & "') 
+                ORDER BY    公帳流水帳.項次"
+        CmdSet_For_DGV()
+    End Sub
 End Module
 

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

@@ -1,9 +1,9 @@
 Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99) As String
+    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 = "2022033101"
+    Public 版本 As String = "2022040502"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

@@ -87,6 +87,7 @@ Partial Class YD_ERP_SYS
         Me.業績結單控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.業績獎金彙總表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運日報表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.高層客製報表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
         Me.營運成本收支單申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運成本收支單審核_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -525,7 +526,7 @@ Partial Class YD_ERP_SYS
         '
         '財務系統管理_tsm
         '
-        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績結單控制表_tsm, Me.業績獎金彙總表_tsm, Me.業績運費明細表_tsm, Me.營運日報表_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.薪資轉帳表_tsm, Me.匯率管理_tsm, Me.會計科目管理_tsm, Me.業務獎金計算基礎_tcm})
+        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績結單控制表_tsm, Me.業績獎金彙總表_tsm, Me.業績運費明細表_tsm, Me.營運日報表_tsm, Me.高層客製報表_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.薪資轉帳表_tsm, Me.匯率管理_tsm, Me.會計科目管理_tsm, Me.業務獎金計算基礎_tcm})
         Me.財務系統管理_tsm.ForeColor = System.Drawing.Color.Red
         Me.財務系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment1
         Me.財務系統管理_tsm.Name = "財務系統管理_tsm"
@@ -555,6 +556,15 @@ Partial Class YD_ERP_SYS
         Me.營運日報表_tsm.Name = "營運日報表_tsm"
         Me.營運日報表_tsm.Size = New System.Drawing.Size(181, 22)
         Me.營運日報表_tsm.Text = "營運日報表"
+        Me.營運日報表_tsm.Visible = False
+        '
+        '高層客製報表_tsm
+        '
+        Me.高層客製報表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.高層客製報表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
+        Me.高層客製報表_tsm.Name = "高層客製報表_tsm"
+        Me.高層客製報表_tsm.Size = New System.Drawing.Size(181, 22)
+        Me.高層客製報表_tsm.Text = "高層客製報表"
         '
         'ToolStripSeparator15
         '
@@ -917,4 +927,5 @@ Partial Class YD_ERP_SYS
     Friend WithEvents 財務單據_dgv As DataGridView
     Friend WithEvents 業務單號修改功能_tsm As ToolStripMenuItem
     Friend WithEvents 營運日報表_tsm As ToolStripMenuItem
+    Friend WithEvents 高層客製報表_tsm As ToolStripMenuItem
 End Class

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

@@ -284,6 +284,10 @@ Public Class YD_ERP_SYS
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 財務_收支單一覽表.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
+        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
         PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()

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

@@ -385,6 +385,12 @@
     <Compile Include="財務系統管理\薪資轉帳表.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\高層客製報表.Designer.vb">
+      <DependentUpon>高層客製報表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\高層客製報表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
     </Compile>
@@ -594,6 +600,9 @@
     <EmbeddedResource Include="財務系統管理\薪資轉帳表.resx">
       <DependentUpon>薪資轉帳表.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\高層客製報表.resx">
+      <DependentUpon>高層客製報表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
     </EmbeddedResource>

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

@@ -1 +1 @@
-10d2bdbdadd56bc8f09d4d5caff995d74af9ee89
+62c59e7c1b9e66e55d481c6948615ce77109a26c

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

@@ -579,3 +579,4 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務單號修改功
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.下拉清單_1.resources
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績結單控制表.resources
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運日報表.resources
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.高層客製報表.resources

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

@@ -22,15 +22,15 @@ Partial Class 業績獎金彙總表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        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()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
@@ -62,6 +62,8 @@ Partial Class 業績獎金彙總表
         Me.Label6 = New System.Windows.Forms.Label()
         Me.存檔_bt = New System.Windows.Forms.Button()
         Me.列印成EXCEL_bt = New System.Windows.Forms.Button()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -81,8 +83,8 @@ Partial Class 業績獎金彙總表
         '
         '彙總1_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.彙總1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -123,8 +125,8 @@ Partial Class 業績獎金彙總表
         '
         '衍生運費_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.衍生運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.衍生運費_dgv.Location = New System.Drawing.Point(470, 33)
@@ -138,8 +140,8 @@ Partial Class 業績獎金彙總表
         '
         '其他_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
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.其他_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         Me.其他_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.其他_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.其他_dgv.Location = New System.Drawing.Point(1177, 33)
@@ -153,8 +155,8 @@ Partial Class 業績獎金彙總表
         '
         '外車車資_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.外車車資_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.外車車資_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.外車車資_dgv.Location = New System.Drawing.Point(627, 33)
@@ -168,8 +170,8 @@ Partial Class 業績獎金彙總表
         '
         '料號一_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.料號一_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.料號一_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.料號一_dgv.Location = New System.Drawing.Point(992, 33)
@@ -183,8 +185,8 @@ Partial Class 業績獎金彙總表
         '
         '備註運費_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         Me.備註運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.備註運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.備註運費_dgv.Location = New System.Drawing.Point(835, 33)
@@ -257,8 +259,8 @@ Partial Class 業績獎金彙總表
         '
         '獎金彙總_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Lavender
-        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Lavender
+        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
         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)
@@ -296,8 +298,8 @@ Partial Class 業績獎金彙總表
         '
         '獎金明細表_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.LavenderBlush
-        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LavenderBlush
+        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.獎金明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -313,8 +315,8 @@ Partial Class 業績獎金彙總表
         '
         '過度表_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
         Me.過度表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.過度表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -455,11 +457,32 @@ Partial Class 業績獎金彙總表
         Me.列印成EXCEL_bt.Text = "列印成EXCEL"
         Me.列印成EXCEL_bt.UseVisualStyleBackColor = True
         '
+        '未審核_lb
+        '
+        Me.未審核_lb.AutoSize = True
+        Me.未審核_lb.Location = New System.Drawing.Point(579, 7)
+        Me.未審核_lb.Name = "未審核_lb"
+        Me.未審核_lb.Size = New System.Drawing.Size(56, 16)
+        Me.未審核_lb.TabIndex = 1534
+        Me.未審核_lb.Text = "業務編號"
+        '
+        '業務_cb
+        '
+        Me.業務_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.業務_cb.FormattingEnabled = True
+        Me.業務_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "B", "Y"})
+        Me.業務_cb.Location = New System.Drawing.Point(635, 2)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(46, 24)
+        Me.業務_cb.TabIndex = 1535
+        '
         '業績獎金彙總表
         '
         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.未審核_lb)
+        Me.Controls.Add(Me.業務_cb)
         Me.Controls.Add(Me.列印成EXCEL_bt)
         Me.Controls.Add(Me.存檔_bt)
         Me.Controls.Add(Me.NUD5)
@@ -546,4 +569,6 @@ Partial Class 業績獎金彙總表
     Friend WithEvents Label6 As Label
     Friend WithEvents 存檔_bt As Button
     Friend WithEvents 列印成EXCEL_bt As Button
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 業務_cb As ComboBox
 End Class

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

@@ -184,7 +184,7 @@ Public Class 業績獎金彙總表
                 Next
                 For II As Integer = 0 To 外車車資_dgv.Rows.Count - 1
                     If 外車車資_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
-                        獎金明細表_dgv.Rows(I).Cells("運費").Value = 獎金明細表_dgv.Rows(I).Cells("運費").Value + 外車車資_dgv.Rows(II).Cells("外車_支").Value
+                        獎金明細表_dgv.Rows(I).Cells("運費").Value = 獎金明細表_dgv.Rows(I).Cells("運費").Value '+ 外車車資_dgv.Rows(II).Cells("外車_支").Value
                     End If
                 Next
                 For II As Integer = 0 To 備註運費_dgv.Rows.Count - 1
@@ -242,20 +242,21 @@ Public Class 業績獎金彙總表
 
             過度表_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
             過度表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
-            過度表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+            過度表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
             過度表_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+            過度表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             過度表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            過度表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             For I As Integer = 0 To 過度表_dgv.Rows.Count - 1
                 過度表_dgv.Rows(I).Cells("銷貨總額").Value = "0" : 過度表_dgv.Rows(I).Cells("成本").Value = "0" : 過度表_dgv.Rows(I).Cells("運費").Value = "0"
                 過度表_dgv.Rows(I).Cells("稅額(發票)").Value = "0" : 過度表_dgv.Rows(I).Cells("其他(傭金)").Value = "0" : 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = "0"
-
+                過度表_dgv.Rows(I).Cells("管銷").Value = "0"
                 For II As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
                     If Strings.Left(獎金明細表_dgv.Rows(II).Cells("編號").Value.ToString, 2) = 過度表_dgv.Rows(I).Cells("編號").Value.ToString And
                        獎金明細表_dgv.Rows(II).Cells("獎金基礎").Value.ToString = 過度表_dgv.Rows(I).Cells("獎金基礎").Value.ToString Then
@@ -267,11 +268,13 @@ Public Class 業績獎金彙總表
                         過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value + 獎金明細表_dgv.Rows(II).Cells("手續費(刷卡)").Value
                     End If
                 Next
+                過度表_dgv.Rows(I).Cells("管銷").Value = 過度表_dgv.Rows(I).Cells("成本").Value * 0.06
             Next
             For I As Integer = 0 To 過度表_dgv.Rows.Count - 1
                 過度表_dgv.Rows(I).Cells("毛利").Value = "0" : 過度表_dgv.Rows(I).Cells("獎金").Value = "0"
                 過度表_dgv.Rows(I).Cells("毛利").Value = 過度表_dgv.Rows(I).Cells("銷貨總額").Value - 過度表_dgv.Rows(I).Cells("成本").Value - 過度表_dgv.Rows(I).Cells("運費").Value -
-                                                           過度表_dgv.Rows(I).Cells("稅額(發票)").Value - 過度表_dgv.Rows(I).Cells("其他(傭金)").Value - 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value
+                                                         過度表_dgv.Rows(I).Cells("稅額(發票)").Value - 過度表_dgv.Rows(I).Cells("其他(傭金)").Value - 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value -
+                                                         過度表_dgv.Rows(I).Cells("管銷").Value
 
                 Dim 毛利遞減 As Integer = 過度表_dgv.Rows(I).Cells("毛利").Value
                 If 過度表_dgv.Rows(I).Cells("階級1").Value = 0 Or 過度表_dgv.Rows(I).Cells("階級1").Value >= 過度表_dgv.Rows(I).Cells("毛利").Value Then
@@ -362,12 +365,12 @@ Public Class 業績獎金彙總表
             da.Fill(ds6) : 獎金彙總_dgv.DataSource = ds6.Tables(0) : conn.Close()
             獎金彙總_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
             獎金彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
-            獎金彙總_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+            獎金彙總_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
             獎金彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             獎金彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             獎金彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             獎金彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+            獎金彙總_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             獎金彙總_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             獎金彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             獎金彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -376,7 +379,7 @@ Public Class 業績獎金彙總表
             For I As Integer = 0 To 獎金彙總_dgv.Rows.Count - 1
                 獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("成本").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("運費").Value = "0"
                 獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value = "0"
-                獎金彙總_dgv.Rows(I).Cells("毛利").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("獎金").Value = "0"
+                獎金彙總_dgv.Rows(I).Cells("毛利").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("獎金").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("管銷").Value = "0"
                 For II As Integer = 0 To 過度表_dgv.Rows.Count - 1
                     If 過度表_dgv.Rows(II).Cells("姓名").Value.ToString = 獎金彙總_dgv.Rows(I).Cells("姓名").Value.ToString Then
                         獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value = 獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value + 過度表_dgv.Rows(II).Cells("銷貨總額").Value
@@ -389,6 +392,8 @@ Public Class 業績獎金彙總表
                         獎金彙總_dgv.Rows(I).Cells("獎金").Value = 獎金彙總_dgv.Rows(I).Cells("獎金").Value + 過度表_dgv.Rows(II).Cells("獎金").Value
                     End If
                 Next
+                獎金彙總_dgv.Rows(I).Cells("管銷").Value = 獎金彙總_dgv.Rows(I).Cells("成本").Value * 0.06
+                '獎金彙總_dgv.Rows(I).Cells("毛利").Value = 獎金彙總_dgv.Rows(I).Cells("毛利").Value - 獎金彙總_dgv.Rows(I).Cells("管銷").Value
                 NUD1.Value = NUD1.Value + 獎金彙總_dgv.Rows(I).Cells("運費").Value
             Next
             SQL_業績運費計算_查詢()
@@ -413,10 +418,15 @@ Public Class 業績獎金彙總表
     Private Sub 計算()
         Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_彙總明細() : Set_彙總過度表() : Set_彙總主表()
     End Sub
+    Private Sub 業務_cb_下拉表單資料載入()
+        SQL_業務編號_下拉清單()
+        業務_cb.Items.Clear() : 業務_cb.Items.Clear()
+        While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close()
+    End Sub
     Private Sub 業績獎金彙總表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            SQL_銷售控制表_空值修正1() : SQL_銷售控制表_空值修正2()
+            業務_cb_下拉表單資料載入() : SQL_銷售控制表_空值修正1() : SQL_銷售控制表_空值修正2()
             彙總表_bt.Enabled = False : 明細表_bt.Enabled = True : 獎金明細表_dgv.Visible = False : 獎金彙總_dgv.Visible = True
             日期格式() : 計算()
 
@@ -442,7 +452,7 @@ Public Class 業績獎金彙總表
         Try
             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 獎金彙總_dgv.SelectedCells(0).ColumnIndex >= 2 And 獎金彙總_dgv.SelectedCells(0).ColumnIndex <= 10 Then
                     If 已超出 = False Then
                         Dim x As Double = 0
                         For i As Integer = 0 To 獎金彙總_dgv.SelectedCells.Count - 1
@@ -516,6 +526,9 @@ Public Class 業績獎金彙總表
     Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.Click
         計算()
     End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        計算()
+    End Sub
     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
         中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
         開始日期_dtp.Value = 中間日期_dtp.Value

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

@@ -8,11 +8,11 @@
             彙總1_dgv.AllowUserToAddRows = False
             彙總1_dgv.RowTemplate.Height = 25
 
-            If CC(56) = False Then
-                SQL2 = " AND (銷售控制表.單號 LIKE N'" & 業務號碼 & "%')"
-            Else
-                SQL2 = ""
-            End If
+            'If CC(56) = False Then
+            '    SQL2 = " AND (銷售控制表.單號 LIKE N'" & 業務號碼 & "%')"
+            'Else
+            '    SQL2 = ""
+            'End If
             If 已完單_bt.Enabled = False Then : SQL_業績完單2()
             ElseIf 未完單_bt.Enabled = False Then : SQL_業績完單1()
             ElseIf 不可完單_bt.Enabled = False Then : SQL_業績完單3() : End If