20221201備份

YD-ERP-SYS.sln

@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio Version 16
-VisualStudioVersion = 16.0.30011.22
+# Visual Studio Version 17
+VisualStudioVersion = 17.2.32630.192
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "YD-ERP-SYS", "YD-ERP-SYS\YD-ERP-SYS.vbproj", "{4AB4746C-E4AF-4F91-A2D4-72960D193B33}"
 EndProject

YD-ERP-SYS/Module/SQL_採購系統管理.vb

@@ -110,24 +110,61 @@
         CmdSet_For_DGV()
     End Sub
     '---------------------採購對帳單-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_採購對帳單_總表供應商外埔()
+        ConnOpen() : SQL1 = "SELECT  簡稱  FROM  供應商資料表  WHERE  (編號 LIKE '" & PA36 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購對帳單_總表1()
+        ConnOpen()
+        SQL1 = "SELECT     TOP (" & NN1 & ") SS.編號, SS.供應商, SS.當月貨款, SS.稅金1, SS.[稅金%], SS.稅金, SS.廣告1, SS.[廣告%], SS.廣告, SS.其他扣款, 
+                           SS.實付金額, SS.票期1, SS.票期, SS.[公司%], SS.[個人%], SS.公司, SS.個人, SS.支票_公司, SS.支票_私人, 
+                           採購外埔表.廠商編碼
+                FROM       採購外埔表 FULL OUTER JOIN
+                          (SELECT    TOP (100) PERCENT LEFT(採購控制表.料號, 4) AS 編號, 供應商資料表.簡稱 AS 供應商, 
+                                     SUM(採購控制表.數量 * 採購控制表.成本) AS 當月貨款, 供應商資料表.稅金倍率 AS 稅金1, 
+                                     QQ.稅金 AS [稅金%], QQ.稅金, 供應商資料表.廣告費倍率 AS 廣告1, QQ.廣告 AS [廣告%], QQ.廣告, 
+                                     QQ.其他扣款, QQ.其他扣款 AS 實付金額, 供應商資料表.票期 AS 票期1, QQ.票期, QQ.公帳 AS [公司%], 
+                                     QQ.私帳 AS [個人%], QQ.公帳 AS 公司, QQ.私帳 AS 個人, 供應商資料表.支票_公司, 
+                                     供應商資料表.支票_私人
+                           FROM     (SELECT  年月, 客編, 稅金, 廣告, 其他扣款, 票期, 公帳, 私帳  FROM  應付帳款基數
+                                     WHERE  (年月 LIKE '" & Strings.Left(Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd"), 7) & "')) AS QQ RIGHT OUTER JOIN
+                                     供應商資料表 ON QQ.客編 = 供應商資料表.編號 RIGHT OUTER JOIN
+                                     採購控制表 ON 供應商資料表.編號 = LEFT(採購控制表.料號, 4)
+                           WHERE    (採購控制表.過帳日期 BETWEEN '" & Format(採購應付帳款.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd") & "') 
+                                     AND (採購控制表.已過帳 = 1)
+                           GROUP BY  LEFT(採購控制表.料號, 4), 供應商資料表.簡稱, 供應商資料表.票期, 供應商資料表.稅金倍率, 
+                                     供應商資料表.廣告費倍率, QQ.票期, QQ.稅金, QQ.廣告, QQ.其他扣款, QQ.公帳, QQ.私帳, 
+                                     供應商資料表.支票_公司, 供應商資料表.支票_私人) AS SS ON 採購外埔表.廠商編碼 = SS.編號
+                GROUP BY   SS.編號, SS.供應商, SS.當月貨款, SS.稅金1, SS.[稅金%], SS.稅金, SS.廣告1, SS.[廣告%], SS.廣告, SS.其他扣款, 
+                           SS.實付金額, SS.票期1, SS.票期, SS.[公司%], SS.[個人%], SS.公司, SS.個人, SS.支票_公司, SS.支票_私人, 
+                           採購外埔表.廠商編碼
+                ORDER BY   SS.編號"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_採購對帳單_總表()
         ConnOpen()
-        SQL1 = "SELECT      LEFT(採購控制表.料號, 4) AS 編號, 供應商資料表.簡稱 AS 供應商, SUM(採購控制表.數量 * 採購控制表.成本) 
-                            AS 當月貨款, 供應商資料表.稅金倍率 AS 稅金1, QQ.稅金 AS [稅金%], QQ.稅金, 供應商資料表.廣告費倍率 AS 廣告1, 
-                            QQ.廣告 AS [廣告%], QQ.廣告, QQ.其他扣款, QQ.其他扣款 AS 實付金額, 供應商資料表.票期 AS 票期1, QQ.票期, 
-                            QQ.公帳 AS [公司%], QQ.私帳 AS [個人%], QQ.公帳 AS 公司, QQ.私帳 AS 個人, 供應商資料表.支票_公司, 
-                            供應商資料表.支票_私人
-                 FROM      (SELECT   年月, 客編, 稅金, 廣告, 其他扣款, 票期, 公帳, 私帳
-                            FROM     應付帳款基數
-                            WHERE   (年月 LIKE '" & Strings.Left(Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd"), 7) & "')) AS QQ RIGHT OUTER JOIN
-                            供應商資料表 ON QQ.客編 = 供應商資料表.編號 RIGHT OUTER JOIN
-                            採購控制表 ON 供應商資料表.編號 = LEFT(採購控制表.料號, 4)
-                 WHERE     (採購控制表.過帳日期 BETWEEN '" & Format(採購應付帳款.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
-                           (採購控制表.已過帳 = 1)
-                 GROUP BY   LEFT(採購控制表.料號, 4), 供應商資料表.簡稱, 供應商資料表.票期, 供應商資料表.稅金倍率, 
-                            供應商資料表.廣告費倍率, QQ.票期, QQ.稅金, QQ.廣告, QQ.其他扣款, QQ.公帳, QQ.私帳, 供應商資料表.支票_公司, 
-                            供應商資料表.支票_私人
-                 ORDER BY   編號"
+        SQL1 = "SELECT     SS.編號, SS.供應商, SS.當月貨款, SS.稅金1, SS.[稅金%], SS.稅金, SS.廣告1, SS.[廣告%], SS.廣告, SS.其他扣款, 
+                           SS.實付金額, SS.票期1, SS.票期, SS.[公司%], SS.[個人%], SS.公司, SS.個人, SS.支票_公司, SS.支票_私人, 
+                           採購外埔表.廠商編碼
+                FROM       採購外埔表 FULL OUTER JOIN
+                          (SELECT    TOP (100) PERCENT LEFT(採購控制表.料號, 4) AS 編號, 供應商資料表.簡稱 AS 供應商, 
+                                     SUM(採購控制表.數量 * 採購控制表.成本) AS 當月貨款, 供應商資料表.稅金倍率 AS 稅金1, 
+                                     QQ.稅金 AS [稅金%], QQ.稅金, 供應商資料表.廣告費倍率 AS 廣告1, QQ.廣告 AS [廣告%], QQ.廣告, 
+                                     QQ.其他扣款, QQ.其他扣款 AS 實付金額, 供應商資料表.票期 AS 票期1, QQ.票期, QQ.公帳 AS [公司%], 
+                                     QQ.私帳 AS [個人%], QQ.公帳 AS 公司, QQ.私帳 AS 個人, 供應商資料表.支票_公司, 
+                                     供應商資料表.支票_私人
+                           FROM     (SELECT  年月, 客編, 稅金, 廣告, 其他扣款, 票期, 公帳, 私帳  FROM  應付帳款基數
+                                     WHERE  (年月 LIKE '" & Strings.Left(Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd"), 7) & "')) AS QQ RIGHT OUTER JOIN
+                                     供應商資料表 ON QQ.客編 = 供應商資料表.編號 RIGHT OUTER JOIN
+                                     採購控制表 ON 供應商資料表.編號 = LEFT(採購控制表.料號, 4)
+                           WHERE    (採購控制表.過帳日期 BETWEEN '" & Format(採購應付帳款.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd") & "') 
+                                     AND (採購控制表.已過帳 = 1)
+                           GROUP BY  LEFT(採購控制表.料號, 4), 供應商資料表.簡稱, 供應商資料表.票期, 供應商資料表.稅金倍率, 
+                                     供應商資料表.廣告費倍率, QQ.票期, QQ.稅金, QQ.廣告, QQ.其他扣款, QQ.公帳, QQ.私帳, 
+                                     供應商資料表.支票_公司, 供應商資料表.支票_私人) AS SS ON 採購外埔表.廠商編碼 = SS.編號
+                GROUP BY   SS.編號, SS.供應商, SS.當月貨款, SS.稅金1, SS.[稅金%], SS.稅金, SS.廣告1, SS.[廣告%], SS.廣告, SS.其他扣款, 
+                           SS.實付金額, SS.票期1, SS.票期, SS.[公司%], SS.[個人%], SS.公司, SS.個人, SS.支票_公司, SS.支票_私人, 
+                           採購外埔表.廠商編碼
+                ORDER BY   SS.編號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_採購對帳單_明細()
@@ -169,7 +206,7 @@
     End Sub
     Friend Sub SQL_採購應付帳款_查詢公帳控制表會計科目()
         ConnOpen()
-        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 採購應付帳款.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 採購應付帳款.副會科編號_cb.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_採購應付帳款_查詢最後一筆公帳控制表會計科目()
@@ -179,7 +216,7 @@
     End Sub
     Friend Sub SQL_採購應付帳款_查詢最左邊公帳控制表會計科目()
         ConnOpen()
-        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 採購應付帳款.ComboBox2.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 採購應付帳款.主會科編號_cb.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
         CmdSet_For_dr()
     End Sub

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

@@ -288,7 +288,7 @@
         ConnOpen()
         SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                             出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
-                   "VALUES (N'" & PA19 & "', N'" & 採購應付帳款.幣別_cb.Text & "', N'" & DTP4 & "', N'" & 採購應付帳款.ComboBox6.Text & "', N'0', N'" & PA2 & "', 
+                   "VALUES (N'" & PA19 & "', N'" & 採購應付帳款.幣別_cb.Text & "', N'" & DTP4 & "', N'" & 採購應付帳款.子會科編號_cb.Text & "', N'0', N'" & PA2 & "', 
                             N'" & PA1 & "-公司-[" & 採購應付帳款.開始日期_dtp.Value & "-" & 採購應付帳款.結束日期_dtp.Value & "]', N'" & gUserName & "', 
                             N'" & 採購應付帳款.營運成本收支單號_tb.Text & "', N'" & PA15 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP4 & "', N'0', N'0', N'" & PA16 & "', N'" & PA3 & "' ,'1')"
         CmdSet_For_dr()
@@ -297,7 +297,7 @@
         ConnOpen()
         SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                             出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
-                   "VALUES (N'" & PA19 & "', N'" & 採購應付帳款.幣別_cb.Text & "', N'" & DTP4 & "', N'" & 採購應付帳款.ComboBox6.Text & "', N'0', N'" & PA2 & "', 
+                   "VALUES (N'" & PA19 & "', N'" & 採購應付帳款.幣別_cb.Text & "', N'" & DTP4 & "', N'" & 採購應付帳款.子會科編號_cb.Text & "', N'0', N'" & PA2 & "', 
                             N'" & PA1 & "-個人-[" & 採購應付帳款.開始日期_dtp.Value & "-" & 採購應付帳款.結束日期_dtp.Value & "]', N'" & gUserName & "', 
                             N'" & 採購應付帳款.營運成本收支單號_tb.Text & "', N'" & PA15 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP4 & "', N'0', N'0', N'" & PA16 & "', N'" & PA3 & "' ,'0')"
         CmdSet_For_dr()

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

@@ -63,6 +63,24 @@
     Friend Sub SQL_採購控制表_最後一筆資料()
         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 採購控制表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_採購外埔表_最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 採購外埔表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購外埔表_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 採購外埔表 (銷售單號, 廠商編碼, 備註內容, 金額, 過帳日期, 流水號) 
