應收控制表新增完成

測試控件命名規則，已改介面如下
應付帳款控制表，票務控制表，財務單據申請

Signed-off-by: B70340 <b70340@gmail.com>

MaoOrange-Hongji/MAOJI-ERP-SYS.vbproj

@@ -127,6 +127,12 @@
     <Compile Include="倉儲系統管理\倉儲入庫驗收.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\應收帳款控制表.Designer.vb">
+      <DependentUpon>應收帳款控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\應收帳款控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="財務系統管理\財務單具申請.Designer.vb">
       <DependentUpon>財務單具申請.vb</DependentUpon>
     </Compile>
@@ -157,12 +163,6 @@
     <Compile Include="資料庫系統管理\系統通用變數管理.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\應收帳款控制表.Designer.vb">
-      <DependentUpon>應收帳款控制表.vb</DependentUpon>
-    </Compile>
-    <Compile Include="財務系統管理\應收帳款控制表.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="資料庫系統管理\列印_產品標籤介面.Designer.vb">
       <DependentUpon>列印_產品標籤介面.vb</DependentUpon>
     </Compile>
@@ -475,6 +475,9 @@
     <EmbeddedResource Include="倉儲系統管理\倉儲入庫驗收.resx">
       <DependentUpon>倉儲入庫驗收.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\應收帳款控制表.resx">
+      <DependentUpon>應收帳款控制表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\財務單具申請.resx">
       <DependentUpon>財務單具申請.vb</DependentUpon>
     </EmbeddedResource>
@@ -490,9 +493,6 @@
     <EmbeddedResource Include="資料庫系統管理\系統通用變數管理.resx">
       <DependentUpon>系統通用變數管理.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\應收帳款控制表.resx">
-      <DependentUpon>應收帳款控制表.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\列印_產品標籤介面.resx">
       <DependentUpon>列印_產品標籤介面.vb</DependentUpon>
     </EmbeddedResource>

MaoOrange-Hongji/Module1/SQL_Module.vb

@@ -197,9 +197,6 @@ Module SQL_Module
     Friend Sub SQL_營運成本明細表項次修改()
         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 項次 = N'" & PA1 & "' WHERE (流水號 LIKE '" & PA2 & "' AND 項次 LIKE '" & PA3 & "')" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()
-        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = '" & PA7 & "' WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
-    End Sub
     Friend Sub SQL_支票收支單申請_客戶資料_零售()
         ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
     End Sub
@@ -2149,7 +2146,7 @@ Module SQL_Module
                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN
                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
                 WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                           (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                           (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
                 GROUP BY    倉儲明細表.供應商編號, 供應商資料表.簡稱
                 ORDER BY    倉儲明細表.供應商編號, 供應商資料表.簡稱"
         CmdSet_For_DGV()
@@ -2161,8 +2158,8 @@ Module SQL_Module
                             倉儲明細表.應付立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期
                 FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 
                             LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
-                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.供應商編號 LIKE '" & 應付賬款控制表.TextBox1.Text & "') AND 
-                           (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') 
+                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.供應商編號 LIKE '" & 應付賬款控制表.供應商編號_tb.Text & "') AND 
+                           (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "') 
                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
         CmdSet_For_DGV()
     End Sub
@@ -2173,7 +2170,7 @@ Module SQL_Module
                             倉儲明細表.應付立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期
                 FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 
                             LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
-                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.財務單號 LIKE '" & 應付賬款控制表.TextBox6.Text & "')
+                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.財務單號 LIKE '" & 應付賬款控制表.財務收支單號_tb.Text & "')
                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
         CmdSet_For_DGV()
     End Sub
@@ -2185,15 +2182,60 @@ Module SQL_Module
                            營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 
                            營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 營運成本明細表.出納日期, 營運成本明細表.倉儲單號
                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
-                WHERE     (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND  (營運成本明細表.流水號 LIKE '" & 應付賬款控制表.TextBox6.Text & "') AND
-                          (營運成本明細表.作帳日期 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") &
-                                                    "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                WHERE     (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND  (營運成本明細表.流水號 LIKE '" & 應付賬款控制表.財務收支單號_tb.Text & "') 
                 ORDER BY   營運成本明細表.項次"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_應收應付單號連接暫存檔新增()
         ConnOpen() : SQL1 = "INSERT INTO 應收應付單號連接暫存檔 (流水單號)  VALUES (N'" & PA19 & "')" : CmdSet_For_dr()
     End Sub
+    '---------------------應收帳款控制表-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_應收賬款主單()
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶
+                FROM        倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 LEFT OUTER JOIN
+                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
+                WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                           (倉儲明細表.採購下單 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                GROUP BY    倉儲明細表.客戶編號, 客戶資料表.簡稱
+                ORDER BY    倉儲明細表.客戶編號, 客戶資料表.簡稱"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應收賬款清單一()
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 
+                            倉儲明細表.出庫, 倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 
+                            倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期
+                FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 
+                            LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
+                WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.客戶編號 LIKE '" & 應收帳款控制表.TextBox1.Text & "') AND 
+                           (倉儲明細表.採購下單 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') 
+                ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應收賬款清單二()
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 
+                            倉儲明細表.出庫, 倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 
+                            倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期
+                FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 
+                            LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
+                WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.財務單號 LIKE '" & 應收帳款控制表.TextBox6.Text & "')
+                ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應收賬款清單三()
+        ConnOpen()
+        SQL1 = "SELECT     營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目 AS 開票會科, 營運成本明細表.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 
+                           營運成本明細表.支票數 AS 收票, 營運成本明細表.金額 AS 付現, 營運成本明細表.收款 AS 收現, 營運成本明細表.備註, 營運成本明細表.備用金 AS 開票已付, 
+                           營運成本明細表.支票 AS 收票託收, 營運成本明細表.支票號碼, 營運成本明細表.狀態, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 
+                           營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 
+                           營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 營運成本明細表.出納日期, 營運成本明細表.倉儲單號
+                FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
+                WHERE     (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND  (營運成本明細表.流水號 LIKE '" & 應收帳款控制表.TextBox6.Text & "')
+                ORDER BY   營運成本明細表.項次"
+        CmdSet_For_DGV()
+    End Sub
     '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_通用預設值管理清單一()
         ConnOpen() : SQL1 = "SELECT 流水號, 使用介面, 說明, 預設值 FROM 通用預設值管理表一 ORDER BY 使用介面" : CmdSet_For_DGV()
@@ -2210,26 +2252,6 @@ Module SQL_Module
     Friend Sub SQL_系統通用變數管理刪除()
         SQL1 = "DELETE FROM 通用預設值管理表一 WHERE (流水號 = N'" & PA1 & "')"
     End Sub
-    '---------------------應收帳款控制表-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_應收賬款清單()
-        If 應收帳款控制表.CheckBox3.Checked = False Then
-            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.採購下單 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
-        ElseIf 應收帳款控制表.CheckBox3.Checked = True Then
-            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.採購下單 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
-                            (倉儲明細表.應收立帳 IS NULL OR 倉儲明細表.應收立帳 = 0)"
-        End If
-        ConnOpen()
-        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 
-                            物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 倉儲明細表.出庫, 
-                            倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 
-                            倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.收款狀態 
-                FROM        倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 LEFT OUTER JOIN
-                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 " & KKKJJ & "
-                ORDER BY    倉儲明細表.單據編號, 倉儲明細表.出庫日期"
-        CmdSet_For_DGV()
-    End Sub
     '---------------------支票收支單申請-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_支票收支單申請清單()
         ConnOpen()
@@ -2281,11 +2303,11 @@ Module SQL_Module
                            營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 
                            營運成本明細表.出納日期, 營運成本明細表.倉儲單號
                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
-                WHERE     (營運成本明細表.狀態 LIKE '" & 票務控制表.ComboBox2.Text & "') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                          (QQ.會計科目 LIKE '" & 票務控制表.ComboBox1.Text & "') AND (WW.會計科目 LIKE '%" & 票務控制表.ComboBox3.Text & "%') AND
-                          (營運成本明細表." & 票務控制表.ComboBox15.Text & " BETWEEN '" & Format(票務控制表.DateTimePicker1.Value, "yyyy/MM/dd") &
-                                                                              "' AND '" & Format(票務控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
-                ORDER BY   營運成本明細表." & 票務控制表.ComboBox15.Text & ""
+                WHERE     (營運成本明細表.狀態 LIKE '" & 票務控制表.票況_cb.Text & "') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                          (QQ.會計科目 LIKE '" & 票務控制表.區分_cb.Text & "') AND (WW.會計科目 LIKE '%" & 票務控制表.兌現科目_cb.Text & "%') AND
+                          (營運成本明細表." & 票務控制表.日期選項_cb.Text & " BETWEEN '" & Format(票務控制表.開始日期_dtp.Value, "yyyy/MM/dd") &
+                                                                              "' AND '" & Format(票務控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                ORDER BY   營運成本明細表." & 票務控制表.日期選項_cb.Text & ""
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_票務控制表會科區分()
@@ -2316,7 +2338,7 @@ Module SQL_Module
         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()
     End Sub
     '---------------------財務單具申請-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_會計科目_第一階_應付_不含流動票務()
+    Friend Sub SQL_會計科目_第一階_應付_不含流動票務() '-----------------------應付_不含流動票務---------------------------------------------------
         ConnOpen()
         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  
                 WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (停用 = 0) AND (第一階 NOT LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
@@ -2341,7 +2363,7 @@ Module SQL_Module
                 WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_會計科目_第一階_應付_只含流動票務()
+    Friend Sub SQL_會計科目_第一階_應付_只含流動票務() '-----------------------應付_只含流動票務---------------------------------------------------
         ConnOpen()
         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  
                 WHERE (編號 NOT LIKE 'A%') AND (停用 = 0) AND (第一階 LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
@@ -2366,6 +2388,56 @@ Module SQL_Module
                 WHERE (編號 NOT LIKE 'A%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_會計科目_第一階_應收_不含流動票務() '-----------------------應收_不含流動票務---------------------------------------------------
+        ConnOpen()
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  
+                WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (停用 = 0) AND (第一階 NOT LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第二階_應收_不含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 
+                WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 NOT LIKE '流動%')
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第三階_應收_不含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_關鍵字_應收_不含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第一階_應收_只含流動票務() '-----------------------應收_只含流動票務---------------------------------------------------
+        ConnOpen()
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  
+                WHERE (編號 LIKE 'A%') AND (停用 = 0) AND (第一階 LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第二階_應收_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 
+                WHERE (編號 LIKE 'A%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 LIKE '流動%')
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第三階_應收_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 LIKE 'A%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_關鍵字_應收_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 LIKE 'A%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_應收應付單號連接暫存檔讀取()
         ConnOpen() : SQL1 = "SELECT 流水單號 FROM 應收應付單號連接暫存檔" : CmdSet_For_DGV()
     End Sub
@@ -2379,11 +2451,17 @@ Module SQL_Module
                             營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 營運成本明細表.託收已付日, 
                             營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號
                 FROM        營運成本明細表 INNER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號
-                WHERE      (營運成本明細表.流水號 LIKE '" & 財務單具申請.TextBox1.Text & "')
+                WHERE      (營運成本明細表.流水號 LIKE '" & 財務單具申請.收支單號_tb.Text & "')
                 ORDER BY    營運成本明細表.項次"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_倉儲明細表財務單號連接修改()
         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  財務單號 = N'" & PA & "' WHERE (資料流水號 LIKE '" & PA19 & "')" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = '" & PA7 & "' WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收賬款_倉儲明細應付立帳修改()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應收立帳 = '" & PA7 & "' WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
+    End Sub
 End Module

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-b43126533b1c6358aea406aca2337ef3a341cb25
+972c7a2902f3255f51d5b4484561f3b77842943e

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -189,7 +189,6 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨申請.
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨清單.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨確認.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.列印_產品標籤介面.resources
-G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應收帳款控制表.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.系統通用變數管理.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.財務收支單_對帳表.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.財務收支單一覽表.resources
@@ -200,3 +199,4 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.支票收支單申
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.票務控制表.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.財務單具申請.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應付賬款控制表.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應收帳款控制表.resources

MaoOrange-Hongji/財務系統管理/應付賬款控制表.Designer.vb

@@ -28,100 +28,100 @@ Partial Class 應付賬款控制表
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.一般月 = New System.Windows.Forms.CheckBox()
-        Me.會計月 = New System.Windows.Forms.CheckBox()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.上個月_bu = New System.Windows.Forms.Button()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.下個月_bu = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
-        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.應付供應商_dgv = New System.Windows.Forms.DataGridView()
+        Me.採購清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.對應收支單_DGV = New System.Windows.Forms.DataGridView()
+        Me.供應商名稱_tb = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Button6 = New System.Windows.Forms.Button()
-        Me.Button5 = New System.Windows.Forms.Button()
-        Me.Button12 = New System.Windows.Forms.Button()
-        Me.Button13 = New System.Windows.Forms.Button()
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.供應商編號_tb = New System.Windows.Forms.TextBox()
+        Me.暫時取消立帳選擇_bu = New System.Windows.Forms.Button()
+        Me.列印應付帳款清單_bu = New System.Windows.Forms.Button()
+        Me.全部取消_bu = New System.Windows.Forms.Button()
+        Me.全部選擇_bu = New System.Windows.Forms.Button()
+        Me.列印多選_ch = New System.Windows.Forms.CheckBox()
+        Me.已立帳隱藏_ch = New System.Windows.Forms.CheckBox()
+        Me.單據編號_tb = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
+        Me.未付金額_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.實付金額_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.TextBox5 = New System.Windows.Forms.TextBox()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.TextBox6 = New System.Windows.Forms.TextBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.實付金額_tb = New System.Windows.Forms.TextBox()
+        Me.實付金額計算用_tb = New System.Windows.Forms.TextBox()
+        Me.間格時間內所有帳款_bu = New System.Windows.Forms.Button()
+        Me.開立財務單據_bu = New System.Windows.Forms.Button()
+        Me.財務收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.非當天日期_ch = New System.Windows.Forms.CheckBox()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.單據日期_dtp = New System.Windows.Forms.DateTimePicker()
+        CType(Me.應付供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.對應收支單_DGV, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.未付金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.實付金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'DateTimePicker4
-        '
-        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
-        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker4.Location = New System.Drawing.Point(30, 49)
-        Me.DateTimePicker4.Name = "DateTimePicker4"
-        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
-        Me.DateTimePicker4.TabIndex = 1175
-        '
-        'Button1
-        '
-        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(330, 3)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(65, 23)
-        Me.Button1.TabIndex = 1171
-        Me.Button1.Text = "上個月"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        '一般月
-        '
-        Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(272, 6)
-        Me.一般月.Name = "一般月"
-        Me.一般月.Size = New System.Drawing.Size(63, 20)
-        Me.一般月.TabIndex = 1174
-        Me.一般月.Text = "一般月"
-        Me.一般月.UseVisualStyleBackColor = True
-        '
-        '會計月
-        '
-        Me.會計月.AutoSize = True
-        Me.會計月.Checked = True
-        Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(207, 6)
-        Me.會計月.Name = "會計月"
-        Me.會計月.Size = New System.Drawing.Size(63, 20)
-        Me.會計月.TabIndex = 1173
-        Me.會計月.Text = "會計月"
-        Me.會計月.UseVisualStyleBackColor = True
-        '
-        'Button2
-        '
-        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(397, 3)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(65, 23)
-        Me.Button2.TabIndex = 1172
-        Me.Button2.Text = "下個月"
-        Me.Button2.UseVisualStyleBackColor = True
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(30, 49)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1175
+        '
+        '上個月_bu
+        '
+        Me.上個月_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上個月_bu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上個月_bu.Location = New System.Drawing.Point(330, 3)
+        Me.上個月_bu.Name = "上個月_bu"
+        Me.上個月_bu.Size = New System.Drawing.Size(65, 23)
+        Me.上個月_bu.TabIndex = 1171
+        Me.上個月_bu.Text = "上個月"
+        Me.上個月_bu.UseVisualStyleBackColor = True
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Location = New System.Drawing.Point(272, 6)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1174
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Checked = True
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月_ch.Location = New System.Drawing.Point(207, 6)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1173
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.UseVisualStyleBackColor = True
+        '
+        '下個月_bu
+        '
+        Me.下個月_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下個月_bu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下個月_bu.Location = New System.Drawing.Point(397, 3)
+        Me.下個月_bu.Name = "下個月_bu"
+        Me.下個月_bu.Size = New System.Drawing.Size(65, 23)
+        Me.下個月_bu.TabIndex = 1172
+        Me.下個月_bu.Text = "下個月"
+        Me.下個月_bu.UseVisualStyleBackColor = True
         '
         'Label4
         '
@@ -132,86 +132,86 @@ Partial Class 應付賬款控制表
         Me.Label4.TabIndex = 1170
         Me.Label4.Text = "到"
         '
-        'DateTimePicker2
+        '結束日期_dtp
         '
-        Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
-        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(118, 3)
-        Me.DateTimePicker2.Name = "DateTimePicker2"
-        Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23)
-        Me.DateTimePicker2.TabIndex = 1169
+        Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(118, 3)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.結束日期_dtp.TabIndex = 1169
         '
-        'DateTimePicker1
+        '開始日期_dtp
         '
-        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(8, 3)
-        Me.DateTimePicker1.Name = "DateTimePicker1"
-        Me.DateTimePicker1.Size = New System.Drawing.Size(87, 23)
-        Me.DateTimePicker1.TabIndex = 1168
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(8, 3)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.開始日期_dtp.TabIndex = 1168
         '
-        'DataGridView1
+        '應付供應商_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.應付供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.應付供應商_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(8, 30)
-        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
+        Me.應付供應商_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.應付供應商_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.應付供應商_dgv.Location = New System.Drawing.Point(8, 30)
+        Me.應付供應商_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.應付供應商_dgv.Name = "應付供應商_dgv"
+        Me.應付供應商_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(75, 290)
-        Me.DataGridView1.TabIndex = 1167
+        Me.應付供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.應付供應商_dgv.RowTemplate.Height = 24
+        Me.應付供應商_dgv.Size = New System.Drawing.Size(75, 290)
+        Me.應付供應商_dgv.TabIndex = 1167
         '
-        'DataGridView2
+        '採購清單_dgv
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        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.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(86, 54)
-        Me.DataGridView2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
+        Me.採購清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.採購清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.採購清單_dgv.Location = New System.Drawing.Point(86, 54)
+        Me.採購清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.採購清單_dgv.Name = "採購清單_dgv"
+        Me.採購清單_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(1155, 266)
-        Me.DataGridView2.TabIndex = 1176
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.採購清單_dgv.RowTemplate.Height = 24
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1155, 266)
+        Me.採購清單_dgv.TabIndex = 1176
         '
-        'DataGridView3
+        '對應收支單_DGV
         '
         DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.對應收支單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        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.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView3.Location = New System.Drawing.Point(8, 322)
-        Me.DataGridView3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView3.Name = "DataGridView3"
-        Me.DataGridView3.RowHeadersWidth = 5
+        Me.對應收支單_DGV.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.對應收支單_DGV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.對應收支單_DGV.Location = New System.Drawing.Point(8, 322)
+        Me.對應收支單_DGV.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        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.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.DataGridView3.RowTemplate.Height = 24
-        Me.DataGridView3.Size = New System.Drawing.Size(1233, 283)
-        Me.DataGridView3.TabIndex = 1177
+        Me.對應收支單_DGV.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.對應收支單_DGV.RowTemplate.Height = 24
+        Me.對應收支單_DGV.Size = New System.Drawing.Size(1233, 283)
+        Me.對應收支單_DGV.TabIndex = 1177
         '
-        'TextBox3
+        '供應商名稱_tb
         '
-        Me.TextBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox3.Location = New System.Drawing.Point(147, 28)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(123, 23)
-        Me.TextBox3.TabIndex = 1178
+        Me.供應商名稱_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.供應商名稱_tb.Location = New System.Drawing.Point(147, 28)
+        Me.供應商名稱_tb.Name = "供應商名稱_tb"
+        Me.供應商名稱_tb.Size = New System.Drawing.Size(123, 23)
+        Me.供應商名稱_tb.TabIndex = 1178
         '
         'Label3
         '
@@ -223,91 +223,91 @@ Partial Class 應付賬款控制表
         Me.Label3.TabIndex = 1179
         Me.Label3.Text = "供應商"
         '
-        'TextBox1
-        '
-        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(30, 78)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(43, 23)
-        Me.TextBox1.TabIndex = 1180
-        '
-        'Button6
-        '
-        Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button6.ForeColor = System.Drawing.Color.Olive
-        Me.Button6.Location = New System.Drawing.Point(1086, 3)
-        Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(82, 47)
-        Me.Button6.TabIndex = 1184
-        Me.Button6.Text = "依據單號取消立帳選擇"
-        Me.Button6.UseVisualStyleBackColor = True
-        '
-        'Button5
-        '
-        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button5.Location = New System.Drawing.Point(1033, 3)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(54, 47)
-        Me.Button5.TabIndex = 1183
-        Me.Button5.Text = "列印帳款清單"
-        Me.Button5.UseVisualStyleBackColor = True
-        '
-        'Button12
-        '
-        Me.Button12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button12.ForeColor = System.Drawing.Color.Olive
-        Me.Button12.Location = New System.Drawing.Point(1167, 27)
-        Me.Button12.Name = "Button12"
-        Me.Button12.Size = New System.Drawing.Size(74, 23)
-        Me.Button12.TabIndex = 1182
-        Me.Button12.Text = "全部取消"
-        Me.Button12.UseVisualStyleBackColor = True
-        '
-        'Button13
-        '
-        Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button13.ForeColor = System.Drawing.Color.Olive
-        Me.Button13.Location = New System.Drawing.Point(1167, 3)
-        Me.Button13.Name = "Button13"
-        Me.Button13.Size = New System.Drawing.Size(74, 23)
-        Me.Button13.TabIndex = 1181
-        Me.Button13.Text = "全部選擇"
-        Me.Button13.UseVisualStyleBackColor = True
-        '
-        'CheckBox2
-        '
-        Me.CheckBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(927, 4)
-        Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(99, 20)
-        Me.CheckBox2.TabIndex = 1185
-        Me.CheckBox2.Text = "列印多單選擇"
-        Me.CheckBox2.UseVisualStyleBackColor = True
-        '
-        'CheckBox3
-        '
-        Me.CheckBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.CheckBox3.AutoSize = True
-        Me.CheckBox3.Location = New System.Drawing.Point(927, 29)
-        Me.CheckBox3.Name = "CheckBox3"
-        Me.CheckBox3.Size = New System.Drawing.Size(111, 20)
-        Me.CheckBox3.TabIndex = 1186
-        Me.CheckBox3.Text = "已立帳資料隱藏"
-        Me.CheckBox3.UseVisualStyleBackColor = True
-        '
-        'TextBox2
-        '
-        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox2.Location = New System.Drawing.Point(329, 28)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(133, 23)
-        Me.TextBox2.TabIndex = 1187
+        '供應商編號_tb
+        '
+        Me.供應商編號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.供應商編號_tb.Location = New System.Drawing.Point(30, 78)
+        Me.供應商編號_tb.Name = "供應商編號_tb"
+        Me.供應商編號_tb.Size = New System.Drawing.Size(43, 23)
+        Me.供應商編號_tb.TabIndex = 1180
+        '
+        '暫時取消立帳選擇_bu
+        '
+        Me.暫時取消立帳選擇_bu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.暫時取消立帳選擇_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.暫時取消立帳選擇_bu.ForeColor = System.Drawing.Color.Olive
+        Me.暫時取消立帳選擇_bu.Location = New System.Drawing.Point(1086, 3)
+        Me.暫時取消立帳選擇_bu.Name = "暫時取消立帳選擇_bu"
+        Me.暫時取消立帳選擇_bu.Size = New System.Drawing.Size(82, 47)
+        Me.暫時取消立帳選擇_bu.TabIndex = 1184
+        Me.暫時取消立帳選擇_bu.Text = "依據單號取消立帳選擇"
+        Me.暫時取消立帳選擇_bu.UseVisualStyleBackColor = True
+        '
+        '列印應付帳款清單_bu
+        '
+        Me.列印應付帳款清單_bu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.列印應付帳款清單_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印應付帳款清單_bu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.列印應付帳款清單_bu.Location = New System.Drawing.Point(1033, 3)
+        Me.列印應付帳款清單_bu.Name = "列印應付帳款清單_bu"
+        Me.列印應付帳款清單_bu.Size = New System.Drawing.Size(54, 47)
+        Me.列印應付帳款清單_bu.TabIndex = 1183
+        Me.列印應付帳款清單_bu.Text = "列印帳款清單"
+        Me.列印應付帳款清單_bu.UseVisualStyleBackColor = True
+        '
+        '全部取消_bu
+        '
+        Me.全部取消_bu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.全部取消_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全部取消_bu.ForeColor = System.Drawing.Color.Olive
+        Me.全部取消_bu.Location = New System.Drawing.Point(1167, 27)
+        Me.全部取消_bu.Name = "全部取消_bu"
+        Me.全部取消_bu.Size = New System.Drawing.Size(74, 23)
+        Me.全部取消_bu.TabIndex = 1182
+        Me.全部取消_bu.Text = "全部取消"
+        Me.全部取消_bu.UseVisualStyleBackColor = True
+        '
+        '全部選擇_bu
+        '
+        Me.全部選擇_bu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.全部選擇_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全部選擇_bu.ForeColor = System.Drawing.Color.Olive
+        Me.全部選擇_bu.Location = New System.Drawing.Point(1167, 3)
+        Me.全部選擇_bu.Name = "全部選擇_bu"
+        Me.全部選擇_bu.Size = New System.Drawing.Size(74, 23)
+        Me.全部選擇_bu.TabIndex = 1181
+        Me.全部選擇_bu.Text = "全部選擇"
+        Me.全部選擇_bu.UseVisualStyleBackColor = True
+        '
+        '列印多選_ch
+        '
+        Me.列印多選_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.列印多選_ch.AutoSize = True
+        Me.列印多選_ch.Location = New System.Drawing.Point(927, 4)
+        Me.列印多選_ch.Name = "列印多選_ch"
+        Me.列印多選_ch.Size = New System.Drawing.Size(99, 20)
+        Me.列印多選_ch.TabIndex = 1185
+        Me.列印多選_ch.Text = "列印多單選擇"
+        Me.列印多選_ch.UseVisualStyleBackColor = True
+        '
+        '已立帳隱藏_ch
+        '
+        Me.已立帳隱藏_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.已立帳隱藏_ch.AutoSize = True
+        Me.已立帳隱藏_ch.Location = New System.Drawing.Point(927, 29)
+        Me.已立帳隱藏_ch.Name = "已立帳隱藏_ch"
+        Me.已立帳隱藏_ch.Size = New System.Drawing.Size(111, 20)
+        Me.已立帳隱藏_ch.TabIndex = 1186
+        Me.已立帳隱藏_ch.Text = "已立帳資料隱藏"
+        Me.已立帳隱藏_ch.UseVisualStyleBackColor = True
+        '
+        '單據編號_tb
+        '
+        Me.單據編號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.單據編號_tb.Location = New System.Drawing.Point(329, 28)
+        Me.單據編號_tb.Name = "單據編號_tb"
+        Me.單據編號_tb.Size = New System.Drawing.Size(133, 23)
+        Me.單據編號_tb.TabIndex = 1187
         '
         'Label1
         '
@@ -329,15 +329,15 @@ Partial Class 應付賬款控制表
         Me.Label7.TabIndex = 1194
         Me.Label7.Text = "未付餘額"
         '
-        'NumericUpDown2
+        '未付金額_nud
         '
-        Me.NumericUpDown2.Location = New System.Drawing.Point(648, 28)
-        Me.NumericUpDown2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NumericUpDown2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
-        Me.NumericUpDown2.Name = "NumericUpDown2"
-        Me.NumericUpDown2.Size = New System.Drawing.Size(72, 23)
-        Me.NumericUpDown2.TabIndex = 1193
-        Me.NumericUpDown2.ThousandsSeparator = True
+        Me.未付金額_nud.Location = New System.Drawing.Point(648, 28)
+        Me.未付金額_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.未付金額_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.未付金額_nud.Name = "未付金額_nud"
+        Me.未付金額_nud.Size = New System.Drawing.Size(72, 23)
+        Me.未付金額_nud.TabIndex = 1193
+        Me.未付金額_nud.ThousandsSeparator = True
         '
         'Label2
         '
@@ -349,15 +349,15 @@ Partial Class 應付賬款控制表
         Me.Label2.TabIndex = 1192
         Me.Label2.Text = "實付金額"
         '
-        'NumericUpDown1
+        '實付金額_nud
         '
-        Me.NumericUpDown1.Location = New System.Drawing.Point(519, 28)
-        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
-        Me.NumericUpDown1.Name = "NumericUpDown1"
-        Me.NumericUpDown1.Size = New System.Drawing.Size(72, 23)
-        Me.NumericUpDown1.TabIndex = 1191
-        Me.NumericUpDown1.ThousandsSeparator = True
+        Me.實付金額_nud.Location = New System.Drawing.Point(519, 28)
+        Me.實付金額_nud.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.實付金額_nud.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.實付金額_nud.Name = "實付金額_nud"
+        Me.實付金額_nud.Size = New System.Drawing.Size(72, 23)
+        Me.實付金額_nud.TabIndex = 1191
+        Me.實付金額_nud.ThousandsSeparator = True
         '
         'Label5
         '
@@ -369,64 +369,64 @@ Partial Class 應付賬款控制表
         Me.Label5.TabIndex = 1190
         Me.Label5.Text = "應付金額"
         '
-        'TextBox4
-        '
-        Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox4.Location = New System.Drawing.Point(519, 3)
-        Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(72, 23)
-        Me.TextBox4.TabIndex = 1189
-        '
-        'TextBox5
-        '
-        Me.TextBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox5.Location = New System.Drawing.Point(30, 107)
-        Me.TextBox5.Name = "TextBox5"
-        Me.TextBox5.Size = New System.Drawing.Size(43, 23)
-        Me.TextBox5.TabIndex = 1195
-        '
-        'Button3
-        '
-        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button3.Location = New System.Drawing.Point(595, 3)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(125, 23)
-        Me.Button3.TabIndex = 1196
-        Me.Button3.Text = "間格時間內所有帳款"
-        Me.Button3.UseVisualStyleBackColor = True
-        '
-        'Button4
-        '
-        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button4.ForeColor = System.Drawing.Color.Green
-        Me.Button4.Location = New System.Drawing.Point(813, 4)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(112, 22)
-        Me.Button4.TabIndex = 1197
-        Me.Button4.Text = "財務單據開立"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'TextBox6
-        '
-        Me.TextBox6.ForeColor = System.Drawing.Color.Green
-        Me.TextBox6.Location = New System.Drawing.Point(815, 28)
-        Me.TextBox6.Name = "TextBox6"
-        Me.TextBox6.Size = New System.Drawing.Size(110, 23)
-        Me.TextBox6.TabIndex = 1198
-        '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Checked = True
-        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox1.ForeColor = System.Drawing.Color.Green
-        Me.CheckBox1.Location = New System.Drawing.Point(780, 5)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
-        Me.CheckBox1.TabIndex = 1201
-        Me.CheckBox1.Text = "補"
-        Me.CheckBox1.UseVisualStyleBackColor = True
+        '實付金額_tb
+        '
+        Me.實付金額_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.實付金額_tb.Location = New System.Drawing.Point(519, 3)
+        Me.實付金額_tb.Name = "實付金額_tb"
+        Me.實付金額_tb.Size = New System.Drawing.Size(72, 23)
+        Me.實付金額_tb.TabIndex = 1189
+        '
+        '實付金額計算用_tb
+        '
+        Me.實付金額計算用_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.實付金額計算用_tb.Location = New System.Drawing.Point(30, 107)
+        Me.實付金額計算用_tb.Name = "實付金額計算用_tb"
+        Me.實付金額計算用_tb.Size = New System.Drawing.Size(43, 23)
+        Me.實付金額計算用_tb.TabIndex = 1195
+        '
+        '間格時間內所有帳款_bu
+        '
+        Me.間格時間內所有帳款_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.間格時間內所有帳款_bu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.間格時間內所有帳款_bu.Location = New System.Drawing.Point(595, 3)
+        Me.間格時間內所有帳款_bu.Name = "間格時間內所有帳款_bu"
+        Me.間格時間內所有帳款_bu.Size = New System.Drawing.Size(125, 23)
+        Me.間格時間內所有帳款_bu.TabIndex = 1196
+        Me.間格時間內所有帳款_bu.Text = "間格時間內所有帳款"
+        Me.間格時間內所有帳款_bu.UseVisualStyleBackColor = True
+        '
+        '開立財務單據_bu
+        '
+        Me.開立財務單據_bu.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.開立財務單據_bu.ForeColor = System.Drawing.Color.Green
+        Me.開立財務單據_bu.Location = New System.Drawing.Point(813, 4)
+        Me.開立財務單據_bu.Name = "開立財務單據_bu"
+        Me.開立財務單據_bu.Size = New System.Drawing.Size(112, 22)
+        Me.開立財務單據_bu.TabIndex = 1197
+        Me.開立財務單據_bu.Text = "財務單據開立"
+        Me.開立財務單據_bu.UseVisualStyleBackColor = True
+        '
+        '財務收支單號_tb
+        '
+        Me.財務收支單號_tb.ForeColor = System.Drawing.Color.Green
+        Me.財務收支單號_tb.Location = New System.Drawing.Point(815, 28)
+        Me.財務收支單號_tb.Name = "財務收支單號_tb"
+        Me.財務收支單號_tb.Size = New System.Drawing.Size(110, 23)
+        Me.財務收支單號_tb.TabIndex = 1198
+        '
+        '非當天日期_ch
+        '
+        Me.非當天日期_ch.AutoSize = True
+        Me.非當天日期_ch.Checked = True
+        Me.非當天日期_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.非當天日期_ch.ForeColor = System.Drawing.Color.Green
+        Me.非當天日期_ch.Location = New System.Drawing.Point(780, 5)
+        Me.非當天日期_ch.Name = "非當天日期_ch"
+        Me.非當天日期_ch.Size = New System.Drawing.Size(39, 20)
+        Me.非當天日期_ch.TabIndex = 1201
+        Me.非當天日期_ch.Text = "補"
+        Me.非當天日期_ch.UseVisualStyleBackColor = True
         '
         'Label6
         '
@@ -438,101 +438,101 @@ Partial Class 應付賬款控制表
         Me.Label6.TabIndex = 1200
         Me.Label6.Text = "開立日期"
         '
-        'DateTimePicker3
+        '單據日期_dtp
         '
-        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker3.Location = New System.Drawing.Point(723, 27)
-        Me.DateTimePicker3.Name = "DateTimePicker3"
-        Me.DateTimePicker3.Size = New System.Drawing.Size(90, 23)
-        Me.DateTimePicker3.TabIndex = 1199
+        Me.單據日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.單據日期_dtp.Location = New System.Drawing.Point(723, 27)
+        Me.單據日期_dtp.Name = "單據日期_dtp"
+        Me.單據日期_dtp.Size = New System.Drawing.Size(90, 23)
+        Me.單據日期_dtp.TabIndex = 1199
         '
-        '應付賬款控制表1
+        '應付賬款控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.DateTimePicker3)
-        Me.Controls.Add(Me.TextBox6)
-        Me.Controls.Add(Me.Button4)
-        Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.單據日期_dtp)
+        Me.Controls.Add(Me.財務收支單號_tb)
+        Me.Controls.Add(Me.開立財務單據_bu)
+        Me.Controls.Add(Me.間格時間內所有帳款_bu)
+        Me.Controls.Add(Me.實付金額計算用_tb)
         Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.NumericUpDown2)
+        Me.Controls.Add(Me.未付金額_nud)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.實付金額_nud)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.實付金額_tb)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.TextBox2)
-        Me.Controls.Add(Me.Button6)
-        Me.Controls.Add(Me.Button5)
-        Me.Controls.Add(Me.Button12)
-        Me.Controls.Add(Me.Button13)
-        Me.Controls.Add(Me.CheckBox2)
-        Me.Controls.Add(Me.CheckBox3)
-        Me.Controls.Add(Me.TextBox1)
-        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.單據編號_tb)
+        Me.Controls.Add(Me.暫時取消立帳選擇_bu)
+        Me.Controls.Add(Me.列印應付帳款清單_bu)
+        Me.Controls.Add(Me.全部取消_bu)
+        Me.Controls.Add(Me.全部選擇_bu)
+        Me.Controls.Add(Me.列印多選_ch)
+        Me.Controls.Add(Me.已立帳隱藏_ch)
+        Me.Controls.Add(Me.供應商編號_tb)
+        Me.Controls.Add(Me.供應商名稱_tb)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.DataGridView3)
-        Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.DateTimePicker4)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.一般月)
-        Me.Controls.Add(Me.會計月)
-        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.對應收支單_DGV)
+        Me.Controls.Add(Me.採購清單_dgv)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.上個月_bu)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bu)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.DateTimePicker2)
-        Me.Controls.Add(Me.DateTimePicker1)
-        Me.Controls.Add(Me.DataGridView1)
-        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.應付供應商_dgv)
+        Me.Controls.Add(Me.非當天日期_ch)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "應付賬款控制表1"
+        Me.Name = "應付賬款控制表"
         Me.Text = "應付賬款控制表1"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.NumericUpDown1, 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.未付金額_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.實付金額_nud, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents DateTimePicker4 As DateTimePicker
