20220528備份

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

@@ -232,7 +232,7 @@
                             銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NULL OR 銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND 
-                          (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%') " & SQL2 & "
+                          (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%')
                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 
                            銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址, 銷售控制表.開單日期, 銷售控制表.交貨日期
                 ORDER BY   銷售控制表.交貨日期 DESC, 銷售控制表.單號"
@@ -249,7 +249,7 @@
                             銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
                 WHERE      (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                             銷售控制表.轉業績日期 IS NOT NULL AND 銷售控制表.轉業績日期 NOT LIKE '' AND (銷售明細表.料號 NOT LIKE '1001%') AND 
-                           (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%') " & SQL2 & "
+                           (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%')
                 GROUP BY    銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 
                             銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址, 銷售控制表.開單日期, 銷售控制表.交貨日期
                 ORDER BY    銷售控制表.轉業績日期 DESC, 銷售控制表.單號"
@@ -270,7 +270,7 @@
                            (銷售控制表.單號 LIKE N'" & 業績結單控制表.查詢單號_tb.Text & "%') AND (銷售收款事項.內容 = N'未收餘額') AND 
                            (銷售控制表.轉業績日期 IS NULL OR
                             銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售控制表.已出貨 = 0 OR
-                            銷售控制表.已出貨 IS NULL) " & SQL2 & "
+                            銷售控制表.已出貨 IS NULL)
                 GROUP BY    銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 
                             銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址, 銷售控制表.開單日期, 銷售控制表.交貨日期
                 ORDER BY    銷售控制表.交貨日期 DESC, 銷售控制表.單號"
@@ -291,23 +291,66 @@
                 WHERE 單號 LIKE N'" & 業績結單控制表.業務單號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_業績運費()
+    Friend Sub SQL_業績運費1()
         ConnOpen()
-        SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.運費已付, 
-                           客戶資料表.地址, 銷售控制表.合載 AS 備註
+        SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
                 FROM       銷售控制表 LEFT OUTER JOIN
-                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號 LEFT OUTER JOIN
+                           (SELECT      單號, SUM(支出) AS 支出
+                            FROM        銷售衍生運費
+                            GROUP BY    單號) AS QQ ON 銷售控制表.單號 = QQ.單號 LEFT OUTER JOIN
                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編
-                WHERE     (銷售控制表.轉業績日期 NOT LIKE '') AND 
+                WHERE     (銷售控制表.轉業績日期 NOT LIKE '' OR 銷售控制表.轉業績日期 IS NOT NULL) AND 
                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績運費明細表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
-                                                         '" & Strings.Format(業績運費明細表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
-                          (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0)
+                                                         '" & Strings.Format(業績運費明細表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                ORDER BY   完單日期, 銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績運費2()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                FROM       銷售控制表 LEFT OUTER JOIN
+                          (SELECT      單號, SUM(支出) AS 支出
+                           FROM        銷售衍生運費
+                           GROUP BY    單號) AS QQ ON 銷售控制表.單號 = QQ.單號 LEFT OUTER JOIN
+                           客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編
+                WHERE     (銷售控制表.轉業績日期 LIKE '' OR 銷售控制表.轉業績日期 IS NULL)
+                ORDER BY   完單日期, 銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績運費3()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                FROM       銷售控制表 LEFT OUTER JOIN
+                          (SELECT      單號, SUM(支出) AS 支出
+                           FROM        銷售衍生運費
+                           GROUP BY    單號) AS QQ ON 銷售控制表.單號 = QQ.單號 LEFT OUTER JOIN
+                           客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編
+                WHERE     (銷售控制表.運費付款 NOT LIKE '' OR 銷售控制表.運費付款 IS NOT NULL) AND 
+                          (銷售控制表.運費付款 BETWEEN '" & Strings.Format(業績運費明細表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                                         '" & Strings.Format(業績運費明細表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                ORDER BY   完單日期, 銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績運費4()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                FROM       銷售控制表 LEFT OUTER JOIN
+                          (SELECT      單號, SUM(支出) AS 支出
+                           FROM        銷售衍生運費
+                           GROUP BY    單號) AS QQ ON 銷售控制表.單號 = QQ.單號 LEFT OUTER JOIN
+                           客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編
+                WHERE     (銷售控制表.轉業績日期  LIKE '' OR 銷售控制表.轉業績日期 IS  NULL) AND (銷售控制表.運費付款 LIKE '' OR 銷售控制表.運費付款 IS  NULL)  
                 ORDER BY   完單日期, 銷售控制表.單號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_業績運費_修正()
         ConnOpen()
-        SQL1 = "UPDATE 銷售控制表 SET 運費已付 = N'" & PA1 & "', 合載 = N'" & PA2 & "' WHERE 單號 LIKE N'" & PA & "'"
+        SQL1 = "UPDATE 銷售控制表 SET 運費已付 = N'" & PA1 & "', 合載 = N'" & PA2 & "', 運費付款 = N'" & PA3 & "',  已付運費 = N'" & PA4 & "'
+                WHERE  單號 LIKE N'" & PA & "'"
         CmdSet_For_dr()
     End Sub
 End Module

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

@@ -163,6 +163,7 @@
         ConnOpen() : SQL1 = "DELETE 客戶資料表 WHERE (流水號 = N'" & 客戶資料表.流水號_tb.Text & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售明細表_修改()
+        ConnOpen() : SQL1 = "UPDATE 採購控制表 SET 銷售流水 = '' WHERE (銷售單號 LIKE '') AND (銷售流水 NOT LIKE '')" : CmdSet_For_dr()
         ConnOpen()
         SQL1 = "UPDATE 銷售明細表 SET 備註 = N'" & PA10 & "', 成本 = N'" & NU1 & "', 售價 = N'" & NU2 & "', 含稅 = N'" & BL5 & "',倉儲狀態 = N'" & PA9 & "', 
                                       物料狀態 = N'" & PA8 & "', 訂製狀態 = N'" & PA7 & "', 不含管銷 = N'" & BL6 & "' 
@@ -556,6 +557,7 @@
         ConnOpen() : SQL1 = "SELECT 圖片 FROM 採購訂製圖庫 WHERE (資料流水號 LIKE '" & PA15 & "') AND (版次 LIKE '" & PA16 & "')" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_採購控制表_存檔()
+        ConnOpen() : SQL1 = "UPDATE 採購控制表 SET 銷售流水 = '' WHERE (銷售單號 LIKE '') AND (銷售流水 NOT LIKE '')" : CmdSet_For_dr()
         ConnOpen()
         SQL1 = "UPDATE 採購控制表 SET 物料狀態 = N'" & PA1 & "', 訂製狀態 = N'" & PA2 & "', 倉儲狀態 = N'" & PA3 & "', 備註 = N'" & PA4 & "', 數量 = '" & NU1 & "',
                                       成本 = '" & NU2 & "', 採購總價 = '" & NU3 & "', 採購日期 = N'" & PA5 & "', 預計進廠日 = N'" & PA6 & "', 實際進廠日 = N'" & PA7 & "'
@@ -567,6 +569,7 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_採購控制表_存檔1()
+        ConnOpen() : SQL1 = "UPDATE 採購控制表 SET 銷售流水 = '' WHERE (銷售單號 LIKE '') AND (銷售流水 NOT LIKE '')" : CmdSet_For_dr()
         ConnOpen()
         SQL1 = "UPDATE 採購控制表 SET 數量 = '" & NU1 & "', 成本 = '" & NU2 & "', 採購總價 = '" & NU3 & "', 過帳日期 = '" & PA1 & "' WHERE 資料流水號 LIKE '" & PA & "%'"
         CmdSet_For_dr()

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 = "2022040502"
+    Public 版本 As String = "2022052601"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

@@ -143,181 +143,188 @@ Public Class YD_ERP_SYS
         Me.Text = "YD ERP SYS" & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :  " & 版本
     End Sub
     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 歸零()
+        NU1 = 0 : NU2 = 0 : NU3 = 0 : NU4 = 0 : NU5 = 0
+        PPAA = "" : PA = "" : PA1 = "" : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "" : PA6 = "" : PA7 = "" : PA8 = "" : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = "" : PA15 = ""
+        PA16 = "" : PA17 = "" : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : PA22 = "" : PA23 = "" : PA24 = "" : PA25 = "" : PA26 = "" : PA27 = "" : PA28 = "" : PA29 = "" : PA30 = "" : PA31 = ""
+        PA32 = "" : PA33 = "" : PA34 = "" : PA35 = "" : PA36 = ""
+    End Sub
+    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub FTP資料夾管理_tsm_Click_1(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
+        歸零() : FTP資料夾管理.Show() : FTP資料夾管理.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 = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
+        歸零() : 系統執行檔版本管理.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 = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
+        歸零() : 系統使用者管理.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 = "" : 系統編碼規則.Show() : 系統編碼規則.BringToFront()
+        歸零() : 系統編碼規則.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 = "" : 人事資料表.Show() : 人事資料表.BringToFront()
+        歸零() : 人事資料表.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 = "" : 客戶資料強制對話框模式 = False : 客戶資料表.Show() : 客戶資料表.BringToFront()
+        歸零() : 客戶資料強制對話框模式 = False : 客戶資料表.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 = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
+        歸零() : 供應商資料表.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 = "" : 物料檔案.Show() : 物料檔案.BringToFront()
+        歸零() : 物料檔案.Show() : 物料檔案.BringToFront()
     End Sub
     Private Sub 人員ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
-        PA = "" : 人員ID卡系統配置設定.ShowDialog() : 人員ID卡系統配置設定.BringToFront()
+        歸零() : 人員ID卡系統配置設定.ShowDialog() : 人員ID卡系統配置設定.BringToFront()
     End Sub
     Private Sub 倉儲分區控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_tsm.Click
-        PA = "" : 倉儲分區控制表.ShowDialog() : 倉儲分區控制表.BringToFront()
+        歸零() : 倉儲分區控制表.ShowDialog() : 倉儲分區控制表.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 = "" : 倉儲控制表.Show() : 倉儲控制表.BringToFront()
+        歸零() : 倉儲控制表.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 = "" : 盤盈盤損申請.Show() : 盤盈盤損申請.BringToFront()
+        歸零() : 盤盈盤損申請.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 = "" : 盤盈盤損審核.Show() : 盤盈盤損審核.BringToFront()
+        歸零() : 盤盈盤損審核.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 = "" : 盤盈盤損控制表.Show() : 盤盈盤損控制表.BringToFront()
+        歸零() : 盤盈盤損控制表.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 = "" : 銷售單申請.Show() : 銷售單申請.BringToFront()
+        歸零() : 銷售單申請.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 = "" : 一般申請_採購單.Show() : 一般申請_採購單.BringToFront()
+        歸零() : 一般申請_採購單.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 = "" : 銷售單審核.Show() : 銷售單審核.BringToFront()
+        歸零() : 銷售單審核.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 = "" : 訂單控制表.Show() : 訂單控制表.BringToFront()
+        歸零() : 訂單控制表.Show() : 訂單控制表.BringToFront()
     End Sub
     Private Sub 個人資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
-        PA = "" : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
+        歸零() : 個人帳號管理.ShowDialog() : 個人帳號管理.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 = "" : 銷售分析表.Show() : 銷售分析表.BringToFront()
+        歸零() : 銷售分析表.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 = "" : 貨款試算表.Show() : 貨款試算表.BringToFront()
+        歸零() : 貨款試算表.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 = "" : 銷售申請_採購單.Show() : 銷售申請_採購單.BringToFront()
+        歸零() : 銷售申請_採購單.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 = "" : 採購對帳單.Show() : 採購對帳單.BringToFront()
+        歸零() : 採購對帳單.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 = "" : 採購單審核.Show() : 採購單審核.BringToFront()
+        歸零() : 採購單審核.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 = "" : 採購應付帳款.Show() : 採購應付帳款.BringToFront()
+        歸零() : 採購應付帳款.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 = "" : 倉儲入庫.Show() : 倉儲入庫.BringToFront()
+        歸零() : 倉儲入庫.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 = "" : 倉儲出庫.Show() : 倉儲出庫.BringToFront()
+        歸零() : 倉儲出庫.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 = "" : 單據狀態查詢.Show() : 單據狀態查詢.BringToFront()
+        歸零() : 單據狀態查詢.Show() : 單據狀態查詢.BringToFront()
     End Sub
     Private Sub 會計科目管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 會計科目管理.Show() : 會計科目管理.BringToFront()
+        歸零() : 會計科目管理.Show() : 會計科目管理.BringToFront()
     End Sub
     Private Sub 營運成本收支單申請ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單申請_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 財務_收支單申請.Show() : 財務_收支單申請.BringToFront()
+        歸零() : 財務_收支單申請.Show() : 財務_收支單申請.BringToFront()
     End Sub
     Private Sub 營運成本收支單審核ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單審核_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 財務_收支單審核.Show() : 財務_收支單審核.BringToFront()
+        歸零() : 財務_收支單審核.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 = "" : 業績獎金彙總表.Show() : 業績獎金彙總表.BringToFront()
+        歸零() : 業績獎金彙總表.Show() : 業績獎金彙總表.BringToFront()
     End Sub
     Private Sub 業務獎金計算基礎_tcm_Click(sender As Object, e As EventArgs) Handles 業務獎金計算基礎_tcm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 業務獎金計算基礎.Show() : 業務獎金計算基礎.BringToFront()
+        歸零() : 業務獎金計算基礎.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 = "" : 業績結單控制表.Show() : 業績結單控制表.BringToFront()
+        歸零() : 業績結單控制表.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 = "" : 業績運費明細表.Show() : 業績運費明細表.BringToFront()
+        歸零() : 業績運費明細表.Show() : 業績運費明細表.BringToFront()
     End Sub
     Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 財務_收支單一覽表.Show() : 財務_收支單一覽表.BringToFront()
+        歸零() : 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()
+        歸零() : 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()
+        歸零() : PA18 = "" : PA19 = "" : PA20 = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
     End Sub
     Private Sub 營運成本收支決算表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運報表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 財務_決算表.Show() : 財務_決算表.BringToFront()
+        歸零() : 財務_決算表.Show() : 財務_決算表.BringToFront()
     End Sub
     Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 匯率管理.Show() : 匯率管理.BringToFront()
+        歸零() : 匯率管理.Show() : 匯率管理.BringToFront()
     End Sub
     Private Sub 簽名檔管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽名檔管理ToolStripMenuItem.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        PA = "" : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
+        歸零() : 簽名檔管理.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 = "" : 薪資轉帳表.Show() : 薪資轉帳表.BringToFront()
+        歸零() : 薪資轉帳表.Show() : 薪資轉帳表.BringToFront()
     End Sub
     Private Sub 應收帳款未收ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應收帳款未收_tsm.Click
-        PA = "" : 應收帳款未收.ShowDialog() : 應收帳款未收.BringToFront()
+        歸零() : 應收帳款未收.ShowDialog() : 應收帳款未收.BringToFront()
     End Sub
     Private Sub 應收帳款已收_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款已收_tsm.Click
-        PA = "" : 應收帳款已收.ShowDialog() : 應收帳款已收.BringToFront()
+        歸零() : 應收帳款已收.ShowDialog() : 應收帳款已收.BringToFront()
     End Sub
     Private Sub 業務單號修改功能_tsm_Click(sender As Object, e As EventArgs) Handles 業務單號修改功能_tsm.Click
-        PA = "" : 業務單號修改功能.ShowDialog() : 業務單號修改功能.BringToFront()
+        歸零() : 業務單號修改功能.ShowDialog() : 業務單號修改功能.BringToFront()
     End Sub
     Private Sub 營運日報表_tsm_Click(sender As Object, e As EventArgs) Handles 營運日報表_tsm.Click
-        PA = "" : 營運日報表.ShowDialog() : 營運日報表.BringToFront()
+        歸零() : 營運日報表.ShowDialog() : 營運日報表.BringToFront()
     End Sub
 End Class

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

@@ -574,9 +574,9 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
 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.下拉清單_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
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache

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

@@ -299,6 +299,11 @@ Public Class 倉儲出庫
             MsgBox(ex.Message)
         End Try
     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
@@ -306,7 +311,7 @@ Public Class 倉儲出庫
             自動盤盈_cb.Checked = CC(36) : 無資料_bt.Enabled = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
             送貨地點_cb_下拉表單資料載入()
             首次開啟 = False : Set_清單1() : 首次開啟 = True '--------------------資料讀取
-            SQL_銷售明細表_已出貨明細修正()
+            SQL_銷售明細表_已出貨明細修正() : 業務_cb_下拉表單資料載入()
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try

YD-ERP-SYS/採購系統管理/一般申請_採購單.vb

@@ -690,6 +690,17 @@ Public Class 一般申請_採購單
                         ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "PU" & "0" & EDR
                         ElseIf EDR > 99999999 Then : ESTR = "PU" & EDR : End If
 
+                        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+                        If 訂製編碼_cb.Text = "MA0001" Then
+                            PA12 = 料號_tb.Text
+                            SQL_銷售明細表_成本讀取()
+                            If dr.Read() Then : 採購單價_nud.Value = dr("成本")
+                            Else : 採購單價_nud.Value = 0
+                            End If : conn.Close()
+                        Else
+                            採購單價_nud.Value = 0
+                        End If
+
                         PA1 = ESTR : PA2 = "" : PA3 = 供應商編碼_cb.Text : PA4 = 料號_tb.Text : PA5 = 儲態編號_cb.Text : PA6 = 訂製編碼_cb.Text : PA7 = 倉庫編號_tb.Text : PA8 = ""
                         NU1 = 採購數量_nud.Value : NU2 = 採購單價_nud.Value : NU3 = NU1 * NU2 : PA9 = gUserName : PA10 = Format(Today(), "yyyy/MM/dd") : PA11 = "" : PA12 = ""
                         BL1 = False

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

@@ -9,8 +9,8 @@ Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 銷售單申請
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
-    Dim ESTR, ESTR1 As String
-    Dim 運費, 稅金存檔, 選取位置, NUM1, EDR, EDR1 As Integer
+    Dim ESTR, ESTR1, 變數 As String
+    Dim 運費, 稅金存檔, 選取位置, NUM1, EDR, EDR1, N1, N2, N3, N4 As Integer
     Dim 刷卡控制, 首次開啟 As Boolean
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
@@ -1781,7 +1781,7 @@ Public Class 銷售單申請
     End Sub
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         Try
-            Dim N1, N2 As Integer : Dim 變數 As String
+            N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0
             xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
             xlApp.Visible = True
             xlApp.DisplayAlerts = True
@@ -1813,12 +1813,13 @@ Public Class 銷售單申請
             xlSheet.Cells(5, 5) = "0" : xlSheet.Cells(5, 6) = "刷卡" : xlSheet.Cells(5, 7) = "0" : xlSheet.Cells(5, 8) = "支票:"
             xlSheet.Cells(5, 9) = "0" : xlSheet.Cells(5, 10) = "現金:" : xlSheet.Cells(5, 11) = "0" : xlSheet.Cells(5, 12) = "傭金:"
             xlSheet.Cells(5, 13) = "0" : xlSheet.Cells(6, 1) = "業務員:" : xlSheet.Cells(6, 2) = 業務_cb.Text : xlSheet.Cells(6, 4) = "稅金:"
-            xlSheet.Cells(6, 5) = CInt(稅金_tb.Text) + CInt(刷卡稅金_tb.Text) : xlSheet.Cells(6, 6) = "手續:" : xlSheet.Cells(6, 7) = 刷卡傭金_tb.Text : xlSheet.Cells(6, 8) = "總額:"
+            xlSheet.Cells(6, 5) = CInt(稅金_tb.Text) : xlSheet.Cells(6, 6) = "手續:" : xlSheet.Cells(6, 7) = 刷卡傭金_tb.Text : xlSheet.Cells(6, 8) = "總額:"
             xlSheet.Cells(6, 9) = 銷售合計_tb.Text : xlSheet.Cells(6, 10) = "餘額:" : xlSheet.Cells(6, 11) = N2 : xlSheet.Cells(8, 2) = "品號"
             xlSheet.Cells(8, 5) = "品名規格" : xlSheet.Cells(8, 8) = "數量" : xlSheet.Cells(8, 9) = "單價" : xlSheet.Cells(8, 11) = "金額" : xlSheet.Cells(8, 12) = "含管銷"
             xlSheet.Cells(8, 13) = "成本價" : xlSheet.Cells(8, 14) = "廠商名稱"
             For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-                xlSheet.Cells(i + 9, 1) = 銷售明細_dgv.Rows(i).Cells("料號").Value : xlSheet.Cells(i + 9, 3) = 銷售明細_dgv.Rows(i).Cells("品名").Value
+                xlSheet.Cells(i + 9, 1) = 銷售明細_dgv.Rows(i).Cells("料號").Value
+                xlSheet.Cells(i + 9, 3) = 銷售明細_dgv.Rows(i).Cells("品名").Value & " " & 銷售明細_dgv.Rows(i).Cells("備註").Value
                 xlSheet.Cells(i + 9, 8) = 銷售明細_dgv.Rows(i).Cells("數量").Value : xlSheet.Cells(i + 9, 9) = 銷售明細_dgv.Rows(i).Cells("單價").Value
                 xlSheet.Cells(i + 9, 11) = 銷售明細_dgv.Rows(i).Cells("售價").Value : xlSheet.Cells(i + 9, 13) = 銷售明細_dgv.Rows(i).Cells("成本").Value
                 xlSheet.Cells(i + 9, 12) = 銷售明細_dgv.Rows(i).Cells("成本").Value * 1.06
@@ -1831,6 +1832,23 @@ Public Class 銷售單申請
             xlSheet.Cells(N1 + 3, 1) = "銷貨總額:" : xlSheet.Cells(N1 + 3, 2) = 銷售合計_tb.Text : xlSheet.Cells(N1 + 3, 4) = "成本:" : xlSheet.Cells(N1 + 3, 5) = 物料成本_tb.Text
             xlSheet.Cells(N1 + 3, 7) = "運費:" : xlSheet.Cells(N1 + 3, 8) = 司機運費_tb.Text : xlSheet.Cells(N1 + 3, 9) = "管銷費用:" : xlSheet.Cells(N1 + 3, 10) = 管銷費用_tb.Text
             xlSheet.Cells(N1 + 3, 13) = "毛利:" : xlSheet.Cells(N1 + 3, 14) = 預估利潤_tb.Text
+
+            xlSheet.Cells(N1 + 6, 1) = "項次" : xlSheet.Cells(N1 + 6, 2) = "備註" : xlSheet.Cells(N1 + 6, 13) = "收入" : xlSheet.Cells(N1 + 6, 14) = "支出"
+            For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+                xlSheet.Cells(i + N1 + 7, 1) = 銷售備註_dgv.Rows(i).Cells("項次").Value : xlSheet.Cells(i + N1 + 7, 2) = 銷售備註_dgv.Rows(i).Cells("備註").Value
+                xlSheet.Cells(i + N1 + 7, 13) = 銷售備註_dgv.Rows(i).Cells("收入").Value : xlSheet.Cells(i + N1 + 7, 14) = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                N3 = i + N1 + 7
+            Next
+
+            If N3 = 0 Then : N3 = N1 + 7 : End If
+            xlSheet.Cells(N3 + 2, 1) = "項次" : xlSheet.Cells(N3 + 2, 2) = "衍生運費備註" : xlSheet.Cells(N3 + 2, 14) = "支出"
+            For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
+                xlSheet.Cells(i + N3 + 3, 1) = 銷售衍生運費_dgv.Rows(i).Cells("項次").Value : xlSheet.Cells(i + N3 + 3, 2) = 銷售衍生運費_dgv.Rows(i).Cells("運費備註").Value
+                xlSheet.Cells(i + N3 + 3, 14) = 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                N4 = i + N3 + 5
+            Next
+            If N4 = 0 Then : N4 = N3 + 5 : End If
+
             BB(xlApp, xlSheet)
             xlApp.Cells.Select()
             xlApp.Application.WindowState = xlMinimized
@@ -1846,7 +1864,7 @@ Public Class 銷售單申請
         Dim aa As Integer
         xlSheet.Cells.Select()
         With myExcel.Selection.Font
-            .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
         End With
         '-------------------------------------------------------------------------------------------------------------------
@@ -1873,10 +1891,36 @@ Public Class 銷售單申請
         myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With
-        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0
+        End With
+
+        xlSheet.Range("A" & N1 + 6 & ":N" & N1 + 6).Select()                                      '畫線
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0
+        End With
+
+        xlSheet.Range("A" & N3 + 2 & ":N" & N3 + 2).Select()                                      '畫線
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0
+        End With
         '----------------------------------------------------------------------------------------------------------------------------------------------------------------
         xlSheet.Range("F1:K1").Select()        '固定的格式 調整文字靠左、合併儲存格
-        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 26 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
         xlSheet.Range("F1:I1").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
@@ -1984,6 +2028,12 @@ Public Class 銷售單申請
         myExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
+        xlSheet.Range("A" & N4 & ":N" & N4 & "").Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        myExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
         xlSheet.Range("M" & aa + 3).Select()
         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
@@ -2015,6 +2065,10 @@ Public Class 銷售單申請
         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
+        xlSheet.Columns("A:A").Select
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : End With
+
         xlSheet.Columns("N:N").Select : myExcel.Columns("N:N").EntireColumn.AutoFit
         ''---------------------------------------格線取消-----------------------------------------------------------------------------------------------------------
         myExcel.ActiveWindow.DisplayGridlines = False

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

@@ -583,11 +583,11 @@ Public Class 業績獎金彙總表
                 Next
             Else
                 xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "業績明細表" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
-                xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "業務姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 5) = "運費"
+                xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "客戶姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 5) = "運費"
                 xlSheet.Cells(4, 6) = "稅額(發票)" : xlSheet.Cells(4, 7) = "其他(傭金)" : xlSheet.Cells(4, 8) = "手續費(刷卡)" : xlSheet.Cells(4, 9) = "業績毛利"
                 xlSheet.Cells(4, 10) = "獎金基礎"
                 For I As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
-                    xlSheet.Cells(I + 5, 1) = 獎金明細表_dgv.Rows(I).Cells("編號").Value : xlSheet.Cells(I + 5, 2) = 獎金明細表_dgv.Rows(I).Cells("姓名").Value
+                    xlSheet.Cells(I + 5, 1) = 獎金明細表_dgv.Rows(I).Cells("編號").Value : xlSheet.Cells(I + 5, 2) = 獎金明細表_dgv.Rows(I).Cells("名稱").Value
                     xlSheet.Cells(I + 5, 3) = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value : xlSheet.Cells(I + 5, 4) = 獎金明細表_dgv.Rows(I).Cells("成本").Value
                     xlSheet.Cells(I + 5, 5) = 獎金明細表_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 6) = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value
                     xlSheet.Cells(I + 5, 7) = 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 8) = 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value
@@ -694,7 +694,11 @@ Public Class 業績獎金彙總表
         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
-
+        If 獎金彙總_dgv.Visible = True Then : Else
+            xlSheet.Columns("A:A").Select : myExcel.Columns("A:A").EntireColumn.AutoFit
+            xlSheet.Columns("B:B").Select : myExcel.Columns("B:B").EntireColumn.AutoFit
+            xlSheet.Columns("C:C").Select : myExcel.Columns("C:C").EntireColumn.AutoFit
+        End If
         myExcel.ActiveWindow.DisplayGridlines = False
     End Sub
 End Class

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

@@ -43,6 +43,12 @@ Partial Class 業績運費明細表
         Me.全部取消_bt = New System.Windows.Forms.Button()
         Me.全部選擇_bt = New System.Windows.Forms.Button()
         Me.方便點選功能_ch = New System.Windows.Forms.CheckBox()
+        Me.依據1_ch = New System.Windows.Forms.CheckBox()
+        Me.依據2_ch = New System.Windows.Forms.CheckBox()
+        Me.付款日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.依據3_ch = New System.Windows.Forms.CheckBox()
+        Me.依據4_ch = New System.Windows.Forms.CheckBox()
         CType(Me.運費明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NUD2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -167,8 +173,8 @@ Partial Class 業績運費明細表
         '
         Me.NUD2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD2.Location = New System.Drawing.Point(236, 574)
-        Me.NUD2.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
-        Me.NUD2.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
+        Me.NUD2.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.NUD2.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
         Me.NUD2.Name = "NUD2"
         Me.NUD2.Size = New System.Drawing.Size(100, 23)
         Me.NUD2.TabIndex = 1549
@@ -178,8 +184,8 @@ Partial Class 業績運費明細表
         '
         Me.NUD1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD1.Location = New System.Drawing.Point(67, 574)
-        Me.NUD1.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
-        Me.NUD1.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
+        Me.NUD1.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.NUD1.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
         Me.NUD1.Name = "NUD1"
         Me.NUD1.Size = New System.Drawing.Size(100, 23)
         Me.NUD1.TabIndex = 1548
@@ -209,8 +215,8 @@ Partial Class 業績運費明細表
         '
         Me.NUD3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD3.Location = New System.Drawing.Point(405, 574)
-        Me.NUD3.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NUD3.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD3.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.NUD3.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
         Me.NUD3.Name = "NUD3"
         Me.NUD3.Size = New System.Drawing.Size(100, 23)
         Me.NUD3.TabIndex = 1551
@@ -272,11 +278,77 @@ Partial Class 業績運費明細表
         Me.方便點選功能_ch.Text = "方便點選功能"
         Me.方便點選功能_ch.UseVisualStyleBackColor = True
         '
+        '依據1_ch
+        '
+        Me.依據1_ch.AutoSize = True
+        Me.依據1_ch.Checked = True
+        Me.依據1_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.依據1_ch.Location = New System.Drawing.Point(571, 5)
+        Me.依據1_ch.Name = "依據1_ch"
+        Me.依據1_ch.Size = New System.Drawing.Size(111, 20)
+        Me.依據1_ch.TabIndex = 1556
+        Me.依據1_ch.Text = "依結單日期呈現"
+        Me.依據1_ch.UseVisualStyleBackColor = True
+        '
+        '依據2_ch
+        '
+        Me.依據2_ch.AutoSize = True
+        Me.依據2_ch.Location = New System.Drawing.Point(683, 5)
+        Me.依據2_ch.Name = "依據2_ch"
+        Me.依據2_ch.Size = New System.Drawing.Size(111, 20)
+        Me.依據2_ch.TabIndex = 1557
+        Me.依據2_ch.Text = "無結單日期資料"
+        Me.依據2_ch.UseVisualStyleBackColor = True
+        '
+        '付款日期_dtp
+        '
+        Me.付款日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.付款日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.付款日期_dtp.Location = New System.Drawing.Point(1112, 3)
+        Me.付款日期_dtp.Name = "付款日期_dtp"
+        Me.付款日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.付款日期_dtp.TabIndex = 1558
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(1041, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(65, 16)
+        Me.Label4.TabIndex = 1559
+        Me.Label4.Text = "付款日期 : "
+        '
+        '依據3_ch
+        '
+        Me.依據3_ch.AutoSize = True
+        Me.依據3_ch.Location = New System.Drawing.Point(905, 5)
+        Me.依據3_ch.Name = "依據3_ch"
+        Me.依據3_ch.Size = New System.Drawing.Size(111, 20)
+        Me.依據3_ch.TabIndex = 1560
+        Me.依據3_ch.Text = "依付款日期呈現"
+        Me.依據3_ch.UseVisualStyleBackColor = True
+        '
+        '依據4_ch
+        '
+        Me.依據4_ch.AutoSize = True
+        Me.依據4_ch.Location = New System.Drawing.Point(800, 5)
+        Me.依據4_ch.Name = "依據4_ch"
+        Me.依據4_ch.Size = New System.Drawing.Size(99, 20)
+        Me.依據4_ch.TabIndex = 1561
+        Me.依據4_ch.Text = "無結單未付款"
+        Me.依據4_ch.UseVisualStyleBackColor = True
+        '
         '業績運費明細表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1338, 603)
+        Me.Controls.Add(Me.依據4_ch)
+        Me.Controls.Add(Me.依據3_ch)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.付款日期_dtp)
+        Me.Controls.Add(Me.依據2_ch)
+        Me.Controls.Add(Me.依據1_ch)
         Me.Controls.Add(Me.方便點選功能_ch)
         Me.Controls.Add(Me.全部取消_bt)
         Me.Controls.Add(Me.全部選擇_bt)
@@ -331,4 +403,10 @@ Partial Class 業績運費明細表
     Friend WithEvents 全部取消_bt As Button
     Friend WithEvents 全部選擇_bt As Button
     Friend WithEvents 方便點選功能_ch As CheckBox
+    Friend WithEvents 依據1_ch As CheckBox
+    Friend WithEvents 依據2_ch As CheckBox
+    Friend WithEvents 付款日期_dtp As DateTimePicker
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 依據3_ch As CheckBox
+    Friend WithEvents 依據4_ch As CheckBox
 End Class

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

@@ -17,30 +17,49 @@ Public Class 業績運費明細表
         運費明細表_dgv.AllowUserToAddRows = False
         運費明細表_dgv.RowTemplate.Height = 25
 
-        SQL_業績運費()
+        If 依據1_ch.Checked = True And 依據2_ch.Checked = False And 依據3_ch.Checked = False And 依據4_ch.Checked = False Then : SQL_業績運費1()
+        ElseIf 依據1_ch.Checked = False And 依據2_ch.Checked = True And 依據3_ch.Checked = False And 依據4_ch.Checked = False Then : SQL_業績運費2()
+        ElseIf 依據1_ch.Checked = False And 依據2_ch.Checked = False And 依據3_ch.Checked = True And 依據4_ch.Checked = False Then : SQL_業績運費3()
+        ElseIf 依據1_ch.Checked = False And 依據2_ch.Checked = False And 依據3_ch.Checked = False And 依據4_ch.Checked = True Then : SQL_業績運費4()
+        End If
+
         da.Fill(ds) : 運費明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
         運費明細表_dgv.Columns(0).FillWeight = 80 : 運費明細表_dgv.Columns(1).FillWeight = 80 : 運費明細表_dgv.Columns(2).FillWeight = 100 : 運費明細表_dgv.Columns(3).FillWeight = 80
-        運費明細表_dgv.Columns(4).FillWeight = 80 : 運費明細表_dgv.Columns(5).FillWeight = 180 : 運費明細表_dgv.Columns(6).FillWeight = 200
-
-        運費明細表_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0"
+        運費明細表_dgv.Columns(4).FillWeight = 80 : 運費明細表_dgv.Columns(5).FillWeight = 80 : 運費明細表_dgv.Columns(6).FillWeight = 80 : 運費明細表_dgv.Columns(7).FillWeight = 180
+        運費明細表_dgv.Columns(8).FillWeight = 200 : 運費明細表_dgv.Columns(9).FillWeight = 80
+        運費明細表_dgv.Columns(10).Visible = False
+        運費明細表_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0" : 運費明細表_dgv.Columns("已付運費").DefaultCellStyle.Format = "#,##0"
+        運費明細表_dgv.Columns("已付運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         運費明細表_dgv.Columns("運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         運費明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         運費明細表_dgv.Columns(0).ReadOnly = True : 運費明細表_dgv.Columns(1).ReadOnly = True : 運費明細表_dgv.Columns(2).ReadOnly = True : 運費明細表_dgv.Columns(3).ReadOnly = True
         運費明細表_dgv.Columns(5).ReadOnly = True
-        總數 = 運費明細表_dgv.Rows.Count - 1
-        '計算()
+        For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
+            If IsDBNull(運費明細表_dgv.Rows(I).Cells("已付運費").Value) Then : 運費明細表_dgv.Rows(I).Cells("已付運費").Value = 0 : End If
+            If 運費明細表_dgv.Rows(I).Cells("支出").Value.ToString = "" Then : 運費明細表_dgv.Rows(I).Cells("支出").Value = "0" : End If
+            運費明細表_dgv.Rows(I).Cells("運費").Value = CInt(運費明細表_dgv.Rows(I).Cells("運費").Value) + CInt(運費明細表_dgv.Rows(I).Cells("支出").Value.ToString)
+        Next
+        計算()
     End Sub
     Private Sub 計算()
         NUD1.Value = 0 : NUD2.Value = 0
-        For I As Integer = 0 To 總數
-            If IsDBNull(運費明細表_dgv.Rows(I).Cells("運費已付").Value) = True Then
-                運費明細表_dgv.Rows(I).Cells("運費已付").Value = False
+        For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
+            If IsDBNull(運費明細表_dgv.Rows(I).Cells("運費已付").Value) = True Then : 運費明細表_dgv.Rows(I).Cells("運費已付").Value = False : End If
+            If IsDBNull(運費明細表_dgv.Rows(I).Cells("備註").Value) = True Then : 運費明細表_dgv.Rows(I).Cells("備註").Value = "" : End If
+            If 運費明細表_dgv.Rows(I).Cells("已付運費").Value = 運費明細表_dgv.Rows(I).Cells("運費").Value Then
+                運費明細表_dgv.Rows(I).Cells("付清").Value = True
+            Else
+                運費明細表_dgv.Rows(I).Cells("付清").Value = False
             End If
-            If IsDBNull(運費明細表_dgv.Rows(I).Cells("備註").Value) = True Then
-                運費明細表_dgv.Rows(I).Cells("備註").Value = ""
+            If 運費明細表_dgv.Rows(I).Cells("運費已付").Value = True Then
+                If 運費明細表_dgv.Rows(I).Cells("已付運費").Value <> 0 Then : Else
+                    運費明細表_dgv.Rows(I).Cells("已付運費").Value = 運費明細表_dgv.Rows(I).Cells("運費").Value
+                End If
+            Else
+                運費明細表_dgv.Rows(I).Cells("已付運費").Value = 0
             End If
             If 運費明細表_dgv.Rows(I).Cells("運費已付").Value = True Then
-                NUD1.Value += 運費明細表_dgv.Rows(I).Cells("運費").Value
+                NUD1.Value += 運費明細表_dgv.Rows(I).Cells("已付運費").Value
             Else
                 NUD2.Value += 運費明細表_dgv.Rows(I).Cells("運費").Value
             End If
@@ -99,13 +118,13 @@ Public Class 業績運費明細表
                     Else
                         運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True
                     End If
-                End If
+                End If : 計算()
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub 運費明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 運費明細表_dgv.CellEnter
+    Private Sub 運費明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 運費明細表_dgv.CellEndEdit
         If 首次開啟 = False Then
             計算()
         End If
@@ -131,6 +150,12 @@ Public Class 業績運費明細表
             For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
                 MyModule1.進度條()
                 PA = 運費明細表_dgv.Rows(I).Cells("單號").Value : PA1 = 運費明細表_dgv.Rows(I).Cells("運費已付").Value : PA2 = 運費明細表_dgv.Rows(I).Cells("備註").Value
+                PA4 = 運費明細表_dgv.Rows(I).Cells("已付運費").Value
+                If 運費明細表_dgv.Rows(I).Cells("運費已付").Value = True And 運費明細表_dgv.Rows(I).Cells("運費付款").Value.ToString = "" Then
+                    PA3 = Strings.Format(付款日期_dtp.Value, "yyyy/MM/dd")
+                ElseIf 運費明細表_dgv.Rows(I).Cells("運費已付").Value = True And 運費明細表_dgv.Rows(I).Cells("運費付款").Value.ToString <> "" Then
+                    PA3 = 運費明細表_dgv.Rows(I).Cells("運費付款").Value.ToString
+                Else : PA3 = "" : End If
                 SQL_業績運費_修正()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
             MsgBox("存檔完成!!!") : Set_清單1() : 計算()
@@ -144,6 +169,18 @@ Public Class 業績運費明細表
     Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
         For i As Integer = 0 To 運費明細表_dgv.Rows.Count - 1 : 運費明細表_dgv.Rows(i).Cells("運費已付").Value = False : Next i : 計算()
     End Sub
+    Private Sub 依據1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依據1_ch.Click
+        依據1_ch.Checked = True : 依據2_ch.Checked = False : 依據3_ch.Checked = False : 依據4_ch.Checked = False : Set_清單1() : 計算()
+    End Sub
+    Private Sub 依據2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依據2_ch.Click
+        依據1_ch.Checked = False : 依據2_ch.Checked = True : 依據3_ch.Checked = False : 依據4_ch.Checked = False : Set_清單1() : 計算()
+    End Sub
+    Private Sub 依據3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依據3_ch.Click
+        依據1_ch.Checked = False : 依據2_ch.Checked = False : 依據3_ch.Checked = True : 依據4_ch.Checked = False : Set_清單1() : 計算()
+    End Sub
+    Private Sub 依據4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依據4_ch.Click
+        依據1_ch.Checked = False : 依據2_ch.Checked = False : 依據3_ch.Checked = False : 依據4_ch.Checked = True : Set_清單1() : 計算()
+    End Sub
     Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
         Try
             xlApp = CType(CreateObject("Excel.Application"), Application)
@@ -157,15 +194,16 @@ Public Class 業績運費明細表
 
             xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "司 機 運 費 (明細表)" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
             xlSheet.Cells(4, 1) = "完單日期" : xlSheet.Cells(4, 2) = "單據號碼" : xlSheet.Cells(4, 3) = "客戶名稱" : xlSheet.Cells(4, 4) = "運費" : xlSheet.Cells(4, 5) = "已付"
-            xlSheet.Cells(4, 6) = "地址" : xlSheet.Cells(4, 7) = "備註"
+            xlSheet.Cells(4, 6) = "地址" : xlSheet.Cells(4, 7) = "備註" : xlSheet.Cells(4, 8) = "付款日期"
             For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
                 xlSheet.Cells(I + 5, 1) = 運費明細表_dgv.Rows(I).Cells("完單日期").Value
                 xlSheet.Cells(I + 5, 2) = 運費明細表_dgv.Rows(I).Cells("單號").Value
                 xlSheet.Cells(I + 5, 3) = 運費明細表_dgv.Rows(I).Cells("名稱").Value
                 xlSheet.Cells(I + 5, 4) = 運費明細表_dgv.Rows(I).Cells("運費").Value
-                xlSheet.Cells(I + 5, 5) = 運費明細表_dgv.Rows(I).Cells("運費已付").Value
+                xlSheet.Cells(I + 5, 5) = 運費明細表_dgv.Rows(I).Cells("已付運費").Value
                 xlSheet.Cells(I + 5, 6) = 運費明細表_dgv.Rows(I).Cells("地址").Value
                 xlSheet.Cells(I + 5, 7) = 運費明細表_dgv.Rows(I).Cells("備註").Value
+                xlSheet.Cells(I + 5, 8) = 運費明細表_dgv.Rows(I).Cells("運費付款").Value
                 N1 = I
             Next
             xlSheet.Cells(N1 + 6, 1) = "已付總額" : xlSheet.Cells(N1 + 6, 2) = NUD1.Value
@@ -199,19 +237,19 @@ Public Class 業績運費明細表
         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
-        xlSheet.Columns("B:G").Select
-        xlSheet.Columns("B:G").EntireColumn.AutoFit
-        xlSheet.Range("A1:G1").Select()
+        xlSheet.Columns("B:H").Select
+        xlSheet.Columns("B:H").EntireColumn.AutoFit
+        xlSheet.Range("A1:H1").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 24 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
 
-        xlSheet.Range("A2:G2").Select()
+        xlSheet.Range("A2:H2").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        xlSheet.Range("A4:G4").Select()
+        xlSheet.Range("A4:H4").Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
@@ -219,14 +257,14 @@ Public Class 業績運費明細表
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A3:G3").Select()
+        xlSheet.Range("A3:H3").Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A" & N1 + 5 & ":G" & N1 + 5).Select()
+        xlSheet.Range("A" & N1 + 5 & ":H" & N1 + 5).Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

YD-ERP-SYS/財務系統管理/高層客製報表.Designer.vb

@@ -0,0 +1,927 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 高層客製報表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(高層客製報表))
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.今天_bt = New System.Windows.Forms.Button()
+        Me.下一天_bt = New System.Windows.Forms.Button()
+        Me.上一天_bt = New System.Windows.Forms.Button()
+        Me.開單日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.今日出貨_dgv = New System.Windows.Forms.DataGridView()
+        Me.今日簽單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.新增一筆資料1_bt = New System.Windows.Forms.Button()
+        Me.新增一筆資料2_bt = New System.Windows.Forms.Button()
+        Me.刪除選中資料2_bt = New System.Windows.Forms.Button()
+        Me.刪除選中資料1_bt = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.今日支出_dgv = New System.Windows.Forms.DataGridView()
+        Me.刪除選中資料3_bt = New System.Windows.Forms.Button()
+        Me.新增一筆資料3_bt = New System.Windows.Forms.Button()
+        Me.今日結算_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.流水1_lb = New System.Windows.Forms.Label()
+        Me.流水2_lb = New System.Windows.Forms.Label()
+        Me.流水3_lb = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.今日送貨_dgv = New System.Windows.Forms.DataGridView()
+        Me.今日開單_dgv = New System.Windows.Forms.DataGridView()
+        Me.單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.帶入格_tb = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.帶入格1_tb = New System.Windows.Forms.TextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.過去結算_dgv = New System.Windows.Forms.DataGridView()
+        Me.開單日期1_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.S8_tb = New System.Windows.Forms.TextBox()
+        Me.S7_tb = New System.Windows.Forms.TextBox()
+        Me.S6_tb = New System.Windows.Forms.TextBox()
+        Me.S5_tb = New System.Windows.Forms.TextBox()
+        Me.S4_tb = New System.Windows.Forms.TextBox()
+        Me.S3_tb = New System.Windows.Forms.TextBox()
+        Me.S2_tb = New System.Windows.Forms.TextBox()
+        Me.S1_tb = New System.Windows.Forms.TextBox()
+        Me.錨點1 = New System.Windows.Forms.TextBox()
+        Me.ZOOM_tb = New System.Windows.Forms.Button()
+        Me.空間2 = New System.Windows.Forms.Panel()
+        Me.逆向_ch = New System.Windows.Forms.CheckBox()
+        Me.順向_ch = New System.Windows.Forms.CheckBox()
+        Me.空間1 = New System.Windows.Forms.Panel()
+        Me.Label15 = New System.Windows.Forms.Label()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.今日出貨_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.今日簽單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.今日支出_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.今日結算_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.今日送貨_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.今日開單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.過去結算_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.空間2.SuspendLayout()
+        Me.空間1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '未審核_lb
+        '
+        Me.未審核_lb.AutoSize = True
+        Me.未審核_lb.Location = New System.Drawing.Point(125, 93)
+        Me.未審核_lb.Name = "未審核_lb"
+        Me.未審核_lb.Size = New System.Drawing.Size(56, 16)
+        Me.未審核_lb.TabIndex = 1536
+        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(182, 88)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(46, 24)
+        Me.業務_cb.TabIndex = 1537
+        '
+        '今天_bt
+        '
+        Me.今天_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.今天_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.今天_bt.Location = New System.Drawing.Point(469, 0)
+        Me.今天_bt.Name = "今天_bt"
+        Me.今天_bt.Size = New System.Drawing.Size(57, 23)
+        Me.今天_bt.TabIndex = 1542
+        Me.今天_bt.Text = "今天"
+        Me.今天_bt.UseVisualStyleBackColor = True
+        '
+        '下一天_bt
+        '
+        Me.下一天_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下一天_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下一天_bt.Location = New System.Drawing.Point(528, 0)
+        Me.下一天_bt.Name = "下一天_bt"
+        Me.下一天_bt.Size = New System.Drawing.Size(57, 23)
+        Me.下一天_bt.TabIndex = 1541
+        Me.下一天_bt.Text = "下一天"
+        Me.下一天_bt.UseVisualStyleBackColor = True
+        '
+        '上一天_bt
+        '
+        Me.上一天_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上一天_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上一天_bt.Location = New System.Drawing.Point(410, 0)
+        Me.上一天_bt.Name = "上一天_bt"
+        Me.上一天_bt.Size = New System.Drawing.Size(57, 23)
+        Me.上一天_bt.TabIndex = 1540
+        Me.上一天_bt.Text = "上一天"
+        Me.上一天_bt.UseVisualStyleBackColor = True
+        '
+        '開單日期_dtp
+        '
+        Me.開單日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.開單日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.開單日期_dtp.Location = New System.Drawing.Point(280, 1)
+        Me.開單日期_dtp.Name = "開單日期_dtp"
+        Me.開單日期_dtp.Size = New System.Drawing.Size(127, 23)
+        Me.開單日期_dtp.TabIndex = 1539
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Red
+        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label4.Location = New System.Drawing.Point(224, 4)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.TabIndex = 1538
+        Me.Label4.Text = "報表日期"
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(588, 4)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.TabIndex = 1544
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(644, 1)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.TabIndex = 1543
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '今日出貨_dgv
+        '
+        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
+        Me.今日出貨_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.今日出貨_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.今日出貨_dgv.Location = New System.Drawing.Point(58, 179)
+        Me.今日出貨_dgv.Name = "今日出貨_dgv"
+        Me.今日出貨_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.今日出貨_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.今日出貨_dgv.RowTemplate.Height = 24
+        Me.今日出貨_dgv.Size = New System.Drawing.Size(691, 120)
+        Me.今日出貨_dgv.TabIndex = 1546
+        '
+        '今日簽單_dgv
+        '
+        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
+        Me.今日簽單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.今日簽單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.今日簽單_dgv.Location = New System.Drawing.Point(58, 44)
+        Me.今日簽單_dgv.Name = "今日簽單_dgv"
+        Me.今日簽單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.今日簽單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.今日簽單_dgv.RowTemplate.Height = 24
+        Me.今日簽單_dgv.Size = New System.Drawing.Size(691, 120)
+        Me.今日簽單_dgv.TabIndex = 1545
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(61, 29)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1547
+        Me.Label1.Text = "今日簽單"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(61, 165)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 1548
+        Me.Label2.Text = "今日出單"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(-4, 14)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(988, 16)
+        Me.Label3.TabIndex = 1549
+        Me.Label3.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "___________________________________"
+        '
+        '新增一筆資料1_bt
+        '
+        Me.新增一筆資料1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.新增一筆資料1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增一筆資料1_bt.Location = New System.Drawing.Point(1, 44)
+        Me.新增一筆資料1_bt.Name = "新增一筆資料1_bt"
+        Me.新增一筆資料1_bt.Size = New System.Drawing.Size(55, 50)
+        Me.新增一筆資料1_bt.TabIndex = 1550
+        Me.新增一筆資料1_bt.Text = "新增一筆資料"
+        Me.新增一筆資料1_bt.UseVisualStyleBackColor = True
+        '
+        '新增一筆資料2_bt
+        '
+        Me.新增一筆資料2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.新增一筆資料2_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增一筆資料2_bt.Location = New System.Drawing.Point(1, 179)
+        Me.新增一筆資料2_bt.Name = "新增一筆資料2_bt"
+        Me.新增一筆資料2_bt.Size = New System.Drawing.Size(55, 50)
+        Me.新增一筆資料2_bt.TabIndex = 1551
+        Me.新增一筆資料2_bt.Text = "新增一筆資料"
+        Me.新增一筆資料2_bt.UseVisualStyleBackColor = True
+        '
+        '刪除選中資料2_bt
+        '
+        Me.刪除選中資料2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除選中資料2_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中資料2_bt.Location = New System.Drawing.Point(1, 228)
+        Me.刪除選中資料2_bt.Name = "刪除選中資料2_bt"
+        Me.刪除選中資料2_bt.Size = New System.Drawing.Size(55, 50)
+        Me.刪除選中資料2_bt.TabIndex = 1553
+        Me.刪除選中資料2_bt.Text = "刪除選中資料"
+        Me.刪除選中資料2_bt.UseVisualStyleBackColor = True
+        '
+        '刪除選中資料1_bt
+        '
+        Me.刪除選中資料1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除選中資料1_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中資料1_bt.Location = New System.Drawing.Point(1, 93)
+        Me.刪除選中資料1_bt.Name = "刪除選中資料1_bt"
+        Me.刪除選中資料1_bt.Size = New System.Drawing.Size(55, 50)
+        Me.刪除選中資料1_bt.TabIndex = 1552
+        Me.刪除選中資料1_bt.Text = "刪除選中資料"
+        Me.刪除選中資料1_bt.UseVisualStyleBackColor = True
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(60, 301)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1555
+        Me.Label5.Text = "今日支出"
+        '
+        '今日支出_dgv
+        '
+        Me.今日支出_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.今日支出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.今日支出_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.今日支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.今日支出_dgv.Location = New System.Drawing.Point(58, 316)
+        Me.今日支出_dgv.Name = "今日支出_dgv"
+        Me.今日支出_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.今日支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.今日支出_dgv.RowTemplate.Height = 24
+        Me.今日支出_dgv.Size = New System.Drawing.Size(691, 164)
+        Me.今日支出_dgv.TabIndex = 1554
+        '
+        '刪除選中資料3_bt
+        '
+        Me.刪除選中資料3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除選中資料3_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中資料3_bt.Location = New System.Drawing.Point(0, 365)
+        Me.刪除選中資料3_bt.Name = "刪除選中資料3_bt"
+        Me.刪除選中資料3_bt.Size = New System.Drawing.Size(55, 50)
+        Me.刪除選中資料3_bt.TabIndex = 1557
+        Me.刪除選中資料3_bt.Text = "刪除選中資料"
+        Me.刪除選中資料3_bt.UseVisualStyleBackColor = True
+        '
+        '新增一筆資料3_bt
+        '
+        Me.新增一筆資料3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.新增一筆資料3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增一筆資料3_bt.Location = New System.Drawing.Point(1, 316)
+        Me.新增一筆資料3_bt.Name = "新增一筆資料3_bt"
+        Me.新增一筆資料3_bt.Size = New System.Drawing.Size(55, 50)
+        Me.新增一筆資料3_bt.TabIndex = 1556
+        Me.新增一筆資料3_bt.Text = "新增一筆資料"
+        Me.新增一筆資料3_bt.UseVisualStyleBackColor = True
+        '
+        '今日結算_dgv
+        '
+        Me.今日結算_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.今日結算_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.今日結算_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.今日結算_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.今日結算_dgv.Location = New System.Drawing.Point(58, 498)
+        Me.今日結算_dgv.Name = "今日結算_dgv"
+        Me.今日結算_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.今日結算_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.今日結算_dgv.RowTemplate.Height = 24
+        Me.今日結算_dgv.Size = New System.Drawing.Size(691, 177)
+        Me.今日結算_dgv.TabIndex = 1558
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(61, 483)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1559
+        Me.Label6.Text = "今日結算"
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(1, 498)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(55, 50)
+        Me.存檔_bt.TabIndex = 1562
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(-361, 14)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(1178, 16)
+        Me.Label7.TabIndex = 1563
+        Me.Label7.Text = resources.GetString("Label7.Text")
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(606, 29)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(50, 16)
+        Me.Label8.TabIndex = 1564
+        Me.Label8.Text = "流水號 :"
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(606, 165)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(50, 16)
+        Me.Label9.TabIndex = 1565
+        Me.Label9.Text = "流水號 :"
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(606, 301)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(50, 16)
+        Me.Label10.TabIndex = 1566
+        Me.Label10.Text = "流水號 :"
+        '
+        '流水1_lb
+        '
+        Me.流水1_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.流水1_lb.AutoSize = True
+        Me.流水1_lb.Location = New System.Drawing.Point(659, 29)
+        Me.流水1_lb.Name = "流水1_lb"
+        Me.流水1_lb.Size = New System.Drawing.Size(38, 16)
+        Me.流水1_lb.TabIndex = 1568
+        Me.流水1_lb.Text = ".........."
+        '
+        '流水2_lb
+        '
+        Me.流水2_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.流水2_lb.AutoSize = True
+        Me.流水2_lb.Location = New System.Drawing.Point(659, 165)
+        Me.流水2_lb.Name = "流水2_lb"
+        Me.流水2_lb.Size = New System.Drawing.Size(38, 16)
+        Me.流水2_lb.TabIndex = 1569
+        Me.流水2_lb.Text = ".........."
+        '
+        '流水3_lb
+        '
+        Me.流水3_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.流水3_lb.AutoSize = True
+        Me.流水3_lb.Location = New System.Drawing.Point(659, 301)
+        Me.流水3_lb.Name = "流水3_lb"
+        Me.流水3_lb.Size = New System.Drawing.Size(38, 16)
+        Me.流水3_lb.TabIndex = 1570
+        Me.流水3_lb.Text = ".........."
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(288, 30)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.TabIndex = 1574
+        Me.Label11.Text = "今日送貨"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(4, 29)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.TabIndex = 1573
+        Me.Label12.Text = "今日簽單"
+        '
+        '今日送貨_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.今日送貨_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.今日送貨_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.今日送貨_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.今日送貨_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.今日送貨_dgv.Location = New System.Drawing.Point(291, 46)
+        Me.今日送貨_dgv.Name = "今日送貨_dgv"
+        Me.今日送貨_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.今日送貨_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.今日送貨_dgv.RowTemplate.Height = 24
+        Me.今日送貨_dgv.Size = New System.Drawing.Size(284, 131)
+        Me.今日送貨_dgv.TabIndex = 1572
+        '
+        '今日開單_dgv
+        '
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.今日開單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.今日開單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.今日開單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.今日開單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.今日開單_dgv.Location = New System.Drawing.Point(3, 46)
+        Me.今日開單_dgv.Name = "今日開單_dgv"
+        Me.今日開單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.今日開單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.今日開單_dgv.RowTemplate.Height = 24
+        Me.今日開單_dgv.Size = New System.Drawing.Size(284, 131)
+        Me.今日開單_dgv.TabIndex = 1571
+        '
+        '單號_tb
+        '
+        Me.單號_tb.Location = New System.Drawing.Point(38, 2)
+        Me.單號_tb.Name = "單號_tb"
+        Me.單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.單號_tb.TabIndex = 1575
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(1, 5)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(32, 16)
+        Me.Label13.TabIndex = 1576
+        Me.Label13.Text = "單號"
+        '
+        '銷售單據_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
+        Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售單據_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 180)
+        Me.銷售單據_dgv.Name = "銷售單據_dgv"
+        Me.銷售單據_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.銷售單據_dgv.RowTemplate.Height = 24
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(572, 131)
+        Me.銷售單據_dgv.TabIndex = 1577
+        '
+        '明細_dgv
+        '
+        Me.明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle11.ForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.明細_dgv.DefaultCellStyle = DataGridViewCellStyle11
+        Me.明細_dgv.Location = New System.Drawing.Point(3, 312)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(572, 363)
+        Me.明細_dgv.TabIndex = 1578
+        '
+        '帶入格_tb
+        '
+        Me.帶入格_tb.Location = New System.Drawing.Point(323, 2)
+        Me.帶入格_tb.Name = "帶入格_tb"
+        Me.帶入格_tb.Size = New System.Drawing.Size(122, 23)
+        Me.帶入格_tb.TabIndex = 1579
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.Red
+        Me.Label14.Location = New System.Drawing.Point(245, 5)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(80, 16)
+        Me.Label14.TabIndex = 1580
+        Me.Label14.Text = "準備帶入資料"
+        '
+        '帶入格1_tb
+        '
+        Me.帶入格1_tb.Location = New System.Drawing.Point(451, 2)
+        Me.帶入格1_tb.Name = "帶入格1_tb"
+        Me.帶入格1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.帶入格1_tb.TabIndex = 1581
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.過去結算_dgv)
+        Me.Panel1.Controls.Add(Me.開單日期1_dtp)
+        Me.Panel1.Controls.Add(Me.S8_tb)
+        Me.Panel1.Controls.Add(Me.S7_tb)
+        Me.Panel1.Controls.Add(Me.S6_tb)
+        Me.Panel1.Controls.Add(Me.S5_tb)
+        Me.Panel1.Controls.Add(Me.S4_tb)
+        Me.Panel1.Controls.Add(Me.S3_tb)
+        Me.Panel1.Controls.Add(Me.S2_tb)
+        Me.Panel1.Controls.Add(Me.S1_tb)
+        Me.Panel1.Controls.Add(Me.未審核_lb)
+        Me.Panel1.Controls.Add(Me.業務_cb)
+        Me.Panel1.Location = New System.Drawing.Point(9, 333)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(485, 147)
+        Me.Panel1.TabIndex = 1582
+        Me.Panel1.Visible = False
+        '
+        '過去結算_dgv
+        '
+        Me.過去結算_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.過去結算_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.過去結算_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.過去結算_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.過去結算_dgv.Location = New System.Drawing.Point(256, 3)
+        Me.過去結算_dgv.Name = "過去結算_dgv"
+        Me.過去結算_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.過去結算_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.過去結算_dgv.RowTemplate.Height = 24
+        Me.過去結算_dgv.Size = New System.Drawing.Size(224, 139)
+        Me.過去結算_dgv.TabIndex = 1591
+        '
+        '開單日期1_dtp
+        '
+        Me.開單日期1_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.開單日期1_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.開單日期1_dtp.Location = New System.Drawing.Point(128, 116)
+        Me.開單日期1_dtp.Name = "開單日期1_dtp"
+        Me.開單日期1_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.開單日期1_dtp.TabIndex = 1590
+        '
+        'S8_tb
+        '
+        Me.S8_tb.Location = New System.Drawing.Point(128, 61)
+        Me.S8_tb.Name = "S8_tb"
+        Me.S8_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S8_tb.TabIndex = 1589
+        '
+        'S7_tb
+        '
+        Me.S7_tb.Location = New System.Drawing.Point(128, 32)
+        Me.S7_tb.Name = "S7_tb"
+        Me.S7_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S7_tb.TabIndex = 1588
+        '
+        'S6_tb
+        '
+        Me.S6_tb.Location = New System.Drawing.Point(128, 3)
+        Me.S6_tb.Name = "S6_tb"
+        Me.S6_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S6_tb.TabIndex = 1587
+        '
+        'S5_tb
+        '
+        Me.S5_tb.Location = New System.Drawing.Point(3, 118)
+        Me.S5_tb.Name = "S5_tb"
+        Me.S5_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S5_tb.TabIndex = 1586
+        '
+        'S4_tb
+        '
+        Me.S4_tb.Location = New System.Drawing.Point(3, 90)
+        Me.S4_tb.Name = "S4_tb"
+        Me.S4_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S4_tb.TabIndex = 1585
+        '
+        'S3_tb
+        '
+        Me.S3_tb.Location = New System.Drawing.Point(3, 61)
+        Me.S3_tb.Name = "S3_tb"
+        Me.S3_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S3_tb.TabIndex = 1584
+        '
+        'S2_tb
+        '
+        Me.S2_tb.Location = New System.Drawing.Point(3, 32)
+        Me.S2_tb.Name = "S2_tb"
+        Me.S2_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S2_tb.TabIndex = 1583
+        '
+        'S1_tb
+        '
+        Me.S1_tb.Location = New System.Drawing.Point(3, 3)
+        Me.S1_tb.Name = "S1_tb"
+        Me.S1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.S1_tb.TabIndex = 1582
+        '
+        '錨點1
+        '
+        Me.錨點1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.錨點1.Location = New System.Drawing.Point(581, 676)
+        Me.錨點1.Name = "錨點1"
+        Me.錨點1.Size = New System.Drawing.Size(25, 23)
+        Me.錨點1.TabIndex = 1586
+        Me.錨點1.Visible = False
+        '
+        'ZOOM_tb
+        '
+        Me.ZOOM_tb.Location = New System.Drawing.Point(3, 1)
+        Me.ZOOM_tb.Name = "ZOOM_tb"
+        Me.ZOOM_tb.Size = New System.Drawing.Size(70, 25)
+        Me.ZOOM_tb.TabIndex = 1585
+        Me.ZOOM_tb.Text = "報表編輯"
+        Me.ZOOM_tb.UseVisualStyleBackColor = True
+        '
+        '空間2
+        '
+        Me.空間2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.空間2.BackColor = System.Drawing.Color.White
+        Me.空間2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.空間2.Controls.Add(Me.逆向_ch)
+        Me.空間2.Controls.Add(Me.順向_ch)
+        Me.空間2.Controls.Add(Me.今日簽單_dgv)
+        Me.空間2.Controls.Add(Me.存檔_bt)
+        Me.空間2.Controls.Add(Me.ZOOM_tb)
+        Me.空間2.Controls.Add(Me.Label1)
+        Me.空間2.Controls.Add(Me.今日結算_dgv)
+        Me.空間2.Controls.Add(Me.字體大小調整_lb)
+        Me.空間2.Controls.Add(Me.刪除選中資料3_bt)
+        Me.空間2.Controls.Add(Me.今日支出_dgv)
+        Me.空間2.Controls.Add(Me.字體_NUD)
+        Me.空間2.Controls.Add(Me.新增一筆資料3_bt)
+        Me.空間2.Controls.Add(Me.今日出貨_dgv)
+        Me.空間2.Controls.Add(Me.今天_bt)
+        Me.空間2.Controls.Add(Me.下一天_bt)
+        Me.空間2.Controls.Add(Me.刪除選中資料2_bt)
+        Me.空間2.Controls.Add(Me.上一天_bt)
+        Me.空間2.Controls.Add(Me.開單日期_dtp)
+        Me.空間2.Controls.Add(Me.刪除選中資料1_bt)
+        Me.空間2.Controls.Add(Me.流水3_lb)
+        Me.空間2.Controls.Add(Me.Label4)
+        Me.空間2.Controls.Add(Me.新增一筆資料2_bt)
+        Me.空間2.Controls.Add(Me.流水2_lb)
+        Me.空間2.Controls.Add(Me.Label2)
+        Me.空間2.Controls.Add(Me.新增一筆資料1_bt)
+        Me.空間2.Controls.Add(Me.流水1_lb)
+        Me.空間2.Controls.Add(Me.Label5)
+        Me.空間2.Controls.Add(Me.Label10)
+        Me.空間2.Controls.Add(Me.Label9)
+        Me.空間2.Controls.Add(Me.Label8)
+        Me.空間2.Controls.Add(Me.Label6)
+        Me.空間2.Controls.Add(Me.Label3)
+        Me.空間2.Controls.Add(Me.Label7)
+        Me.空間2.Location = New System.Drawing.Point(581, 0)
+        Me.空間2.Name = "空間2"
+        Me.空間2.Size = New System.Drawing.Size(754, 676)
+        Me.空間2.TabIndex = 1584
+        '
+        '逆向_ch
+        '
+        Me.逆向_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.逆向_ch.AutoSize = True
+        Me.逆向_ch.Location = New System.Drawing.Point(7, 607)
+        Me.逆向_ch.Name = "逆向_ch"
+        Me.逆向_ch.Size = New System.Drawing.Size(51, 52)
+        Me.逆向_ch.TabIndex = 1587
+        Me.逆向_ch.Text = "前帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "追朔" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "模式"
+        Me.逆向_ch.UseVisualStyleBackColor = True
+        '
+        '順向_ch
+        '
+        Me.順向_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.順向_ch.AutoSize = True
+        Me.順向_ch.Checked = True
+        Me.順向_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.順向_ch.Location = New System.Drawing.Point(7, 549)
+        Me.順向_ch.Name = "順向_ch"
+        Me.順向_ch.Size = New System.Drawing.Size(51, 52)
+        Me.順向_ch.TabIndex = 1586
+        Me.順向_ch.Text = "正常" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "作帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "模式"
+        Me.順向_ch.UseVisualStyleBackColor = True
+        '
+        '空間1
+        '
+        Me.空間1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.空間1.BackColor = System.Drawing.Color.White
+        Me.空間1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.空間1.Controls.Add(Me.Label13)
+        Me.空間1.Controls.Add(Me.今日開單_dgv)
+        Me.空間1.Controls.Add(Me.Panel1)
+        Me.空間1.Controls.Add(Me.今日送貨_dgv)
+        Me.空間1.Controls.Add(Me.Label12)
+        Me.空間1.Controls.Add(Me.Label11)
+        Me.空間1.Controls.Add(Me.帶入格1_tb)
+        Me.空間1.Controls.Add(Me.單號_tb)
+        Me.空間1.Controls.Add(Me.帶入格_tb)
+        Me.空間1.Controls.Add(Me.銷售單據_dgv)
+        Me.空間1.Controls.Add(Me.Label14)
+        Me.空間1.Controls.Add(Me.明細_dgv)
+        Me.空間1.Controls.Add(Me.Label15)
+        Me.空間1.Location = New System.Drawing.Point(2, 0)
+        Me.空間1.Name = "空間1"
+        Me.空間1.Size = New System.Drawing.Size(581, 676)
+        Me.空間1.TabIndex = 1583
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(-3, 14)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(583, 16)
+        Me.Label15.TabIndex = 1584
+        Me.Label15.Text = "_________________________________________________________________________________" &
+    "__________________________________"
+        '
+        '高層客製報表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1338, 678)
+        Me.Controls.Add(Me.錨點1)
+        Me.Controls.Add(Me.空間2)
+        Me.Controls.Add(Me.空間1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "高層客製報表"
+        Me.Text = "高層客製報表"
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.今日出貨_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.今日簽單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.今日支出_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.今日結算_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.今日送貨_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.今日開單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.過去結算_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.空間2.ResumeLayout(False)
+        Me.空間2.PerformLayout()
+        Me.空間1.ResumeLayout(False)
+        Me.空間1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents 今天_bt As Button
+    Friend WithEvents 下一天_bt As Button
+    Friend WithEvents 上一天_bt As Button
+    Friend WithEvents 開單日期_dtp As DateTimePicker
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 今日出貨_dgv As DataGridView
+    Friend WithEvents 今日簽單_dgv As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 新增一筆資料1_bt As Button
+    Friend WithEvents 新增一筆資料2_bt As Button
+    Friend WithEvents 刪除選中資料2_bt As Button
+    Friend WithEvents 刪除選中資料1_bt As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 今日支出_dgv As DataGridView
+    Friend WithEvents 刪除選中資料3_bt As Button
+    Friend WithEvents 新增一筆資料3_bt As Button
+    Friend WithEvents 今日結算_dgv As DataGridView
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 流水1_lb As Label
+    Friend WithEvents 流水2_lb As Label
+    Friend WithEvents 流水3_lb As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 今日送貨_dgv As DataGridView
+    Friend WithEvents 今日開單_dgv As DataGridView
+    Friend WithEvents 單號_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Protected WithEvents 銷售單據_dgv As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
+    Friend WithEvents 帶入格_tb As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 帶入格1_tb As TextBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents S8_tb As TextBox
+    Friend WithEvents S7_tb As TextBox
+    Friend WithEvents S6_tb As TextBox
+    Friend WithEvents S5_tb As TextBox
+    Friend WithEvents S4_tb As TextBox
+    Friend WithEvents S3_tb As TextBox
+    Friend WithEvents S2_tb As TextBox
+    Friend WithEvents S1_tb As TextBox
+    Friend WithEvents 錨點1 As TextBox
+    Friend WithEvents ZOOM_tb As Button
+    Friend WithEvents 空間2 As Panel
+    Friend WithEvents 空間1 As Panel
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 開單日期1_dtp As DateTimePicker
+    Friend WithEvents 逆向_ch As CheckBox
+    Friend WithEvents 順向_ch As CheckBox
+    Friend WithEvents 過去結算_dgv As DataGridView
+End Class

YD-ERP-SYS/財務系統管理/高層客製報表.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label7.Text" xml:space="preserve">
+    <value>__________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</value>
+  </data>
+</root>

YD-ERP-SYS/財務系統管理/高層客製報表.vb

@@ -0,0 +1,622 @@
+Public Class 高層客製報表
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
+    Dim ESTR, ESTR1, 合計判斷 As String
+    Dim EDR, EDR1 As Integer
+    Dim 啟動運算 As Boolean
+    Dim A1, A2, A3, B2, B3 As Integer
+    Private Sub Set_清單1()
+        Try
+            今日簽單_dgv.DataSource = Nothing : ds1.Clear()
+            今日簽單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            今日簽單_dgv.ColumnHeadersHeight = 25
+            今日簽單_dgv.AllowUserToAddRows = False
+            今日簽單_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            SQL_今日簽單()
+            da.Fill(ds1) : 今日簽單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+            今日簽單_dgv.Columns(0).Visible = False : 今日簽單_dgv.Columns(1).Visible = False : 今日簽單_dgv.Columns(10).Visible = False
+            今日簽單_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(4).DefaultCellStyle.Format = "#,##0"
+            今日簽單_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.EditMode = DataGridViewEditMode.EditOnEnter
+            Set_今日簽單_dgv_計算() : 流水1_lb.Text = ".........."
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單2()
+        Try
+            今日出貨_dgv.DataSource = Nothing : ds2.Clear()
+            今日出貨_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            今日出貨_dgv.ColumnHeadersHeight = 25
+            今日出貨_dgv.AllowUserToAddRows = False
+            今日出貨_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            SQL_今日送貨()
+            da.Fill(ds2) : 今日出貨_dgv.DataSource = ds2.Tables(0) : conn.Close()
+            今日出貨_dgv.Columns(0).Visible = False : 今日出貨_dgv.Columns(1).Visible = False : 今日出貨_dgv.Columns(10).Visible = False
+            今日出貨_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(4).DefaultCellStyle.Format = "#,##0"
+            今日出貨_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.EditMode = DataGridViewEditMode.EditOnEnter
+            Set_今日出貨_dgv_計算() : 流水2_lb.Text = ".........."
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單3()
+        Try
+            今日支出_dgv.DataSource = Nothing : ds3.Clear()
+            今日支出_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            今日支出_dgv.ColumnHeadersHeight = 25
+            今日支出_dgv.AllowUserToAddRows = False
+            今日支出_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            SQL_今日支出()
+            da.Fill(ds3) : 今日支出_dgv.DataSource = ds3.Tables(0) : conn.Close()
+            今日支出_dgv.Columns(0).Visible = False : 今日支出_dgv.Columns(1).Visible = False : 今日支出_dgv.Columns(10).Visible = False
+            今日支出_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(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.EditMode = DataGridViewEditMode.EditOnEnter
+            Set_今日支出_dgv_計算() : 流水3_lb.Text = ".........."
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單4()
+        Try
+            今日結算_dgv.DataSource = Nothing : ds.Clear()
+            今日結算_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            今日結算_dgv.ColumnHeadersHeight = 25
+            今日結算_dgv.AllowUserToAddRows = False
+            今日結算_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            SQL_今日結算()
+            da.Fill(ds) : 今日結算_dgv.DataSource = ds.Tables(0) : conn.Close()
+            今日結算_dgv.Columns(0).Visible = False : 今日結算_dgv.Columns(1).Visible = False
+            今日結算_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(10).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(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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            今日結算_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單4_1()
+        Try
+            過去結算_dgv.DataSource = Nothing : ds8.Clear()
+            過去結算_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            過去結算_dgv.ColumnHeadersHeight = 25
+            過去結算_dgv.AllowUserToAddRows = False
+            過去結算_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期1_dtp.Value, "yyyy/MM/dd")
+            SQL_今日結算()
+            da.Fill(ds8) : 過去結算_dgv.DataSource = ds8.Tables(0) : conn.Close()
+            過去結算_dgv.Columns(0).Visible = False : 過去結算_dgv.Columns(1).Visible = False : 過去結算_dgv.Columns(3).Visible = False : 過去結算_dgv.Columns(5).Visible = False
+            過去結算_dgv.Columns(6).Visible = False : 過去結算_dgv.Columns(7).Visible = False : 過去結算_dgv.Columns(8).Visible = False : 過去結算_dgv.Columns(9).Visible = False
+            過去結算_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(10).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(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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+            Set_清單4_自動判斷2()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單4_自動判斷2()
+        If 過去結算_dgv.Rows.Count > 0 Then
+            If 順向_ch.Checked = True Then
+                For I As Integer = 0 To 過去結算_dgv.Rows.Count - 1 : 今日結算_dgv(4, I).Value = 過去結算_dgv(10, I).Value.ToString : Next
+            Else
+                For I As Integer = 0 To 過去結算_dgv.Rows.Count - 1 : 今日結算_dgv(10, I).Value = 過去結算_dgv(4, I).Value.ToString : Next
+            End If : Set_今日結算_dgv_計算()
+        End If
+    End Sub
+    Private Sub Set_清單4_自動判斷()
+        If 今日結算_dgv.Rows.Count > 0 Then
+            Set_今日結算_dgv_計算()
+        Else
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            新增資料流水1() : PA2 = "1.刷卡" : PA3 = "支票" : SQL_客製表2_新增() : 新增資料流水1() : PA2 = "2.雅邸" : PA3 = "活存" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "3.呂苡瑄" : PA3 = "活存" : SQL_客製表2_新增() : 新增資料流水1() : PA2 = "4.中國信託" : PA3 = "活存" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "5.EDA" : PA3 = "" : SQL_客製表2_新增() : 新增資料流水1() : PA2 = "6.合計" : PA3 = "" : SQL_客製表2_新增()
+            Set_清單4()
+        End If
+    End Sub
+    Private Sub 新增資料流水1()
+        SQL_客製表2_最後一筆資料()
+        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+        conn.Close() : EDR += 1
+        If EDR < 10 Then : ESTR = "YD" & "00000000" & EDR
+        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "YD" & "0000000" & EDR
+        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "YD" & "000000" & EDR
+        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "YD" & "00000" & EDR
+        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "YD" & "0000" & EDR
+        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "YD" & "000" & EDR
+        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "YD" & "00" & EDR
+        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "YD" & "0" & EDR
+        ElseIf EDR > 99999999 Then : ESTR = "YD" & EDR : End If
+        PA1 = ESTR
+    End Sub
+    Private Sub Set_清單5()
+        Try
+            今日開單_dgv.DataSource = Nothing : ds4.Clear()
+            今日開單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            今日開單_dgv.ColumnHeadersHeight = 25
+            今日開單_dgv.AllowUserToAddRows = False
+            今日開單_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            SQL_當日簽單()
+            da.Fill(ds4) : 今日開單_dgv.DataSource = ds4.Tables(0) : conn.Close()
+            今日開單_dgv.Columns(3).Visible = False : 今日開單_dgv.Columns(4).Visible = False : 今日開單_dgv.Columns(5).Visible = False : 今日開單_dgv.Columns(6).Visible = False
+            今日開單_dgv.Columns("簽單金額").DefaultCellStyle.Format = "#,##0" : 今日開單_dgv.Columns("目前已收").DefaultCellStyle.Format = "#,##0"
+            今日開單_dgv.Columns("其他應收").DefaultCellStyle.Format = "#,##0" : 今日開單_dgv.Columns("未收餘額").DefaultCellStyle.Format = "#,##0"
+            今日開單_dgv.Columns("簽單金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("簽單金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("目前已收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("目前已收").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("其他應收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("其他應收").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("未收餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日開單_dgv.Columns("未收餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            For i As Integer = 0 To 今日開單_dgv.Rows.Count - 1
+                If 今日開單_dgv("簽單金額", i).Value.ToString = "" Then : 今日開單_dgv("簽單金額", i).Value = 0 : End If
+                If 今日開單_dgv("目前已收", i).Value.ToString = "" Then : 今日開單_dgv("目前已收", i).Value = 0 : End If
+                If 今日開單_dgv("其他應收", i).Value.ToString = "" Then : 今日開單_dgv("其他應收", i).Value = 0 : End If
+                今日開單_dgv("未收餘額", i).Value =
+                    CInt(今日開單_dgv("簽單金額", i).Value.ToString) + CInt(今日開單_dgv("其他應收", i).Value.ToString) - CInt(今日開單_dgv("目前已收", i).Value.ToString)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單6()
+        Try
+            今日送貨_dgv.DataSource = Nothing : ds5.Clear()
+            今日送貨_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            今日送貨_dgv.ColumnHeadersHeight = 25
+            今日送貨_dgv.AllowUserToAddRows = False
+            今日送貨_dgv.RowTemplate.Height = 25
+
+            PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+            SQL_當日送貨()
+            da.Fill(ds5) : 今日送貨_dgv.DataSource = ds5.Tables(0) : conn.Close()
+            今日送貨_dgv.Columns(3).Visible = False : 今日送貨_dgv.Columns(4).Visible = False : 今日送貨_dgv.Columns(5).Visible = False : 今日送貨_dgv.Columns(6).Visible = False
+            今日送貨_dgv.Columns("簽單金額").DefaultCellStyle.Format = "#,##0" : 今日送貨_dgv.Columns("目前已收").DefaultCellStyle.Format = "#,##0"
+            今日送貨_dgv.Columns("其他應收").DefaultCellStyle.Format = "#,##0" : 今日送貨_dgv.Columns("未收餘額").DefaultCellStyle.Format = "#,##0"
+            今日送貨_dgv.Columns("簽單金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("簽單金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("目前已收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("目前已收").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("其他應收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("其他應收").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("未收餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            今日送貨_dgv.Columns("未收餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            For i As Integer = 0 To 今日送貨_dgv.Rows.Count - 1
+                If 今日送貨_dgv("簽單金額", i).Value.ToString = "" Then : 今日送貨_dgv("簽單金額", i).Value = 0 : End If
+                If 今日送貨_dgv("目前已收", i).Value.ToString = "" Then : 今日送貨_dgv("目前已收", i).Value = 0 : End If
+                If 今日送貨_dgv("其他應收", i).Value.ToString = "" Then : 今日送貨_dgv("其他應收", i).Value = 0 : End If
+                今日送貨_dgv("未收餘額", i).Value =
+                    CInt(今日送貨_dgv("簽單金額", i).Value.ToString) + CInt(今日送貨_dgv("其他應收", i).Value.ToString) - CInt(今日送貨_dgv("目前已收", i).Value.ToString)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_清單7()
+        Try
+            銷售單據_dgv.DataSource = Nothing : ds6.Clear()
+            銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            銷售單據_dgv.ColumnHeadersHeight = 25
+            銷售單據_dgv.AllowUserToAddRows = False
+            銷售單據_dgv.RowTemplate.Height = 25
+
+            PA19 = 單號_tb.Text : PA20 = "" : PA21 = 單號_tb.Text
+            SQL_客製表_訂單控制表()
+            da.Fill(ds6) : 銷售單據_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+            銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 100
+            銷售單據_dgv.Columns(4).FillWeight = 100 : 銷售單據_dgv.Columns(5).FillWeight = 65 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
+            銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
+            銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = False : 銷售單據_dgv.Columns(14).Visible = False : 銷售單據_dgv.Columns(15).Visible = False
+            銷售單據_dgv.Columns(16).Visible = False : 銷售單據_dgv.Columns(17).Visible = False : 銷售單據_dgv.Columns(18).Visible = False : 銷售單據_dgv.Columns(19).FillWeight = 65
+            銷售單據_dgv.Columns(20).Visible = False : 銷售單據_dgv.Columns(21).FillWeight = 65 : 銷售單據_dgv.Columns("未收額額").Visible = False
+
+            銷售單據_dgv.Columns("銷貨總額").DefaultCellStyle.Format = "#,##0"
+            銷售單據_dgv.Columns("銷貨總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            銷售單據_dgv.Columns("銷貨總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            For i As Integer = 0 To 銷售單據_dgv.Rows.Count - 1
+                If IsDBNull(銷售單據_dgv("轉業績日期", i).Value) Then : 銷售單據_dgv("轉業績日期", i).Value = "" : End If
+                If IsDBNull(銷售單據_dgv("已結單", i).Value) Then : 銷售單據_dgv("已結單", i).Value = False : Else : 銷售單據_dgv("已結單", i).Value = False : End If
+                If 銷售單據_dgv("轉業績日期", i).Value.ToString <> "" Then : 銷售單據_dgv("已結單", i).Value = True : End If
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_費用清單()
+        Try
+            明細_dgv.DataSource = Nothing : ds7.Clear()
+            明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            明細_dgv.ColumnHeadersHeight = 25
+            明細_dgv.AllowUserToAddRows = False
+            明細_dgv.RowTemplate.Height = 30
+
+            SQL2 = "" : SQL_客製表_查詢費用清單()
+            da.Fill(ds7) : 明細_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+            明細_dgv.Columns(0).FillWeight = 250 : 明細_dgv.Columns(1).Visible = False : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 400
+            明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+            明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+            明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(9).Visible = False : 明細_dgv.Columns(10).Visible = False : 明細_dgv.Columns("票期").Visible = False
+            明細_dgv.Columns("零用金").Visible = False : 明細_dgv.Columns("支票").Visible = False
+            明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
+
+            明細_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(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    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
+            A1 = 空間1.Location.X : A2 = 空間2.Location.X : B2 = 空間2.Location.Y : A3 = 空間2.Size.Width : B3 = 空間2.Size.Height
+            啟動運算 = False
+            業務_cb_下拉表單資料載入()
+
+            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+                字體_NUD.Value = 9
+            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+                字體_NUD.Value = 8
+            End If
+            啟動運算 = True : ZOOM_tb.PerformClick()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub 高層客製報表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_清單5() : Set_清單6() : Set_費用清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單4_自動判斷() : Set_清單4_自動判斷()
+    End Sub
+    Private Sub 高層客製報表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        A1 = 空間1.Location.X : A2 = 錨點1.Location.X : B2 = 空間2.Location.Y
+        If 空間1.Visible = False Then : A3 = 空間2.Size.Width : B3 = 空間2.Size.Height : A3 -= (A2 - A1) : End If
+    End Sub
+    Private Sub 今日簽單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日簽單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            流水1_lb.Text = 今日簽單_dgv("流水號", e.RowIndex).Value.ToString : 合計判斷 = 今日簽單_dgv(2, e.RowIndex).Value.ToString
+            帶入格1_tb.Text = 今日簽單_dgv(e.ColumnIndex, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 今日出貨_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日出貨_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            流水2_lb.Text = 今日出貨_dgv("流水號", e.RowIndex).Value.ToString : 合計判斷 = 今日出貨_dgv(2, e.RowIndex).Value.ToString
+            帶入格1_tb.Text = 今日出貨_dgv(e.ColumnIndex, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 今日支出_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日支出_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            流水3_lb.Text = 今日支出_dgv("流水號", e.RowIndex).Value.ToString : 合計判斷 = 今日支出_dgv(2, e.RowIndex).Value.ToString
+            帶入格1_tb.Text = 今日支出_dgv(e.ColumnIndex, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 今日開單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日開單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            單號_tb.Text = 今日開單_dgv("單號", e.RowIndex).Value.ToString
+            帶入格_tb.Text = 今日開單_dgv(e.ColumnIndex, e.RowIndex).Value.ToString : Set_清單7()
+        End If
+    End Sub
+    Private Sub 今日送貨_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日送貨_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            單號_tb.Text = 今日送貨_dgv("單號", e.RowIndex).Value.ToString
+            帶入格_tb.Text = 今日送貨_dgv(e.ColumnIndex, e.RowIndex).Value.ToString : Set_清單7()
+        End If
+    End Sub
+    Private Sub 銷售單據_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 銷售單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 帶入格_tb.Text = 銷售單據_dgv(e.ColumnIndex, e.RowIndex).Value.ToString : End If
+    End Sub
+    Private Sub 明細_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            S1_tb.Text = 明細_dgv(0, e.RowIndex).Value.ToString : S2_tb.Text = 明細_dgv(2, e.RowIndex).Value.ToString
+            S3_tb.Text = 明細_dgv(3, e.RowIndex).Value.ToString : S4_tb.Text = 明細_dgv(4, e.RowIndex).Value.ToString
+            S5_tb.Text = 明細_dgv(5, e.RowIndex).Value.ToString : S6_tb.Text = 明細_dgv(6, e.RowIndex).Value.ToString
+            S7_tb.Text = 明細_dgv(7, e.RowIndex).Value.ToString : S8_tb.Text = 明細_dgv(8, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 今日結算_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日結算_dgv.CellDoubleClick
+        If e.RowIndex = -1 Then : Else
+            If 帶入格_tb.Text <> "" Then
+                今日結算_dgv(e.ColumnIndex, e.RowIndex).Value = 帶入格_tb.Text : 帶入格_tb.Text = "" : 帶入格1_tb.Text = ""
+            Else
+                今日結算_dgv(e.ColumnIndex, e.RowIndex).Value = 帶入格1_tb.Text : 帶入格_tb.Text = "" : 帶入格1_tb.Text = ""
+            End If
+        End If
+    End Sub
+    Private Sub 今日簽單_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日簽單_dgv.CellDoubleClick
+        If e.RowIndex = -1 Then : Else
+            If 帶入格_tb.Text <> "" Then
+                今日簽單_dgv(e.ColumnIndex, e.RowIndex).Value = 帶入格_tb.Text : 帶入格_tb.Text = "" : 帶入格1_tb.Text = ""
+            Else
+                今日簽單_dgv(e.ColumnIndex, e.RowIndex).Value = 帶入格1_tb.Text : 帶入格_tb.Text = "" : 帶入格1_tb.Text = ""
+            End If
+        End If
+    End Sub
+    Private Sub 今日出貨_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日出貨_dgv.CellDoubleClick
+        If e.RowIndex = -1 Then : Else
+            If 帶入格_tb.Text <> "" Then
+                今日出貨_dgv(e.ColumnIndex, e.RowIndex).Value = 帶入格_tb.Text : 帶入格_tb.Text = "" : 帶入格1_tb.Text = ""
+            Else
+                今日出貨_dgv(e.ColumnIndex, e.RowIndex).Value = 帶入格1_tb.Text : 帶入格_tb.Text = "" : 帶入格1_tb.Text = ""
+            End If
+        End If
+    End Sub
+    Private Sub 今日支出_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日支出_dgv.CellDoubleClick
+        If e.RowIndex = -1 Then : Else
+            今日支出_dgv(2, e.RowIndex).Value = S1_tb.Text : S1_tb.Text = "" : 今日支出_dgv(3, e.RowIndex).Value = S2_tb.Text : S2_tb.Text = ""
+            今日支出_dgv(4, e.RowIndex).Value = S3_tb.Text : S3_tb.Text = "" : 今日支出_dgv(5, e.RowIndex).Value = S4_tb.Text : S4_tb.Text = ""
+            今日支出_dgv(6, e.RowIndex).Value = S5_tb.Text : S5_tb.Text = "" : 今日支出_dgv(7, e.RowIndex).Value = S6_tb.Text : S6_tb.Text = ""
+            今日支出_dgv(8, e.RowIndex).Value = S7_tb.Text : S7_tb.Text = "" : 今日支出_dgv(9, e.RowIndex).Value = S8_tb.Text : S8_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 今日簽單_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 今日簽單_dgv.CellEndEdit
+        If 啟動運算 = True Then : Set_今日簽單_dgv_計算() : End If
+    End Sub
+    Private Sub 今日出貨_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 今日出貨_dgv.CellEndEdit
+        If 啟動運算 = True Then : Set_今日出貨_dgv_計算() : End If
+    End Sub
+    Private Sub 今日支出_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 今日支出_dgv.CellEndEdit
+        If 啟動運算 = True Then : Set_今日支出_dgv_計算() : End If
+    End Sub
+    Private Sub 今日結算_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 今日結算_dgv.CellEndEdit
+        If 啟動運算 = True Then : Set_今日結算_dgv_計算() : End If
+    End Sub
+    Private Sub Set_今日簽單_dgv_計算()
+        Dim A3, A4, A5, A6, A7 As Integer
+        For i As Integer = 0 To 今日簽單_dgv.Rows.Count - 1
+            If 今日簽單_dgv(4, i).Value.ToString = "" Then : 今日簽單_dgv(4, i).Value = "0" : End If
+            If IsNumeric(今日簽單_dgv(4, i).Value.ToString) = True Then
+                今日簽單_dgv(4, i).Value = Strings.Format(CInt(今日簽單_dgv(4, i).Value), "#,##0")
+            End If
+            If 今日簽單_dgv(2, i).Value.ToString <> "合計" Then
+                A4 += 今日簽單_dgv(5, i).Value : A5 += 今日簽單_dgv(6, i).Value : A6 += 今日簽單_dgv(7, i).Value : A7 += 今日簽單_dgv(8, i).Value
+                A3 += CInt(今日簽單_dgv(4, i).Value)
+            End If
+        Next
+        For i As Integer = 0 To 今日簽單_dgv.Rows.Count - 1
+            If 今日簽單_dgv(2, i).Value.ToString = "合計" Then
+                今日簽單_dgv(5, i).Value = A4 : 今日簽單_dgv(6, i).Value = A5 : 今日簽單_dgv(7, i).Value = A6 : 今日簽單_dgv(8, i).Value = A7
+                今日簽單_dgv(4, i).Value = A3
+            End If
+        Next
+    End Sub
+    Private Sub Set_今日出貨_dgv_計算()
+        Dim A3, A4, A5, A6, A7 As Integer
+        For i As Integer = 0 To 今日出貨_dgv.Rows.Count - 1
+            If 今日出貨_dgv(4, i).Value.ToString = "" Then : 今日出貨_dgv(4, i).Value = "0" : End If
+            If IsNumeric(今日出貨_dgv(4, i).Value.ToString) = True Then
+                今日出貨_dgv(4, i).Value = Strings.Format(CInt(今日出貨_dgv(4, i).Value), "#,##0")
+            End If
+            If 今日出貨_dgv(2, i).Value.ToString <> "合計" Then
+                A4 += 今日出貨_dgv(5, i).Value : A5 += 今日出貨_dgv(6, i).Value : A6 += 今日出貨_dgv(7, i).Value : A7 += 今日出貨_dgv(8, i).Value
+                A3 += CInt(今日出貨_dgv(4, i).Value)
+            End If
+        Next
+        For i As Integer = 0 To 今日出貨_dgv.Rows.Count - 1
+            If 今日出貨_dgv(2, i).Value.ToString = "合計" Then
+                今日出貨_dgv(5, i).Value = A4 : 今日出貨_dgv(6, i).Value = A5 : 今日出貨_dgv(7, i).Value = A6 : 今日出貨_dgv(8, i).Value = A7
+                今日出貨_dgv(4, i).Value = A3
+            End If
+        Next
+    End Sub
+    Private Sub Set_今日支出_dgv_計算()
+        Dim A4, A5, A6, A7 As Integer
+        For i As Integer = 0 To 今日支出_dgv.Rows.Count - 1
+            If 今日支出_dgv(2, i).Value.ToString <> "合計" Then
+                A4 += 今日支出_dgv(5, i).Value : A5 += 今日支出_dgv(6, i).Value : A6 += 今日支出_dgv(7, i).Value : A7 += 今日支出_dgv(8, i).Value
+            End If
+        Next
+        For i As Integer = 0 To 今日支出_dgv.Rows.Count - 1
+            If 今日支出_dgv(2, i).Value.ToString = "合計" Then
+                今日支出_dgv(5, i).Value = A4 : 今日支出_dgv(6, i).Value = A5 : 今日支出_dgv(7, i).Value = A6 : 今日支出_dgv(8, i).Value = A7
+            End If
+        Next
+    End Sub
+    Private Sub Set_今日結算_dgv_計算()
+        Dim A4, A5, A6, A7, A8, A10 As Integer
+        For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
+            If 今日結算_dgv(2, i).Value.ToString <> "6.合計" Then
+                If 順向_ch.Checked = True Then
+                    今日結算_dgv(10, i).Value = 今日結算_dgv(4, i).Value + 今日結算_dgv(5, i).Value + 今日結算_dgv(6, i).Value + 今日結算_dgv(7, i).Value - 今日結算_dgv(8, i).Value
+                Else
+                    今日結算_dgv(4, i).Value = 今日結算_dgv(10, i).Value + 今日結算_dgv(8, i).Value - 今日結算_dgv(7, i).Value - 今日結算_dgv(6, i).Value - 今日結算_dgv(5, i).Value
+                End If
+                A4 += 今日結算_dgv(4, i).Value : A5 += 今日結算_dgv(5, i).Value : A6 += 今日結算_dgv(6, i).Value : A7 += 今日結算_dgv(7, i).Value
+                A8 += 今日結算_dgv(8, i).Value : A10 += 今日結算_dgv(10, i).Value
+            End If
+        Next
+        For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
+            If 今日結算_dgv(2, i).Value.ToString = "6.合計" Then
+                今日結算_dgv(4, i).Value = A4 : 今日結算_dgv(5, i).Value = A5 : 今日結算_dgv(6, i).Value = A6 : 今日結算_dgv(7, i).Value = A7
+                今日結算_dgv(8, i).Value = A8 : 今日結算_dgv(10, i).Value = A10
+            End If
+        Next
+    End Sub
+    Private Sub 新增資料流水()
+        SQL_客製表1_最後一筆資料()
+        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+        conn.Close() : EDR += 1
+        If EDR < 10 Then : ESTR = "YD" & "00000000" & EDR
+        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "YD" & "0000000" & EDR
+        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "YD" & "000000" & EDR
+        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "YD" & "00000" & EDR
+        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "YD" & "0000" & EDR
+        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "YD" & "000" & EDR
+        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "YD" & "00" & EDR
+        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "YD" & "0" & EDR
+        ElseIf EDR > 99999999 Then : ESTR = "YD" & EDR : End If
+        PA1 = ESTR
+    End Sub
+    Private Sub 新增一筆資料1_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆資料1_bt.Click
+        存檔() : 類別 = "A" : PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : PA2 = "" : 新增資料流水() : SQL_客製表1_新增() : Set_清單1()
+        Dim 開單 As Boolean
+        For i As Integer = 0 To 今日簽單_dgv.Rows.Count - 1
+            If 今日簽單_dgv(2, i).Value.ToString = "合計" Then : 開單 = False : Exit For : Else : 開單 = True : End If
+        Next
+        If 開單 = True Then : PA2 = "合計" : 新增資料流水() : SQL_客製表1_新增() : End If
+        Set_清單1()
+    End Sub
+    Private Sub 新增一筆資料2_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆資料2_bt.Click
+        存檔() : 類別 = "B" : PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : PA2 = "" : 新增資料流水() : SQL_客製表1_新增() : Set_清單2()
+        Dim 開單 As Boolean
+        For i As Integer = 0 To 今日出貨_dgv.Rows.Count - 1
+            If 今日出貨_dgv(2, i).Value.ToString = "合計" Then : 開單 = False : Exit For : Else : 開單 = True : End If
+        Next
+        If 開單 = True Then : PA2 = "合計" : 新增資料流水() : SQL_客製表1_新增() : End If
+        Set_清單2()
+    End Sub
+    Private Sub 新增一筆資料3_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆資料3_bt.Click
+        存檔() : 類別 = "C" : PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : PA2 = "" : 新增資料流水() : SQL_客製表1_新增() : Set_清單3()
+        Dim 開單 As Boolean
+        For i As Integer = 0 To 今日支出_dgv.Rows.Count - 1
+            If 今日支出_dgv(2, i).Value.ToString = "合計" Then : 開單 = False : Exit For : Else : 開單 = True : End If
+        Next
+        If 開單 = True Then : PA2 = "合計" : 新增資料流水() : SQL_客製表1_新增() : End If
+        Set_清單3()
+    End Sub
+    Private Sub 刪除選中資料1_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中資料1_bt.Click
+        存檔() : If 合計判斷 <> "合計" Then : PA1 = 流水1_lb.Text : SQL_客製表1_刪除() : Set_清單1() : End If
+    End Sub
+    Private Sub 刪除選中資料2_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中資料2_bt.Click
+        存檔() : If 合計判斷 <> "合計" Then : PA1 = 流水2_lb.Text : SQL_客製表1_刪除() : Set_清單2() : End If
+    End Sub
+    Private Sub 刪除選中資料3_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中資料3_bt.Click
+        存檔() : If 合計判斷 <> "合計" Then : PA1 = 流水3_lb.Text : SQL_客製表1_刪除() : Set_清單3() : End If
+    End Sub
+    Private Sub 存檔()
+        PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
+        For i As Integer = 0 To 今日簽單_dgv.Rows.Count - 1
+            PA1 = 今日簽單_dgv("流水號", i).Value.ToString : PA2 = 今日簽單_dgv(2, i).Value.ToString : PA3 = 今日簽單_dgv(3, i).Value.ToString
+            PA4 = 今日簽單_dgv(4, i).Value.ToString : PA5 = 今日簽單_dgv(5, i).Value.ToString : PA6 = 今日簽單_dgv(6, i).Value.ToString
+            PA7 = 今日簽單_dgv(7, i).Value.ToString : PA8 = 今日簽單_dgv(8, i).Value.ToString : PA9 = 今日簽單_dgv(9, i).Value.ToString
+            SQL_客製表1_修改()
+        Next
+        For i As Integer = 0 To 今日出貨_dgv.Rows.Count - 1
+            PA1 = 今日出貨_dgv("流水號", i).Value.ToString : PA2 = 今日出貨_dgv(2, i).Value.ToString : PA3 = 今日出貨_dgv(3, i).Value.ToString
+            PA4 = 今日出貨_dgv(4, i).Value.ToString : PA5 = 今日出貨_dgv(5, i).Value.ToString : PA6 = 今日出貨_dgv(6, i).Value.ToString
+            PA7 = 今日出貨_dgv(7, i).Value.ToString : PA8 = 今日出貨_dgv(8, i).Value.ToString : PA9 = 今日出貨_dgv(9, i).Value.ToString
+            SQL_客製表1_修改()
+        Next
+        For i As Integer = 0 To 今日支出_dgv.Rows.Count - 1
+            PA1 = 今日支出_dgv("流水號", i).Value.ToString : PA2 = 今日支出_dgv(2, i).Value.ToString : PA3 = 今日支出_dgv(3, i).Value.ToString
+            PA4 = 今日支出_dgv(4, i).Value.ToString : PA5 = 今日支出_dgv(5, i).Value.ToString : PA6 = 今日支出_dgv(6, i).Value.ToString
+            PA7 = 今日支出_dgv(7, i).Value.ToString : PA8 = 今日支出_dgv(8, i).Value.ToString : PA9 = 今日支出_dgv(9, i).Value.ToString
+            SQL_客製表1_修改()
+        Next
+        For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
+            PA1 = 今日結算_dgv("流水號", i).Value.ToString : PA4 = 今日結算_dgv(4, i).Value.ToString : PA5 = 今日結算_dgv(5, i).Value.ToString
+            PA6 = 今日結算_dgv(6, i).Value.ToString : PA7 = 今日結算_dgv(7, i).Value.ToString : PA8 = 今日結算_dgv(8, i).Value.ToString
+            PA9 = 今日結算_dgv(9, i).Value.ToString : PA10 = 今日結算_dgv(10, i).Value.ToString
+            SQL_客製表2_修改()
+        Next
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔() : MsgBox("存檔完成!!")
+    End Sub
+    Private Sub 翻頁存檔()
+        For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
+            PA1 = 今日結算_dgv("流水號", i).Value.ToString : PA4 = 今日結算_dgv(4, i).Value.ToString : PA5 = 今日結算_dgv(5, i).Value.ToString
+            PA6 = 今日結算_dgv(6, i).Value.ToString : PA7 = 今日結算_dgv(7, i).Value.ToString : PA8 = 今日結算_dgv(8, i).Value.ToString
+            PA9 = 今日結算_dgv(9, i).Value.ToString : PA10 = 今日結算_dgv(10, i).Value.ToString
+            SQL_客製表2_修改()
+        Next
+    End Sub
+    Private Sub 上一天_bt_Click(sender As Object, e As EventArgs) Handles 上一天_bt.Click
+        開單日期_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        If 順向_ch.Checked = True Then : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        Else : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(1) : End If
+    End Sub
+    Private Sub 今天_bt_Click(sender As Object, e As EventArgs) Handles 今天_bt.Click
+        開單日期_dtp.Value = Today()
+        If 順向_ch.Checked = True Then : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        Else : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(1) : End If
+    End Sub
+    Private Sub 下一天_bt_Click(sender As Object, e As EventArgs) Handles 下一天_bt.Click
+        開單日期_dtp.Value = 開單日期_dtp.Value.AddDays(1)
+        If 順向_ch.Checked = True Then : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        Else : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(1) : End If
+    End Sub
+    Private Sub 開單日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開單日期_dtp.ValueChanged
+        翻頁存檔() : Set_清單5() : Set_清單6() : Set_費用清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單4_自動判斷() : Set_清單4_自動判斷()
+        If 順向_ch.Checked = True Then : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        Else : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(1) : End If
+    End Sub
+    Private Sub 開單日期1_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開單日期1_dtp.ValueChanged
+        Set_清單4_1()
+    End Sub
+    Private Sub 單號_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 單號_tb.KeyPress
+        If e.KeyChar = Chr(13) Then : Set_清單7() : End If
+    End Sub
+    Private Sub ZOOM_tb_Click_1(sender As Object, e As EventArgs) Handles ZOOM_tb.Click
+        If 空間1.Visible = True Then
+            A3 = 空間2.Size.Width : B3 = 空間2.Size.Height
+            空間1.Visible = False : 空間2.Location = New Point(A1, B2) : 空間2.Size = New Point((A2 - A1) + A3, B3)
+        Else
+            空間1.Visible = True : 空間2.Location = New Point(A2, B2) : 空間2.Size = New Point(A3, B3)
+        End If
+    End Sub
+    Private Sub 順向_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 順向_ch.Click
+        順向_ch.Checked = True : 逆向_ch.Checked = False : If 順向_ch.Checked = True Then : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        Else : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(1) : End If
+    End Sub
+
+    Private Sub 逆向_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 逆向_ch.Click
+        順向_ch.Checked = False : 逆向_ch.Checked = True : If 順向_ch.Checked = True Then : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(-1)
+        Else : 開單日期1_dtp.Value = 開單日期_dtp.Value.AddDays(1) : End If
+    End Sub
+End Class

YD-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb

@@ -834,7 +834,7 @@ Partial Class 系統編碼規則
         Me.MAX_nud.TabIndex = 1499
         Me.MAX_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         Me.MAX_nud.ThousandsSeparator = True
-        Me.MAX_nud.Value = New Decimal(New Integer() {1024, 0, 0, 0})
+        Me.MAX_nud.Value = New Decimal(New Integer() {2048, 0, 0, 0})
         '
         '資料庫清單1_dgv
         '