+                VALUES (N'" & PA36 & "', N'" & PA35 & "', N'" & PA34 & "', N'" & PA33 & "', N'" & PA32 & "', N'" & PA31 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購外埔表_修改()
+        ConnOpen() : SQL1 = "UPDATE 採購外埔表 SET 備註內容 = N'" & PA34 & "', 金額 = N'" & PA33 & "' WHERE 流水號 LIKE N'" & PA35 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購外埔表_過帳()
+        ConnOpen() : SQL1 = "UPDATE 採購外埔表 SET 過帳日期 = N'" & PA32 & "' WHERE 流水號 LIKE N'" & PA35 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購外埔表_刪除()
+        ConnOpen() : SQL1 = "DELETE 採購外埔表 WHERE 流水號 LIKE N'" & PA35 & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_倉儲明細表_出入庫及修改()
         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫 = N'" & NU1 & "', 出庫 = N'" & NU2 & "', 備註 = N'" & PA10 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')" : CmdSet_For_dr()
     End Sub
@@ -544,6 +562,34 @@
         SQL1 = "SELECT 資料流水號, 單號, 版次 FROM 採購訂製圖庫 WHERE (資料流水號 LIKE '" & PA15 & "')"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_採購控制表_外埔報表()
+        ConnOpen()
+        SQL1 = "SELECT      採購外埔表.銷售單號, 供應商資料表.簡稱 AS 供應商, 採購外埔表.備註內容, 採購外埔表.金額, 採購外埔表.過帳日期, 
+                            採購外埔表.流水號, 採購外埔表.廠商編碼
+                FROM        採購外埔表 INNER JOIN 供應商資料表 ON 採購外埔表.廠商編碼 = 供應商資料表.編號
+                WHERE      (採購外埔表.過帳日期 LIKE '') AND (採購外埔表.廠商編碼 LIKE  '%" & PA & "%') ORDER BY 過帳日期 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_採購控制表_外埔報表_已過()
+        ConnOpen()
+        SQL1 = "SELECT      採購外埔表.銷售單號, 供應商資料表.簡稱 AS 供應商, 採購外埔表.備註內容, 採購外埔表.金額, 採購外埔表.過帳日期, 
+                            採購外埔表.流水號, 採購外埔表.廠商編碼
+                FROM        採購外埔表 INNER JOIN 供應商資料表 ON 採購外埔表.廠商編碼 = 供應商資料表.編號
+                WHERE      (採購外埔表.過帳日期 NOT LIKE '') AND (採購外埔表.廠商編碼 LIKE  '%" & PA & "%') ORDER BY 過帳日期 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應負帳款_外埔報表()
+        ConnOpen()
+        SQL1 = "SELECT      採購外埔表.銷售單號, 供應商資料表.簡稱 AS 供應商, 採購外埔表.備註內容, 採購外埔表.金額, 採購外埔表.過帳日期, 
+                            採購外埔表.流水號, 採購外埔表.廠商編碼
+                FROM        採購外埔表 INNER JOIN
+                            供應商資料表 ON 採購外埔表.廠商編碼 = 供應商資料表.編號
+                WHERE      (採購外埔表.過帳日期 BETWEEN '" & Format(採購應付帳款.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購應付帳款.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_採購控制表_供應商_下拉清單()
+        ConnOpen() : SQL1 = "SELECT  編號, 簡稱 FROM   供應商資料表 ORDER BY   編號" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_採購控制表_圖片新增()
         ConnOpen()
         SQL1 = "INSERT INTO 採購訂製圖庫 (資料流水號, 單號, 版次, 圖片) SELECT N'" & PA1 & "',N'" & PA2 & "',

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

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

YD-ERP-SYS/My Project/licenses.licx

@@ -0,0 +1 @@
+Telerik.WinControls.UI.RadVirtualKeyboard, Telerik.WinControls.UI, Version=2022.3.1109.48, Culture=neutral, PublicKeyToken=5bb2a467cbec794e

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

@@ -75,6 +75,7 @@
       <HintPath>D:\OneDrive\HX-PGS-ERP-SYS\obj\Debug\Interop.VSTOEE100.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
+    <Reference Include="Microsoft.CSharp" />
     <Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <EmbedInteropTypes>True</EmbedInteropTypes>
@@ -105,6 +106,9 @@
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
     <Reference Include="System.Net.Http" />
+    <Reference Include="Telerik.WinControls, Version=2022.3.1109.48, Culture=neutral, PublicKeyToken=5bb2a467cbec794e" />
+    <Reference Include="Telerik.WinControls.UI, Version=2022.3.1109.48, Culture=neutral, PublicKeyToken=5bb2a467cbec794e, processorArchitecture=MSIL" />
+    <Reference Include="TelerikCommon, Version=2022.3.1109.48, Culture=neutral, PublicKeyToken=5bb2a467cbec794e" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -478,6 +482,7 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="人事系統管理\人事資料表.resx">
       <DependentUpon>人事資料表.vb</DependentUpon>
     </EmbeddedResource>
@@ -510,6 +515,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="採購系統管理\一般申請_採購單.resx">
       <DependentUpon>一般申請_採購單.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="採購系統管理\銷售申請_採購單.resx">
       <DependentUpon>銷售申請_採購單.vb</DependentUpon>
@@ -531,6 +537,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="採購系統管理\採購訂製大圖.resx">
       <DependentUpon>採購訂製大圖.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="業務系統管理\客戶資料表.resx">
       <DependentUpon>客戶資料表.vb</DependentUpon>

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

@@ -1 +1 @@
-21ef17a105a508ce8a3a3be640e5be9a4573ffdb
+9b7dae8c1069e1a5eef0811d72bae56ae40161a0

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

@@ -581,3 +581,9 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運日報表.resou
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.高層客製報表.resources
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.AssemblyReference.cache
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.SuggestedBindingRedirects.cache
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\Telerik.WinControls.dll
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\Telerik.WinControls.UI.dll
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\TelerikCommon.dll
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\Telerik.WinControls.xml
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\Telerik.WinControls.UI.xml
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe.licenses

YD-ERP-SYS/採購系統管理/採購對帳單.Designer.vb

@@ -24,9 +24,10 @@ Partial Class 採購對帳單
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(採購對帳單))
-        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 DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.下載檔名_tb = New System.Windows.Forms.TextBox()
         Me.料號_tb = New System.Windows.Forms.TextBox()
         Me.單號1_tb = New System.Windows.Forms.TextBox()
@@ -83,6 +84,21 @@ Partial Class 採購對帳單
         Me.說明_lb = New System.Windows.Forms.Label()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.供應商編碼_cb = New System.Windows.Forms.ComboBox()
+        Me.供應商_cb = New System.Windows.Forms.ComboBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.外埔過帳_bt = New System.Windows.Forms.Button()
+        Me.外埔刪除_bt = New System.Windows.Forms.Button()
+        Me.外埔修改_bt = New System.Windows.Forms.Button()
+        Me.外埔新增_bt = New System.Windows.Forms.Button()
+        Me.金額_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.內容_tb = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.外埔報表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
         Me.Label7 = New System.Windows.Forms.Label()
@@ -110,6 +126,9 @@ Partial Class 採購對帳單
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
+        CType(Me.金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.外埔報表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
         CType(Me.訂製圖檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -120,56 +139,49 @@ Partial Class 採購對帳單
         '
         Me.下載檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(574, 291)
+        Me.下載檔名_tb.Location = New System.Drawing.Point(12, 90)
         Me.下載檔名_tb.Name = "下載檔名_tb"
         Me.下載檔名_tb.Size = New System.Drawing.Size(122, 23)
         Me.下載檔名_tb.TabIndex = 1394
         Me.下載檔名_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        Me.下載檔名_tb.Visible = False
         '
         '料號_tb
         '
-        Me.料號_tb.Enabled = False
-        Me.料號_tb.Location = New System.Drawing.Point(574, 349)
+        Me.料號_tb.Location = New System.Drawing.Point(12, 148)
         Me.料號_tb.Name = "料號_tb"
         Me.料號_tb.Size = New System.Drawing.Size(122, 23)
         Me.料號_tb.TabIndex = 1393
-        Me.料號_tb.Visible = False
         '
         '單號1_tb
         '
-        Me.單號1_tb.Enabled = False
-        Me.單號1_tb.Location = New System.Drawing.Point(574, 320)
+        Me.單號1_tb.Location = New System.Drawing.Point(12, 119)
         Me.單號1_tb.Name = "單號1_tb"
         Me.單號1_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號1_tb.TabIndex = 1392
-        Me.單號1_tb.Visible = False
         '
         '版次_tb
         '
-        Me.版次_tb.Location = New System.Drawing.Point(574, 264)
+        Me.版次_tb.Location = New System.Drawing.Point(140, 148)
         Me.版次_tb.Name = "版次_tb"
         Me.版次_tb.Size = New System.Drawing.Size(122, 23)
         Me.版次_tb.TabIndex = 1390
-        Me.版次_tb.Visible = False
         '
         '檔名讀取_tb
         '
         Me.檔名讀取_tb.AllowDrop = True
         Me.檔名讀取_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔名讀取_tb.Location = New System.Drawing.Point(574, 206)
+        Me.檔名讀取_tb.Location = New System.Drawing.Point(140, 90)
         Me.檔名讀取_tb.Multiline = True
         Me.檔名讀取_tb.Name = "檔名讀取_tb"
         Me.檔名讀取_tb.Size = New System.Drawing.Size(122, 23)
         Me.檔名讀取_tb.TabIndex = 1386
-        Me.檔名讀取_tb.Visible = False
         '
         '大間距_ch
         '
         Me.大間距_ch.AutoSize = True
-        Me.大間距_ch.Location = New System.Drawing.Point(147, 62)
+        Me.大間距_ch.Location = New System.Drawing.Point(147, 57)
         Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.大間距_ch.TabIndex = 1377
         Me.大間距_ch.Text = "大間距"
         Me.大間距_ch.UseVisualStyleBackColor = True
@@ -177,9 +189,9 @@ Partial Class 採購對帳單
         '中間距_ch
         '
         Me.中間距_ch.AutoSize = True
-        Me.中間距_ch.Location = New System.Drawing.Point(78, 62)
+        Me.中間距_ch.Location = New System.Drawing.Point(78, 57)
         Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.中間距_ch.TabIndex = 1376
         Me.中間距_ch.Text = "中間距"
         Me.中間距_ch.UseVisualStyleBackColor = True
@@ -187,7 +199,7 @@ Partial Class 採購對帳單
         '申請人_tb
         '
         Me.申請人_tb.Enabled = False
-        Me.申請人_tb.Location = New System.Drawing.Point(254, 86)
+        Me.申請人_tb.Location = New System.Drawing.Point(254, 80)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(105, 23)
         Me.申請人_tb.TabIndex = 1375
@@ -195,36 +207,32 @@ Partial Class 採購對帳單
         'Label19
         '
         Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(211, 90)
+        Me.Label19.Location = New System.Drawing.Point(211, 84)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.Size = New System.Drawing.Size(43, 16)
         Me.Label19.TabIndex = 1374
         Me.Label19.Text = "申請人"
         '
         '日期2_dtp
         '
-        Me.日期2_dtp.Enabled = False
-        Me.日期2_dtp.Location = New System.Drawing.Point(574, 177)
+        Me.日期2_dtp.Location = New System.Drawing.Point(140, 61)
         Me.日期2_dtp.Name = "日期2_dtp"
         Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期2_dtp.TabIndex = 1373
-        Me.日期2_dtp.Visible = False
         '
         '日期1_dtp
         '
-        Me.日期1_dtp.Enabled = False
-        Me.日期1_dtp.Location = New System.Drawing.Point(574, 148)
+        Me.日期1_dtp.Location = New System.Drawing.Point(140, 32)
         Me.日期1_dtp.Name = "日期1_dtp"
         Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期1_dtp.TabIndex = 1372
-        Me.日期1_dtp.Visible = False
         '
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(323, 12)
+        Me.Label3.Location = New System.Drawing.Point(323, 10)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 1371
         Me.Label3.Text = "業務"
         '
@@ -233,24 +241,22 @@ Partial Class 採購對帳單
         Me.業務1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.業務1_cb.FormattingEnabled = True
         Me.業務1_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "B", "Y"})