-    Friend WithEvents Button1 As Button
-    Friend WithEvents 一般月 As CheckBox
-    Friend WithEvents 會計月 As CheckBox
-    Friend WithEvents Button2 As Button
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents 上個月_bu As Button
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents 下個月_bu As Button
     Friend WithEvents Label4 As Label
-    Friend WithEvents DateTimePicker2 As DateTimePicker
-    Friend WithEvents DateTimePicker1 As DateTimePicker
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents DataGridView2 As DataGridView
-    Friend WithEvents DataGridView3 As DataGridView
-    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 應付供應商_dgv As DataGridView
+    Friend WithEvents 採購清單_dgv As DataGridView
+    Friend WithEvents 對應收支單_DGV As DataGridView
+    Friend WithEvents 供應商名稱_tb As TextBox
     Friend WithEvents Label3 As Label
-    Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents Button6 As Button
-    Friend WithEvents Button5 As Button
-    Friend WithEvents Button12 As Button
-    Friend WithEvents Button13 As Button
-    Friend WithEvents CheckBox2 As CheckBox
-    Friend WithEvents CheckBox3 As CheckBox
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 供應商編號_tb As TextBox
+    Friend WithEvents 暫時取消立帳選擇_bu As Button
+    Friend WithEvents 列印應付帳款清單_bu As Button
+    Friend WithEvents 全部取消_bu As Button
+    Friend WithEvents 全部選擇_bu As Button
+    Friend WithEvents 列印多選_ch As CheckBox
+    Friend WithEvents 已立帳隱藏_ch As CheckBox
+    Friend WithEvents 單據編號_tb As TextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents Label7 As Label
-    Friend WithEvents NumericUpDown2 As NumericUpDown
+    Friend WithEvents 未付金額_nud As NumericUpDown
     Friend WithEvents Label2 As Label
-    Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents 實付金額_nud As NumericUpDown
     Friend WithEvents Label5 As Label
-    Friend WithEvents TextBox4 As TextBox
-    Friend WithEvents TextBox5 As TextBox
-    Friend WithEvents Button3 As Button
-    Friend WithEvents Button4 As Button
-    Friend WithEvents TextBox6 As TextBox
-    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents 實付金額_tb As TextBox
+    Friend WithEvents 實付金額計算用_tb As TextBox
+    Friend WithEvents 間格時間內所有帳款_bu As Button
+    Friend WithEvents 開立財務單據_bu As Button
+    Friend WithEvents 財務收支單號_tb As TextBox
+    Friend WithEvents 非當天日期_ch As CheckBox
     Friend WithEvents Label6 As Label
-    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents 單據日期_dtp As DateTimePicker
 End Class

MaoOrange-Hongji/財務系統管理/應付賬款控制表.vb

@@ -13,250 +13,248 @@ Public Class 應付賬款控制表
     Dim N1 As Integer
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Private Sub Set_賬款主單()
-        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
-        DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
+        應付供應商_dgv.DataSource = Nothing : ds.Clear() : 應付供應商_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 應付供應商_dgv.ColumnHeadersHeight = 40
+        應付供應商_dgv.AllowUserToAddRows = False : 應付供應商_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : 應付供應商_dgv.MultiSelect = True
         SQL_應付賬款主單()
-        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 100
-        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        For I As Integer = 0 To 1 : DataGridView1.Columns(I).ReadOnly = True : Next
+        da.Fill(ds) : 應付供應商_dgv.DataSource = ds.Tables(0) : conn.Close()
+        應付供應商_dgv.Columns(0).Visible = False : 應付供應商_dgv.Columns(1).FillWeight = 100
+        應付供應商_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 應付供應商_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        應付供應商_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 應付供應商_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For I As Integer = 0 To 1 : 應付供應商_dgv.Columns(I).ReadOnly = True : Next
     End Sub
     Private Sub Set_賬款清單()
-        DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView2.ColumnHeadersHeight = 40
-        DataGridView2.AllowUserToAddRows = False : DataGridView2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView2.MultiSelect = True
+        採購清單_dgv.DataSource = Nothing : ds1.Clear() : 採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 採購清單_dgv.ColumnHeadersHeight = 40
+        採購清單_dgv.AllowUserToAddRows = False : 採購清單_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : 採購清單_dgv.MultiSelect = True
 
-        If TextBox6.Text = "" Then : SQL_應付賬款清單一() : Else : SQL_應付賬款清單二() : End If
+        If 財務收支單號_tb.Text = "" Then : SQL_應付賬款清單一() : Else : SQL_應付賬款清單二() : End If
 