-        Me.業務1_cb.Location = New System.Drawing.Point(317, 29)
+        Me.業務1_cb.Location = New System.Drawing.Point(317, 27)
         Me.業務1_cb.Name = "業務1_cb"
         Me.業務1_cb.Size = New System.Drawing.Size(42, 24)
         Me.業務1_cb.TabIndex = 1370
         '
         '單號_tb
         '
-        Me.單號_tb.Enabled = False
-        Me.單號_tb.Location = New System.Drawing.Point(574, 119)
+        Me.單號_tb.Location = New System.Drawing.Point(140, 3)
         Me.單號_tb.Name = "單號_tb"
         Me.單號_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號_tb.TabIndex = 1369
-        Me.單號_tb.Visible = False
         '
         '採購金額_tb
         '
         Me.採購金額_tb.ForeColor = System.Drawing.Color.Blue
-        Me.採購金額_tb.Location = New System.Drawing.Point(283, 60)
+        Me.採購金額_tb.Location = New System.Drawing.Point(283, 55)
         Me.採購金額_tb.Name = "採購金額_tb"
         Me.採購金額_tb.Size = New System.Drawing.Size(130, 23)
         Me.採購金額_tb.TabIndex = 1368
@@ -260,18 +266,18 @@ Partial Class 採購對帳單
         '
         Me.Label16.AutoSize = True
         Me.Label16.ForeColor = System.Drawing.Color.Blue
-        Me.Label16.Location = New System.Drawing.Point(216, 63)
+        Me.Label16.Location = New System.Drawing.Point(216, 58)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(68, 16)
+        Me.Label16.Size = New System.Drawing.Size(67, 16)
         Me.Label16.TabIndex = 1367
         Me.Label16.Text = "總採購金額"
         '
         '小間距_ch
         '
         Me.小間距_ch.AutoSize = True
-        Me.小間距_ch.Location = New System.Drawing.Point(9, 62)
+        Me.小間距_ch.Location = New System.Drawing.Point(9, 57)
         Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.小間距_ch.TabIndex = 1366
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
@@ -280,7 +286,7 @@ Partial Class 採購對帳單
         '
         Me.清空1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.清空1_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.清空1_bt.Location = New System.Drawing.Point(362, 2)
+        Me.清空1_bt.Location = New System.Drawing.Point(362, 0)
         Me.清空1_bt.Name = "清空1_bt"
         Me.清空1_bt.Size = New System.Drawing.Size(59, 52)
         Me.清空1_bt.TabIndex = 1364
@@ -289,11 +295,10 @@ Partial Class 採購對帳單
         '
         '供應商編碼1_tb
         '
-        Me.供應商編碼1_tb.Location = New System.Drawing.Point(574, 235)
+        Me.供應商編碼1_tb.Location = New System.Drawing.Point(140, 119)
         Me.供應商編碼1_tb.Name = "供應商編碼1_tb"
         Me.供應商編碼1_tb.Size = New System.Drawing.Size(122, 23)
         Me.供應商編碼1_tb.TabIndex = 1363
-        Me.供應商編碼1_tb.Visible = False
         '
         '查詢1_tb
         '
@@ -318,7 +323,7 @@ Partial Class 採購對帳單
         Me.Label14.ForeColor = System.Drawing.Color.Red
         Me.Label14.Location = New System.Drawing.Point(6, 7)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(56, 16)
+        Me.Label14.Size = New System.Drawing.Size(55, 16)
         Me.Label14.TabIndex = 1359
         Me.Label14.Text = "地        區"
         '
@@ -326,7 +331,7 @@ Partial Class 採購對帳單
         '
         Me.供應商1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.供應商1_cb.FormattingEnabled = True
-        Me.供應商1_cb.Location = New System.Drawing.Point(180, 29)
+        Me.供應商1_cb.Location = New System.Drawing.Point(180, 27)
         Me.供應商1_cb.Name = "供應商1_cb"
         Me.供應商1_cb.Size = New System.Drawing.Size(134, 24)
         Me.供應商1_cb.TabIndex = 1358
@@ -335,9 +340,9 @@ Partial Class 採購對帳單
         '
         Me.Label13.AutoSize = True
         Me.Label13.ForeColor = System.Drawing.Color.Red
-        Me.Label13.Location = New System.Drawing.Point(139, 34)
+        Me.Label13.Location = New System.Drawing.Point(139, 32)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(44, 16)
+        Me.Label13.Size = New System.Drawing.Size(43, 16)
         Me.Label13.TabIndex = 1357
         Me.Label13.Text = "供應商"
         '
@@ -345,7 +350,7 @@ Partial Class 採購對帳單
         '
         Me.供應商編碼1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.供應商編碼1_cb.FormattingEnabled = True
-        Me.供應商編碼1_cb.Location = New System.Drawing.Point(61, 29)
+        Me.供應商編碼1_cb.Location = New System.Drawing.Point(61, 27)
         Me.供應商編碼1_cb.Name = "供應商編碼1_cb"
         Me.供應商編碼1_cb.Size = New System.Drawing.Size(76, 24)
         Me.供應商編碼1_cb.TabIndex = 1356
@@ -354,9 +359,9 @@ Partial Class 採購對帳單
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.Color.Red
-        Me.Label1.Location = New System.Drawing.Point(6, 33)
+        Me.Label1.Location = New System.Drawing.Point(6, 31)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
         Me.Label1.TabIndex = 1355
         Me.Label1.Text = "廠商編碼"
         '
@@ -364,7 +369,7 @@ Partial Class 採購對帳單
         '
         Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.存檔_bt.Location = New System.Drawing.Point(422, 2)
+        Me.存檔_bt.Location = New System.Drawing.Point(422, 0)
         Me.存檔_bt.Name = "存檔_bt"
         Me.存檔_bt.Size = New System.Drawing.Size(59, 52)
         Me.存檔_bt.TabIndex = 1349
@@ -375,7 +380,7 @@ Partial Class 採購對帳單
         '
         Me.刪除單據上點選的資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.刪除單據上點選的資料_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除單據上點選的資料_bt.Location = New System.Drawing.Point(361, 85)
+        Me.刪除單據上點選的資料_bt.Location = New System.Drawing.Point(361, 79)
         Me.刪除單據上點選的資料_bt.Name = "刪除單據上點選的資料_bt"
         Me.刪除單據上點選的資料_bt.Size = New System.Drawing.Size(190, 25)
         Me.刪除單據上點選的資料_bt.TabIndex = 1350
@@ -386,15 +391,15 @@ Partial Class 採購對帳單
         '
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(776, 89)
+        Me.Label9.Location = New System.Drawing.Point(776, 83)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.Size = New System.Drawing.Size(43, 16)
         Me.Label9.TabIndex = 1353
         Me.Label9.Text = "筆資料"
         '
         '資料筆數1_tb
         '
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(734, 86)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(734, 80)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
         Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
         Me.資料筆數1_tb.TabIndex = 1352
@@ -404,16 +409,16 @@ Partial Class 採購對帳單
         '
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(712, 89)
+        Me.Label10.Location = New System.Drawing.Point(712, 83)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.Size = New System.Drawing.Size(19, 16)
         Me.Label10.TabIndex = 1351
         Me.Label10.Text = "共"
         '
         '項次_tb
         '
         Me.項次_tb.Enabled = False
-        Me.項次_tb.Location = New System.Drawing.Point(75, 86)
+        Me.項次_tb.Location = New System.Drawing.Point(75, 80)
         Me.項次_tb.Name = "項次_tb"
         Me.項次_tb.Size = New System.Drawing.Size(130, 23)
         Me.項次_tb.TabIndex = 1348
@@ -421,9 +426,9 @@ Partial Class 採購對帳單
         '選擇_lb
         '
         Me.選擇_lb.AutoSize = True
-        Me.選擇_lb.Location = New System.Drawing.Point(7, 90)
+        Me.選擇_lb.Location = New System.Drawing.Point(7, 84)
         Me.選擇_lb.Name = "選擇_lb"
-        Me.選擇_lb.Size = New System.Drawing.Size(68, 16)
+        Me.選擇_lb.Size = New System.Drawing.Size(67, 16)
         Me.選擇_lb.TabIndex = 1347
         Me.選擇_lb.Text = "資料流水號"
         '
@@ -433,16 +438,16 @@ Partial Class 採購對帳單
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label15.Location = New System.Drawing.Point(139, 6)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(44, 16)
+        Me.Label15.Size = New System.Drawing.Size(43, 16)
         Me.Label15.TabIndex = 1362
         Me.Label15.Text = "關鍵字"
         '
         'Label17
         '
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(4, 43)
+        Me.Label17.Location = New System.Drawing.Point(4, 39)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(1153, 16)
+        Me.Label17.Size = New System.Drawing.Size(1152, 16)
         Me.Label17.TabIndex = 1365
         Me.Label17.Text = resources.GetString("Label17.Text")
         '
@@ -452,15 +457,16 @@ Partial Class 採購對帳單
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.採購清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.採購清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.採購清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.採購清單_dgv.Location = New System.Drawing.Point(4, 113)
+        Me.採購清單_dgv.Location = New System.Drawing.Point(2, 106)
         Me.採購清單_dgv.Name = "採購清單_dgv"
         Me.採購清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.採購清單_dgv.RowTemplate.Height = 24
-        Me.採購清單_dgv.Size = New System.Drawing.Size(1319, 523)
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1328, 417)
         Me.採購清單_dgv.TabIndex = 1346
         '
         'SaveFileDialog1
@@ -472,7 +478,7 @@ Partial Class 採購對帳單
         '採購金額1_tb
         '
         Me.採購金額1_tb.ForeColor = System.Drawing.Color.Green
-        Me.採購金額1_tb.Location = New System.Drawing.Point(624, 60)
+        Me.採購金額1_tb.Location = New System.Drawing.Point(624, 55)
         Me.採購金額1_tb.Name = "採購金額1_tb"
         Me.採購金額1_tb.Size = New System.Drawing.Size(117, 23)
         Me.採購金額1_tb.TabIndex = 1454
@@ -482,16 +488,16 @@ Partial Class 採購對帳單
         '
         Me.Label6.AutoSize = True
         Me.Label6.ForeColor = System.Drawing.Color.Green
-        Me.Label6.Location = New System.Drawing.Point(557, 63)
+        Me.Label6.Location = New System.Drawing.Point(557, 58)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
         Me.Label6.TabIndex = 1453
         Me.Label6.Text = "採購金額"
         '
         '供應商_tb
         '
         Me.供應商_tb.ForeColor = System.Drawing.Color.Green
-        Me.供應商_tb.Location = New System.Drawing.Point(463, 60)
+        Me.供應商_tb.Location = New System.Drawing.Point(463, 55)
         Me.供應商_tb.Name = "供應商_tb"
         Me.供應商_tb.Size = New System.Drawing.Size(88, 23)
         Me.供應商_tb.TabIndex = 1452
@@ -501,9 +507,9 @@ Partial Class 採購對帳單
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.Green
-        Me.Label2.Location = New System.Drawing.Point(419, 63)
+        Me.Label2.Location = New System.Drawing.Point(419, 58)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(44, 16)
+        Me.Label2.Size = New System.Drawing.Size(43, 16)
         Me.Label2.TabIndex = 1451
         Me.Label2.Text = "供應商"
         '
@@ -521,28 +527,24 @@ Partial Class 採購對帳單
         '
         '日期3_dtp
         '
-        Me.日期3_dtp.Enabled = False
-        Me.日期3_dtp.Location = New System.Drawing.Point(446, 148)
+        Me.日期3_dtp.Location = New System.Drawing.Point(12, 32)
         Me.日期3_dtp.Name = "日期3_dtp"
         Me.日期3_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期3_dtp.TabIndex = 1455
-        Me.日期3_dtp.Visible = False
         '
         '日期4_dtp
         '
-        Me.日期4_dtp.Enabled = False
-        Me.日期4_dtp.Location = New System.Drawing.Point(446, 177)
+        Me.日期4_dtp.Location = New System.Drawing.Point(12, 61)
         Me.日期4_dtp.Name = "日期4_dtp"
         Me.日期4_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期4_dtp.TabIndex = 1456
-        Me.日期4_dtp.Visible = False
         '
         '批量勾選_cb
         '
         Me.批量勾選_cb.AutoSize = True
-        Me.批量勾選_cb.Location = New System.Drawing.Point(747, 61)
+        Me.批量勾選_cb.Location = New System.Drawing.Point(747, 56)
         Me.批量勾選_cb.Name = "批量勾選_cb"
-        Me.批量勾選_cb.Size = New System.Drawing.Size(75, 20)
+        Me.批量勾選_cb.Size = New System.Drawing.Size(74, 20)
         Me.批量勾選_cb.TabIndex = 1457
         Me.批量勾選_cb.Text = "批量勾選"
         Me.批量勾選_cb.UseVisualStyleBackColor = True
@@ -551,7 +553,7 @@ Partial Class 採購對帳單
         '
         Me.過帳_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.過帳_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.過帳_bt.Location = New System.Drawing.Point(602, 2)
+        Me.過帳_bt.Location = New System.Drawing.Point(602, 0)
         Me.過帳_bt.Name = "過帳_bt"
         Me.過帳_bt.Size = New System.Drawing.Size(59, 52)
         Me.過帳_bt.TabIndex = 1458
@@ -562,7 +564,7 @@ Partial Class 採購對帳單
         '
         Me.列印Excel_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.列印Excel_bt.ForeColor = System.Drawing.Color.Green
-        Me.列印Excel_bt.Location = New System.Drawing.Point(662, 2)
+        Me.列印Excel_bt.Location = New System.Drawing.Point(662, 0)
         Me.列印Excel_bt.Name = "列印Excel_bt"
         Me.列印Excel_bt.Size = New System.Drawing.Size(59, 52)
         Me.列印Excel_bt.TabIndex = 1459
@@ -599,7 +601,7 @@ Partial Class 採購對帳單
         '
         Me.全部選擇_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.全部選擇_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.全部選擇_bt.Location = New System.Drawing.Point(482, 2)
+        Me.全部選擇_bt.Location = New System.Drawing.Point(482, 0)
         Me.全部選擇_bt.Name = "全部選擇_bt"
         Me.全部選擇_bt.Size = New System.Drawing.Size(59, 52)
         Me.全部選擇_bt.TabIndex = 1464
@@ -610,7 +612,7 @@ Partial Class 採購對帳單
         '
         Me.全部取消_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.全部取消_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.全部取消_bt.Location = New System.Drawing.Point(542, 2)
+        Me.全部取消_bt.Location = New System.Drawing.Point(542, 0)
         Me.全部取消_bt.Name = "全部取消_bt"
         Me.全部取消_bt.Size = New System.Drawing.Size(59, 52)
         Me.全部取消_bt.TabIndex = 1465
@@ -622,7 +624,7 @@ Partial Class 採購對帳單
         Me.說明_lb.AutoSize = True
         Me.說明_lb.Location = New System.Drawing.Point(726, 5)
         Me.說明_lb.Name = "說明_lb"
-        Me.說明_lb.Size = New System.Drawing.Size(36, 16)
+        Me.說明_lb.Size = New System.Drawing.Size(35, 16)
         Me.說明_lb.TabIndex = 1466
         Me.說明_lb.Text = "1234"
         '
@@ -637,12 +639,25 @@ Partial Class 採購對帳單
         Me.TabControl1.Location = New System.Drawing.Point(-1, 5)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(1340, 675)
+        Me.TabControl1.Size = New System.Drawing.Size(1343, 679)
         Me.TabControl1.TabIndex = 1467
         '
         'TabPage1
         '
         Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage1.Controls.Add(Me.供應商編碼_cb)
+        Me.TabPage1.Controls.Add(Me.供應商_cb)
+        Me.TabPage1.Controls.Add(Me.Label23)
+        Me.TabPage1.Controls.Add(Me.外埔過帳_bt)
+        Me.TabPage1.Controls.Add(Me.外埔刪除_bt)
+        Me.TabPage1.Controls.Add(Me.外埔修改_bt)
+        Me.TabPage1.Controls.Add(Me.外埔新增_bt)
+        Me.TabPage1.Controls.Add(Me.金額_nud)
+        Me.TabPage1.Controls.Add(Me.Label21)
+        Me.TabPage1.Controls.Add(Me.內容_tb)
+        Me.TabPage1.Controls.Add(Me.Label20)
+        Me.TabPage1.Controls.Add(Me.外埔報表_dgv)
+        Me.TabPage1.Controls.Add(Me.Panel1)
         Me.TabPage1.Controls.Add(Me.Label8)
         Me.TabPage1.Controls.Add(Me.物料圖_pb)
         Me.TabPage1.Controls.Add(Me.說明_lb)
@@ -657,9 +672,7 @@ Partial Class 採購對帳單
         Me.TabPage1.Controls.Add(Me.Label9)
         Me.TabPage1.Controls.Add(Me.批量勾選_cb)
         Me.TabPage1.Controls.Add(Me.刪除單據上點選的資料_bt)
-        Me.TabPage1.Controls.Add(Me.日期4_dtp)
         Me.TabPage1.Controls.Add(Me.存檔_bt)
-        Me.TabPage1.Controls.Add(Me.日期3_dtp)
         Me.TabPage1.Controls.Add(Me.採購金額1_tb)
         Me.TabPage1.Controls.Add(Me.供應商編碼1_cb)
         Me.TabPage1.Controls.Add(Me.Label6)
@@ -667,26 +680,16 @@ Partial Class 採購對帳單
         Me.TabPage1.Controls.Add(Me.供應商1_cb)
         Me.TabPage1.Controls.Add(Me.Label2)
         Me.TabPage1.Controls.Add(Me.地區1_cb)
-        Me.TabPage1.Controls.Add(Me.下載檔名_tb)
         Me.TabPage1.Controls.Add(Me.查詢1_tb)
-        Me.TabPage1.Controls.Add(Me.料號_tb)
-        Me.TabPage1.Controls.Add(Me.供應商編碼1_tb)
-        Me.TabPage1.Controls.Add(Me.單號1_tb)
         Me.TabPage1.Controls.Add(Me.清空1_bt)
-        Me.TabPage1.Controls.Add(Me.版次_tb)
         Me.TabPage1.Controls.Add(Me.小間距_ch)
-        Me.TabPage1.Controls.Add(Me.檔名讀取_tb)
         Me.TabPage1.Controls.Add(Me.大間距_ch)
         Me.TabPage1.Controls.Add(Me.採購金額_tb)
         Me.TabPage1.Controls.Add(Me.中間距_ch)
-        Me.TabPage1.Controls.Add(Me.單號_tb)
         Me.TabPage1.Controls.Add(Me.申請人_tb)
         Me.TabPage1.Controls.Add(Me.業務1_cb)
         Me.TabPage1.Controls.Add(Me.Label19)
         Me.TabPage1.Controls.Add(Me.Label3)
-        Me.TabPage1.Controls.Add(Me.日期2_dtp)
-        Me.TabPage1.Controls.Add(Me.日期1_dtp)
-        Me.TabPage1.Controls.Add(Me.採購清單_dgv)
         Me.TabPage1.Controls.Add(Me.Label7)
         Me.TabPage1.Controls.Add(Me.Label16)
         Me.TabPage1.Controls.Add(Me.Label1)
@@ -694,20 +697,193 @@ Partial Class 採購對帳單
         Me.TabPage1.Controls.Add(Me.Label15)
         Me.TabPage1.Controls.Add(Me.Label13)
         Me.TabPage1.Controls.Add(Me.Label17)
+        Me.TabPage1.Controls.Add(Me.採購清單_dgv)
         Me.TabPage1.Location = New System.Drawing.Point(4, 28)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1332, 643)
+        Me.TabPage1.Size = New System.Drawing.Size(1335, 647)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "---採購對帳單---"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        '供應商編碼_cb
+        '
+        Me.供應商編碼_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.供應商編碼_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.供應商編碼_cb.FormattingEnabled = True
+        Me.供應商編碼_cb.Location = New System.Drawing.Point(192, 524)
+        Me.供應商編碼_cb.Name = "供應商編碼_cb"
+        Me.供應商編碼_cb.Size = New System.Drawing.Size(76, 24)
+        Me.供應商編碼_cb.TabIndex = 1483
+        '
+        '供應商_cb
+        '
+        Me.供應商_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.供應商_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.供應商_cb.FormattingEnabled = True
+        Me.供應商_cb.Location = New System.Drawing.Point(59, 524)
+        Me.供應商_cb.Name = "供應商_cb"
+        Me.供應商_cb.Size = New System.Drawing.Size(132, 24)
+        Me.供應商_cb.TabIndex = 1485
+        '
+        'Label23
+        '
+        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label23.AutoSize = True
+        Me.Label23.ForeColor = System.Drawing.Color.Red
+        Me.Label23.Location = New System.Drawing.Point(4, 529)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(55, 16)
+        Me.Label23.TabIndex = 1484
+        Me.Label23.Text = "供  應  商"
+        '
+        '外埔過帳_bt
+        '
+        Me.外埔過帳_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.外埔過帳_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.外埔過帳_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.外埔過帳_bt.Location = New System.Drawing.Point(356, 524)
+        Me.外埔過帳_bt.Name = "外埔過帳_bt"
+        Me.外埔過帳_bt.Size = New System.Drawing.Size(86, 60)
+        Me.外埔過帳_bt.TabIndex = 1481
+        Me.外埔過帳_bt.Text = "過帳"
+        Me.外埔過帳_bt.UseVisualStyleBackColor = True
+        '
+        '外埔刪除_bt
+        '
+        Me.外埔刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.外埔刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.外埔刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.外埔刪除_bt.Location = New System.Drawing.Point(356, 584)
+        Me.外埔刪除_bt.Name = "外埔刪除_bt"
+        Me.外埔刪除_bt.Size = New System.Drawing.Size(86, 60)
+        Me.外埔刪除_bt.TabIndex = 1480
+        Me.外埔刪除_bt.Text = "刪除"
+        Me.外埔刪除_bt.UseVisualStyleBackColor = True
+        '
+        '外埔修改_bt
+        '
+        Me.外埔修改_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.外埔修改_bt.ForeColor = System.Drawing.Color.Green
+        Me.外埔修改_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.外埔修改_bt.Location = New System.Drawing.Point(270, 584)
+        Me.外埔修改_bt.Name = "外埔修改_bt"
+        Me.外埔修改_bt.Size = New System.Drawing.Size(86, 60)
+        Me.外埔修改_bt.TabIndex = 1479
+        Me.外埔修改_bt.Text = "修改"
+        Me.外埔修改_bt.UseVisualStyleBackColor = True
+        '
+        '外埔新增_bt
+        '
+        Me.外埔新增_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.外埔新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.外埔新增_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.外埔新增_bt.Location = New System.Drawing.Point(270, 524)
+        Me.外埔新增_bt.Name = "外埔新增_bt"
+        Me.外埔新增_bt.Size = New System.Drawing.Size(86, 60)
+        Me.外埔新增_bt.TabIndex = 1478
+        Me.外埔新增_bt.Text = "新增"
+        Me.外埔新增_bt.UseVisualStyleBackColor = True
+        '
+        '金額_nud
+        '
+        Me.金額_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.金額_nud.Location = New System.Drawing.Point(68, 618)
+        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(200, 23)
+        Me.金額_nud.TabIndex = 1477
+        '
+        'Label21
+        '
+        Me.Label21.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label21.AutoSize = True
+        Me.Label21.ForeColor = System.Drawing.Color.Green
+        Me.Label21.Location = New System.Drawing.Point(7, 622)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(55, 16)
+        Me.Label21.TabIndex = 1475
+        Me.Label21.Text = "差異金額"
+        '
+        '內容_tb
+        '
+        Me.內容_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.內容_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.內容_tb.Location = New System.Drawing.Point(3, 565)
+        Me.內容_tb.Multiline = True
+        Me.內容_tb.Name = "內容_tb"
+        Me.內容_tb.Size = New System.Drawing.Size(265, 50)
+        Me.內容_tb.TabIndex = 1474
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(4, 549)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(91, 16)
+        Me.Label20.TabIndex = 1473
+        Me.Label20.Text = "補充、備註內容"
+        '
+        '外埔報表_dgv
+        '
+        Me.外埔報表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.外埔報表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.外埔報表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.外埔報表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.外埔報表_dgv.Location = New System.Drawing.Point(443, 522)
+        Me.外埔報表_dgv.Name = "外埔報表_dgv"
+        Me.外埔報表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.外埔報表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.外埔報表_dgv.RowTemplate.Height = 24
+        Me.外埔報表_dgv.Size = New System.Drawing.Size(887, 120)
+        Me.外埔報表_dgv.TabIndex = 1472
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.流水號_tb)
+        Me.Panel1.Controls.Add(Me.TextBox2)
+        Me.Panel1.Controls.Add(Me.單號_tb)
+        Me.Panel1.Controls.Add(Me.日期1_dtp)
+        Me.Panel1.Controls.Add(Me.日期2_dtp)
+        Me.Panel1.Controls.Add(Me.檔名讀取_tb)
+        Me.Panel1.Controls.Add(Me.版次_tb)
+        Me.Panel1.Controls.Add(Me.單號1_tb)
+        Me.Panel1.Controls.Add(Me.供應商編碼1_tb)
+        Me.Panel1.Controls.Add(Me.料號_tb)
+        Me.Panel1.Controls.Add(Me.下載檔名_tb)
+        Me.Panel1.Controls.Add(Me.日期3_dtp)
+        Me.Panel1.Controls.Add(Me.日期4_dtp)
+        Me.Panel1.Location = New System.Drawing.Point(542, 292)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(270, 214)
+        Me.Panel1.TabIndex = 1470
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Location = New System.Drawing.Point(12, 177)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.流水號_tb.TabIndex = 1458
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(12, 3)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(122, 23)
+        Me.TextBox2.TabIndex = 1457
+        '
         'Label8
         '
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(828, 63)
+        Me.Label8.Location = New System.Drawing.Point(828, 58)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(224, 32)
+        Me.Label8.Size = New System.Drawing.Size(223, 32)
         Me.Label8.TabIndex = 1469
         Me.Label8.Text = "打勾批量勾選，點一下清單式選擇，" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "                            點兩下清單式取消選擇。"
         '