-        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
-        DataGridView2.Columns(0).FillWeight = 150 : DataGridView2.Columns(1).Visible = False : DataGridView2.Columns(2).Visible = False : DataGridView2.Columns(3).Visible = False
-        DataGridView2.Columns(4).FillWeight = 80 : DataGridView2.Columns(5).FillWeight = 300 : DataGridView2.Columns(6).FillWeight = 80 : DataGridView2.Columns(7).FillWeight = 80
-        DataGridView2.Columns(8).FillWeight = 80 : DataGridView2.Columns(9).FillWeight = 80 : DataGridView2.Columns(10).FillWeight = 100 : DataGridView2.Columns(11).FillWeight = 100
-        DataGridView2.Columns(12).FillWeight = 150 : DataGridView2.Columns(13).FillWeight = 60 : DataGridView2.Columns(14).FillWeight = 50 : DataGridView2.Columns(15).Visible = False
-        DataGridView2.Columns(16).FillWeight = 120 : DataGridView2.Columns(17).Visible = False
+        採購清單_dgv.Columns(0).FillWeight = 150 : 採購清單_dgv.Columns(1).Visible = False : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).Visible = False
+        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 300 : 採購清單_dgv.Columns(6).FillWeight = 80 : 採購清單_dgv.Columns(7).FillWeight = 80
+        採購清單_dgv.Columns(8).FillWeight = 80 : 採購清單_dgv.Columns(9).FillWeight = 80 : 採購清單_dgv.Columns(10).FillWeight = 100 : 採購清單_dgv.Columns(11).FillWeight = 100
+        採購清單_dgv.Columns(12).FillWeight = 150 : 採購清單_dgv.Columns(13).FillWeight = 60 : 採購清單_dgv.Columns(14).FillWeight = 50 : 採購清單_dgv.Columns(15).Visible = False
+        採購清單_dgv.Columns(16).FillWeight = 120 : 採購清單_dgv.Columns(17).Visible = False
 
-        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0.000"
-        DataGridView2.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(9).DefaultCellStyle.Format = "#,##0"
-        DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.000"
+        採購清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+        採購清單_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_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(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 採購清單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        For I As Integer = 0 To 12 : DataGridView2.Columns(I).ReadOnly = True : Next : DataGridView2.Columns(14).ReadOnly = True
-        For I As Integer = 0 To DataGridView2.Rows.Count - 1
-            If DataGridView2.Rows(I).Cells("應付立帳").Value.ToString = "" Then : DataGridView2.Rows(I).Cells("應付立帳").Value = False : End If
-            DataGridView2.Rows(I).Cells("選擇").Value = False
+        For I As Integer = 0 To 12 : 採購清單_dgv.Columns(I).ReadOnly = True : Next : 採購清單_dgv.Columns(14).ReadOnly = True
+        For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If 採購清單_dgv.Rows(I).Cells("應付立帳").Value.ToString = "" Then : 採購清單_dgv.Rows(I).Cells("應付立帳").Value = False : End If
+            採購清單_dgv.Rows(I).Cells("選擇").Value = False
         Next
     End Sub
     Private Sub Set_財務清單()
-        DataGridView3.DataSource = Nothing : ds2.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView3.ColumnHeadersHeight = 40
-        DataGridView3.AllowUserToAddRows = False : DataGridView3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView3.MultiSelect = True
-        DataGridView3.RowTemplate.Height = 35
+        對應收支單_DGV.DataSource = Nothing : ds2.Clear() : 對應收支單_DGV.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 對應收支單_DGV.ColumnHeadersHeight = 40
+        對應收支單_DGV.AllowUserToAddRows = False : 對應收支單_DGV.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : 對應收支單_DGV.MultiSelect = True
+        對應收支單_DGV.RowTemplate.Height = 35
         SQL_應付賬款清單三()
-        da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+        da.Fill(ds2) : 對應收支單_DGV.DataSource = ds2.Tables(0) : conn.Close()
 
-        DataGridView3.Columns(0).Visible = False : DataGridView3.Columns(1).Visible = False : DataGridView3.Columns(2).FillWeight = 75 : DataGridView3.Columns(3).Visible = False
-        DataGridView3.Columns(4).FillWeight = 150 : DataGridView3.Columns(5).FillWeight = 80 : DataGridView3.Columns(6).Visible = False : DataGridView3.Columns(7).FillWeight = 80
-        DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).FillWeight = 150 : DataGridView3.Columns(10).FillWeight = 50 : DataGridView3.Columns(11).FillWeight = 50
-        DataGridView3.Columns(12).FillWeight = 120 : DataGridView3.Columns(13).FillWeight = 75 : DataGridView3.Columns(14).FillWeight = 95 : DataGridView3.Columns(15).FillWeight = 95
-        DataGridView3.Columns(16).FillWeight = 95 : DataGridView3.Columns(17).FillWeight = 95 : DataGridView3.Columns(18).FillWeight = 75 : DataGridView3.Columns(19).Visible = False
-        DataGridView3.Columns(20).FillWeight = 150 : DataGridView3.Columns(21).FillWeight = 100 : DataGridView3.Columns(22).FillWeight = 80 : DataGridView3.Columns(23).FillWeight = 150
-        DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False : DataGridView3.Columns(26).Visible = False
+        對應收支單_DGV.Columns(0).Visible = False : 對應收支單_DGV.Columns(1).Visible = False : 對應收支單_DGV.Columns(2).FillWeight = 75 : 對應收支單_DGV.Columns(3).Visible = False
+        對應收支單_DGV.Columns(4).FillWeight = 150 : 對應收支單_DGV.Columns(5).FillWeight = 80 : 對應收支單_DGV.Columns(6).Visible = False : 對應收支單_DGV.Columns(7).FillWeight = 80
+        對應收支單_DGV.Columns(8).Visible = False : 對應收支單_DGV.Columns(9).FillWeight = 150 : 對應收支單_DGV.Columns(10).FillWeight = 50 : 對應收支單_DGV.Columns(11).FillWeight = 50
+        對應收支單_DGV.Columns(12).FillWeight = 120 : 對應收支單_DGV.Columns(13).FillWeight = 75 : 對應收支單_DGV.Columns(14).FillWeight = 95 : 對應收支單_DGV.Columns(15).FillWeight = 95
+        對應收支單_DGV.Columns(16).FillWeight = 95 : 對應收支單_DGV.Columns(17).FillWeight = 95 : 對應收支單_DGV.Columns(18).FillWeight = 75 : 對應收支單_DGV.Columns(19).Visible = False
+        對應收支單_DGV.Columns(20).FillWeight = 150 : 對應收支單_DGV.Columns(21).FillWeight = 100 : 對應收支單_DGV.Columns(22).FillWeight = 80 : 對應收支單_DGV.Columns(23).FillWeight = 150
+        對應收支單_DGV.Columns(24).Visible = False : 對應收支單_DGV.Columns(25).Visible = False : 對應收支單_DGV.Columns(26).Visible = False
 
-        DataGridView3.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(7).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(5).DefaultCellStyle.Format = "#,##0"
-        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView3.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        對應收支單_DGV.Columns(6).DefaultCellStyle.Format = "#,##0" : 對應收支單_DGV.Columns(7).DefaultCellStyle.Format = "#,##0"
+        對應收支單_DGV.Columns(8).DefaultCellStyle.Format = "#,##0" : 對應收支單_DGV.Columns(5).DefaultCellStyle.Format = "#,##0"
+        對應收支單_DGV.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 對應收支單_DGV.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        對應收支單_DGV.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 對應收支單_DGV.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        對應收支單_DGV.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 對應收支單_DGV.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        對應收支單_DGV.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 對應收支單_DGV.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        對應收支單_DGV.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 對應收支單_DGV.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        對應收支單_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(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 對應收支單_DGV.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     End Sub
     Private Sub 日期格式()
-        If 會計月.Checked = True Then
+        If 會計月_ch.Checked = True Then
             '-------------日期一----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
-            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1)
-            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker1.Value = DTP
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
         Else
             '-------------日期一----------------------------------------------------------------------------------------
-            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
-            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
-            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 應付賬款控制表1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        DateTimePicker4.Visible = False : TextBox1.Visible = False : TextBox5.Visible = False
+        中間日期_dtp.Visible = False : 供應商編號_tb.Visible = False : 實付金額計算用_tb.Visible = False
         日期格式() : Set_賬款主單()
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If 會計月.Checked = True Then
-            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
-            DateTimePicker1.Value = DateTimePicker4.Value
-            DateTimePicker2.Value = DateTimePicker4.Value
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 上個月_bu.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
         Else
-            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
-            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
-            DateTimePicker2.Value = DateTimePicker4.Value
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
         End If
-        TextBox6.Text = "" : 日期格式() : Set_賬款主單()
+        財務收支單號_tb.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        If 會計月.Checked = True Then
-            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
-            DateTimePicker1.Value = DateTimePicker4.Value
-            DateTimePicker2.Value = DateTimePicker4.Value
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 下個月_bu.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
         Else
-            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
-            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
-            DateTimePicker2.Value = DateTimePicker4.Value
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
         End If
-        TextBox6.Text = "" : 日期格式() : Set_賬款主單()
+        財務收支單號_tb.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
-    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
-        會計月.Checked = True : 一般月.Checked = False : TextBox6.Text = "" : 日期格式() : Set_賬款主單()
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 財務收支單號_tb.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
-    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
-        會計月.Checked = False : 一般月.Checked = True : TextBox6.Text = "" : 日期格式() : Set_賬款主單()
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 財務收支單號_tb.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub 選中金額計算()
-        TextBox4.Text = "0" : TextBox5.Text = "0"
-        For I As Integer = 0 To DataGridView2.Rows.Count - 1
-            If DataGridView2.Rows(I).Cells("選擇").Value = True Then
-                TextBox5.Text = Val(TextBox5.Text) + DataGridView2.Rows(I).Cells("金額").Value
-                TextBox4.Text = Val(TextBox4.Text) + DataGridView2.Rows(I).Cells("金額").Value
+        實付金額_tb.Text = "0" : 實付金額計算用_tb.Text = "0"
+        For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If 採購清單_dgv.Rows(I).Cells("選擇").Value = True Then
+                實付金額計算用_tb.Text = Val(實付金額計算用_tb.Text) + 採購清單_dgv.Rows(I).Cells("金額").Value
+                實付金額_tb.Text = Val(實付金額_tb.Text) + 採購清單_dgv.Rows(I).Cells("金額").Value
             End If
         Next
-        NumericUpDown2.Value = Val(TextBox5.Text) - NumericUpDown1.Value
-        TextBox4.Text = Strings.Format(Val(TextBox4.Text), "#,##0")
+        未付金額_nud.Value = Val(實付金額計算用_tb.Text) - 實付金額_nud.Value
+        實付金額_tb.Text = Strings.Format(Val(實付金額_tb.Text), "#,##0")
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 應付供應商_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox6.Text = "" : TextBox2.Text = "" : CheckBox2.Checked = False : TextBox4.Text = "0" : NumericUpDown1.Value = 0 : NumericUpDown2.Value = 0
-            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商編號").Value
-            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商").Value
+            財務收支單號_tb.Text = "" : 單據編號_tb.Text = "" : 列印多選_ch.Checked = False : 實付金額_tb.Text = "0" : 實付金額_nud.Value = 0 : 未付金額_nud.Value = 0
+            供應商編號_tb.Text = 應付供應商_dgv.Rows(e.RowIndex).Cells("供應商編號").Value
+            供應商名稱_tb.Text = 應付供應商_dgv.Rows(e.RowIndex).Cells("供應商").Value
             Set_賬款清單() : Set_財務清單()
-            For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
+            For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1 : 採購清單_dgv.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
         End If
     End Sub
-    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            If DataGridView2.Rows(e.RowIndex).Cells("申請日期").Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView2.Rows(e.RowIndex).Cells("申請日期").Value.ToString : End If
-            TextBox2.Text = DataGridView2.Rows(e.RowIndex).Cells("單據編號").Value : TextBox6.Text = DataGridView2.Rows(e.RowIndex).Cells("財務單號").Value.ToString
-            For I As Integer = 0 To DataGridView2.Rows.Count - 1
-                If CheckBox2.Checked = False Then
-                    DataGridView2.Rows(I).Cells("選擇").Value = False
+            If 採購清單_dgv.Rows(e.RowIndex).Cells("申請日期").Value.ToString = "" Then : Else : 單據日期_dtp.Value = 採購清單_dgv.Rows(e.RowIndex).Cells("申請日期").Value.ToString : End If
+            單據編號_tb.Text = 採購清單_dgv.Rows(e.RowIndex).Cells("單據編號").Value : 財務收支單號_tb.Text = 採購清單_dgv.Rows(e.RowIndex).Cells("財務單號").Value.ToString
+            For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                If 列印多選_ch.Checked = False Then
+                    採購清單_dgv.Rows(I).Cells("選擇").Value = False
                 End If
-                If TextBox2.Text = DataGridView2.Rows(I).Cells("單據編號").Value Then
-                    DataGridView2.Rows(I).Cells("選擇").Value = True
+                If 單據編號_tb.Text = 採購清單_dgv.Rows(I).Cells("單據編號").Value Then
+                    採購清單_dgv.Rows(I).Cells("選擇").Value = True
                 End If
             Next
             選中金額計算() : Set_財務清單()
-            NumericUpDown1.Value = 0
-            For I As Integer = 0 To DataGridView3.Rows.Count - 1
-                If DataGridView3.Rows(I).Cells("開票").Value < 0 Or DataGridView3.Rows(I).Cells("付現").Value < 0 Then : Else
-                    NumericUpDown1.Value = NumericUpDown1.Value + DataGridView3.Rows(I).Cells("開票").Value + DataGridView3.Rows(I).Cells("付現").Value
-                End If
+            實付金額_nud.Value = 0
+            For I As Integer = 0 To 對應收支單_DGV.Rows.Count - 1
+                實付金額_nud.Value = 實付金額_nud.Value + 對應收支單_DGV.Rows(I).Cells("開票").Value + 對應收支單_DGV.Rows(I).Cells("付現").Value
             Next
         End If
     End Sub
-    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView2.Rows.Count - 1 Then : Exit Sub
+        If e.RowIndex = 採購清單_dgv.Rows.Count - 1 Then : Exit Sub
         Else