@@ -717,7 +893,7 @@ Partial Class 採購對帳單
         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(1142, 2)
+        Me.物料圖_pb.Location = New System.Drawing.Point(1145, -2)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
         Me.物料圖_pb.Size = New System.Drawing.Size(182, 107)
@@ -728,9 +904,9 @@ Partial Class 採購對帳單
         '
         Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(214, 43)
+        Me.Label7.Location = New System.Drawing.Point(217, 39)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(928, 16)
+        Me.Label7.Size = New System.Drawing.Size(927, 16)
         Me.Label7.TabIndex = 1467
         Me.Label7.Text = "_________________________________________________________________________________" &
     "________________________________________________________________________________" &
@@ -755,7 +931,7 @@ Partial Class 採購對帳單
         Me.TabPage2.Location = New System.Drawing.Point(4, 28)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(1332, 643)
+        Me.TabPage2.Size = New System.Drawing.Size(1335, 647)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "訂製資料圖片圖庫"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -777,14 +953,14 @@ Partial Class 採購對帳單
         Me.Label11.ForeColor = System.Drawing.Color.Red
         Me.Label11.Location = New System.Drawing.Point(105, 48)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(244, 32)
+        Me.Label11.Size = New System.Drawing.Size(243, 32)
         Me.Label11.TabIndex = 1398
         Me.Label11.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "檔案名稱不要帶有中文字或是符號"
         '
         'FTP資料夾_wb
         '
         Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(97, 479)
+        Me.FTP資料夾_wb.Location = New System.Drawing.Point(97, 483)
         Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
         Me.FTP資料夾_wb.Size = New System.Drawing.Size(282, 152)
@@ -798,7 +974,7 @@ Partial Class 採購對帳單
         Me.本機資料夾_wb.Location = New System.Drawing.Point(97, 82)
         Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.本機資料夾_wb.Name = "本機資料夾_wb"
-        Me.本機資料夾_wb.Size = New System.Drawing.Size(282, 348)
+        Me.本機資料夾_wb.Size = New System.Drawing.Size(282, 352)
         Me.本機資料夾_wb.TabIndex = 1394
         Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
         '
@@ -808,7 +984,7 @@ Partial Class 採購對帳單
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label4.Location = New System.Drawing.Point(98, 31)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 1396
         Me.Label4.Text = "我的電腦"
         '
@@ -817,7 +993,7 @@ Partial Class 採購對帳單
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(96, 462)
+        Me.Label12.Location = New System.Drawing.Point(96, 466)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(108, 17)
         Me.Label12.TabIndex = 1397
@@ -828,7 +1004,7 @@ Partial Class 採購對帳單
         Me.檔案名稱_tb.AllowDrop = True
         Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(148, 436)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(148, 440)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
         Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
         Me.檔案名稱_tb.TabIndex = 1399
@@ -857,8 +1033,8 @@ Partial Class 採購對帳單
         '
         '訂製圖檔_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂製圖檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂製圖檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.訂製圖檔_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.訂製圖檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -866,11 +1042,11 @@ Partial Class 採購對帳單
         Me.訂製圖檔_dgv.Location = New System.Drawing.Point(2, 54)
         Me.訂製圖檔_dgv.Name = "訂製圖檔_dgv"
         Me.訂製圖檔_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂製圖檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂製圖檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.訂製圖檔_dgv.RowTemplate.Height = 24
-        Me.訂製圖檔_dgv.Size = New System.Drawing.Size(90, 580)
+        Me.訂製圖檔_dgv.Size = New System.Drawing.Size(90, 584)
         Me.訂製圖檔_dgv.TabIndex = 1403
         '
         '大圖預覽_bt
@@ -888,9 +1064,9 @@ Partial Class 採購對帳單
         '
         Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(94, 439)
+        Me.Label5.Location = New System.Drawing.Point(94, 443)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
         Me.Label5.TabIndex = 1400
         Me.Label5.Text = "檔案名稱"
         '
@@ -905,7 +1081,7 @@ Partial Class 採購對帳單
         Me.物料圖1_pb.Location = New System.Drawing.Point(385, 2)
         Me.物料圖1_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖1_pb.Name = "物料圖1_pb"
-        Me.物料圖1_pb.Size = New System.Drawing.Size(942, 631)
+        Me.物料圖1_pb.Size = New System.Drawing.Size(945, 635)
         Me.物料圖1_pb.TabIndex = 1392
         Me.物料圖1_pb.TabStop = False
         '
@@ -924,7 +1100,7 @@ Partial Class 採購對帳單
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label18.Location = New System.Drawing.Point(489, 9)
         Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(56, 16)
+        Me.Label18.Size = New System.Drawing.Size(55, 16)
         Me.Label18.TabIndex = 1469
         Me.Label18.Text = "過帳日期"
         '
@@ -933,7 +1109,7 @@ Partial Class 採購對帳單
         Me.已確認_ch.AutoSize = True
         Me.已確認_ch.Location = New System.Drawing.Point(673, 7)
         Me.已確認_ch.Name = "已確認_ch"
-        Me.已確認_ch.Size = New System.Drawing.Size(63, 20)
+        Me.已確認_ch.Size = New System.Drawing.Size(62, 20)
         Me.已確認_ch.TabIndex = 1470
         Me.已確認_ch.Text = "已確認"
         Me.已確認_ch.UseVisualStyleBackColor = True
@@ -945,7 +1121,7 @@ Partial Class 採購對帳單
         Me.未過帳_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.未過帳_ch.Location = New System.Drawing.Point(322, 6)
         Me.未過帳_ch.Name = "未過帳_ch"
-        Me.未過帳_ch.Size = New System.Drawing.Size(63, 20)
+        Me.未過帳_ch.Size = New System.Drawing.Size(62, 20)
         Me.未過帳_ch.TabIndex = 1471
         Me.未過帳_ch.Text = "未過帳"
         Me.未過帳_ch.UseVisualStyleBackColor = True
@@ -955,7 +1131,7 @@ Partial Class 採購對帳單
         Me.已過帳_ch.AutoSize = True
         Me.已過帳_ch.Location = New System.Drawing.Point(397, 6)
         Me.已過帳_ch.Name = "已過帳_ch"
-        Me.已過帳_ch.Size = New System.Drawing.Size(63, 20)
+        Me.已過帳_ch.Size = New System.Drawing.Size(62, 20)
         Me.已過帳_ch.TabIndex = 1472
         Me.已過帳_ch.Text = "已過帳"
         Me.已過帳_ch.UseVisualStyleBackColor = True
@@ -985,6 +1161,10 @@ Partial Class 採購對帳單
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
+        CType(Me.金額_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.外埔報表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
@@ -1073,4 +1253,19 @@ Partial Class 採購對帳單
     Friend WithEvents 已確認_ch As CheckBox
     Friend WithEvents 未過帳_ch As CheckBox
     Friend WithEvents 已過帳_ch As CheckBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 外埔報表_dgv As DataGridView
+    Friend WithEvents 外埔刪除_bt As Button
+    Friend WithEvents 外埔修改_bt As Button
+    Friend WithEvents 外埔新增_bt As Button
+    Friend WithEvents 金額_nud As NumericUpDown
+    Friend WithEvents Label21 As Label
+    Friend WithEvents 內容_tb As TextBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 外埔過帳_bt As Button
+    Friend WithEvents 供應商編碼_cb As ComboBox
+    Friend WithEvents 供應商_cb As ComboBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents 流水號_tb As TextBox
 End Class

YD-ERP-SYS/採購系統管理/採購對帳單.vb

@@ -8,70 +8,66 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 採購對帳單
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5 As New DataSet
     Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字, 首次開啟 As Boolean
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Dim N2 As Integer
     Private Sub Set_清單1()
-        Try
-            採購清單_dgv.DataSource = Nothing : ds1.Clear()
-            採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            採購清單_dgv.ColumnHeadersHeight = 40
-            採購清單_dgv.AllowUserToAddRows = False
-
-            If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
-                採購清單_dgv.RowTemplate.Height = 95
-            ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
-                採購清單_dgv.RowTemplate.Height = 60
-            ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
-                採購清單_dgv.RowTemplate.Height = 25
-            End If
-
-            If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
-            PA20 = 業務1_cb.Text
-            If 未過帳_ch.Checked = True Then
-                SQL_採購控制表_未過帳()
-            Else
-                SQL_採購控制表_已過帳()
-            End If
+        採購清單_dgv.DataSource = Nothing : ds1.Clear()
+        採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        採購清單_dgv.ColumnHeadersHeight = 40
+        採購清單_dgv.AllowUserToAddRows = False
+
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
+            採購清單_dgv.RowTemplate.Height = 95
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 60
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 25
+        End If
 
-            da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
-            Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
-
-            採購清單_dgv.Columns(0).FillWeight = 40 : 採購清單_dgv.Columns(1).Visible = False : 採購清單_dgv.Columns(2).FillWeight = 70 : 採購清單_dgv.Columns(3).Visible = False
-            採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 80 : 採購清單_dgv.Columns(6).FillWeight = 200 : 採購清單_dgv.Columns(7).Visible = False
-            採購清單_dgv.Columns(8).FillWeight = 100 : 採購清單_dgv.Columns(9).Visible = False : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 160
-            採購清單_dgv.Columns(12).Visible = False : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 95 : 採購清單_dgv.Columns(15).Visible = False
-            採購清單_dgv.Columns(16).FillWeight = 195 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 45 : 採購清單_dgv.Columns(19).FillWeight = 80
-            採購清單_dgv.Columns(20).Visible = False : 採購清單_dgv.Columns(21).Visible = False : 採購清單_dgv.Columns(22).Visible = False : 採購清單_dgv.Columns(23).FillWeight = 80
-            採購清單_dgv.Columns(24).FillWeight = 80 : 採購清單_dgv.Columns(25).FillWeight = 80 : 採購清單_dgv.Columns(26).FillWeight = 80 : 採購清單_dgv.Columns(27).FillWeight = 45
-            採購清單_dgv.Columns(28).FillWeight = 45 : 採購清單_dgv.Columns(29).Visible = False
-
-            採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
-            採購清單_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
-            採購清單_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            採購清單_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-            採購清單_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            採購清單_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-            採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-            採購清單_dgv.Columns(0).ReadOnly = True : 採購清單_dgv.Columns(2).ReadOnly = True : 採購清單_dgv.Columns(21).ReadOnly = True
-            採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(6).ReadOnly = True
-            採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
-
-            採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 採購清單_dgv.Rows.Count
-            關鍵字 = False
+        If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
+        PA20 = 業務1_cb.Text
+        If 未過帳_ch.Checked = True Then
+            SQL_採購控制表_未過帳()
+        Else
+            SQL_採購控制表_已過帳()
+        End If
 
-            For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-                採購清單_dgv("選擇", i).Value = False
-            Next
-            Set_合記計算()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
+
+        採購清單_dgv.Columns(0).FillWeight = 40 : 採購清單_dgv.Columns(1).Visible = False : 採購清單_dgv.Columns(2).FillWeight = 70 : 採購清單_dgv.Columns(3).Visible = False
+        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 80 : 採購清單_dgv.Columns(6).FillWeight = 200 : 採購清單_dgv.Columns(7).Visible = False
+        採購清單_dgv.Columns(8).FillWeight = 100 : 採購清單_dgv.Columns(9).Visible = False : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 160
+        採購清單_dgv.Columns(12).Visible = False : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 95 : 採購清單_dgv.Columns(15).Visible = False
+        採購清單_dgv.Columns(16).FillWeight = 195 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 45 : 採購清單_dgv.Columns(19).FillWeight = 80
+        採購清單_dgv.Columns(20).Visible = False : 採購清單_dgv.Columns(21).Visible = False : 採購清單_dgv.Columns(22).Visible = False : 採購清單_dgv.Columns(23).FillWeight = 80
+        採購清單_dgv.Columns(24).FillWeight = 80 : 採購清單_dgv.Columns(25).FillWeight = 80 : 採購清單_dgv.Columns(26).FillWeight = 80 : 採購清單_dgv.Columns(27).FillWeight = 45
+        採購清單_dgv.Columns(28).FillWeight = 45 : 採購清單_dgv.Columns(29).Visible = False
+
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        採購清單_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        採購清單_dgv.Columns(0).ReadOnly = True : 採購清單_dgv.Columns(2).ReadOnly = True : 採購清單_dgv.Columns(21).ReadOnly = True
+        採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(6).ReadOnly = True
+        採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
+
+        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 採購清單_dgv.Rows.Count
+        關鍵字 = False
+
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            採購清單_dgv("選擇", i).Value = False
+        Next
+        Set_合記計算() : Set_清單4()
     End Sub
     Private Sub Set_採購清單_dgv_下拉式清單1()
         Dim Col As New DataGridViewComboBoxColumn With {
@@ -122,21 +118,37 @@ Public Class 採購對帳單
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub Set_清單4()
+        外埔報表_dgv.DataSource = Nothing : ds5.Clear()
+        外埔報表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        外埔報表_dgv.ColumnHeadersHeight = 25
+        外埔報表_dgv.AllowUserToAddRows = False
+        外埔報表_dgv.RowTemplate.Height = 25
+        PA = 供應商編碼1_cb.Text
+        If 未過帳_ch.Checked = True Then
+            SQL_採購控制表_外埔報表()
+        Else
+            SQL_採購控制表_外埔報表_已過()
+        End If
+
+        da.Fill(ds5) : 外埔報表_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        外埔報表_dgv.Columns(0).Visible = False : 外埔報表_dgv.Columns(1).FillWeight = 100 : 外埔報表_dgv.Columns(2).FillWeight = 250 : 外埔報表_dgv.Columns(3).FillWeight = 80
+        外埔報表_dgv.Columns(4).FillWeight = 90 : 外埔報表_dgv.Columns(5).Visible = False : 外埔報表_dgv.Columns(6).Visible = False
+        外埔報表_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        外埔報表_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
     Private Sub Set_清單5()
-        Try
-            訂製圖檔_dgv.DataSource = Nothing : ds2.Clear()
-            訂製圖檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            訂製圖檔_dgv.ColumnHeadersHeight = 25
-            訂製圖檔_dgv.AllowUserToAddRows = False
-            訂製圖檔_dgv.RowTemplate.Height = 25
+        訂製圖檔_dgv.DataSource = Nothing : ds2.Clear()
+        訂製圖檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂製圖檔_dgv.ColumnHeadersHeight = 25
+        訂製圖檔_dgv.AllowUserToAddRows = False
+        訂製圖檔_dgv.RowTemplate.Height = 25
 
-            SQL_採購控制表_訂製圖檔清單()
-            da.Fill(ds2) : 訂製圖檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        SQL_採購控制表_訂製圖檔清單()
+        da.Fill(ds2) : 訂製圖檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
 
-            訂製圖檔_dgv.Columns(0).Visible = False : 訂製圖檔_dgv.Columns(1).Visible = False : 訂製圖檔_dgv.Columns(2).FillWeight = 100
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂製圖檔_dgv.Columns(0).Visible = False : 訂製圖檔_dgv.Columns(1).Visible = False : 訂製圖檔_dgv.Columns(2).FillWeight = 100
     End Sub
     Private Sub 供應商1_下拉表單資料載入()
         BL1 = False : PA3 = "" : PA4 = ""
@@ -153,29 +165,29 @@ Public Class 採購對帳單
         SQL_業務編號_下拉清單() : 業務1_cb.Items.Clear() : 業務1_cb.Items.Clear()
         While (dr.Read()) : 業務1_cb.Items.Add(dr("業務號")) : End While : conn.Close()
     End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        SQL_採購控制表_供應商_下拉清單() : 供應商_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 採購控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            Dim type0 As Type = 採購清單_dgv.GetType()
-            Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
-            pi0.SetValue(採購清單_dgv, True, Nothing)
-            小間距_ch.Checked = True   '--------------------控件隱藏、操作許可設定與其他基本顯示設定
-            業務_cb_下拉表單資料載入()
-            首次開啟 = True : Set_清單1() : 首次開啟 = False
-            Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
-            說明_lb.Text = "注意實際進廠日，已經有日期!!" & vbCrLf & "會自動帶入過帳日期。如果需要手動修改，請記得要先存檔再按過帳。"
-
-            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : Panel1.SendToBack()
+        Dim type0 As Type = 採購清單_dgv.GetType()
+        Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
+        pi0.SetValue(採購清單_dgv, True, Nothing)
+        小間距_ch.Checked = True   '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        業務_cb_下拉表單資料載入() : 供應商_下拉表單資料載入()
+        首次開啟 = True : Set_清單1() : 首次開啟 = False
+        Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
+        說明_lb.Text = "注意實際進廠日，已經有日期!!" & vbCrLf & "會自動帶入過帳日期。如果需要手動修改，請記得要先存檔再按過帳。"
+
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
 
-            MsgBox("請先確認預設過帳日期!!")
-            已確認_ch.Checked = True
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        MsgBox("請先確認預設過帳日期!!")
+        已確認_ch.Checked = True
     End Sub
     Private Sub 一般性申請採購單_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If 首次開啟 = True Then
@@ -266,69 +278,75 @@ Public Class 採購對帳單
         Try
             If e.RowIndex = -1 Then : Else
                 項次_tb.Text = 採購清單_dgv(1, e.RowIndex).Value.ToString : 申請人_tb.Text = 採購清單_dgv("申請人", e.RowIndex).Value.ToString
-                    版次_tb.Text = 採購清單_dgv("訂製圖號", e.RowIndex).Value.ToString : 單號1_tb.Text = 採購清單_dgv("銷售單號", e.RowIndex).Value.ToString
-                    料號_tb.Text = 採購清單_dgv("料號", e.RowIndex).Value.ToString : 供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
-
-                    Set_合記計算()
-                    PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
-
-                    物料圖_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
-                    If dr.Read() Then
-                        If dr("是否有圖") = True Then
-                            物料圖_pb.BackgroundImage = Nothing
-                            PA = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
-                            While dr.Read() = True
-                                Dim unused As Byte() = New Byte(-1) {}
-                                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
-                                Dim oStream As New MemoryStream(bytes)
-                                物料圖_pb.Image = Bitmap.FromStream(oStream)
-                            End While
-                            conn.Close()
-                            物料圖_pb.SizeMode = 4
-                        Else
-                            物料圖_pb.BackgroundImage = My.Resources.底圖1 : 物料圖_pb.BackgroundImageLayout = 3
-                            物料圖_pb.Image = Nothing
-                        End If
-                    End If : conn.Close()
-                    If 批量勾選_cb.Checked = True Then
-                        If 採購清單_dgv("選擇", e.RowIndex).Value = False Then
-                            採購清單_dgv("選擇", e.RowIndex).Value = True
-                            If 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString = "" Then
-                                If 已確認_ch.Checked = False Then
-                                    PA = InputBox("請輸入指定過帳日期")
-                                Else
-                                    PA = InputBox("請輸入指定過帳日期", "", Strings.Format(日期5_dtp.Value, "yyyy/MM/dd"))
-                                End If
-                                If IsDate(PA) Then
-                                    If 已確認_ch.Checked = False Then
-                                        採購清單_dgv("過帳日期", e.RowIndex).Value = PA
-                                    Else
-                                        採購清單_dgv("過帳日期", e.RowIndex).Value = Strings.Format(日期5_dtp.Value, "yyyy/MM/dd")
-                                    End If
-                                    Dim EU As String
-                                    EU = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
-                                    If EU = "" Then : Else
-                                        日期4_dtp.Text = EU : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Strings.Format(日期4_dtp.Value, "yyyy/MM/dd")
-                                    End If
-                                Else
-                                    MsgBox("請輸入日期格式資料!!!!")
-                                    採購清單_dgv("過帳日期", e.RowIndex).Value = ""
-                                    採購清單_dgv("選擇", e.RowIndex).Value = False
-                                End If
+                版次_tb.Text = 採購清單_dgv("訂製圖號", e.RowIndex).Value.ToString : 單號1_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
+                Set_合記計算()
+                PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
+
+                物料圖_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        物料圖_pb.BackgroundImage = Nothing
+                        PA = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.BackgroundImage = My.Resources.底圖1 : 物料圖_pb.BackgroundImageLayout = 3
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+                If 批量勾選_cb.Checked = True Then
+                    If 採購清單_dgv("選擇", e.RowIndex).Value = False Then
+                        採購清單_dgv("選擇", e.RowIndex).Value = True
+                        If 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString = "" Then
+                            If 已確認_ch.Checked = False Then
+                                PA = InputBox("請輸入指定過帳日期")
                             Else
+                                PA = InputBox("請輸入指定過帳日期", "", Strings.Format(日期5_dtp.Value, "yyyy/MM/dd"))
+                            End If
+                            If IsDate(PA) Then
                                 If 已確認_ch.Checked = False Then
-                                    採購清單_dgv("過帳日期", e.RowIndex).Value = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+                                    採購清單_dgv("過帳日期", e.RowIndex).Value = PA
                                 Else
                                     採購清單_dgv("過帳日期", e.RowIndex).Value = Strings.Format(日期5_dtp.Value, "yyyy/MM/dd")
                                 End If
+                                Dim EU As String
+                                EU = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
+                                If EU = "" Then : Else
+                                    日期4_dtp.Text = EU : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Strings.Format(日期4_dtp.Value, "yyyy/MM/dd")
+                                End If
+                            Else
+                                MsgBox("請輸入日期格式資料!!!!")
+                                採購清單_dgv("過帳日期", e.RowIndex).Value = ""
+                                採購清單_dgv("選擇", e.RowIndex).Value = False
+                            End If
+                        Else
+                            If 已確認_ch.Checked = False Then
+                                採購清單_dgv("過帳日期", e.RowIndex).Value = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+                            Else
+                                採購清單_dgv("過帳日期", e.RowIndex).Value = Strings.Format(日期5_dtp.Value, "yyyy/MM/dd")
                             End If
                         End If
                     End If
                 End If
+            End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub 外埔報表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 外埔報表_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            流水號_tb.Text = 外埔報表_dgv("流水號", e.RowIndex).Value.ToString : 供應商編碼_cb.Text = 外埔報表_dgv("廠商編碼", e.RowIndex).Value.ToString
+            內容_tb.Text = 外埔報表_dgv("備註內容", e.RowIndex).Value.ToString : 金額_nud.Text = 外埔報表_dgv("金額", e.RowIndex).Value.ToString
+        End If
+    End Sub
     Private Sub 採購清單_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellDoubleClick
         If e.RowIndex = -1 Then : Else
             採購清單_dgv("選擇", e.RowIndex).Value = False
@@ -373,6 +391,15 @@ Public Class 採購對帳單
             查詢1_tb.Text = "" : 供應商1_cb.SelectedIndex = 供應商編碼1_cb.SelectedIndex : 供應商編碼1_tb.Text = 供應商編碼1_cb.Text : Set_清單1()
         End If
     End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
     Private Sub 查詢1_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢1_tb.KeyPress
         If e.KeyChar = Chr(13) Then
             供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
@@ -409,9 +436,6 @@ Public Class 採購對帳單
             Set_清單1()
         End If
     End Sub
-    Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
-        Set_清單1()
-    End Sub
     Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
         Try
             If e.Data.GetDataPresent(DataFormats.FileDrop) Then
@@ -684,6 +708,40 @@ Public Class 採購對帳單
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub 外埔新增_bt_Click(sender As Object, e As EventArgs) Handles 外埔新增_bt.Click
+        If 供應商編碼_cb.Text = "" Then
+            MsgBox("請先選擇上方單據，再新增備註內容!!")
+        Else
+            SQL_採購外埔表_最後一筆資料()
+            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+            conn.Close() : EDR += 1
+            If EDR < 10 Then : ESTR = "ES" & "00000000" & EDR
+            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ES" & "0000000" & EDR
+            ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ES" & "000000" & EDR
+            ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ES" & "00000" & EDR
+            ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ES" & "0000" & EDR
+            ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ES" & "000" & EDR
+            ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ES" & "00" & EDR
+            ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ES" & "0" & EDR
+            ElseIf EDR > 99999999 Then : ESTR = "ES" & EDR : End If
+
+            PA31 = ESTR : PA32 = "" : PA33 = 金額_nud.Value : PA34 = 內容_tb.Text : PA35 = 供應商編碼_cb.Text : PA36 = 單號1_tb.Text
+            SQL_採購外埔表_新增() : Set_清單4() : MsgBox("新增完成!!")
+        End If
+    End Sub
+    Private Sub 外埔修改_bt_Click(sender As Object, e As EventArgs) Handles 外埔修改_bt.Click
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇單據!!") : Else
+            PA33 = 金額_nud.Value : PA34 = 內容_tb.Text : PA35 = 流水號_tb.Text : SQL_採購外埔表_修改() : Set_清單4() : MsgBox("修改完成!!")
+        End If
+    End Sub
+    Private Sub 外埔刪除_bt_Click(sender As Object, e As EventArgs) Handles 外埔刪除_bt.Click
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇單據!!") : Else : PA35 = 流水號_tb.Text : SQL_採購外埔表_刪除() : Set_清單4() : MsgBox("刪除完成!!") : End If
+    End Sub
+    Private Sub 外埔過帳_bt_Click(sender As Object, e As EventArgs) Handles 外埔過帳_bt.Click
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇單據!!") : Else
+            PA32 = Strings.Format(日期5_dtp.Value, "yyyy/MM/dd") : PA35 = 流水號_tb.Text : SQL_採購外埔表_過帳() : Set_清單4() : MsgBox("修改完成!!")
+        End If
+    End Sub
     Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
         Set_清單1()
     End Sub

YD-ERP-SYS/採購系統管理/採購應付帳款.Designer.vb

@@ -28,6 +28,9 @@ 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()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
@@ -85,17 +88,15 @@ Partial Class 採購應付帳款
         Me.開單_bt = New System.Windows.Forms.Button()
         Me.轉財務系統_bt = New System.Windows.Forms.Button()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.主會科_cb = New System.Windows.Forms.ComboBox()
+        Me.主會科編號_cb = New System.Windows.Forms.ComboBox()
+        Me.副會科_cb = New System.Windows.Forms.ComboBox()
+        Me.副會科編號_cb = New System.Windows.Forms.ComboBox()
+        Me.子會科_cb = New System.Windows.Forms.ComboBox()
         Me.幣別_cb = New System.Windows.Forms.ComboBox()
-        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
+        Me.子會科編號_cb = New System.Windows.Forms.ComboBox()
         Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
         Me.申請人_tb = New System.Windows.Forms.TextBox()
-        Me.Label17 = New System.Windows.Forms.Label()
         Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.備註_ch = New System.Windows.Forms.CheckBox()
         Me.申請與採購日期_ch = New System.Windows.Forms.CheckBox()
@@ -105,11 +106,19 @@ Partial Class 採購應付帳款
         Me.Label19 = New System.Windows.Forms.Label()
         Me.日期5_dtp = New System.Windows.Forms.DateTimePicker()
         Me.指定_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.外埔報表_dgv = New System.Windows.Forms.DataGridView()
+        Me.補充備註_bt = New System.Windows.Forms.Button()
+        Me.供應商1_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.外埔報表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.供應商1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '中間日期_dtp
@@ -117,7 +126,7 @@ Partial Class 採購應付帳款
         Me.中間日期_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
         Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.中間日期_dtp.Location = New System.Drawing.Point(937, 324)
+        Me.中間日期_dtp.Location = New System.Drawing.Point(131, 5)
         Me.中間日期_dtp.Name = "中間日期_dtp"
         Me.中間日期_dtp.Size = New System.Drawing.Size(122, 23)
         Me.中間日期_dtp.TabIndex = 1175
@@ -211,6 +220,7 @@ Partial Class 採購應付帳款
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.供應商_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.供應商_dgv.BackgroundColor = System.Drawing.Color.White
         Me.供應商_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.供應商_dgv.Cursor = System.Windows.Forms.Cursors.Default
         Me.供應商_dgv.Location = New System.Drawing.Point(247, 81)
@@ -262,6 +272,7 @@ Partial Class 採購應付帳款
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.採購清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.採購清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.採購清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.採購清單_dgv.Cursor = System.Windows.Forms.Cursors.Default
         Me.採購清單_dgv.Location = New System.Drawing.Point(247, 81)
@@ -404,11 +415,10 @@ Partial Class 採購應付帳款
         '
         '日期2_dtp
         '
-        Me.日期2_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.日期2_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
         Me.日期2_dtp.Enabled = False
         Me.日期2_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.日期2_dtp.Location = New System.Drawing.Point(937, 238)
+        Me.日期2_dtp.Location = New System.Drawing.Point(1, 64)
         Me.日期2_dtp.Name = "日期2_dtp"
         Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期2_dtp.TabIndex = 1458
@@ -417,11 +427,10 @@ Partial Class 採購應付帳款
         '
         '日期1_dtp
         '
-        Me.日期1_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.日期1_dtp.Cursor = System.Windows.Forms.Cursors.WaitCursor
         Me.日期1_dtp.Enabled = False
         Me.日期1_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.日期1_dtp.Location = New System.Drawing.Point(937, 209)
+        Me.日期1_dtp.Location = New System.Drawing.Point(1, 35)
         Me.日期1_dtp.Name = "日期1_dtp"
         Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期1_dtp.TabIndex = 1457
@@ -449,7 +458,7 @@ Partial Class 採購應付帳款
         Me.採購明細_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.採購明細_bt.Location = New System.Drawing.Point(4, 585)
         Me.採購明細_bt.Name = "採購明細_bt"
-        Me.採購明細_bt.Size = New System.Drawing.Size(119, 25)
+        Me.採購明細_bt.Size = New System.Drawing.Size(77, 25)
         Me.採購明細_bt.TabIndex = 1460
         Me.採購明細_bt.Text = "採購明細"
         Me.採購明細_bt.UseVisualStyleBackColor = True
@@ -461,20 +470,19 @@ Partial Class 採購應付帳款
         Me.應負帳款_bt.Enabled = False
         Me.應負帳款_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.應負帳款_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應負帳款_bt.Location = New System.Drawing.Point(129, 585)
+        Me.應負帳款_bt.Location = New System.Drawing.Point(84, 585)
         Me.應負帳款_bt.Name = "應負帳款_bt"
-        Me.應負帳款_bt.Size = New System.Drawing.Size(112, 25)
+        Me.應負帳款_bt.Size = New System.Drawing.Size(77, 25)
         Me.應負帳款_bt.TabIndex = 1461
         Me.應負帳款_bt.Text = "應付帳款"
         Me.應負帳款_bt.UseVisualStyleBackColor = True
         '
         'DTP1
         '
-        Me.DTP1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.DTP1.Cursor = System.Windows.Forms.Cursors.WaitCursor
         Me.DTP1.Enabled = False
         Me.DTP1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DTP1.Location = New System.Drawing.Point(937, 266)
+        Me.DTP1.Location = New System.Drawing.Point(1, 92)
         Me.DTP1.Name = "DTP1"
         Me.DTP1.Size = New System.Drawing.Size(122, 23)
         Me.DTP1.TabIndex = 1462
@@ -483,11 +491,10 @@ Partial Class 採購應付帳款
         '
         'DTP2
         '
-        Me.DTP2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.DTP2.Cursor = System.Windows.Forms.Cursors.WaitCursor
         Me.DTP2.Enabled = False
         Me.DTP2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DTP2.Location = New System.Drawing.Point(937, 295)
+        Me.DTP2.Location = New System.Drawing.Point(1, 121)
         Me.DTP2.Name = "DTP2"
         Me.DTP2.Size = New System.Drawing.Size(122, 23)
         Me.DTP2.TabIndex = 1463
@@ -773,51 +780,51 @@ Partial Class 採購應付帳款
         Me.Label14.TabIndex = 1496
         Me.Label14.Text = "會計科目"
         '
-        'ComboBox5
+        '主會科_cb
         '
-        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox5.FormattingEnabled = True
-        Me.ComboBox5.Location = New System.Drawing.Point(301, 55)
-        Me.ComboBox5.Name = "ComboBox5"
-        Me.ComboBox5.Size = New System.Drawing.Size(121, 24)
-        Me.ComboBox5.TabIndex = 1497
+        Me.主會科_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.主會科_cb.FormattingEnabled = True
+        Me.主會科_cb.Location = New System.Drawing.Point(301, 55)
+        Me.主會科_cb.Name = "主會科_cb"
+        Me.主會科_cb.Size = New System.Drawing.Size(121, 24)
+        Me.主會科_cb.TabIndex = 1497
         '
-        'ComboBox2
+        '主會科編號_cb
         '
-        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox2.FormattingEnabled = True
-        Me.ComboBox2.Location = New System.Drawing.Point(425, 55)
-        Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(61, 24)
-        Me.ComboBox2.TabIndex = 1498
+        Me.主會科編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.主會科編號_cb.FormattingEnabled = True
+        Me.主會科編號_cb.Location = New System.Drawing.Point(425, 55)
+        Me.主會科編號_cb.Name = "主會科編號_cb"
+        Me.主會科編號_cb.Size = New System.Drawing.Size(61, 24)
+        Me.主會科編號_cb.TabIndex = 1498
         '
-        'ComboBox3
+        '副會科_cb
         '
-        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox3.FormattingEnabled = True
-        Me.ComboBox3.Location = New System.Drawing.Point(489, 55)
-        Me.ComboBox3.Name = "ComboBox3"
-        Me.ComboBox3.Size = New System.Drawing.Size(121, 24)
-        Me.ComboBox3.TabIndex = 1499
+        Me.副會科_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.副會科_cb.FormattingEnabled = True
+        Me.副會科_cb.Location = New System.Drawing.Point(489, 55)
+        Me.副會科_cb.Name = "副會科_cb"
+        Me.副會科_cb.Size = New System.Drawing.Size(121, 24)
+        Me.副會科_cb.TabIndex = 1499
         '
-        'ComboBox4
+        '副會科編號_cb
         '
-        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox4.FormattingEnabled = True
-        Me.ComboBox4.Location = New System.Drawing.Point(613, 55)
-        Me.ComboBox4.Name = "ComboBox4"
-        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
-        Me.ComboBox4.TabIndex = 1500
+        Me.副會科編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.副會科編號_cb.FormattingEnabled = True
+        Me.副會科編號_cb.Location = New System.Drawing.Point(613, 55)
+        Me.副會科編號_cb.Name = "副會科編號_cb"
+        Me.副會科編號_cb.Size = New System.Drawing.Size(78, 24)
+        Me.副會科編號_cb.TabIndex = 1500
         '
-        'ComboBox1
+        '子會科_cb
         '
-        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(694, 55)
-        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(188, 24)
-        Me.ComboBox1.TabIndex = 1501
+        Me.子會科_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.子會科_cb.FormattingEnabled = True
+        Me.子會科_cb.Location = New System.Drawing.Point(694, 55)
+        Me.子會科_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.子會科_cb.Name = "子會科_cb"
+        Me.子會科_cb.Size = New System.Drawing.Size(188, 24)
+        Me.子會科_cb.TabIndex = 1501
         '
         '幣別_cb
         '
@@ -830,19 +837,19 @@ Partial Class 採購應付帳款
         Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
         Me.幣別_cb.TabIndex = 1502
         '
-        'ComboBox6
+        '子會科編號_cb
         '
-        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox6.FormattingEnabled = True
-        Me.ComboBox6.Location = New System.Drawing.Point(937, 149)
-        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox6.Name = "ComboBox6"
-        Me.ComboBox6.Size = New System.Drawing.Size(122, 24)
-        Me.ComboBox6.TabIndex = 1508
+        Me.子會科編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.子會科編號_cb.FormattingEnabled = True
+        Me.子會科編號_cb.Location = New System.Drawing.Point(3, 4)
+        Me.子會科編號_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.子會科編號_cb.Name = "子會科編號_cb"
+        Me.子會科編號_cb.Size = New System.Drawing.Size(122, 24)
+        Me.子會科編號_cb.TabIndex = 1508
         '
         '營運成本收支單號_tb
         '
-        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(937, 355)
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(131, 35)
         Me.營運成本收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
         Me.營運成本收支單號_tb.Size = New System.Drawing.Size(122, 23)
@@ -850,19 +857,9 @@ Partial Class 採購應付帳款
         Me.營運成本收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         Me.營運成本收支單號_tb.Visible = False
         '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(827, 359)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(103, 16)
-        Me.Label15.TabIndex = 1510
-        Me.Label15.Text = "營運成本收支單號"
-        Me.Label15.Visible = False
-        '
         '申請人_tb
         '
-        Me.申請人_tb.Location = New System.Drawing.Point(937, 385)
+        Me.申請人_tb.Location = New System.Drawing.Point(131, 64)
         Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(122, 23)
@@ -870,16 +867,6 @@ Partial Class 採購應付帳款
         Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         Me.申請人_tb.Visible = False
         '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(887, 389)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(43, 16)
-        Me.Label17.TabIndex = 1512
-        Me.Label17.Text = "申請人"
-        Me.Label17.Visible = False
-        '
         '日期_dtp
         '
         Me.日期_dtp.Cursor = System.Windows.Forms.Cursors.Default
@@ -922,10 +909,9 @@ Partial Class 採購應付帳款
         '
         '日期3_dtp
         '
-        Me.日期3_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.日期3_dtp.Cursor = System.Windows.Forms.Cursors.Default
         Me.日期3_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.日期3_dtp.Location = New System.Drawing.Point(937, 415)
+        Me.日期3_dtp.Location = New System.Drawing.Point(133, 92)
         Me.日期3_dtp.Name = "日期3_dtp"
         Me.日期3_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期3_dtp.TabIndex = 1517
@@ -972,32 +958,108 @@ Partial Class 採購應付帳款
         Me.指定_bt.Text = "指定"
         Me.指定_bt.UseVisualStyleBackColor = True
         '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.流水號_tb)
+        Me.Panel1.Controls.Add(Me.子會科編號_cb)
+        Me.Panel1.Controls.Add(Me.日期1_dtp)
+        Me.Panel1.Controls.Add(Me.中間日期_dtp)
+        Me.Panel1.Controls.Add(Me.日期2_dtp)
+        Me.Panel1.Controls.Add(Me.DTP1)
+        Me.Panel1.Controls.Add(Me.日期3_dtp)
+        Me.Panel1.Controls.Add(Me.DTP2)
+        Me.Panel1.Controls.Add(Me.營運成本收支單號_tb)
+        Me.Panel1.Controls.Add(Me.申請人_tb)
+        Me.Panel1.Location = New System.Drawing.Point(423, 193)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(268, 154)
+        Me.Panel1.TabIndex = 1522
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Location = New System.Drawing.Point(131, 121)
+        Me.流水號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.流水號_tb.TabIndex = 1518
+        Me.流水號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.流水號_tb.Visible = False
+        '
+        '外埔報表_dgv
+        '
+        Me.外埔報表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.外埔報表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.外埔報表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.外埔報表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.外埔報表_dgv.Location = New System.Drawing.Point(247, 81)
+        Me.外埔報表_dgv.Name = "外埔報表_dgv"
+        Me.外埔報表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.外埔報表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.外埔報表_dgv.RowTemplate.Height = 24
+        Me.外埔報表_dgv.Size = New System.Drawing.Size(1092, 607)
+        Me.外埔報表_dgv.TabIndex = 1523
+        '
+        '補充備註_bt
+        '
+        Me.補充備註_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.補充備註_bt.Cursor = System.Windows.Forms.Cursors.Default
+        Me.補充備註_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.補充備註_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.補充備註_bt.Location = New System.Drawing.Point(164, 585)
+        Me.補充備註_bt.Name = "補充備註_bt"
+        Me.補充備註_bt.Size = New System.Drawing.Size(77, 25)
+        Me.補充備註_bt.TabIndex = 1524
+        Me.補充備註_bt.Text = "補充、備註"
+        Me.補充備註_bt.UseVisualStyleBackColor = True
+        '
+        '供應商1_dgv
+        '
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.Lavender
+        Me.供應商1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.供應商1_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.供應商1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.供應商1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.供應商1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.供應商1_dgv.Cursor = System.Windows.Forms.Cursors.Default
+        Me.供應商1_dgv.Location = New System.Drawing.Point(247, 81)
+        Me.供應商1_dgv.Name = "供應商1_dgv"
+        Me.供應商1_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.供應商1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.供應商1_dgv.RowTemplate.Height = 24
+        Me.供應商1_dgv.Size = New System.Drawing.Size(1092, 607)
+        Me.供應商1_dgv.TabIndex = 1525
+        '
         '採購應付帳款
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 691)
+        Me.Controls.Add(Me.補充備註_bt)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.指定_bt)
         Me.Controls.Add(Me.Label19)
         Me.Controls.Add(Me.日期5_dtp)
         Me.Controls.Add(Me.明細表存檔_bt)