-            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
+            If 採購清單_dgv(0, e.RowIndex).Value.ToString <> 採購清單_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(採購清單_dgv.RowHeadersVisible, 採購清單_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 採購清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 採購清單_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        TextBox6.Text = "" : TextBox1.Text = "%%" : Set_賬款清單() : Set_財務清單()
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 間格時間內所有帳款_bu.Click
+        財務收支單號_tb.Text = "" : 供應商編號_tb.Text = "%%" : Set_賬款清單() : Set_財務清單()
     End Sub
-    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
-        NumericUpDown2.Value = Val(TextBox5.Text) - NumericUpDown1.Value
+    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles 實付金額_nud.ValueChanged
+        未付金額_nud.Value = Val(實付金額計算用_tb.Text) - 實付金額_nud.Value
     End Sub
-    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles 全部選擇_bu.Click
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1 : 採購清單_dgv.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
     End Sub
-    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = False : Next i : 選中金額計算()
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 全部取消_bu.Click
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1 : 採購清單_dgv.Rows(i).Cells("選擇").Value = False : Next i : 選中金額計算()
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 開立財務單據_bu.Click
         Dim 選擇判斷 As Boolean = False
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            If DataGridView2.Rows(i).Cells("選擇").Value = True Then
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If 採購清單_dgv.Rows(i).Cells("選擇").Value = True Then
                 選擇判斷 = True : Exit For
             End If
         Next i
         If 選擇判斷 = True Then
-            If CheckBox1.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
-            Else : DTP1 = Strings.Format(DateTimePicker3.Value, "yyyyMMdd") : DTP = Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
-            收付應沖金額 = Val(TextBox5.Text)
-            財務單申請狀態 = "應付" : 收付對應財務單號 = TextBox6.Text
-            收付對應客戶供應商編號 = TextBox1.Text
-            For I As Integer = 0 To DataGridView2.Rows.Count - 1
-                If DataGridView2.Rows(I).Cells("選擇").Value = True Then
-                    PA19 = DataGridView2.Rows(I).Cells("資料流水號").Value.ToString
+            If 非當天日期_ch.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
+            Else : DTP1 = Strings.Format(單據日期_dtp.Value, "yyyyMMdd") : DTP = Strings.Format(單據日期_dtp.Value, "yyyy/MM/dd") : End If
+            收付應沖金額 = Val(實付金額計算用_tb.Text)
+            財務單申請狀態 = "應付" : 收付對應財務單號 = 財務收支單號_tb.Text
+            收付對應客戶供應商編號 = 供應商編號_tb.Text
+            For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                If 採購清單_dgv.Rows(I).Cells("選擇").Value = True Then
+                    PA19 = 採購清單_dgv.Rows(I).Cells("資料流水號").Value.ToString
                     SQL_應收應付單號連接暫存檔新增() : conn.Close()
                 End If
             Next
             財務單具申請.ShowDialog()
             Set_賬款清單() : Set_財務清單() : 財務單具申請.Close()
-            For I As Integer = 0 To DataGridView2.Rows.Count - 1
-                DataGridView2.Rows(I).Cells("選擇").Value = True
+            For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                採購清單_dgv.Rows(I).Cells("選擇").Value = True
             Next
         Else
             MsgBox("最少要選擇一張單據。")
         End If
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        For i As Integer = 0 To DataGridView2.Rows.Count - 1
-            If TextBox2.Text = DataGridView2.Rows(i).Cells("單據編號").Value.ToString Then
-                DataGridView2.Rows(i).Cells("應付立帳").Value = False
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 暫時取消立帳選擇_bu.Click
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If 單據編號_tb.Text = 採購清單_dgv.Rows(i).Cells("單據編號").Value.ToString Then
+                採購清單_dgv.Rows(i).Cells("應付立帳").Value = False
             End If
         Next i
     End Sub
-    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
-        CheckBox2.Checked = True
-        Set_賬款清單() : For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
+    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles 財務收支單號_tb.TextChanged
+        列印多選_ch.Checked = True
+        Set_賬款清單() : For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1 : 採購清單_dgv.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
     End Sub
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 列印應付帳款清單_bu.Click
         xlApp = CType(CreateObject("Excel.Application"), Application)
         xlBook = xlApp.Workbooks.Add
         xlApp.DisplayAlerts = True
         xlApp.Visible = True
         xlApp.Application.WindowState = xlMaximized
         N1 = 0
-        If DataGridView2.Rows.Count = 0 Then : Else
+        If 採購清單_dgv.Rows.Count = 0 Then : Else
             xlSheet = NewMethod(xlBook)
-            xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應付帳款清單"
+            xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = 開始日期_dtp.Value & " 到 " & 結束日期_dtp.Value & " 應付帳款清單"
             xlSheet.Cells(3, 1) = "單據編號" : xlSheet.Cells(3, 2) = "供應商" : xlSheet.Cells(3, 3) = "頁碼" : xlSheet.Cells(3, 4) = "品名" : xlSheet.Cells(3, 5) = "單價" : xlSheet.Cells(3, 6) = "匯率"
             xlSheet.Cells(3, 7) = "入庫" : xlSheet.Cells(3, 8) = "金額" : xlSheet.Cells(3, 9) = "採購下單" : xlSheet.Cells(3, 10) = "入庫日期" : xlSheet.Cells(3, 11) = "是否立帳"
             xlSheet.Cells(2, 7) = "合計" : xlSheet.Cells(2, 8) = "=SUBTOTAL(9,H4:H9999)"
-            For i As Integer = 0 To DataGridView2.Rows.Count - 1
-                If DataGridView2.Rows(i).Cells("選擇").Value = True Then
-                    xlSheet.Cells(N1 + 4, 1) = DataGridView2.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = DataGridView2.Rows(i).Cells("供應商").Value
-                    xlSheet.Cells(N1 + 4, 3) = DataGridView2.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = DataGridView2.Rows(i).Cells("品名").Value
-                    xlSheet.Cells(N1 + 4, 5) = DataGridView2.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = DataGridView2.Rows(i).Cells("匯率").Value
-                    xlSheet.Cells(N1 + 4, 7) = DataGridView2.Rows(i).Cells("入庫").Value : xlSheet.Cells(N1 + 4, 8) = DataGridView2.Rows(i).Cells("金額").Value
-                    xlSheet.Cells(N1 + 4, 9) = DataGridView2.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = DataGridView2.Rows(i).Cells("入庫日期").Value
-                    If DataGridView2.Rows(i).Cells("應付立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
+            For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                If 採購清單_dgv.Rows(i).Cells("選擇").Value = True Then
+                    xlSheet.Cells(N1 + 4, 1) = 採購清單_dgv.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = 採購清單_dgv.Rows(i).Cells("供應商").Value
+                    xlSheet.Cells(N1 + 4, 3) = 採購清單_dgv.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = 採購清單_dgv.Rows(i).Cells("品名").Value
+                    xlSheet.Cells(N1 + 4, 5) = 採購清單_dgv.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = 採購清單_dgv.Rows(i).Cells("匯率").Value
+                    xlSheet.Cells(N1 + 4, 7) = 採購清單_dgv.Rows(i).Cells("入庫").Value : xlSheet.Cells(N1 + 4, 8) = 採購清單_dgv.Rows(i).Cells("金額").Value
+                    xlSheet.Cells(N1 + 4, 9) = 採購清單_dgv.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = 採購清單_dgv.Rows(i).Cells("入庫日期").Value
+                    If 採購清單_dgv.Rows(i).Cells("應付立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
                     xlSheet.Cells(N1 + 4, 11) = PA1
                     N1 += 1
                 End If

MaoOrange-Hongji/財務系統管理/應收帳款控制表.Designer.vb

@@ -22,374 +22,219 @@ Partial Class 應收帳款控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.一般月 = New System.Windows.Forms.CheckBox()
-        Me.會計月 = New System.Windows.Forms.CheckBox()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
-        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.Button6 = New System.Windows.Forms.Button()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Button6 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.ComboBox7 = New System.Windows.Forms.ComboBox()
-        Me.TextBox9 = New System.Windows.Forms.TextBox()
-        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
-        Me.Label5 = New System.Windows.Forms.Label()
         Me.Button12 = New System.Windows.Forms.Button()
         Me.Button13 = New System.Windows.Forms.Button()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
-        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
         Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.一般月 = New System.Windows.Forms.CheckBox()
+        Me.會計月 = New System.Windows.Forms.CheckBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'DataGridView1
-        '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView1.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.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(7, 82)
-        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1234, 517)
-        Me.DataGridView1.TabIndex = 1116
-        '
-        'Button1
-        '
-        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(7, 54)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(87, 23)
-        Me.Button1.TabIndex = 1120
-        Me.Button1.Text = "上個月"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        '一般月
-        '
-        Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(138, 31)
-        Me.一般月.Name = "一般月"
-        Me.一般月.Size = New System.Drawing.Size(63, 20)
-        Me.一般月.TabIndex = 1123
-        Me.一般月.Text = "一般月"
-        Me.一般月.UseVisualStyleBackColor = True
-        '
-        '會計月
+        'Label6
         '
-        Me.會計月.AutoSize = True
-        Me.會計月.Checked = True
-        Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(11, 31)
-        Me.會計月.Name = "會計月"
-        Me.會計月.Size = New System.Drawing.Size(63, 20)
-        Me.會計月.TabIndex = 1122
-        Me.會計月.Text = "會計月"
-        Me.會計月.UseVisualStyleBackColor = True
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.Green
+        Me.Label6.Location = New System.Drawing.Point(721, 7)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1235
+        Me.Label6.Text = "開立日期"
         '
-        'Button2
+        'DateTimePicker3
         '
-        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(117, 55)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(87, 23)
-        Me.Button2.TabIndex = 1121
-        Me.Button2.Text = "下個月"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker3.Location = New System.Drawing.Point(723, 28)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker3.TabIndex = 1234
         '
-        'Label4
+        'TextBox6
         '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(96, 8)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
-        Me.Label4.TabIndex = 1119
-        Me.Label4.Text = "到"
+        Me.TextBox6.ForeColor = System.Drawing.Color.Green
+        Me.TextBox6.Location = New System.Drawing.Point(815, 29)
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(110, 23)
+        Me.TextBox6.TabIndex = 1233
         '
-        'DateTimePicker2
+        'Button4
         '
-        Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
-        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(117, 4)
-        Me.DateTimePicker2.Name = "DateTimePicker2"
-        Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23)
-        Me.DateTimePicker2.TabIndex = 1118
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button4.ForeColor = System.Drawing.Color.Green
+        Me.Button4.Location = New System.Drawing.Point(813, 5)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(112, 22)
+        Me.Button4.TabIndex = 1232
+        Me.Button4.Text = "財務單據開立"
+        Me.Button4.UseVisualStyleBackColor = True
         '
-        'DateTimePicker1
+        'Button3
         '
-        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(7, 4)
-        Me.DateTimePicker1.Name = "DateTimePicker1"
-        Me.DateTimePicker1.Size = New System.Drawing.Size(87, 23)
-        Me.DateTimePicker1.TabIndex = 1117
+        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button3.Location = New System.Drawing.Point(595, 4)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(125, 23)
+        Me.Button3.TabIndex = 1231
+        Me.Button3.Text = "間格時間內所有帳款"
+        Me.Button3.UseVisualStyleBackColor = True
         '
         'TextBox5
         '
         Me.TextBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox5.Location = New System.Drawing.Point(657, 365)
+        Me.TextBox5.Location = New System.Drawing.Point(30, 108)
         Me.TextBox5.Name = "TextBox5"
-        Me.TextBox5.Size = New System.Drawing.Size(190, 23)
-        Me.TextBox5.TabIndex = 1195
-        '
-        'TextBox4
-        '
-        Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox4.Location = New System.Drawing.Point(657, 336)
-        Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(190, 23)
-        Me.TextBox4.TabIndex = 1193
-        '
-        '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.ForeColor = System.Drawing.Color.Red
-        Me.Label8.Location = New System.Drawing.Point(852, 48)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(385, 32)
-        Me.Label8.TabIndex = 1191
-        Me.Label8.Text = "選擇銷售單號執行開立傳票時實收金額會自動以會計科目-應收帳款立帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "未收餘額如果不為零則需要手動選擇會計科目。推薦使用-應收賬款折讓" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
-        '
-        'TextBox1
-        '
-        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(657, 307)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(190, 23)
-        Me.TextBox1.TabIndex = 1190
+        Me.TextBox5.Size = New System.Drawing.Size(43, 23)
+        Me.TextBox5.TabIndex = 1230
         '
         'Label7
         '
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label7.Location = New System.Drawing.Point(390, 57)
+        Me.Label7.Location = New System.Drawing.Point(592, 31)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(56, 16)
-        Me.Label7.TabIndex = 1189
-        Me.Label7.Text = "未收餘額"
+        Me.Label7.TabIndex = 1229
+        Me.Label7.Text = "未付餘額"
         '
         'NumericUpDown2
         '
-        Me.NumericUpDown2.Location = New System.Drawing.Point(446, 55)
-        Me.NumericUpDown2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NumericUpDown2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NumericUpDown2.Location = New System.Drawing.Point(648, 29)
+        Me.NumericUpDown2.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown2.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NumericUpDown2.Name = "NumericUpDown2"
-        Me.NumericUpDown2.Size = New System.Drawing.Size(100, 23)
-        Me.NumericUpDown2.TabIndex = 1188
+        Me.NumericUpDown2.Size = New System.Drawing.Size(72, 23)
+        Me.NumericUpDown2.TabIndex = 1228
         Me.NumericUpDown2.ThousandsSeparator = True
         '
         'Label2
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label2.Location = New System.Drawing.Point(390, 31)
+        Me.Label2.Location = New System.Drawing.Point(463, 31)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(56, 16)
-        Me.Label2.TabIndex = 1187
-        Me.Label2.Text = "實收金額"
+        Me.Label2.TabIndex = 1227
+        Me.Label2.Text = "實付金額"
         '
         'NumericUpDown1
         '
-        Me.NumericUpDown1.Location = New System.Drawing.Point(446, 29)
-        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NumericUpDown1.Location = New System.Drawing.Point(519, 29)
+        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NumericUpDown1.Name = "NumericUpDown1"
-        Me.NumericUpDown1.Size = New System.Drawing.Size(100, 23)
-        Me.NumericUpDown1.TabIndex = 1186
+        Me.NumericUpDown1.Size = New System.Drawing.Size(72, 23)
+        Me.NumericUpDown1.TabIndex = 1226
         Me.NumericUpDown1.ThousandsSeparator = True
         '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label5.Location = New System.Drawing.Point(463, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1225
+        Me.Label5.Text = "應付金額"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox4.Location = New System.Drawing.Point(519, 4)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(72, 23)
+        Me.TextBox4.TabIndex = 1224
+        '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label1.Location = New System.Drawing.Point(390, 7)
+        Me.Label1.Location = New System.Drawing.Point(272, 32)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(56, 16)
-        Me.Label1.TabIndex = 1185
-        Me.Label1.Text = "應收金額"
+        Me.Label1.TabIndex = 1223
+        Me.Label1.Text = "單據編號"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox2.Location = New System.Drawing.Point(329, 29)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(133, 23)
+        Me.TextBox2.TabIndex = 1222
         '
         'Button6
         '
         Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button6.ForeColor = System.Drawing.Color.Olive
-        Me.Button6.Location = New System.Drawing.Point(1087, 2)
+        Me.Button6.Location = New System.Drawing.Point(1086, 4)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(82, 47)
-        Me.Button6.TabIndex = 1184
+        Me.Button6.TabIndex = 1219
         Me.Button6.Text = "依據單號取消立帳選擇"
         Me.Button6.UseVisualStyleBackColor = True
         '
-        'TextBox2
-        '
-        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox2.Location = New System.Drawing.Point(446, 4)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(100, 23)
-        Me.TextBox2.TabIndex = 1183
-        '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Checked = True
-        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox1.Location = New System.Drawing.Point(351, 29)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
-        Me.CheckBox1.TabIndex = 1182
-        Me.CheckBox1.Text = "補"
-        Me.CheckBox1.UseVisualStyleBackColor = True
-        '
-        'DateTimePicker3
-        '
-        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker3.Location = New System.Drawing.Point(262, 28)
-        Me.DateTimePicker3.Name = "DateTimePicker3"
-        Me.DateTimePicker3.Size = New System.Drawing.Size(85, 23)
-        Me.DateTimePicker3.TabIndex = 1180
-        '
         'Button5
         '
         Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button5.Location = New System.Drawing.Point(1004, 2)
+        Me.Button5.Location = New System.Drawing.Point(1033, 4)
         Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(82, 47)
-        Me.Button5.TabIndex = 1179
+        Me.Button5.Size = New System.Drawing.Size(54, 47)
+        Me.Button5.TabIndex = 1218
         Me.Button5.Text = "列印帳款清單"
         Me.Button5.UseVisualStyleBackColor = True
         '
-        'Button4
-        '
-        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button4.Location = New System.Drawing.Point(282, 55)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(109, 23)
-        Me.Button4.TabIndex = 1178
-        Me.Button4.Text = "開立收支單(傳票)"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'ComboBox7
-        '
-        Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox7.FormattingEnabled = True
-        Me.ComboBox7.Location = New System.Drawing.Point(657, 55)
-        Me.ComboBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox7.Name = "ComboBox7"
-        Me.ComboBox7.Size = New System.Drawing.Size(190, 24)
-        Me.ComboBox7.TabIndex = 1177
-        '
-        'TextBox9
-        '
-        Me.TextBox9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox9.Location = New System.Drawing.Point(549, 55)
-        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox9.Name = "TextBox9"
-        Me.TextBox9.Size = New System.Drawing.Size(105, 23)
-        Me.TextBox9.TabIndex = 1176
-        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'ComboBox4
-        '
-        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox4.FormattingEnabled = True
-        Me.ComboBox4.Location = New System.Drawing.Point(769, 29)
-        Me.ComboBox4.Name = "ComboBox4"
-        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
-        Me.ComboBox4.TabIndex = 1175
-        '
-        'ComboBox3
-        '
-        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox3.FormattingEnabled = True
-        Me.ComboBox3.Location = New System.Drawing.Point(657, 29)
-        Me.ComboBox3.Name = "ComboBox3"
-        Me.ComboBox3.Size = New System.Drawing.Size(109, 24)
-        Me.ComboBox3.TabIndex = 1174
-        '
-        'ComboBox1
-        '
-        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(769, 3)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(78, 24)
-        Me.ComboBox1.TabIndex = 1173
-        '
-        'ComboBox5
-        '
-        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox5.FormattingEnabled = True
-        Me.ComboBox5.Location = New System.Drawing.Point(657, 3)
-        Me.ComboBox5.Name = "ComboBox5"
-        Me.ComboBox5.Size = New System.Drawing.Size(109, 24)
-        Me.ComboBox5.TabIndex = 1172
-        '
-        'ComboBox6
-        '
-        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox6.FormattingEnabled = True
-        Me.ComboBox6.Location = New System.Drawing.Point(657, 276)
-        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox6.Name = "ComboBox6"
-        Me.ComboBox6.Size = New System.Drawing.Size(190, 24)
-        Me.ComboBox6.TabIndex = 1170
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(550, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(104, 48)
-        Me.Label5.TabIndex = 1171
-        Me.Label5.Text = "未收餘額不為零時" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "需要選擇未收餘額" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "立帳的會計科目"
-        '
         'Button12
         '
         Me.Button12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button12.ForeColor = System.Drawing.Color.Olive
-        Me.Button12.Location = New System.Drawing.Point(1170, 26)
+        Me.Button12.Location = New System.Drawing.Point(1167, 28)
         Me.Button12.Name = "Button12"
         Me.Button12.Size = New System.Drawing.Size(74, 23)
-        Me.Button12.TabIndex = 1169
+        Me.Button12.TabIndex = 1217
         Me.Button12.Text = "全部取消"
         Me.Button12.UseVisualStyleBackColor = True
         '
@@ -398,49 +243,21 @@ Partial Class 應收帳款控制表
         Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button13.ForeColor = System.Drawing.Color.Olive
-        Me.Button13.Location = New System.Drawing.Point(1170, 2)
+        Me.Button13.Location = New System.Drawing.Point(1167, 4)
         Me.Button13.Name = "Button13"
         Me.Button13.Size = New System.Drawing.Size(74, 23)
-        Me.Button13.TabIndex = 1168
+        Me.Button13.TabIndex = 1216
         Me.Button13.Text = "全部選擇"
         Me.Button13.UseVisualStyleBackColor = True
         '
-        'TextBox3
-        '
-        Me.TextBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox3.Location = New System.Drawing.Point(262, 4)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(126, 23)
-        Me.TextBox3.TabIndex = 1166
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label3.Location = New System.Drawing.Point(206, 7)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(56, 16)
-        Me.Label3.TabIndex = 1167
-        Me.Label3.Text = "單據號碼"
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label6.Location = New System.Drawing.Point(207, 31)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
-        Me.Label6.TabIndex = 1181
-        Me.Label6.Text = "立帳日期"
-        '
         'CheckBox2
         '
         Me.CheckBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(887, 5)
+        Me.CheckBox2.Location = New System.Drawing.Point(927, 5)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(99, 20)
-        Me.CheckBox2.TabIndex = 1192
+        Me.CheckBox2.TabIndex = 1220
         Me.CheckBox2.Text = "列印多單選擇"
         Me.CheckBox2.UseVisualStyleBackColor = True
         '
@@ -448,69 +265,217 @@ Partial Class 應收帳款控制表
         '
         Me.CheckBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.CheckBox3.AutoSize = True
-        Me.CheckBox3.Location = New System.Drawing.Point(887, 25)
+        Me.CheckBox3.Location = New System.Drawing.Point(927, 30)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(111, 20)
-        Me.CheckBox3.TabIndex = 1194
+        Me.CheckBox3.TabIndex = 1221
         Me.CheckBox3.Text = "已立帳資料隱藏"
         Me.CheckBox3.UseVisualStyleBackColor = True
         '
-        'ComboBox2
+        'TextBox1
         '
-        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox2.FormattingEnabled = True
-        Me.ComboBox2.Items.AddRange(New Object() {"", "收現", "收票", "託收"})
-        Me.ComboBox2.Location = New System.Drawing.Point(210, 54)
-        Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(66, 24)
-        Me.ComboBox2.TabIndex = 1196
+        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox1.Location = New System.Drawing.Point(30, 79)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(43, 23)
+        Me.TextBox1.TabIndex = 1215
+        '
+        'TextBox3
+        '
+        Me.TextBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox3.Location = New System.Drawing.Point(147, 29)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(123, 23)
+        Me.TextBox3.TabIndex = 1213
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(113, 32)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.TabIndex = 1214
+        Me.Label3.Text = "客戶"
+        '
+        'DataGridView3
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView3.Location = New System.Drawing.Point(8, 323)
+        Me.DataGridView3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView3.Name = "DataGridView3"
+        Me.DataGridView3.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.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView3.RowTemplate.Height = 24
+        Me.DataGridView3.Size = New System.Drawing.Size(1233, 283)
+        Me.DataGridView3.TabIndex = 1212
+        '
+        'DataGridView2
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridView2.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.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView2.Location = New System.Drawing.Point(111, 55)
+        Me.DataGridView2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.RowHeadersWidth = 5
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.DataGridView2.RowTemplate.Height = 24
+        Me.DataGridView2.Size = New System.Drawing.Size(1130, 266)
+        Me.DataGridView2.TabIndex = 1211
         '
         'DateTimePicker4
         '
         Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker4.Location = New System.Drawing.Point(80, 29)
+        Me.DateTimePicker4.Location = New System.Drawing.Point(30, 50)
         Me.DateTimePicker4.Name = "DateTimePicker4"
         Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
-        Me.DateTimePicker4.TabIndex = 1197
+        Me.DateTimePicker4.TabIndex = 1210
         '
-        '應收帳款控制表
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button1.Location = New System.Drawing.Point(330, 4)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(65, 23)
+        Me.Button1.TabIndex = 1206
+        Me.Button1.Text = "上個月"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        '一般月
+        '
+        Me.一般月.AutoSize = True
+        Me.一般月.Location = New System.Drawing.Point(272, 7)
+        Me.一般月.Name = "一般月"
+        Me.一般月.Size = New System.Drawing.Size(63, 20)
+        Me.一般月.TabIndex = 1209
+        Me.一般月.Text = "一般月"
+        Me.一般月.UseVisualStyleBackColor = True
+        '
+        '會計月
+        '
+        Me.會計月.AutoSize = True
+        Me.會計月.Checked = True
+        Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月.Location = New System.Drawing.Point(207, 7)
+        Me.會計月.Name = "會計月"
+        Me.會計月.Size = New System.Drawing.Size(63, 20)
+        Me.會計月.TabIndex = 1208
+        Me.會計月.Text = "會計月"
+        Me.會計月.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button2.Location = New System.Drawing.Point(397, 4)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 1207
+        Me.Button2.Text = "下個月"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(97, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1205
+        Me.Label4.Text = "到"
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(118, 4)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23)
+        Me.DateTimePicker2.TabIndex = 1204
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(8, 4)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(87, 23)
+        Me.DateTimePicker1.TabIndex = 1203
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(8, 31)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(100, 290)
+        Me.DataGridView1.TabIndex = 1202
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.ForeColor = System.Drawing.Color.Green
+        Me.CheckBox1.Location = New System.Drawing.Point(780, 6)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
+        Me.CheckBox1.TabIndex = 1236
+        Me.CheckBox1.Text = "補"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        '應收帳款控制表1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
-        Me.Controls.Add(Me.DateTimePicker4)
-        Me.Controls.Add(Me.ComboBox2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.TextBox5)
-        Me.Controls.Add(Me.TextBox4)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.NumericUpDown2)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.TextBox2)
-        Me.Controls.Add(Me.CheckBox1)
-        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button5)
-        Me.Controls.Add(Me.Button4)
-        Me.Controls.Add(Me.ComboBox7)
-        Me.Controls.Add(Me.TextBox9)
-        Me.Controls.Add(Me.ComboBox4)
-        Me.Controls.Add(Me.ComboBox3)
-        Me.Controls.Add(Me.ComboBox1)
-        Me.Controls.Add(Me.ComboBox5)
-        Me.Controls.Add(Me.ComboBox6)
-        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.Button12)
         Me.Controls.Add(Me.Button13)
-        Me.Controls.Add(Me.TextBox3)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.CheckBox2)
         Me.Controls.Add(Me.CheckBox3)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.DataGridView3)
+        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.DateTimePicker4)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.一般月)
         Me.Controls.Add(Me.會計月)
@@ -519,55 +484,55 @@ Partial Class 應收帳款控制表
         Me.Controls.Add(Me.DateTimePicker2)
         Me.Controls.Add(Me.DateTimePicker1)
         Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.Label3)
         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.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Name = "應收帳款控制表1"
+        Me.Text = "應收帳款控制表1"
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents Button1 As Button
-    Friend WithEvents 一般月 As CheckBox
-    Friend WithEvents 會計月 As CheckBox
-    Friend WithEvents Button2 As Button
-    Friend WithEvents Label4 As Label
-    Friend WithEvents DateTimePicker2 As DateTimePicker
-    Friend WithEvents DateTimePicker1 As DateTimePicker
+
+    Friend WithEvents Label6 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button3 As Button
     Friend WithEvents TextBox5 As TextBox
-    Friend WithEvents TextBox4 As TextBox
-    Friend WithEvents Label8 As Label
-    Friend WithEvents TextBox1 As TextBox
     Friend WithEvents Label7 As Label
     Friend WithEvents NumericUpDown2 As NumericUpDown
     Friend WithEvents Label2 As Label
     Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox4 As TextBox
     Friend WithEvents Label1 As Label
-    Friend WithEvents Button6 As Button
     Friend WithEvents TextBox2 As TextBox
-    Friend WithEvents CheckBox1 As CheckBox
-    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Button6 As Button
     Friend WithEvents Button5 As Button
-    Friend WithEvents Button4 As Button
-    Friend WithEvents ComboBox7 As ComboBox
-    Friend WithEvents TextBox9 As TextBox
-    Friend WithEvents ComboBox4 As ComboBox
-    Friend WithEvents ComboBox3 As ComboBox
-    Friend WithEvents ComboBox1 As ComboBox
-    Friend WithEvents ComboBox5 As ComboBox
-    Friend WithEvents ComboBox6 As ComboBox
-    Friend WithEvents Label5 As Label
     Friend WithEvents Button12 As Button
     Friend WithEvents Button13 As Button
-    Friend WithEvents TextBox3 As TextBox
-    Friend WithEvents Label3 As Label
-    Friend WithEvents Label6 As Label
     Friend WithEvents CheckBox2 As CheckBox
     Friend WithEvents CheckBox3 As CheckBox
-    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents DataGridView2 As DataGridView
     Friend WithEvents DateTimePicker4 As DateTimePicker
+    Friend WithEvents Button1 As Button
+    Friend WithEvents 一般月 As CheckBox
+    Friend WithEvents 會計月 As CheckBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents CheckBox1 As CheckBox
 End Class

MaoOrange-Hongji/財務系統管理/應收帳款控制表.vb

@@ -9,52 +9,76 @@ Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 應收帳款控制表
-    ReadOnly ds As New DataSet
-    Dim N1 As Integer : Dim 新項次 As String
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Dim N1 As Integer
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
-    Private Sub Set_賬款清單()
+    Private Sub Set_賬款主單()
         DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
         DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
-        SQL_應收賬款清單()
+        SQL_應收賬款主單()
         da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 100
+        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For I As Integer = 0 To 1 : DataGridView1.Columns(I).ReadOnly = True : Next
+    End Sub
+    Private Sub Set_賬款清單()
+        DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView2.ColumnHeadersHeight = 40
+        DataGridView2.AllowUserToAddRows = False : DataGridView2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView2.MultiSelect = True
 
-        DataGridView1.Columns(0).FillWeight = 150 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).FillWeight = 100 : DataGridView1.Columns(3).Visible = False
-        DataGridView1.Columns(4).FillWeight = 80 : DataGridView1.Columns(5).FillWeight = 300 : DataGridView1.Columns(6).FillWeight = 80 : DataGridView1.Columns(7).FillWeight = 80
-        DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 100 : DataGridView1.Columns(11).FillWeight = 100
-        DataGridView1.Columns(12).FillWeight = 150 : DataGridView1.Columns(13).FillWeight = 60 : DataGridView1.Columns(14).FillWeight = 50 : DataGridView1.Columns(15).Visible = False
-        DataGridView1.Columns(16).FillWeight = 50
+        If TextBox6.Text = "" Then : SQL_應收賬款清單一() : Else : SQL_應收賬款清單二() : End If
 
-        DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0.000"
-        DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+
+        DataGridView2.Columns(0).FillWeight = 150 : DataGridView2.Columns(1).Visible = False : DataGridView2.Columns(2).Visible = False : DataGridView2.Columns(3).Visible = False
+        DataGridView2.Columns(4).FillWeight = 80 : DataGridView2.Columns(5).FillWeight = 300 : DataGridView2.Columns(6).FillWeight = 80 : DataGridView2.Columns(7).FillWeight = 80
+        DataGridView2.Columns(8).FillWeight = 80 : DataGridView2.Columns(9).FillWeight = 80 : DataGridView2.Columns(10).FillWeight = 100 : DataGridView2.Columns(11).FillWeight = 100
+        DataGridView2.Columns(12).FillWeight = 150 : DataGridView2.Columns(13).FillWeight = 60 : DataGridView2.Columns(14).FillWeight = 50 : DataGridView2.Columns(15).Visible = False
+        DataGridView2.Columns(16).FillWeight = 120 : DataGridView2.Columns(17).Visible = False
+
+        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0.000"
+        DataGridView2.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(9).DefaultCellStyle.Format = "#,##0"
+        DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        For I As Integer = 0 To 12 : DataGridView1.Columns(I).ReadOnly = True : Next : DataGridView1.Columns(14).ReadOnly = True
-        For I As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.Rows(I).Cells("應收立帳").Value.ToString = "" Then : DataGridView1.Rows(I).Cells("應收立帳").Value = False : End If
-            DataGridView1.Rows(I).Cells("選擇").Value = False
+        For I As Integer = 0 To 12 : DataGridView2.Columns(I).ReadOnly = True : Next : DataGridView2.Columns(14).ReadOnly = True
+        For I As Integer = 0 To DataGridView2.Rows.Count - 1
+            If DataGridView2.Rows(I).Cells("應收立帳").Value.ToString = "" Then : DataGridView2.Rows(I).Cells("應收立帳").Value = False : End If
+            DataGridView2.Rows(I).Cells("選擇").Value = False
         Next
     End Sub
-    Private Sub ComboBox1下拉表單資料載入()
-        SQL_會計科目_第一階_只含流動票務()
-        ComboBox5.Items.Clear() : ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox1.Items.Add(dr("編號")) : End While : conn.Close()
-    End Sub
-    Private Sub ComboBox3下拉表單資料載入()
-        PA = ComboBox1.Text : SQL_會計科目_第二階_只含流動票務()
-        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
-    End Sub
-    Private Sub ComboBox6下拉表單資料載入()
-        PA = ComboBox4.Text : SQL_會計科目_第三階_只含流動票務()
-        ComboBox7.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
-        If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If
+    Private Sub Set_財務清單()
+        DataGridView3.DataSource = Nothing : ds2.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView3.ColumnHeadersHeight = 40
+        DataGridView3.AllowUserToAddRows = False : DataGridView3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView3.MultiSelect = True
+        DataGridView3.RowTemplate.Height = 35
+        SQL_應收賬款清單三()
+        da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+
+        DataGridView3.Columns(0).Visible = False : DataGridView3.Columns(1).Visible = False : DataGridView3.Columns(2).FillWeight = 75 : DataGridView3.Columns(3).Visible = False
+        DataGridView3.Columns(4).FillWeight = 150 : DataGridView3.Columns(5).Visible = False : DataGridView3.Columns(6).FillWeight = 80 : DataGridView3.Columns(7).Visible = False
+        DataGridView3.Columns(8).FillWeight = 80 : DataGridView3.Columns(9).FillWeight = 150 : DataGridView3.Columns(10).FillWeight = 50 : DataGridView3.Columns(11).FillWeight = 50
+        DataGridView3.Columns(12).FillWeight = 120 : DataGridView3.Columns(13).FillWeight = 75 : DataGridView3.Columns(14).FillWeight = 95 : DataGridView3.Columns(15).FillWeight = 95
+        DataGridView3.Columns(16).FillWeight = 95 : DataGridView3.Columns(17).FillWeight = 95 : DataGridView3.Columns(18).FillWeight = 75 : DataGridView3.Columns(19).Visible = False
+        DataGridView3.Columns(20).FillWeight = 150 : DataGridView3.Columns(21).FillWeight = 100 : DataGridView3.Columns(22).FillWeight = 80 : DataGridView3.Columns(23).FillWeight = 150
+        DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False : DataGridView3.Columns(26).Visible = False
+
+        DataGridView3.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(7).DefaultCellStyle.Format = "#,##0"
+        DataGridView3.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(5).DefaultCellStyle.Format = "#,##0"
+        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     End Sub
     Private Sub 日期格式()
         If 會計月.Checked = True Then
@@ -73,15 +97,10 @@ Public Class 應收帳款控制表
             DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
-    Private Sub 預設關鍵字()
-        關鍵字編號 = "DV003" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
-    End Sub
-    Private Sub 應收帳款_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 應收帳款控制表1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox6.Visible = False : TextBox1.Visible = False : TextBox4.Visible = False : TextBox5.Visible = False : DateTimePicker4.Visible = False
-        TextBox1.Text = "0" : TextBox2.Text = "0"
-        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : 日期格式() : Set_賬款清單()
-        預設關鍵字()
+        DateTimePicker4.Visible = False : TextBox1.Visible = False : TextBox5.Visible = False
+        日期格式() : Set_賬款主單()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         If 會計月.Checked = True Then
@@ -93,7 +112,7 @@ Public Class 應收帳款控制表
             DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
             DateTimePicker2.Value = DateTimePicker4.Value
         End If
-        日期格式() : Set_賬款清單()
+        TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         If 會計月.Checked = True Then
@@ -105,173 +124,116 @@ Public Class 應收帳款控制表
             DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
             DateTimePicker2.Value = DateTimePicker4.Value
         End If
-        日期格式() : Set_賬款清單()
+        TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
-        會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_賬款清單()
+        會計月.Checked = True : 一般月.Checked = False : TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
-        會計月.Checked = False : 一般月.Checked = True : 日期格式() : Set_賬款清單()
-    End Sub
-    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
-        ComboBox1.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入()
+        會計月.Checked = False : 一般月.Checked = True : TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
-        ComboBox5.SelectedIndex = ComboBox1.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入()
-    End Sub
-    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
-        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox6下拉表單資料載入()
-    End Sub
-    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
-        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox6下拉表單資料載入()
-    End Sub
-    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
-        ComboBox6.SelectedIndex = ComboBox7.SelectedIndex
-    End Sub
-    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
-        ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
-    End Sub
-    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text : SQL_會計科目_關鍵字_只含流動票務()
-        ComboBox7.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
-        If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If : PA = ""
+    Private Sub 選中金額計算()
+        TextBox4.Text = "0" : TextBox5.Text = "0"
+        For I As Integer = 0 To DataGridView2.Rows.Count - 1
+            If DataGridView2.Rows(I).Cells("選擇").Value = True Then
+                TextBox5.Text = Val(TextBox5.Text) + DataGridView2.Rows(I).Cells("金額").Value
+                TextBox4.Text = Val(TextBox4.Text) + DataGridView2.Rows(I).Cells("金額").Value
+            End If
+        Next
+        NumericUpDown2.Value = Val(TextBox5.Text) - NumericUpDown1.Value
+        TextBox4.Text = Strings.Format(Val(TextBox4.Text), "#,##0")
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("單據編號").Value : TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("客戶").Value
-            ComboBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("收款狀態").Value.ToString
-            TextBox2.Text = "0" : TextBox1.Text = "0"
-            For I As Integer = 0 To DataGridView1.Rows.Count - 1
+            TextBox6.Text = "" : TextBox2.Text = "" : CheckBox2.Checked = False : TextBox4.Text = "0" : NumericUpDown1.Value = 0 : NumericUpDown2.Value = 0
+            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("客戶編號").Value
+            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("客戶").Value
+            Set_賬款清單() : Set_財務清單()
+            For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
+        End If
+    End Sub
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+        If e.RowIndex = -1 Then : Else
+            If DataGridView2.Rows(e.RowIndex).Cells("申請日期").Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView2.Rows(e.RowIndex).Cells("申請日期").Value.ToString : End If
+            TextBox2.Text = DataGridView2.Rows(e.RowIndex).Cells("單據編號").Value : TextBox6.Text = DataGridView2.Rows(e.RowIndex).Cells("財務單號").Value.ToString
+            For I As Integer = 0 To DataGridView2.Rows.Count - 1
                 If CheckBox2.Checked = False Then
-                    DataGridView1.Rows(I).Cells("選擇").Value = False
+                    DataGridView2.Rows(I).Cells("選擇").Value = False
                 End If
-
-                If TextBox3.Text = DataGridView1.Rows(I).Cells("單據編號").Value Then
-                    DataGridView1.Rows(I).Cells("選擇").Value = True
-                    TextBox1.Text = Val(TextBox1.Text) + DataGridView1.Rows(I).Cells("金額").Value
-                    TextBox2.Text = Val(TextBox2.Text) + DataGridView1.Rows(I).Cells("金額").Value
+                If TextBox2.Text = DataGridView2.Rows(I).Cells("單據編號").Value Then
+                    DataGridView2.Rows(I).Cells("選擇").Value = True
                 End If
             Next
-            TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0")
+            選中金額計算() : Set_財務清單()
+            NumericUpDown1.Value = 0
+            For I As Integer = 0 To DataGridView3.Rows.Count - 1
+                NumericUpDown1.Value = NumericUpDown1.Value + DataGridView3.Rows(I).Cells("收票").Value + DataGridView3.Rows(I).Cells("收現").Value
+            Next
         End If
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView1.Rows.Count - 1 Then : Exit Sub
+        If e.RowIndex = DataGridView2.Rows.Count - 1 Then : Exit Sub
         Else
-            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
+            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
+                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
     End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        TextBox6.Text = "" : TextBox1.Text = "%%" : Set_賬款清單() : Set_財務清單()
+    End Sub
+    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
+        NumericUpDown2.Value = Val(TextBox5.Text) - NumericUpDown1.Value
+    End Sub
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = True : Next i
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
     End Sub
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = False : Next i
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = False : Next i : 選中金額計算()
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If TextBox3.Text = DataGridView1.Rows(i).Cells("單據編號").Value.ToString Then
-                DataGridView1.Rows(i).Cells("應收立帳").Value = False
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        SQL_應收應付單號連接暫存檔刪除() : conn.Close()
+        Dim 選擇判斷 As Boolean = False
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1
+            If DataGridView2.Rows(i).Cells("選擇").Value = True Then
+                選擇判斷 = True : Exit For
             End If
         Next i
-    End Sub
-    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
-        NumericUpDown2.Value = Val(TextBox1.Text) - NumericUpDown1.Value
-    End Sub
-    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
-        NumericUpDown2.Value = Val(TextBox1.Text) - NumericUpDown1.Value
-    End Sub
-    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
-        Set_賬款清單()
-    End Sub
-    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
-        If ComboBox2.Text = "收現" Then
-            關鍵字編號 = "DV003" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
-        ElseIf ComboBox2.Text = "收票" Then
-            關鍵字編號 = "DV004" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
-        ElseIf ComboBox2.Text = "" Or ComboBox2.Text = "託收" Then
-            TextBox9.Text = ""
+        If 選擇判斷 = True Then
+            If CheckBox1.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
+            Else : DTP1 = Strings.Format(DateTimePicker3.Value, "yyyyMMdd") : DTP = Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
+            收付應沖金額 = Val(TextBox5.Text)
+            財務單申請狀態 = "應收" : 收付對應財務單號 = TextBox6.Text
+            收付對應客戶供應商編號 = TextBox1.Text
+            For I As Integer = 0 To DataGridView2.Rows.Count - 1
+                If DataGridView2.Rows(I).Cells("選擇").Value = True Then
+                    PA19 = DataGridView2.Rows(I).Cells("資料流水號").Value.ToString
+                    SQL_應收應付單號連接暫存檔新增() : conn.Close()
+                End If
+            Next
+            財務單具申請.ShowDialog()
+            Set_賬款清單() : Set_財務清單() : 財務單具申請.Close()
+            For I As Integer = 0 To DataGridView2.Rows.Count - 1
+                DataGridView2.Rows(I).Cells("選擇").Value = True
+            Next
+        Else
+            MsgBox("最少要選擇一張單據。")
         End If
     End Sub
-    Private Sub Set_日期格式轉換()
-        If CheckBox1.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
-        Else : DTP1 = Strings.Format(DateTimePicker3.Value, "yyyyMMdd") : DTP = Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
-    End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        If ComboBox2.Text = "" Or ComboBox2.Text = "託收" Then
-            MsgBox("需要選擇收現或是收票才能運行。")
-        Else
-            If CheckBox2.Checked = True Then
-                MsgBox("開立支付單(傳票)需要一張一張來，請重新選擇。")
-                CheckBox2.Checked = False
-                For I As Integer = 0 To DataGridView1.Rows.Count - 1
-                    DataGridView1.Rows(I).Cells("選擇").Value = False
-                Next
-            Else
-                If NumericUpDown1.Value = 0 Then
-                    MsgBox("實收金額不可為零。") : Exit Sub
-                Else
-                    If NumericUpDown2.Value = 0 Then : Else
-                        If ComboBox6.Text = "" Then
-                            MsgBox("未收款金額擇讓需要會計科目。") : Exit Sub
-                        Else
-                        End If
-                    End If
-                    Dim 確認 As Boolean = False
-                    For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                        If DataGridView1.Rows(i).Cells("選擇").Value = True Then
-                            MsgBox("該採銷售已經開立過傳票，如是之前開立有誤需要從新開立，請先點擊--依據單號取消立帳選擇--按鈕。如是因銷售退貨需要開立收支單(傳票)請先勾選--已立帳資料隱藏--再行操作。")
-                            Exit Sub
-                        End If
-                    Next
-                    If 確認 = False Then : MsgBox("沒有選擇任何一筆要轉收支帳(傳票)的銷售單號。")
-                    Else
-                        Dim NUM1 As Integer : Set_日期格式轉換()
-                        For ii As Integer = 1 To 999
-                            NUM1 = 0 + ii
-                            If NUM1 < 10 Then : TextBox4.Text = "OE-" & DTP1 & "-00" & NUM1
-                            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox4.Text = "OE-" & DTP1 & "-0" & NUM1
-                            ElseIf NUM1 > 99 Then : TextBox4.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox4.Text
-                            SQL_營運成本收支單申請_支付單號流水號()
-                            If dr.Read() Then : Else : ii = 999 : End If
-                        Next
-                        SQL_營運成本控制表新增()
-
-                        SQL_營運成本明細表項次新增查詢()
-                        If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
-                        If NUM1 < 10 Then : 新項次 = "0" & NUM1
-                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-                        關鍵字編號 = "DV001" : SQL_通用預設值管理查詢() : If dr.Read() Then : PA3 = dr("預設值") : End If
-                        PA1 = TextBox4.Text : PA2 = 新項次 : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應收帳款"
-                        NU1 = NumericUpDown1.Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "收現" : PA7 = gUserName
-                        SQL_營運成本明細表新增()
-
-                        If NumericUpDown2.Value = 0 Then : Else
-                            SQL_營運成本明細表項次新增查詢()
-                            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
-                            If NUM1 < 10 Then : 新項次 = "0" & NUM1
-                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-
-                            PA1 = TextBox4.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 貨款折讓"
-                            NU1 = NumericUpDown2.Value * -1 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "收現" : PA7 = gUserName
-                            SQL_營運成本明細表新增()
-                        End If
-                        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
-                            If DataGridView1.Rows(i).Cells("選擇").Value = True Then
-                                PA6 = DataGridView1.Rows(i).Cells("資料流水號").Value
-                                SQL_應付賬款_倉儲明細應付立帳修改()
-                            End If
-                        Next i : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("財務收支單(傳票)申請完成，請通知主管審核。") : Set_賬款清單()
-                    End If
-                End If
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1
+            If TextBox2.Text = DataGridView2.Rows(i).Cells("單據編號").Value.ToString Then
+                DataGridView2.Rows(i).Cells("應收立帳").Value = False
             End If
-        End If
+        Next i
+    End Sub
+    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
+        CheckBox2.Checked = True
+        Set_賬款清單() : For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
     End Sub
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
         xlApp = CType(CreateObject("Excel.Application"), Application)
@@ -280,20 +242,20 @@ Public Class 應收帳款控制表
         xlApp.Visible = True
         xlApp.Application.WindowState = xlMaximized
         N1 = 0
-        If DataGridView1.Rows.Count = 0 Then : Else
+        If DataGridView2.Rows.Count = 0 Then : Else
             xlSheet = NewMethod(xlBook)
             xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應收帳款清單"