-        Me.Controls.Add(Me.日期3_dtp)
         Me.Controls.Add(Me.Label18)
         Me.Controls.Add(Me.申請與採購日期_ch)
         Me.Controls.Add(Me.備註_ch)
         Me.Controls.Add(Me.物料圖1_pb)
         Me.Controls.Add(Me.日期_dtp)
-        Me.Controls.Add(Me.Label17)
-        Me.Controls.Add(Me.申請人_tb)
-        Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.營運成本收支單號_tb)
-        Me.Controls.Add(Me.ComboBox6)
         Me.Controls.Add(Me.幣別_cb)
-        Me.Controls.Add(Me.ComboBox1)
-        Me.Controls.Add(Me.ComboBox4)
-        Me.Controls.Add(Me.ComboBox3)
-        Me.Controls.Add(Me.ComboBox2)
-        Me.Controls.Add(Me.ComboBox5)
+        Me.Controls.Add(Me.子會科_cb)
+        Me.Controls.Add(Me.副會科編號_cb)
+        Me.Controls.Add(Me.副會科_cb)
+        Me.Controls.Add(Me.主會科編號_cb)
+        Me.Controls.Add(Me.主會科_cb)
         Me.Controls.Add(Me.Label14)
         Me.Controls.Add(Me.轉財務系統_bt)
         Me.Controls.Add(Me.開單_bt)
@@ -1021,13 +1083,9 @@ Partial Class 採購應付帳款
         Me.Controls.Add(Me.存檔_bt)
         Me.Controls.Add(Me.重新讀取_bt)
         Me.Controls.Add(Me.開啟供應商資料表_bt)
-        Me.Controls.Add(Me.DTP2)
-        Me.Controls.Add(Me.DTP1)
         Me.Controls.Add(Me.採購明細_bt)
         Me.Controls.Add(Me.應負帳款_bt)
         Me.Controls.Add(Me.上個月_bt)
-        Me.Controls.Add(Me.日期2_dtp)
-        Me.Controls.Add(Me.日期1_dtp)
         Me.Controls.Add(Me.採購金額1_tb)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.供應商_tb)
@@ -1043,16 +1101,17 @@ Partial Class 採購應付帳款
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.資料筆數1_tb)
         Me.Controls.Add(Me.Label10)
-        Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.一般月_ch)
         Me.Controls.Add(Me.會計月_ch)
         Me.Controls.Add(Me.下個月_bt)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.結束日期_dtp)
         Me.Controls.Add(Me.開始日期_dtp)
-        Me.Controls.Add(Me.供應商_dgv)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.提示_lb)
+        Me.Controls.Add(Me.供應商1_dgv)
+        Me.Controls.Add(Me.供應商_dgv)
+        Me.Controls.Add(Me.外埔報表_dgv)
         Me.Controls.Add(Me.採購清單_dgv)
         Me.Cursor = System.Windows.Forms.Cursors.Default
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -1064,6 +1123,10 @@ Partial Class 採購應付帳款
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.外埔報表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.供應商1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1126,17 +1189,15 @@ Partial Class 採購應付帳款
     Friend WithEvents 開單_bt As Button
     Friend WithEvents 轉財務系統_bt As Button
     Friend WithEvents Label14 As Label
-    Friend WithEvents ComboBox5 As ComboBox
-    Friend WithEvents ComboBox2 As ComboBox
-    Friend WithEvents ComboBox3 As ComboBox
-    Friend WithEvents ComboBox4 As ComboBox
-    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents 主會科_cb As ComboBox
+    Friend WithEvents 主會科編號_cb As ComboBox
+    Friend WithEvents 副會科_cb As ComboBox
+    Friend WithEvents 副會科編號_cb As ComboBox
+    Friend WithEvents 子會科_cb As ComboBox
     Friend WithEvents 幣別_cb As ComboBox
-    Friend WithEvents ComboBox6 As ComboBox
+    Friend WithEvents 子會科編號_cb As ComboBox
     Friend WithEvents 營運成本收支單號_tb As TextBox
-    Friend WithEvents Label15 As Label
     Friend WithEvents 申請人_tb As TextBox
-    Friend WithEvents Label17 As Label
     Friend WithEvents 日期_dtp As DateTimePicker
     Friend WithEvents 備註_ch As CheckBox
     Friend WithEvents 申請與採購日期_ch As CheckBox
@@ -1146,4 +1207,9 @@ Partial Class 採購應付帳款
     Friend WithEvents Label19 As Label
     Friend WithEvents 日期5_dtp As DateTimePicker
     Friend WithEvents 指定_bt As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 外埔報表_dgv As DataGridView
+    Friend WithEvents 補充備註_bt As Button
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents 供應商1_dgv As DataGridView
 End Class