-            xlSheet.Cells(3, 1) = "單據編號" : xlSheet.Cells(3, 2) = "客戶" : xlSheet.Cells(3, 3) = "頁碼" : xlSheet.Cells(3, 4) = "品名" : xlSheet.Cells(3, 5) = "售價" : xlSheet.Cells(3, 6) = "匯率"
-            xlSheet.Cells(3, 7) = "出庫" : xlSheet.Cells(3, 8) = "金額" : xlSheet.Cells(3, 9) = "銷售接單" : xlSheet.Cells(3, 10) = "出庫日期" : xlSheet.Cells(3, 11) = "是否立帳"
+            xlSheet.Cells(3, 1) = "單據編號" : xlSheet.Cells(3, 2) = "客戶" : xlSheet.Cells(3, 3) = "頁碼" : xlSheet.Cells(3, 4) = "品名" : xlSheet.Cells(3, 5) = "單價" : xlSheet.Cells(3, 6) = "匯率"
+            xlSheet.Cells(3, 7) = "出庫" : xlSheet.Cells(3, 8) = "金額" : xlSheet.Cells(3, 9) = "銷售下單" : xlSheet.Cells(3, 10) = "出庫日期" : xlSheet.Cells(3, 11) = "是否立帳"
             xlSheet.Cells(2, 7) = "合計" : xlSheet.Cells(2, 8) = "=SUBTOTAL(9,H4:H9999)"
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                If DataGridView1.Rows(i).Cells("選擇").Value = True Then
-                    xlSheet.Cells(N1 + 4, 1) = DataGridView1.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = DataGridView1.Rows(i).Cells("客戶").Value
-                    xlSheet.Cells(N1 + 4, 3) = DataGridView1.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = DataGridView1.Rows(i).Cells("品名").Value
-                    xlSheet.Cells(N1 + 4, 5) = DataGridView1.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = DataGridView1.Rows(i).Cells("匯率").Value
-                    xlSheet.Cells(N1 + 4, 7) = DataGridView1.Rows(i).Cells("出庫").Value : xlSheet.Cells(N1 + 4, 8) = DataGridView1.Rows(i).Cells("金額").Value
-                    xlSheet.Cells(N1 + 4, 9) = DataGridView1.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = DataGridView1.Rows(i).Cells("出庫日期").Value
-                    If DataGridView1.Rows(i).Cells("應收立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
+            For i As Integer = 0 To DataGridView2.Rows.Count - 1
+                If DataGridView2.Rows(i).Cells("選擇").Value = True Then
+                    xlSheet.Cells(N1 + 4, 1) = DataGridView2.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = DataGridView2.Rows(i).Cells("客戶").Value
+                    xlSheet.Cells(N1 + 4, 3) = DataGridView2.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = DataGridView2.Rows(i).Cells("品名").Value
+                    xlSheet.Cells(N1 + 4, 5) = DataGridView2.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = DataGridView2.Rows(i).Cells("匯率").Value
+                    xlSheet.Cells(N1 + 4, 7) = DataGridView2.Rows(i).Cells("出庫").Value : xlSheet.Cells(N1 + 4, 8) = DataGridView2.Rows(i).Cells("金額").Value
+                    xlSheet.Cells(N1 + 4, 9) = DataGridView2.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = DataGridView2.Rows(i).Cells("出庫日期").Value
+                    If DataGridView2.Rows(i).Cells("應收立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
                     xlSheet.Cells(N1 + 4, 11) = PA1
                     N1 += 1
                 End If

MaoOrange-Hongji/財務系統管理/營運成本收支_決算表.vb

@@ -89,7 +89,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView1.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox30.Text = Val(TextBox30.Text) + DataGridView1.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox4.Text = Val(TextBox30.Text) + Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox76.Text) + Val(TextBox90.Text) + Val(TextBox103.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox30.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox1.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox2.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox3.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox76.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox90.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox103.Text) : End If
+        TextBox4.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單2()
         DataGridView3.DataSource = Nothing : ds1.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -127,7 +132,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView3.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox29.Text = Val(TextBox29.Text) + DataGridView3.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox8.Text = Val(TextBox29.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox75.Text) + Val(TextBox89.Text) + Val(TextBox102.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox29.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox5.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox6.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox7.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox75.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox89.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox102.Text) : End If
+        TextBox8.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單3()
         DataGridView4.DataSource = Nothing : ds3.Clear() : DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -165,7 +175,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView4.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox28.Text = Val(TextBox28.Text) + DataGridView4.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox12.Text = Val(TextBox28.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox74.Text) + Val(TextBox88.Text) + Val(TextBox101.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox28.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox9.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox10.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox11.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox74.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox88.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox101.Text) : End If
+        TextBox12.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單4()
         DataGridView5.DataSource = Nothing : ds4.Clear() : DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -203,7 +218,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView5.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox27.Text = Val(TextBox27.Text) + DataGridView5.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox16.Text = Val(TextBox27.Text) + Val(TextBox13.Text) + Val(TextBox14.Text) + Val(TextBox15.Text) + Val(TextBox73.Text) + Val(TextBox87.Text) + Val(TextBox100.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox27.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox13.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox14.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox15.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox73.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox87.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox100.Text) : End If
+        TextBox16.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單5()
         DataGridView6.DataSource = Nothing : ds5.Clear() : DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -241,7 +261,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView6.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox26.Text = Val(TextBox26.Text) + DataGridView6.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox20.Text = Val(TextBox17.Text) + Val(TextBox18.Text) + Val(TextBox19.Text) + Val(TextBox26.Text) + Val(TextBox72.Text) + Val(TextBox86.Text) + Val(TextBox99.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox26.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox17.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox18.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox19.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox72.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox86.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox99.Text) : End If
+        TextBox20.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單6()
         DataGridView7.DataSource = Nothing : ds6.Clear() : DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -279,7 +304,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView7.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox25.Text = Val(TextBox25.Text) + DataGridView7.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox24.Text = Val(TextBox21.Text) + Val(TextBox22.Text) + Val(TextBox23.Text) + Val(TextBox25.Text) + Val(TextBox71.Text) + Val(TextBox85.Text) + Val(TextBox98.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox25.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox21.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox22.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox23.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox71.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox85.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox98.Text) : End If
+        TextBox24.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單7()
         DataGridView8.DataSource = Nothing : ds7.Clear() : DataGridView8.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -317,7 +347,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView8.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox31.Text = Val(TextBox31.Text) + DataGridView8.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox32.Text = Val(TextBox35.Text) + Val(TextBox34.Text) + Val(TextBox33.Text) + Val(TextBox31.Text) + Val(TextBox70.Text) + Val(TextBox84.Text) + Val(TextBox97.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox31.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox35.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox34.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox33.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox70.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox84.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox97.Text) : End If
+        TextBox32.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單8()
         DataGridView9.DataSource = Nothing : ds8.Clear() : DataGridView9.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -355,7 +390,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView9.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox36.Text = Val(TextBox36.Text) + DataGridView9.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox37.Text = Val(TextBox40.Text) + Val(TextBox39.Text) + Val(TextBox38.Text) + Val(TextBox36.Text) + Val(TextBox69.Text) + Val(TextBox83.Text) + Val(TextBox96.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox36.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox40.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox39.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox38.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox69.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox83.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox96.Text) : End If
+        TextBox37.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單9()
         DataGridView10.DataSource = Nothing : ds9.Clear() : DataGridView10.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -393,7 +433,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView10.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox41.Text = Val(TextBox41.Text) + DataGridView10.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox42.Text = Val(TextBox45.Text) + Val(TextBox44.Text) + Val(TextBox43.Text) + Val(TextBox41.Text) + Val(TextBox68.Text) + Val(TextBox82.Text) + Val(TextBox95.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox41.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox45.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox44.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox43.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox68.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox82.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox95.Text) : End If
+        TextBox42.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單10()
         DataGridView11.DataSource = Nothing : ds10.Clear() : DataGridView11.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -431,7 +476,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView11.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox46.Text = Val(TextBox46.Text) + DataGridView11.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox47.Text = Val(TextBox50.Text) + Val(TextBox49.Text) + Val(TextBox48.Text) + Val(TextBox46.Text) + Val(TextBox67.Text) + Val(TextBox81.Text) + Val(TextBox94.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox46.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox50.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox49.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox48.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox67.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox81.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox94.Text) : End If
+        TextBox47.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單11()
         DataGridView12.DataSource = Nothing : ds11.Clear() : DataGridView12.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -469,7 +519,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView12.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox51.Text = Val(TextBox51.Text) + DataGridView12.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox52.Text = Val(TextBox55.Text) + Val(TextBox54.Text) + Val(TextBox53.Text) + Val(TextBox51.Text) + Val(TextBox66.Text) + Val(TextBox80.Text) + Val(TextBox93.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox51.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox55.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox54.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox53.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox66.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox80.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox93.Text) : End If
+        TextBox52.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單12()
         DataGridView13.DataSource = Nothing : ds12.Clear() : DataGridView13.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -507,7 +562,12 @@ Public Class 營運成本收支_決算表
             If ComboBox8.Text = "" Then : Else
                 If DataGridView13.Rows(i).Cells("第一階").Value.ToString = ComboBox8.Text Then : TextBox56.Text = Val(TextBox56.Text) + DataGridView13.Rows(i).Cells("主項金額").Value : End If : End If
         Next
-        TextBox57.Text = Val(TextBox60.Text) + Val(TextBox59.Text) + Val(TextBox58.Text) + Val(TextBox56.Text) + Val(TextBox65.Text) + Val(TextBox79.Text) + Val(TextBox92.Text)
+        Dim ONU(6) As Double
+        If CheckBox7.Checked = False Then : ONU(6) = 0 : Else : ONU(6) = Val(TextBox56.Text) : End If : If CheckBox1.Checked = False Then : ONU(0) = 0 : Else : ONU(0) = Val(TextBox60.Text) : End If
+        If CheckBox2.Checked = False Then : ONU(1) = 0 : Else : ONU(1) = Val(TextBox59.Text) : End If : If CheckBox3.Checked = False Then : ONU(2) = 0 : Else : ONU(2) = Val(TextBox58.Text) : End If
+        If CheckBox4.Checked = False Then : ONU(3) = 0 : Else : ONU(3) = Val(TextBox65.Text) : End If : If CheckBox5.Checked = False Then : ONU(4) = 0 : Else : ONU(4) = Val(TextBox79.Text) : End If
+        If CheckBox6.Checked = False Then : ONU(5) = 0 : Else : ONU(5) = Val(TextBox92.Text) : End If
+        TextBox57.Text = ONU(0) + ONU(1) + ONU(2) + ONU(3) + ONU(4) + ONU(5) + ONU(6)
     End Sub
     Private Sub Set_清單13()
         DataGridView14.DataSource = Nothing : ds13.Clear() : DataGridView14.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

MaoOrange-Hongji/財務系統管理/票務控制表.vb

@@ -2,169 +2,185 @@
 Public Class 票務控制表
     ReadOnly ds As New DataSet
     Private Sub Set_票務清單()
-        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
-        DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
-        DataGridView1.RowTemplate.Height = 35
+        票務清單_dgv.DataSource = Nothing : ds.Clear() : 票務清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 票務清單_dgv.ColumnHeadersHeight = 40
+        票務清單_dgv.AllowUserToAddRows = False : 票務清單_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : 票務清單_dgv.MultiSelect = True
+        票務清單_dgv.RowTemplate.Height = 35
         SQL_票務控制表清單()
-        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        da.Fill(ds) : 票務清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).FillWeight = 80 : DataGridView1.Columns(3).Visible = False
-        DataGridView1.Columns(4).FillWeight = 130 : DataGridView1.Columns(5).FillWeight = 60 : DataGridView1.Columns(6).FillWeight = 60 : DataGridView1.Columns(7).Visible = False
-        DataGridView1.Columns(8).Visible = False : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).FillWeight = 100 : DataGridView1.Columns(11).FillWeight = 50
-        DataGridView1.Columns(12).FillWeight = 85 : DataGridView1.Columns(13).FillWeight = 85 : DataGridView1.Columns(14).FillWeight = 85 : DataGridView1.Columns(15).FillWeight = 85
-        DataGridView1.Columns(16).FillWeight = 130 : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).FillWeight = 130 : DataGridView1.Columns(19).FillWeight = 80
-        DataGridView1.Columns(20).FillWeight = 80 : DataGridView1.Columns(21).FillWeight = 120 : DataGridView1.Columns(22).Visible = False : DataGridView1.Columns(23).Visible = False
-        DataGridView1.Columns(24).Visible = False
+        票務清單_dgv.Columns(0).Visible = False : 票務清單_dgv.Columns(1).Visible = False : 票務清單_dgv.Columns(2).FillWeight = 80 : 票務清單_dgv.Columns(3).Visible = False
+        票務清單_dgv.Columns(4).FillWeight = 130 : 票務清單_dgv.Columns(5).FillWeight = 60 : 票務清單_dgv.Columns(6).FillWeight = 60 : 票務清單_dgv.Columns(7).Visible = False
+        票務清單_dgv.Columns(8).Visible = False : 票務清單_dgv.Columns(9).Visible = False : 票務清單_dgv.Columns(10).FillWeight = 100 : 票務清單_dgv.Columns(11).FillWeight = 50
+        票務清單_dgv.Columns(12).FillWeight = 85 : 票務清單_dgv.Columns(13).FillWeight = 85 : 票務清單_dgv.Columns(14).FillWeight = 85 : 票務清單_dgv.Columns(15).FillWeight = 85
+        票務清單_dgv.Columns(16).FillWeight = 130 : 票務清單_dgv.Columns(17).Visible = False : 票務清單_dgv.Columns(18).FillWeight = 130 : 票務清單_dgv.Columns(19).FillWeight = 80
+        票務清單_dgv.Columns(20).FillWeight = 80 : 票務清單_dgv.Columns(21).FillWeight = 120 : 票務清單_dgv.Columns(22).Visible = False : 票務清單_dgv.Columns(23).Visible = False
+        票務清單_dgv.Columns(24).Visible = False
 
-        DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        票務清單_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 票務清單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
+        票務清單_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 票務清單_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        票務清單_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 票務清單_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        票務清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 票務清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        票務清單_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 票務清單_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        票務清單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 票務清單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        TextBox1.Text = DataGridView1.Rows.Count : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("開票").Value : TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("收票").Value
+        資料筆數_tb.Text = 票務清單_dgv.Rows.Count : 單據總和_tb.Text = "0" : 開票總和_tb.Text = "0" : 收票總和_tb.Text = "0"
+        For i As Integer = 0 To 票務清單_dgv.Rows.Count - 1
+            開票總和_tb.Text = Val(開票總和_tb.Text) + 票務清單_dgv.Rows(i).Cells("開票").Value : 收票總和_tb.Text = Val(收票總和_tb.Text) + 票務清單_dgv.Rows(i).Cells("收票").Value
         Next i
-        TextBox6.Text = Val(TextBox8.Text) - Val(TextBox7.Text)
-        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        TextBox6.Text = Format(Val(TextBox6.Text), "#,##0") : TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0")
+        單據總和_tb.Text = Val(收票總和_tb.Text) - Val(開票總和_tb.Text)
+        If Val(單據總和_tb.Text) > 0 Then : 單據總和_tb.ForeColor = Color.Blue : Else : 單據總和_tb.ForeColor = Color.Red : End If
+        單據總和_tb.Text = Format(Val(單據總和_tb.Text), "#,##0") : 開票總和_tb.Text = Format(Val(開票總和_tb.Text), "#,##0") : 收票總和_tb.Text = Format(Val(收票總和_tb.Text), "#,##0")
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
         SQL_票務控制表會科區分()
-        ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("開票會科")) : End While : conn.Close() : If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+        區分_cb.Items.Clear() : While (dr.Read()) : 區分_cb.Items.Add(dr("開票會科")) : End While : conn.Close() : If 區分_cb.Items.Count <> 0 Then : 區分_cb.SelectedIndex = 0 : End If
     End Sub
     Private Sub ComboBox2下拉表單資料載入()
         SQL_票務控制表票況區分()
-        ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("狀態")) : End While : conn.Close() : If ComboBox2.Items.Count <> 0 Then : ComboBox2.SelectedIndex = 0 : End If
+        票況_cb.Items.Clear() : While (dr.Read()) : 票況_cb.Items.Add(dr("狀態")) : End While : conn.Close() : If 票況_cb.Items.Count <> 0 Then : 票況_cb.SelectedIndex = 0 : End If
     End Sub
     Private Sub ComboBox3下拉表單資料載入()
         SQL_票務控制表兌現科目()
-        ComboBox3.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("兌現會科")) : End While : conn.Close()
+        兌現科目_cb.Items.Clear() : While (dr.Read()) : 兌現科目_cb.Items.Add(dr("兌現會科")) : End While : conn.Close()
     End Sub
     Private Sub ComboBox8下拉表單資料載入_收票()
         SQL_支票收支單_兌現科目_下拉清單三()
-        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+        轉換科目_cb.Items.Clear() : 轉換科目編號_cb.Items.Clear() : While (dr.Read()) : 轉換科目_cb.Items.Add(dr("會計科目")) : 轉換科目編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
     Private Sub ComboBox8下拉表單資料載入_開票()
         SQL_支票收支單申請_兌現科目_下拉清單二()
-        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+        轉換科目_cb.Items.Clear() : 轉換科目編號_cb.Items.Clear() : While (dr.Read()) : 轉換科目_cb.Items.Add(dr("會計科目")) : 轉換科目編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
     Private Sub 日期格式()
-        If 會計月.Checked = True Then
+        If 會計月_ch.Checked = True Then
             '-------------日期一----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
-            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1)
-            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker1.Value = DTP
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
         Else
             '-------------日期一----------------------------------------------------------------------------------------
-            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
-            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
-            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 票務控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : DateTimePicker3.Visible = False
-        日期格式() : ComboBox15.SelectedIndex = 0 : Set_票務清單()
+        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : 中間日期_dtp.Visible = False
+        日期格式() : 日期選項_cb.SelectedIndex = 0 : Set_票務清單()
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 票務清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox20.Text = DataGridView1("流水號", e.RowIndex).Value.ToString : NumericUpDown1.Text = DataGridView1("收票", e.RowIndex).Value.ToString
-            NumericUpDown2.Text = DataGridView1("開票", e.RowIndex).Value.ToString : TextBox15.Text = DataGridView1("發票人帳號", e.RowIndex).Value.ToString
-            TextBox14.Text = DataGridView1("用途", e.RowIndex).Value.ToString : TextBox18.Text = DataGridView1("項次", e.RowIndex).Value.ToString
-            TextBox9.Text = DataGridView1("會計科目", e.RowIndex).Value.ToString : ComboBox9.Text = DataGridView1("付款銀行", e.RowIndex).Value.ToString
-            TextBox10.Text = DataGridView1("倉儲單號", e.RowIndex).Value.ToString : TextBox12.Text = DataGridView1("支票號碼", e.RowIndex).Value.ToString
-            TextBox13.Text = DataGridView1("開票人", e.RowIndex).Value.ToString : TextBox16.Text = DataGridView1("備註", e.RowIndex).Value.ToString
-            ComboBox8.Text = DataGridView1("兌現會科", e.RowIndex).Value.ToString
-            If DataGridView1("到期日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker7.Value = DataGridView1("到期日", e.RowIndex).Value.ToString : End If
-            If DataGridView1("預定兌現日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker4.Value = DataGridView1("預定兌現日", e.RowIndex).Value.ToString : End If
-            If DataGridView1("開收票日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker5.Value = DataGridView1("開收票日", e.RowIndex).Value.ToString : End If
-            If DataGridView1("託收已付日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker8.Value = DataGridView1("託收已付日", e.RowIndex).Value.ToString : End If
+            收支單號_tb.Text = 票務清單_dgv("流水號", e.RowIndex).Value.ToString : 收票金額_nud.Text = 票務清單_dgv("收票", e.RowIndex).Value.ToString
+            開票金額_nud.Text = 票務清單_dgv("開票", e.RowIndex).Value.ToString : 發票人帳號_tb.Text = 票務清單_dgv("發票人帳號", e.RowIndex).Value.ToString
+            用途_tb.Text = 票務清單_dgv("用途", e.RowIndex).Value.ToString : 項次_tb.Text = 票務清單_dgv("項次", e.RowIndex).Value.ToString
+            會計科目_tb.Text = 票務清單_dgv("會計科目", e.RowIndex).Value.ToString : 付款銀行_cb.Text = 票務清單_dgv("付款銀行", e.RowIndex).Value.ToString
+            客供編號_tb.Text = 票務清單_dgv("倉儲單號", e.RowIndex).Value.ToString : 支票號碼_tb.Text = 票務清單_dgv("支票號碼", e.RowIndex).Value.ToString
+            開票人_tb.Text = 票務清單_dgv("開票人", e.RowIndex).Value.ToString : 備註_tb.Text = 票務清單_dgv("備註", e.RowIndex).Value.ToString
+            轉換科目_cb.Text = 票務清單_dgv("兌現會科", e.RowIndex).Value.ToString
+            If 票務清單_dgv("到期日", e.RowIndex).Value.ToString = "" Then : Else : 到期日_dtp.Value = 票務清單_dgv("到期日", e.RowIndex).Value.ToString : End If
+            If 票務清單_dgv("預定兌現日", e.RowIndex).Value.ToString = "" Then : Else : 預訂兌現日_dtp.Value = 票務清單_dgv("預定兌現日", e.RowIndex).Value.ToString : End If
+            If 票務清單_dgv("開收票日", e.RowIndex).Value.ToString = "" Then : Else : 開收票日_dtp.Value = 票務清單_dgv("開收票日", e.RowIndex).Value.ToString : End If
+            If 票務清單_dgv("託收已付日", e.RowIndex).Value.ToString = "" Then : Else : 託收已付日_dtp.Value = 票務清單_dgv("託收已付日", e.RowIndex).Value.ToString : End If
             客戶供應商資料()
         End If
     End Sub
     Private Sub 客戶供應商資料()
-        PA = TextBox10.Text : SQL_支票收支單客戶供應商查詢()
+        PA = 客供編號_tb.Text : SQL_支票收支單客戶供應商查詢()
         If (dr.Read()) Then
-            If ComboBox2.Text = "開票" Then
-                TextBox11.Text = dr("供應商") : conn.Close()
+            If 票況_cb.Text = "開票" Then
+                客供名稱_tb.Text = dr("供應商") : conn.Close()
             Else
-                TextBox11.Text = dr("客戶編號")
-                If TextBox11.Text = "CI00000000" Then
+                客供名稱_tb.Text = dr("客戶編號")
+                If 客供名稱_tb.Text = "CI00000000" Then
                     conn.Close()
                     SQL_支票收支單申請_客戶資料_零售()
                     If (dr.Read()) Then
-                        TextBox11.Text = dr("客戶名稱") : conn.Close()
+                        客供名稱_tb.Text = dr("客戶名稱") : conn.Close()
                     End If
                 Else
-                    TextBox11.Text = dr("客戶") : conn.Close()
+                    客供名稱_tb.Text = dr("客戶") : conn.Close()
                 End If
             End If
         Else
-            TextBox11.Text = ""
+            客供名稱_tb.Text = ""
         End If
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If 會計月.Checked = True Then
-            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(-1)
-            DateTimePicker1.Value = DateTimePicker3.Value
-            DateTimePicker2.Value = DateTimePicker3.Value
+    Private Sub 上個月_Click(sender As Object, e As EventArgs) Handles 上個月_bu.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
         Else
-            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(-1)
-            DateTimePicker1.Value = DateTimePicker3.Value.AddMonths(-1)
-            DateTimePicker2.Value = DateTimePicker3.Value
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
         End If
         日期格式() : Set_票務清單()
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        If 會計月.Checked = True Then
-            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1)
-            DateTimePicker1.Value = DateTimePicker3.Value
-            DateTimePicker2.Value = DateTimePicker3.Value
+    Private Sub 下個月_Click(sender As Object, e As EventArgs) Handles 下個月_bu.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
         Else
-            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1)
-            DateTimePicker1.Value = DateTimePicker3.Value.AddMonths(-1)
-            DateTimePicker2.Value = DateTimePicker3.Value
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
         End If
         日期格式() : Set_票務清單()
     End Sub
-    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
-        會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_票務清單()
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式() : Set_票務清單()
     End Sub
-    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
-        會計月.Checked = False : 一般月.Checked = True : 日期格式() : Set_票務清單()
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式() : Set_票務清單()
     End Sub
-    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
-        If ComboBox2.Text = "開票" Then
-            Button5.Enabled = True : Button4.Enabled = False : Button6.Enabled = True : ComboBox8下拉表單資料載入_開票()
-        ElseIf ComboBox2.Text = "收票" Then
-            Button5.Enabled = False : Button4.Enabled = True : Button6.Enabled = True : ComboBox8下拉表單資料載入_收票()
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 票況_cb.SelectedIndexChanged
+        If 票況_cb.Text = "開票" Then
+            已付_bu.Enabled = True : 託收_bu.Enabled = False : 退票_撤票_bu.Enabled = True : ComboBox8下拉表單資料載入_開票()
+        ElseIf 票況_cb.Text = "收票" Then
+            已付_bu.Enabled = False : 託收_bu.Enabled = True : 退票_撤票_bu.Enabled = True : ComboBox8下拉表單資料載入_收票()
         Else
-            Button5.Enabled = False : Button4.Enabled = False : Button6.Enabled = False : ComboBox8.Items.Clear() : ComboBox10.Items.Clear()
+            已付_bu.Enabled = False : 託收_bu.Enabled = False : 退票_撤票_bu.Enabled = False : 轉換科目_cb.Items.Clear() : 轉換科目編號_cb.Items.Clear()
         End If
     End Sub
-    Private Sub ComboBox15_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox15.SelectedIndexChanged
+    Private Sub ComboBox15_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 日期選項_cb.SelectedIndexChanged
         Set_票務清單()
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 讀取_bu.Click
         Set_票務清單()
     End Sub
-    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 清除_bu.Click
         ComboBox3下拉表單資料載入() : Set_票務清單()
     End Sub
-    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 兌現科目_cb.SelectedIndexChanged
         Set_票務清單()
     End Sub
-    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
-        ComboBox10.SelectedIndex = ComboBox8.SelectedIndex
+    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 轉換科目_cb.SelectedIndexChanged
+        轉換科目編號_cb.SelectedIndex = 轉換科目_cb.SelectedIndex
     End Sub
-    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged
-        ComboBox8.SelectedIndex = ComboBox10.SelectedIndex
+    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 轉換科目編號_cb.SelectedIndexChanged
+        轉換科目_cb.SelectedIndex = 轉換科目編號_cb.SelectedIndex
+    End Sub
+
+    Private Sub 託收_Click(sender As Object, e As EventArgs) Handles 託收_bu.Click
+
+    End Sub
+
+    Private Sub 已付_Click(sender As Object, e As EventArgs) Handles 已付_bu.Click
+
+    End Sub
+
+    Private Sub 退票_撤票_Click(sender As Object, e As EventArgs) Handles 退票_撤票_bu.Click
+
+    End Sub
+
+    Private Sub 退票_撤票取消_Click(sender As Object, e As EventArgs) Handles 退票_撤票取消_bu.Click
+
     End Sub
 End Class

MaoOrange-Hongji/財務系統管理/財務單具申請.vb

@@ -3,277 +3,305 @@ Public Class 財務單具申請
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
     Dim 新項次 As String : Dim NUM1 As Integer
     Private Sub Set_清單1()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        倉儲明細表資料流水號_dgv.DataSource = Nothing : ds1.Clear()
+        倉儲明細表資料流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        倉儲明細表資料流水號_dgv.ColumnHeadersHeight = 25
+        倉儲明細表資料流水號_dgv.AllowUserToAddRows = False
         SQL_應收應付單號連接暫存檔讀取()
-        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
-
-        DataGridView2.Columns(0).FillWeight = 145
+        da.Fill(ds1) : 倉儲明細表資料流水號_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        倉儲明細表資料流水號_dgv.Columns(0).FillWeight = 145
     End Sub
     Private Sub Set_費用清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 40
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
+        單據清單_dgv.DataSource = Nothing : ds.Clear()
+        單據清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        單據清單_dgv.ColumnHeadersHeight = 40
+        單據清單_dgv.AllowUserToAddRows = False
+        單據清單_dgv.RowTemplate.Height = 35
         SQL_財務單具申請費用清單()
-        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        da.Fill(ds) : 單據清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 140 : DataGridView1.Columns(3).FillWeight = 300
-        DataGridView1.Columns(4).FillWeight = 120 : DataGridView1.Columns(5).FillWeight = 120 : DataGridView1.Columns(6).FillWeight = 120 : DataGridView1.Columns(7).FillWeight = 120
-        DataGridView1.Columns(8).FillWeight = 200 : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).FillWeight = 110 : DataGridView1.Columns(11).Visible = False
-        DataGridView1.Columns(12).FillWeight = 200 : DataGridView1.Columns(13).FillWeight = 150 : DataGridView1.Columns(14).FillWeight = 150 : DataGridView1.Columns(15).FillWeight = 150
-        DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False
-        DataGridView1.Columns(20).FillWeight = 100 : DataGridView1.Columns(21).Visible = False
+        單據清單_dgv.Columns(0).Visible = False : 單據清單_dgv.Columns(1).FillWeight = 80 : 單據清單_dgv.Columns(2).FillWeight = 140 : 單據清單_dgv.Columns(3).FillWeight = 300
+        單據清單_dgv.Columns(4).FillWeight = 120 : 單據清單_dgv.Columns(5).FillWeight = 120 : 單據清單_dgv.Columns(6).FillWeight = 120 : 單據清單_dgv.Columns(7).FillWeight = 120
+        單據清單_dgv.Columns(8).FillWeight = 200 : 單據清單_dgv.Columns(9).Visible = False : 單據清單_dgv.Columns(10).FillWeight = 110 : 單據清單_dgv.Columns(11).Visible = False
+        單據清單_dgv.Columns(12).FillWeight = 200 : 單據清單_dgv.Columns(13).FillWeight = 150 : 單據清單_dgv.Columns(14).FillWeight = 150 : 單據清單_dgv.Columns(15).FillWeight = 150
+        單據清單_dgv.Columns(16).Visible = False : 單據清單_dgv.Columns(17).Visible = False : 單據清單_dgv.Columns(18).Visible = False : 單據清單_dgv.Columns(19).Visible = False
+        單據清單_dgv.Columns(20).FillWeight = 100 : 單據清單_dgv.Columns(21).Visible = False
 
-        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True : DataGridView1.Columns(20).ReadOnly = True
+        單據清單_dgv.Columns(1).ReadOnly = True : 單據清單_dgv.Columns(2).ReadOnly = True : 單據清單_dgv.Columns(10).ReadOnly = True : 單據清單_dgv.Columns(20).ReadOnly = True
 
-        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_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(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        單據清單_dgv.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 單據清單_dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+        單據清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-        NumericUpDown1.Value = 0 : NumericUpDown2.Value = 0
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+        支票加總_nud.Value = 0 : 現金加總_nud.Value = 0
+        For i As Integer = 0 To 單據清單_dgv.Rows.Count - 1
             If 財務單申請狀態 = "應付" Then
-                DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(7).ReadOnly = True
-                If DataGridView1.Rows(i).Cells("開票").Value < 0 Then : Else : NumericUpDown1.Value = NumericUpDown1.Value + DataGridView1.Rows(i).Cells("開票").Value : End If
-                If DataGridView1.Rows(i).Cells("支出").Value < 0 Then : Else : NumericUpDown2.Value = NumericUpDown2.Value + DataGridView1.Rows(i).Cells("支出").Value : End If
+                單據清單_dgv.Columns(5).ReadOnly = True : 單據清單_dgv.Columns(7).ReadOnly = True
+                單據清單_dgv.Columns(4).ReadOnly = False : 單據清單_dgv.Columns(6).ReadOnly = False
+                If 單據清單_dgv.Rows(i).Cells("開票").Value < 0 Then : Else : 支票加總_nud.Value = 支票加總_nud.Value + 單據清單_dgv.Rows(i).Cells("開票").Value : End If
+                If 單據清單_dgv.Rows(i).Cells("支出").Value < 0 Then : Else : 現金加總_nud.Value = 現金加總_nud.Value + 單據清單_dgv.Rows(i).Cells("支出").Value : End If
             ElseIf 財務單申請狀態 = "應收" Then
-                DataGridView1.Columns(4).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True
-                If DataGridView1.Rows(i).Cells("收票").Value < 0 Then : Else : NumericUpDown1.Value = NumericUpDown1.Value + DataGridView1.Rows(i).Cells("收票").Value : End If
-                If DataGridView1.Rows(i).Cells("現金").Value < 0 Then : Else : NumericUpDown2.Value = NumericUpDown2.Value + DataGridView1.Rows(i).Cells("現金").Value : End If
+                單據清單_dgv.Columns(4).ReadOnly = True : 單據清單_dgv.Columns(6).ReadOnly = True
+                單據清單_dgv.Columns(5).ReadOnly = False : 單據清單_dgv.Columns(7).ReadOnly = False
+                If 單據清單_dgv.Rows(i).Cells("收票").Value < 0 Then : Else : 支票加總_nud.Value = 支票加總_nud.Value + 單據清單_dgv.Rows(i).Cells("收票").Value : End If
+                If 單據清單_dgv.Rows(i).Cells("現金").Value < 0 Then : Else : 現金加總_nud.Value = 現金加總_nud.Value + 單據清單_dgv.Rows(i).Cells("現金").Value : End If
             End If
         Next i
-        NumericUpDown4.Value = NumericUpDown3.Value - NumericUpDown2.Value - NumericUpDown1.Value
+        未沖金額_nud.Value = 應沖金額_nud.Value - 現金加總_nud.Value - 支票加總_nud.Value
     End Sub
-
     Private Sub ComboBox1下拉表單資料載入()
-        PA = ComboBox4.Text
-        If ComboBox7.Text = "付現" Then : SQL_會計科目_第三階_應付_不含流動票務()
-        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_第三階_應付_只含流動票務() : End If
-        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
-        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+        PA = 會科第二層編號_cb.Text
+        If 狀態_cb.Text = "付現" Then : SQL_會計科目_第三階_應付_不含流動票務()
+        ElseIf 狀態_cb.Text = "開票" Then : SQL_會計科目_第三階_應付_只含流動票務()
+        ElseIf 狀態_cb.Text = "收現" Then : SQL_會計科目_第三階_應收_不含流動票務()
+        ElseIf 狀態_cb.Text = "收票" Then : SQL_會計科目_第三階_應收_只含流動票務() : End If
+        會計科目_cb.Items.Clear() : 會計科目編號_cb.Items.Clear()
+        While (dr.Read()) : 會計科目_cb.Items.Add(dr("會計科目")) : 會計科目編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+        If 會計科目_cb.Items.Count <> 0 Then : 會計科目_cb.SelectedIndex = 0 : End If
     End Sub
     Private Sub ComboBox2下拉表單資料載入()
-        If ComboBox7.Text = "付現" Then : SQL_會計科目_第一階_應付_不含流動票務()
-        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_第一階_應付_只含流動票務() : End If
-        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
+        If 狀態_cb.Text = "付現" Then : SQL_會計科目_第一階_應付_不含流動票務()
+        ElseIf 狀態_cb.Text = "開票" Then : SQL_會計科目_第一階_應付_只含流動票務()
+        ElseIf 狀態_cb.Text = "收現" Then : SQL_會計科目_第一階_應收_不含流動票務()
+        ElseIf 狀態_cb.Text = "收票" Then : SQL_會計科目_第一階_應收_只含流動票務() : End If
+        會科第一層_cb.Items.Clear() : 會科第一層編號_cb.Items.Clear()
+        While (dr.Read()) : 會科第一層_cb.Items.Add(dr("第一階")) : 會科第一層編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
     Private Sub ComboBox3下拉表單資料載入()
-        PA = ComboBox2.Text
-        If ComboBox7.Text = "付現" Then : SQL_會計科目_第二階_應付_不含流動票務()
-        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_第二階_應付_只含流動票務() : End If
-        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
+        PA = 會科第一層編號_cb.Text
+        If 狀態_cb.Text = "付現" Then : SQL_會計科目_第二階_應付_不含流動票務()
+        ElseIf 狀態_cb.Text = "開票" Then : SQL_會計科目_第二階_應付_只含流動票務()
+        ElseIf 狀態_cb.Text = "收現" Then : SQL_會計科目_第二階_應收_不含流動票務()
+        ElseIf 狀態_cb.Text = "收票" Then : SQL_會計科目_第二階_應收_只含流動票務() : End If
+        會科第二層_cb.Items.Clear() : 會科第二層編號_cb.Items.Clear()
+        While (dr.Read()) : 會科第二層_cb.Items.Add(dr("第二階")) : 會科第二層編號_cb.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
     End Sub
     Private Sub ComboBox8下拉表單資料載入()
         SQL_支票收支單申請_兌現科目_下拉清單二()
-        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+        兌現科目_cb.Items.Clear() : 兌現科目編號_cb.Items.Clear()
+        While (dr.Read()) : 兌現科目_cb.Items.Add(dr("會計科目")) : 兌現科目編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
     Private Sub ComboBox9下拉表單資料載入_開票()
         SQL_支票收支單申請_兌現科目_下拉清單一()
-        ComboBox9.Items.Clear() : While (dr.Read()) : ComboBox9.Items.Add(dr("會計科目")) : End While : conn.Close()
+        付款銀行_cb.Items.Clear() : While (dr.Read()) : 付款銀行_cb.Items.Add(dr("會計科目")) : End While : conn.Close()
     End Sub
     Private Sub 開立營運成本收支單_單號生成()
         Dim NUM1 As Integer
         For i As Integer = 1 To 999
             NUM1 = 0 + i
-            If NUM1 < 10 Then : TextBox1.Text = "OE-" & DTP1 & "-00" & NUM1
-            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "OE-" & DTP1 & "-0" & NUM1
-            ElseIf NUM1 > 99 Then : TextBox1.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox1.Text
+            If NUM1 < 10 Then : 收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 收支單號_tb.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = 收支單號_tb.Text
             SQL_營運成本收支單申請_支付單號流水號()
             If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
         Next
     End Sub
     Private Sub 財務單具申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         conn.Close() : Set_清單1()
-        TextBox1.Enabled = False : DateTimePicker1.Enabled = False : TextBox3.Enabled = False : NumericUpDown3.Enabled = False : NumericUpDown4.Enabled = False
-        NumericUpDown1.Enabled = False : NumericUpDown2.Enabled = False
-        ComboBox6.Visible = False : ComboBox10.Visible = False : DataGridView2.Visible = False : DateTimePicker2.Visible = False
-        NumericUpDown3.Value = 收付應沖金額 : TextBox3.Text = gUserName : DateTimePicker1.Value = DTP
-        If 財務單申請狀態 = "應付" Then : ComboBox7.Items.Clear() : ComboBox7.Items.Add("付現") : ComboBox7.Items.Add("開票") : ComboBox7.SelectedIndex = 0
-        ElseIf 財務單申請狀態 = "應收" Then : ComboBox7.Items.Clear() : ComboBox7.Items.Add("收現") : ComboBox7.Items.Add("收票") : ComboBox7.SelectedIndex = 0 : End If
+        收支單號_tb.Enabled = False : 單據日期_dtp.Enabled = False : 登錄人_tb.Enabled = False : 應沖金額_nud.Enabled = False : 未沖金額_nud.Enabled = False
+        支票加總_nud.Enabled = False : 現金加總_nud.Enabled = False
+        會計科目編號_cb.Visible = False : 兌現科目編號_cb.Visible = False : 倉儲明細表資料流水號_dgv.Visible = False : DateTimePicker2.Visible = False
+        應沖金額_nud.Value = 收付應沖金額 : 登錄人_tb.Text = gUserName : 單據日期_dtp.Value = DTP
+        If 財務單申請狀態 = "應付" Then : 狀態_cb.Items.Clear() : 狀態_cb.Items.Add("付現") : 狀態_cb.Items.Add("開票") : 狀態_cb.SelectedIndex = 0
+        ElseIf 財務單申請狀態 = "應收" Then : 狀態_cb.Items.Clear() : 狀態_cb.Items.Add("收現") : 狀態_cb.Items.Add("收票") : 狀態_cb.SelectedIndex = 0 : End If
 
         ComboBox2下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox9下拉表單資料載入_開票()
 
         If 收付對應財務單號 = "" Then : 開立營運成本收支單_單號生成()
-        ElseIf 收付對應財務單號 <> "" Then : TextBox1.Text = 收付對應財務單號 : End If
+        ElseIf 收付對應財務單號 <> "" Then : 收支單號_tb.Text = 收付對應財務單號 : End If
         Set_費用清單()
         PA = 收付對應客戶供應商編號
         SQL_支票收支單客戶供應商查詢()
         If dr.Read() Then
-            TextBox11.Text = dr("供應商")
-        End If
+            If Strings.Left(PA, 1) = "F" Then
+                客供名稱_tb.Text = dr("供應商")
+            Else
+                客供名稱_tb.Text = dr("客戶")
+            End If
+        End If : conn.Close()
     End Sub
     Private Sub 財務單具申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
-        SQL_應收應付單號連接暫存檔刪除()
+        SQL_應收應付單號連接暫存檔刪除() : conn.Close()
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 單據清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             ComboBox8下拉表單資料載入()
-            TextBox15.Text = DataGridView1.Rows(e.RowIndex).Cells("發票人帳號").Value.ToString : TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells("開票人").Value.ToString
-            TextBox12.Text = DataGridView1.Rows(e.RowIndex).Cells("支票號碼").Value.ToString : ComboBox9.Text = DataGridView1.Rows(e.RowIndex).Cells("付款銀行").Value.ToString
-            ComboBox10.Text = DataGridView1.Rows(e.RowIndex).Cells("兌現科目").Value.ToString : ComboBox7.Text = DataGridView1.Rows(e.RowIndex).Cells("狀態").Value.ToString
-            TextBox16.Text = DataGridView1.Rows(e.RowIndex).Cells("備註").Value.ToString : TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("登錄人").Value.ToString
-            TextBox14.Text = DataGridView1.Rows(e.RowIndex).Cells("用途").Value.ToString : TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells("項次").Value.ToString
-            TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells("會計科目").Value.ToString : ComboBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("會計科目").Value.ToString
+            發票人帳號_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("發票人帳號").Value.ToString : 開票人_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("開票人").Value.ToString
+            支票號碼_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("支票號碼").Value.ToString : 付款銀行_cb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("付款銀行").Value.ToString
+            兌現科目編號_cb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("兌現科目").Value.ToString : 狀態_cb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("狀態").Value.ToString
+            備註_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString : 登錄人_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("登錄人").Value.ToString
+            用途_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("用途").Value.ToString : 項次_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("項次").Value.ToString
+            會科關鍵字_tb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("會計科目").Value.ToString : 會計科目_cb.Text = 單據清單_dgv.Rows(e.RowIndex).Cells("會計科目").Value.ToString
 
-            If DataGridView1("到期日", 0).Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView1("到期日", 0).Value.ToString : End If
-            If DataGridView1("預定兌現日", 0).Value.ToString = "" Then : Else : DateTimePicker4.Value = DataGridView1("預定兌現日", 0).Value.ToString : End If
-            If DataGridView1("開收票日", 0).Value.ToString = "" Then : Else : DateTimePicker5.Value = DataGridView1("開收票日", 0).Value.ToString : End If
+            If 單據清單_dgv("到期日", 0).Value.ToString = "" Then : Else : 到期日_dtp.Value = 單據清單_dgv("到期日", 0).Value.ToString : End If
+            If 單據清單_dgv("預定兌現日", 0).Value.ToString = "" Then : Else : 預定兌現日_dtp.Value = 單據清單_dgv("預定兌現日", 0).Value.ToString : End If
+            If 單據清單_dgv("開收票日", 0).Value.ToString = "" Then : Else : 開收票日_dtp.Value = 單據清單_dgv("開收票日", 0).Value.ToString : End If
 
             If 財務單申請狀態 = "應付" Then
-                NumericUpDown5.Value = DataGridView1.Rows(e.RowIndex).Cells("支出").Value
-                NumericUpDown6.Value = DataGridView1.Rows(e.RowIndex).Cells("開票").Value
+                現金_nud.Value = 單據清單_dgv.Rows(e.RowIndex).Cells("支出").Value : 支票_nud.Value = 單據清單_dgv.Rows(e.RowIndex).Cells("開票").Value
             ElseIf 財務單申請狀態 = "應收" Then
-                NumericUpDown5.Value = DataGridView1.Rows(e.RowIndex).Cells("現金").Value
-                NumericUpDown6.Value = DataGridView1.Rows(e.RowIndex).Cells("收票").Value
+                現金_nud.Value = 單據清單_dgv.Rows(e.RowIndex).Cells("現金").Value : 支票_nud.Value = 單據清單_dgv.Rows(e.RowIndex).Cells("收票").Value
             End If
         End If
     End Sub
-    Private Sub DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
+    Private Sub DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 單據清單_dgv.CellEndEdit
         Dim EU1 As String : Dim EU2 As String : Dim EU3 As String
-        EU1 = DataGridView1("到期日", e.RowIndex).Value.ToString : EU2 = DataGridView1("預定兌現日", e.RowIndex).Value.ToString : EU3 = DataGridView1("開收票日", e.RowIndex).Value.ToString
-        If EU1 = "" Then : Else : DateTimePicker3.Value = EU1 : DataGridView1.Rows(e.RowIndex).Cells("到期日").Value = Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
-        If EU2 = "" Then : Else : DateTimePicker4.Value = EU2 : DataGridView1.Rows(e.RowIndex).Cells("預定兌現日").Value = Format(DateTimePicker4.Value, "yyyy/MM/dd") : End If
-        If EU3 = "" Then : Else : DateTimePicker5.Value = EU3 : DataGridView1.Rows(e.RowIndex).Cells("開收票日").Value = Format(DateTimePicker5.Value, "yyyy/MM/dd") : End If
+        EU1 = 單據清單_dgv("到期日", e.RowIndex).Value.ToString : EU2 = 單據清單_dgv("預定兌現日", e.RowIndex).Value.ToString : EU3 = 單據清單_dgv("開收票日", e.RowIndex).Value.ToString
+        If EU1 = "" Then : Else : 到期日_dtp.Value = EU1 : 單據清單_dgv.Rows(e.RowIndex).Cells("到期日").Value = Format(到期日_dtp.Value, "yyyy/MM/dd") : End If
+        If EU2 = "" Then : Else : 預定兌現日_dtp.Value = EU2 : 單據清單_dgv.Rows(e.RowIndex).Cells("預定兌現日").Value = Format(預定兌現日_dtp.Value, "yyyy/MM/dd") : End If
+        If EU3 = "" Then : Else : 開收票日_dtp.Value = EU3 : 單據清單_dgv.Rows(e.RowIndex).Cells("開收票日").Value = Format(開收票日_dtp.Value, "yyyy/MM/dd") : End If
     End Sub
-    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
-        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科第一層_cb.TextChanged
+        會科第一層編號_cb.SelectedIndex = 會科第一層_cb.SelectedIndex : 會科關鍵字_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
     End Sub
-    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
-        ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科第一層編號_cb.TextChanged
+        會科第一層_cb.SelectedIndex = 會科第一層編號_cb.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
     End Sub
-    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
-        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科第二層_cb.TextChanged
+        會科第二層編號_cb.SelectedIndex = 會科第二層_cb.SelectedIndex : ComboBox1下拉表單資料載入()
     End Sub
-    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
-        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科第二層編號_cb.TextChanged
+        會科第二層_cb.SelectedIndex = 會科第二層編號_cb.SelectedIndex : ComboBox1下拉表單資料載入()
     End Sub
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
-        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會計科目_cb.SelectedIndexChanged
+        會計科目編號_cb.SelectedIndex = 會計科目_cb.SelectedIndex
     End Sub
-    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
-        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會計科目編號_cb.SelectedIndexChanged
+        會計科目_cb.SelectedIndex = 會計科目編號_cb.SelectedIndex
     End Sub
-    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
-        ComboBox10.SelectedIndex = ComboBox8.SelectedIndex
+    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 兌現科目_cb.SelectedIndexChanged
+        兌現科目編號_cb.SelectedIndex = 兌現科目_cb.SelectedIndex
     End Sub
-    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged
-        ComboBox8.SelectedIndex = ComboBox10.SelectedIndex
+    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 兌現科目編號_cb.SelectedIndexChanged
+        兌現科目_cb.SelectedIndex = 兌現科目編號_cb.SelectedIndex
     End Sub
-    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
+    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 狀態_cb.SelectedIndexChanged
         ComboBox2下拉表單資料載入()
-        If ComboBox7.Text = "付現" Then
-            TextBox12.Enabled = False : TextBox11.Enabled = False : ComboBox8.Enabled = False : ComboBox9.Enabled = False : DateTimePicker3.Enabled = False
-            DateTimePicker5.Enabled = False : DateTimePicker4.Enabled = False : TextBox13.Enabled = False : TextBox15.Enabled = False
-            NumericUpDown5.Enabled = True : NumericUpDown6.Enabled = False : NumericUpDown6.Value = 0
-        ElseIf ComboBox7.Text = "開票" Then
-            TextBox12.Enabled = True : TextBox11.Enabled = True : ComboBox8.Enabled = True : ComboBox9.Enabled = True : DateTimePicker3.Enabled = True
-            DateTimePicker5.Enabled = True : DateTimePicker4.Enabled = True : TextBox13.Enabled = True : TextBox15.Enabled = True
-            NumericUpDown5.Enabled = False : NumericUpDown6.Enabled = True : NumericUpDown5.Value = 0
+        If 狀態_cb.Text = "付現" Or 狀態_cb.Text = "收現" Then
+            支票號碼_tb.Enabled = False : 客供名稱_tb.Enabled = False : 兌現科目_cb.Enabled = False : 付款銀行_cb.Enabled = False : 到期日_dtp.Enabled = False
+            開收票日_dtp.Enabled = False : 預定兌現日_dtp.Enabled = False : 開票人_tb.Enabled = False : 發票人帳號_tb.Enabled = False
+            現金_nud.Enabled = True : 支票_nud.Enabled = False : 支票_nud.Value = 0
+        ElseIf 狀態_cb.Text = "開票" Or 狀態_cb.Text = "收票" Then
+            支票號碼_tb.Enabled = True : 客供名稱_tb.Enabled = True : 兌現科目_cb.Enabled = True : 付款銀行_cb.Enabled = True : 到期日_dtp.Enabled = True
+            開收票日_dtp.Enabled = True : 預定兌現日_dtp.Enabled = True : 開票人_tb.Enabled = True : 發票人帳號_tb.Enabled = True
+            現金_nud.Enabled = False : 支票_nud.Enabled = True : 現金_nud.Value = 0
         End If
     End Sub
-    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text
-        If ComboBox7.Text = "付現" Then : SQL_會計科目_關鍵字_應付_不含流動票務()
-        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_關鍵字_應付_只含流動票務() : End If
-        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
-        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If : PA = ""
+    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles 會科關鍵字_tb.TextChanged
+        PA = 會科關鍵字_tb.Text
+        If 狀態_cb.Text = "付現" Then : SQL_會計科目_關鍵字_應付_不含流動票務()
+        ElseIf 狀態_cb.Text = "開票" Then : SQL_會計科目_關鍵字_應付_只含流動票務()
+        ElseIf 狀態_cb.Text = "收現" Then : SQL_會計科目_關鍵字_應收_不含流動票務()
+        ElseIf 狀態_cb.Text = "收票" Then : SQL_會計科目_關鍵字_應收_只含流動票務() : End If
+        會計科目_cb.Items.Clear() : 會計科目編號_cb.Items.Clear()
+        While (dr.Read()) : 會計科目_cb.Items.Add(dr("會計科目")) : 會計科目編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+        If 會計科目_cb.Items.Count <> 0 Then : 會計科目_cb.SelectedIndex = 0 : End If : PA = ""
     End Sub
-    Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown2.ValueChanged
-        NumericUpDown4.Value = NumericUpDown3.Value - NumericUpDown2.Value - NumericUpDown1.Value
+    Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles 現金加總_nud.ValueChanged
+        未沖金額_nud.Value = 應沖金額_nud.Value - 現金加總_nud.Value - 支票加總_nud.Value
     End Sub
-    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
-        NumericUpDown4.Value = NumericUpDown3.Value - NumericUpDown2.Value - NumericUpDown1.Value
+    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles 支票加總_nud.ValueChanged
+        未沖金額_nud.Value = 應沖金額_nud.Value - 現金加總_nud.Value - 支票加總_nud.Value
     End Sub
     Private Sub 存檔()
-        PA4 = TextBox1.Text
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
-            PA1 = DataGridView1.Rows(i).Cells("用途").Value : NU1 = DataGridView1.Rows(i).Cells("支出").Value : PA2 = DataGridView1.Rows(i).Cells("備註").Value
-            PA3 = DataGridView1.Rows(i).Cells("科目編號").Value : NU2 = DataGridView1.Rows(i).Cells("現金").Value : NU3 = DataGridView1.Rows(i).Cells("開票").Value
-            NU4 = DataGridView1.Rows(i).Cells("收票").Value : PA5 = DataGridView1.Rows(i).Cells("項次").Value : PA6 = DataGridView1.Rows(i).Cells("狀態").Value : PA7 = gUserName
-            PA8 = DataGridView1.Rows(i).Cells("發票人帳號").Value.ToString : PA9 = DataGridView1.Rows(i).Cells("兌現科目").Value.ToString : PA10 = DataGridView1.Rows(i).Cells("付款銀行").Value.ToString
-            PA11 = DataGridView1.Rows(i).Cells("倉儲單號").Value.ToString : PA12 = DataGridView1.Rows(i).Cells("支票號碼").Value.ToString : PA13 = DataGridView1.Rows(i).Cells("開票人").Value.ToString
-            PA14 = DataGridView1.Rows(i).Cells("到期日").Value.ToString : PA15 = DataGridView1.Rows(i).Cells("預定兌現日").Value.ToString : PA16 = DataGridView1.Rows(i).Cells("開收票日").Value.ToString
+        PA4 = 收支單號_tb.Text
+        For i As Integer = 0 To 單據清單_dgv.Rows.Count - 1
+            資料數 = 單據清單_dgv.Rows.Count : MyModule1.進度條()
+            PA1 = 單據清單_dgv.Rows(i).Cells("用途").Value : NU1 = 單據清單_dgv.Rows(i).Cells("支出").Value : PA2 = 單據清單_dgv.Rows(i).Cells("備註").Value
+            PA3 = 單據清單_dgv.Rows(i).Cells("科目編號").Value : NU2 = 單據清單_dgv.Rows(i).Cells("現金").Value : NU3 = 單據清單_dgv.Rows(i).Cells("開票").Value
+            NU4 = 單據清單_dgv.Rows(i).Cells("收票").Value : PA5 = 單據清單_dgv.Rows(i).Cells("項次").Value : PA6 = 單據清單_dgv.Rows(i).Cells("狀態").Value : PA7 = gUserName
+            PA8 = 單據清單_dgv.Rows(i).Cells("發票人帳號").Value.ToString : PA9 = 單據清單_dgv.Rows(i).Cells("兌現科目").Value.ToString : PA10 = 單據清單_dgv.Rows(i).Cells("付款銀行").Value.ToString
+            PA11 = 單據清單_dgv.Rows(i).Cells("倉儲單號").Value.ToString : PA12 = 單據清單_dgv.Rows(i).Cells("支票號碼").Value.ToString : PA13 = 單據清單_dgv.Rows(i).Cells("開票人").Value.ToString
+            PA14 = 單據清單_dgv.Rows(i).Cells("到期日").Value.ToString : PA15 = 單據清單_dgv.Rows(i).Cells("預定兌現日").Value.ToString : PA16 = 單據清單_dgv.Rows(i).Cells("開收票日").Value.ToString
             SQL_支票收支單申請修改() : conn.Close()
         Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If ComboBox6.Text = "" Then : MsgBox("沒有選擇會計科目。")
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增一筆資料_bu.Click
+        If 會計科目編號_cb.Text = "" Then : MsgBox("沒有選擇會計科目。")
         Else
-            If NumericUpDown4.Value <= 0 Then : MsgBox("請注意可沖金額不可小於零。")
-            Else
-                PA = TextBox1.Text : TextBox3.Text = gUserName
-                If DataGridView1.Rows.Count = 0 Then
-                    SQL_營運成本控制表新增()
-                    For i As Integer = 0 To DataGridView2.Rows.Count - 1
-                        PA19 = DataGridView2.Rows(i).Cells("流水單號").Value.ToString
-                        SQL_倉儲明細表財務單號連接修改()
-                        PA6 = DataGridView2.Rows(i).Cells("流水單號").Value : PA7 = "1"
-                        SQL_應付賬款_倉儲明細應付立帳修改()
-                    Next
-                End If
-                存檔()
-                SQL_營運成本明細表項次新增查詢()
-                If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
-                If NUM1 < 10 Then : 新項次 = "0" & NUM1
-                ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-                PA1 = TextBox1.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = "" : NU1 = 0 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = ComboBox7.Text : PA7 = gUserName
-                SQL_營運成本明細表新增() : Set_費用清單()
+            If 未沖金額_nud.Value <= 0 Then
+                MsgBox("請注意可沖金額不可小於零。")
             End If
+            PA = 收支單號_tb.Text : 登錄人_tb.Text = gUserName
+            If 單據清單_dgv.Rows.Count = 0 Then
+                SQL_營運成本控制表新增() : conn.Close()
+                For i As Integer = 0 To 倉儲明細表資料流水號_dgv.Rows.Count - 1
+                    PA19 = 倉儲明細表資料流水號_dgv.Rows(i).Cells("流水單號").Value.ToString
+                    SQL_倉儲明細表財務單號連接修改() : conn.Close()
+
+                    If 財務單申請狀態 = "應付" Then
+                        PA6 = 倉儲明細表資料流水號_dgv.Rows(i).Cells("流水單號").Value : PA7 = "1"
+                        SQL_應付賬款_倉儲明細應付立帳修改() : conn.Close()
+                    ElseIf 財務單申請狀態 = "應收" Then
+                        PA6 = 倉儲明細表資料流水號_dgv.Rows(i).Cells("流水單號").Value : PA7 = "1"
+                        SQL_應收賬款_倉儲明細應付立帳修改() : conn.Close()
+                    End If
+                Next
+            End If
+            存檔()
+            SQL_營運成本明細表項次新增查詢()
+            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
+            If NUM1 < 10 Then : 新項次 = "0" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+            PA1 = 收支單號_tb.Text : PA2 = 新項次 : PA3 = 會計科目編號_cb.Text : PA4 = "" : NU1 = 0 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = 狀態_cb.Text : PA7 = gUserName
+            SQL_營運成本明細表新增() : conn.Close() : Set_費用清單()
         End If
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        If TextBox4.Text = "" Then : MsgBox("未選擇需要刪除的資料。")
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 刪除選中的資料_bu.Click
+        If 項次_tb.Text = "" Then : MsgBox("未選擇需要刪除的資料。")
         Else
-            存檔() : PA1 = TextBox1.Text : PA2 = TextBox4.Text : SQL_營運成本明細表刪除單筆() : conn.Close() : Set_費用清單() : Dim NUM1 As Integer = 0
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            存檔() : PA1 = 收支單號_tb.Text : PA2 = 項次_tb.Text : SQL_營運成本明細表刪除單筆() : conn.Close() : Set_費用清單() : Dim NUM1 As Integer = 0
+            For i As Integer = 0 To 單據清單_dgv.Rows.Count - 1
                 NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-                PA1 = 新項次 : PA2 = TextBox1.Text : PA3 = DataGridView1.Rows(i).Cells("項次").Value
+                PA1 = 新項次 : PA2 = 收支單號_tb.Text : PA3 = 單據清單_dgv.Rows(i).Cells("項次").Value
                 SQL_營運成本明細表項次修改() : conn.Close()
             Next : Set_費用清單()
-            If DataGridView1.Rows.Count = 0 Then
-                PA1 = TextBox1.Text : SQL_營運成本控制表刪除() : PA = ""
-                For i As Integer = 0 To DataGridView2.Rows.Count - 1
-                    PA19 = DataGridView2.Rows(i).Cells("流水單號").Value.ToString
-                    SQL_倉儲明細表財務單號連接修改()
-                    PA6 = DataGridView2.Rows(i).Cells("流水單號").Value : PA7 = "0"
-                    SQL_應付賬款_倉儲明細應付立帳修改()
+            If 單據清單_dgv.Rows.Count = 0 Then
+                PA1 = 收支單號_tb.Text : SQL_營運成本控制表刪除() : PA = ""
+                For i As Integer = 0 To 倉儲明細表資料流水號_dgv.Rows.Count - 1
+                    PA19 = 倉儲明細表資料流水號_dgv.Rows(i).Cells("流水單號").Value.ToString
+                    SQL_倉儲明細表財務單號連接修改() : conn.Close()
+
+                    If 財務單申請狀態 = "應付" Then
+                        PA6 = 倉儲明細表資料流水號_dgv.Rows(i).Cells("流水單號").Value : PA7 = "0"
+                        SQL_應付賬款_倉儲明細應付立帳修改() : conn.Close()
+                    ElseIf 財務單申請狀態 = "應收" Then
+                        PA6 = 倉儲明細表資料流水號_dgv.Rows(i).Cells("流水單號").Value : PA7 = "0"
+                        SQL_應收賬款_倉儲明細應付立帳修改() : conn.Close()
+                    End If
                 Next
             End If
         End If
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        PA4 = TextBox1.Text : PA1 = TextBox14.Text : NU1 = NumericUpDown5.Value : PA2 = TextBox16.Text : PA3 = ComboBox6.Text : NU2 = 0 : NU3 = NumericUpDown6.Value : NU4 = 0 : PA5 = TextBox4.Text
-        PA6 = ComboBox7.Text : PA7 = TextBox3.Text : PA8 = TextBox15.Text : PA9 = ComboBox10.Text : PA10 = ComboBox9.Text : PA11 = 收付對應客戶供應商編號 : PA12 = TextBox12.Text : PA13 = TextBox13.Text
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 單筆資料存檔_bu.Click
         If 財務單申請狀態 = "應付" Then
-            If ComboBox7.Text = "付現" Then
-                PA14 = "" : PA15 = "" : PA16 = ""
-            ElseIf ComboBox7.Text = "開票" Then
-                PA14 = Format(DateTimePicker3.Value, "yyyy/MM/dd") : PA15 = Format(DateTimePicker4.Value, "yyyy/MM/dd") : PA16 = Format(DateTimePicker5.Value, "yyyy/MM/dd")
-            End If
+            NU1 = 現金_nud.Value : NU2 = 0 : NU3 = 支票_nud.Value : NU4 = 0
         ElseIf 財務單申請狀態 = "應收" Then
-
+            NU1 = 0 : NU2 = 現金_nud.Value : NU3 = 0 : NU4 = 支票_nud.Value
+        End If
+        PA4 = 收支單號_tb.Text : PA1 = 用途_tb.Text : PA2 = 備註_tb.Text : PA3 = 會計科目編號_cb.Text : PA5 = 項次_tb.Text : PA6 = 狀態_cb.Text : PA7 = 登錄人_tb.Text
+        PA8 = 發票人帳號_tb.Text : PA9 = 兌現科目編號_cb.Text : PA10 = 付款銀行_cb.Text : PA11 = 收付對應客戶供應商編號 : PA12 = 支票號碼_tb.Text : PA13 = 開票人_tb.Text
+        If 狀態_cb.Text = "付現" Or 狀態_cb.Text = "收現" Then
+            PA14 = "" : PA15 = "" : PA16 = ""
+        ElseIf 狀態_cb.Text = "開票" Or 狀態_cb.Text = "收票" Then
+            PA14 = Format(到期日_dtp.Value, "yyyy/MM/dd") : PA15 = Format(預定兌現日_dtp.Value, "yyyy/MM/dd") : PA16 = Format(開收票日_dtp.Value, "yyyy/MM/dd")
         End If
         SQL_支票收支單申請修改() : conn.Close() : Set_費用清單() : MsgBox("存檔完畢")
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 清單資料存檔_bu.Click
         存檔() : Set_費用清單() : MsgBox("存檔完畢")
     End Sub
 End Class