過度版本

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

@@ -7,26 +7,26 @@
         If 供應商資料表.查詢_tb.Text = "" Then
             If 供應商資料表.地區編碼_cb.Text = "" Then
                 SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
-                               KR1, KR2, KR3, PEC, 停用
+                               KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率
                         FROM   供應商資料表
                         ORDER BY   編號"
             ElseIf 供應商資料表.地區編碼_cb.Text <> "9" And 供應商資料表.地區編碼_cb.Text <> "" Then
                 SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
-                               KR1, KR2, KR3, PEC, 停用
+                               KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率
                         FROM   供應商資料表
                         WHERE  (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') " & SQL2 & " 
                                (公司地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 店面地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 工廠地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%') 
                         ORDER BY   編號"
             ElseIf (物料檔案.地區編碼_cb.Text <> "9" Or 物料檔案.地區編碼_cb.Text = "Y") Or 供應商資料表.地區編碼_cb.Text = "Y" Then
                 SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
-                               KR1, KR2, KR3, PEC, 停用
+                               KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率
                         FROM   供應商資料表
                         WHERE  (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') ORDER BY   編號"
             End If
         Else
             If 供應商資料表.地區編碼_cb.Text = "" Then
                 SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
-                               KR1, KR2, KR3, PEC, 停用
+                               KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率
                         FROM   供應商資料表
                         WHERE (供應商 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 電話2 LIKE N'%" & PA & "%' OR 電話3 LIKE N'%" & PA & "%' OR 
                                電話4 LIKE N'%" & PA & "%' OR 店面地址 LIKE N'%" & PA & "%' OR 店面電話 LIKE N'%" & PA & "%' OR 簡稱 LIKE N'%" & PA & "%' OR 工廠地址 LIKE N'%" & PA & "%' OR 
@@ -35,7 +35,7 @@
                         ORDER BY   編號"
             ElseIf (物料檔案.地區編碼_cb.Text <> "9" Or 物料檔案.地區編碼_cb.Text = "Y") And 供應商資料表.地區編碼_cb.Text <> "" Then
                 SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
-                               KR1, KR2, KR3, PEC, 停用
+                               KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率
                         FROM   供應商資料表
                         WHERE (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') " & SQL2 & " 
                               (公司地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 店面地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 工廠地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%') AND 
@@ -46,7 +46,7 @@
                         ORDER BY   編號"
             ElseIf 供應商資料表.地區編碼_cb.Text = "9" Or 供應商資料表.地區編碼_cb.Text = "Y" Then
                 SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
-                               KR1, KR2, KR3, PEC, 停用
+                               KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率
                         FROM   供應商資料表
                         WHERE (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') AND 
                               (供應商 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 
@@ -100,13 +100,22 @@
     '---------------------採購對帳單-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_採購對帳單_總表()
         ConnOpen()
-        SQL1 = "SELECT      LEFT(採購控制表.料號, 4) AS 編號, 供應商資料表.簡稱 AS 供應商, SUM(採購控制表.數量 * 採購控制表.成本) AS 當月貨款
-                FROM        採購控制表 INNER JOIN
-                            供應商資料表 ON LEFT(採購控制表.料號, 4) = 供應商資料表.編號
-                WHERE      (採購控制表.預計進廠日 NOT LIKE '') AND 
-                           (採購控制表.預計進廠日 BETWEEN '" & Format(採購對帳單.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購對帳單.結束日期_dtp.Value, "yyyy/MM/dd") & "')
-                GROUP BY    LEFT(採購控制表.料號, 4), 供應商資料表.簡稱
-                ORDER BY    編號"
+        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   編號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_採購對帳單_明細()
@@ -115,16 +124,15 @@
                             採購控制表.料號, 物料資料庫.品名, 採購控制表.倉儲狀態, 倉儲分區控制表.倉名, 採購控制表.訂製狀態, 
                             物料訂製狀態.訂製, 採購控制表.物料狀態, 倉儲狀態.狀態, 採購控制表.備註, 採購控制表.訂製圖號, 採購控制表.數量, 
                             採購控制表.成本, 採購控制表.採購總價 AS 金額, 採購控制表.申請人, 採購控制表.申請日期, 採購控制表.採購日期, 
-                            採購控制表.預計進廠日, 採購控制表.實際進廠日, 採購控制表.已入庫, 採購控制表.已審核
+                            採購控制表.預計進廠日, 採購控制表.實際進廠日, 採購控制表.過帳日期, 採購控制表.已入庫, 採購控制表.已審核
                 FROM        採購控制表 INNER JOIN
                             供應商資料表 ON 採購控制表.供商編號 = 供應商資料表.編號 INNER JOIN
                             物料資料庫 ON 採購控制表.料號 = 物料資料庫.料號 INNER JOIN
                             倉儲狀態 ON 採購控制表.物料狀態 = 倉儲狀態.編碼 INNER JOIN
                             物料訂製狀態 ON 採購控制表.訂製狀態 = 物料訂製狀態.編碼 INNER JOIN
                             倉儲分區控制表 ON 採購控制表.倉儲狀態 = 倉儲分區控制表.倉名編號
-                WHERE      (採購控制表.預計進廠日 NOT LIKE '') AND 
-                           (採購控制表.預計進廠日 BETWEEN '" & Format(採購對帳單.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購對帳單.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
-                           (採購控制表.已審核 = 1)
+                WHERE      (採購控制表.過帳日期 BETWEEN '" & Format(採購對帳單.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(採購對帳單.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                           (採購控制表.已過帳 = 1)
                 ORDER BY    採購控制表.供商編號, 採購控制表.料號"
         CmdSet_For_DGV()
     End Sub

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

@@ -378,7 +378,21 @@
     Friend Sub SQL_送貨地點_下拉清單()
         ConnOpen() : SQL1 = "SELECT 地區, 起車, 最低售額 FROM 送貨起車參數 ORDER BY 起車" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_採購控制表()
+    Friend Sub SQL_採購控制表_未過帳()
+        ConnOpen()
+        SQL1 = "SELECT      採購控制表.已過帳 AS 選擇, 採購控制表.資料流水號, 採購控制表.銷售單號, 採購控制表.供商編號, 供應商資料表.簡稱 AS 供應商, 採購控制表.料號, 物料資料庫.品名, 
+                            採購控制表.倉儲狀態, 倉儲分區控制表.倉名 AS 倉名, 採購控制表.訂製狀態, 物料訂製狀態.訂製, 採購控制表.物料狀態, 倉儲狀態.狀態 AS 狀態, 採購控制表.備註, 
+                            採購控制表.訂製圖號, 採購控制表.數量, 採購控制表.成本, 採購控制表.採購總價 AS 金額, 採購控制表.申請人, 採購控制表.申請日期, 採購控制表.採購日期, 採購控制表.預計進廠日, 
+                            採購控制表.實際進廠日, 採購控制表.過帳日期, 採購控制表.已入庫, 採購控制表.已審核
+                FROM        採購控制表 INNER JOIN 供應商資料表 ON 採購控制表.供商編號 = 供應商資料表.編號 INNER JOIN 物料資料庫 ON 採購控制表.料號 = 物料資料庫.料號 INNER JOIN 倉儲狀態 ON 
+                            採購控制表.物料狀態 = 倉儲狀態.編碼 INNER JOIN 物料訂製狀態 ON 採購控制表.訂製狀態 = 物料訂製狀態.編碼 INNER JOIN 倉儲分區控制表 ON 採購控制表.倉儲狀態 = 
+                            倉儲分區控制表.倉名編號
+                WHERE      (採購控制表.已過帳 IS NULL) OR (採購控制表.已過帳 = 0) AND (採購控制表.供商編號 LIKE N'%" & PA & "%' OR 供應商資料表.簡稱 LIKE N'%" & PA & "%') AND 
+                           (採購控制表.銷售單號 LIKE N'" & PA20 & "%')
+                ORDER BY    採購控制表.供商編號, 採購控制表.料號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_採購控制表_未出庫()
         ConnOpen()
         SQL1 = "SELECT      採購控制表.資料流水號, 採購控制表.銷售單號, 採購控制表.供商編號, 供應商資料表.簡稱 AS 供應商, 採購控制表.料號, 物料資料庫.品名, 採購控制表.倉儲狀態, 
                             倉儲分區控制表.倉名 AS 倉名, 採購控制表.訂製狀態, 物料訂製狀態.訂製, 採購控制表.物料狀態, 倉儲狀態.狀態 AS 狀態, 採購控制表.備註, 
@@ -448,6 +462,11 @@
                                       成本 = '" & NU2 & "', 採購總價 = '" & NU3 & "', 採購日期 = N'" & PA5 & "', 預計進廠日 = N'" & PA6 & "' WHERE 資料流水號 LIKE '" & PA & "%'"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_採購控制表_過帳()
+        ConnOpen()
+        SQL1 = "UPDATE 採購控制表 SET 已過帳 = '" & PA2 & "', 過帳日期 = N'" & PA1 & "' WHERE 資料流水號 LIKE '" & PA & "%'"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_帳號讀取()
         ConnOpen() : SQL1 = "SELECT 帳號, 姓名 FROM 使用者權限管理表" : CmdSet_For_dr()
     End Sub

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

@@ -332,7 +332,7 @@ Public Class 倉儲出庫
             交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
             送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("送貨地點").Value.ToString
             運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value
-            業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
+            '業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
             Set_清單4() : Set_清單5()
             Set_清單6()
             PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()

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

@@ -71,7 +71,7 @@ Public Class 一般性申請採購單
 
         If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
         PA20 = 業務1_cb.Text
-        SQL_採購控制表()
+        SQL_採購控制表_未出庫()
         da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
         Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
 

YD-ERP-SYS/採購系統管理/供應商資料表.vb

@@ -20,8 +20,8 @@ Public Class 供應商資料表
         供應商_dgv.Columns("POS").Visible = False : 供應商_dgv.Columns("備註1").Visible = False : 供應商_dgv.Columns("備註2").Visible = False
         供應商_dgv.Columns("登入日期").Visible = False : 供應商_dgv.Columns("結算日").Visible = False : 供應商_dgv.Columns("KR1").Visible = False
         供應商_dgv.Columns("KR2").Visible = False : 供應商_dgv.Columns("KR3").Visible = False : 供應商_dgv.Columns("PEC").Visible = False
-        供應商_dgv.Columns("停用").FillWeight = 20 : 供應商_dgv.Columns("票期").Visible = False : 供應商_dgv.Columns("支票_私人").Visible = False
-        供應商_dgv.Columns("支票_公司").Visible = False : 供應商_dgv.Columns("稅金倍率").Visible = False : 供應商_dgv.Columns("廣告費倍率").Visible = False
+        供應商_dgv.Columns("停用").FillWeight = 20 : 供應商_dgv.Columns("票期").FillWeight = 20 : 供應商_dgv.Columns("支票_私人").FillWeight = 20
+        供應商_dgv.Columns("支票_公司").FillWeight = 50 : 供應商_dgv.Columns("稅金倍率").FillWeight = 20 : 供應商_dgv.Columns("廣告費倍率").FillWeight = 20
         資料筆數_tb.Text = 供應商_dgv.Rows.Count
     End Sub
     Private Sub 地區碼_下拉表單資料載入()
@@ -169,5 +169,4 @@ Public Class 供應商資料表
     Private Sub 刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除ToolStripMenuItem.Click
         刪除_bt.PerformClick()
     End Sub
-
 End Class

YD-ERP-SYS/採購系統管理/依銷售申請採購單.vb

@@ -32,7 +32,7 @@ Public Class 依銷售申請採購單
 
         If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
         PA20 = 業務1_cb.Text
-        SQL_採購控制表()
+        SQL_採購控制表_未出庫()
         da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
         Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
 

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

@@ -22,10 +22,10 @@ Partial Class 採購對帳單
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
@@ -54,6 +54,13 @@ Partial Class 採購對帳單
         Me.日期2_dtp = New System.Windows.Forms.DateTimePicker()
         Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
         Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
+        Me.採購明細_bt = New System.Windows.Forms.Button()
+        Me.應負帳款_bt = New System.Windows.Forms.Button()
+        Me.DTP1 = New System.Windows.Forms.DateTimePicker()
+        Me.DTP2 = New System.Windows.Forms.DateTimePicker()
+        Me.開啟供應商資料表_bt = New System.Windows.Forms.Button()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -63,7 +70,7 @@ Partial Class 採購對帳單
         '
         Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.中間日期_dtp.Location = New System.Drawing.Point(69, 78)
+        Me.中間日期_dtp.Location = New System.Drawing.Point(888, 209)
         Me.中間日期_dtp.Name = "中間日期_dtp"
         Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
         Me.中間日期_dtp.TabIndex = 1175
@@ -72,7 +79,7 @@ Partial Class 採購對帳單
         '一般月_ch
         '
         Me.一般月_ch.AutoSize = True
-        Me.一般月_ch.Location = New System.Drawing.Point(61, 31)
+        Me.一般月_ch.Location = New System.Drawing.Point(143, 34)
         Me.一般月_ch.Name = "一般月_ch"
         Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
         Me.一般月_ch.TabIndex = 1174
@@ -84,7 +91,7 @@ Partial Class 採購對帳單
         Me.會計月_ch.AutoSize = True
         Me.會計月_ch.Checked = True
         Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月_ch.Location = New System.Drawing.Point(3, 31)
+        Me.會計月_ch.Location = New System.Drawing.Point(8, 34)
         Me.會計月_ch.Name = "會計月_ch"
         Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
         Me.會計月_ch.TabIndex = 1173
@@ -95,9 +102,9 @@ 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(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下個月_bt.Location = New System.Drawing.Point(182, 29)
+        Me.下個月_bt.Location = New System.Drawing.Point(129, 55)
         Me.下個月_bt.Name = "下個月_bt"
-        Me.下個月_bt.Size = New System.Drawing.Size(61, 23)
+        Me.下個月_bt.Size = New System.Drawing.Size(115, 23)
         Me.下個月_bt.TabIndex = 1172
         Me.下個月_bt.Text = "下個月"
         Me.下個月_bt.UseVisualStyleBackColor = True
@@ -106,9 +113,9 @@ 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(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.上個月_bt.Location = New System.Drawing.Point(120, 29)
+        Me.上個月_bt.Location = New System.Drawing.Point(8, 55)
         Me.上個月_bt.Name = "上個月_bt"
-        Me.上個月_bt.Size = New System.Drawing.Size(61, 23)
+        Me.上個月_bt.Size = New System.Drawing.Size(115, 23)
         Me.上個月_bt.TabIndex = 1171
         Me.上個月_bt.Text = "上個月"
         Me.上個月_bt.UseVisualStyleBackColor = True
@@ -116,7 +123,7 @@ Partial Class 採購對帳單
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(92, 8)
+        Me.Label4.Location = New System.Drawing.Point(114, 11)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 1170
@@ -125,43 +132,46 @@ Partial Class 採購對帳單
         '結束日期_dtp
         '
         Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.結束日期_dtp.Enabled = False
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.結束日期_dtp.Location = New System.Drawing.Point(114, 4)
+        Me.結束日期_dtp.Location = New System.Drawing.Point(136, 7)
         Me.結束日期_dtp.Name = "結束日期_dtp"
-        Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.結束日期_dtp.Size = New System.Drawing.Size(105, 23)
         Me.結束日期_dtp.TabIndex = 1169
         '
         '開始日期_dtp
         '
+        Me.開始日期_dtp.Enabled = False
         Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.開始日期_dtp.Location = New System.Drawing.Point(3, 4)
+        Me.開始日期_dtp.Location = New System.Drawing.Point(8, 7)
         Me.開始日期_dtp.Name = "開始日期_dtp"
-        Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.開始日期_dtp.Size = New System.Drawing.Size(105, 23)
         Me.開始日期_dtp.TabIndex = 1168
         '
         '供應商_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        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)
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.供應商_dgv.Location = New System.Drawing.Point(3, 237)
+        Me.供應商_dgv.Location = New System.Drawing.Point(247, 7)
         Me.供應商_dgv.Name = "供應商_dgv"
         Me.供應商_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 12.0!, 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(238, 438)
+        Me.供應商_dgv.Size = New System.Drawing.Size(1092, 637)
         Me.供應商_dgv.TabIndex = 1439
         '
         'Label9
         '
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(197, 211)
+        Me.Label9.Location = New System.Drawing.Point(197, 381)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(44, 16)
         Me.Label9.TabIndex = 1442
@@ -169,9 +179,9 @@ Partial Class 採購對帳單
         '
         '資料筆數1_tb
         '
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(155, 208)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(91, 378)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
-        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(103, 23)
         Me.資料筆數1_tb.TabIndex = 1441
         Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -179,36 +189,37 @@ Partial Class 採購對帳單
         '
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(133, 211)
+        Me.Label10.Location = New System.Drawing.Point(6, 381)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.Size = New System.Drawing.Size(80, 16)
         Me.Label10.TabIndex = 1440
-        Me.Label10.Text = "共"
+        Me.Label10.Text = "應付賬款，共"
         '
         '採購清單_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, 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) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.採購清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.採購清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.採購清單_dgv.Location = New System.Drawing.Point(247, 29)
+        Me.採購清單_dgv.Location = New System.Drawing.Point(247, 7)
         Me.採購清單_dgv.Name = "採購清單_dgv"
         Me.採購清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        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(1092, 646)
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 637)
         Me.採購清單_dgv.TabIndex = 1443
+        Me.採購清單_dgv.Visible = False
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label1.Location = New System.Drawing.Point(1036, 6)
+        Me.Label1.Location = New System.Drawing.Point(197, 352)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(44, 16)
         Me.Label1.TabIndex = 1446
@@ -216,9 +227,9 @@ Partial Class 採購對帳單
         '
         '資料筆數_tb
         '
-        Me.資料筆數_tb.Location = New System.Drawing.Point(994, 3)
+        Me.資料筆數_tb.Location = New System.Drawing.Point(91, 349)
         Me.資料筆數_tb.Name = "資料筆數_tb"
-        Me.資料筆數_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數_tb.Size = New System.Drawing.Size(103, 23)
         Me.資料筆數_tb.TabIndex = 1445
         Me.資料筆數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -226,16 +237,16 @@ Partial Class 採購對帳單
         '
         Me.Label2.AutoSize = True
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label2.Location = New System.Drawing.Point(972, 6)
+        Me.Label2.Location = New System.Drawing.Point(5, 352)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(20, 16)
+        Me.Label2.Size = New System.Drawing.Size(80, 16)
         Me.Label2.TabIndex = 1444
-        Me.Label2.Text = "共"
+        Me.Label2.Text = "採購明細，共"
         '
         '大間距_ch
         '
         Me.大間距_ch.AutoSize = True
-        Me.大間距_ch.Location = New System.Drawing.Point(385, 5)
+        Me.大間距_ch.Location = New System.Drawing.Point(142, 238)
         Me.大間距_ch.Name = "大間距_ch"
         Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
         Me.大間距_ch.TabIndex = 1449
@@ -245,7 +256,7 @@ Partial Class 採購對帳單
         '中間距_ch
         '
         Me.中間距_ch.AutoSize = True
-        Me.中間距_ch.Location = New System.Drawing.Point(316, 5)
+        Me.中間距_ch.Location = New System.Drawing.Point(73, 238)
         Me.中間距_ch.Name = "中間距_ch"
         Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
         Me.中間距_ch.TabIndex = 1448
@@ -255,7 +266,7 @@ Partial Class 採購對帳單
         '小間距_ch
         '
         Me.小間距_ch.AutoSize = True
-        Me.小間距_ch.Location = New System.Drawing.Point(247, 5)
+        Me.小間距_ch.Location = New System.Drawing.Point(4, 238)
         Me.小間距_ch.Name = "小間距_ch"
         Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
         Me.小間距_ch.TabIndex = 1447
@@ -265,9 +276,9 @@ Partial Class 採購對帳單
         '採購金額1_tb
         '
         Me.採購金額1_tb.ForeColor = System.Drawing.Color.Green
-        Me.採購金額1_tb.Location = New System.Drawing.Point(849, 3)
+        Me.採購金額1_tb.Location = New System.Drawing.Point(72, 321)
         Me.採購金額1_tb.Name = "採購金額1_tb"
-        Me.採購金額1_tb.Size = New System.Drawing.Size(117, 23)
+        Me.採購金額1_tb.Size = New System.Drawing.Size(169, 23)
         Me.採購金額1_tb.TabIndex = 1456
         Me.採購金額1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -275,18 +286,18 @@ Partial Class 採購對帳單
         '
         Me.Label6.AutoSize = True
         Me.Label6.ForeColor = System.Drawing.Color.Green
-        Me.Label6.Location = New System.Drawing.Point(782, 6)
+        Me.Label6.Location = New System.Drawing.Point(5, 324)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(68, 16)
         Me.Label6.TabIndex = 1455
-        Me.Label6.Text = "採購金額"
+        Me.Label6.Text = "採 購  金 額"
         '
         '供應商_tb
         '
         Me.供應商_tb.ForeColor = System.Drawing.Color.Green
-        Me.供應商_tb.Location = New System.Drawing.Point(688, 3)
+        Me.供應商_tb.Location = New System.Drawing.Point(72, 292)
         Me.供應商_tb.Name = "供應商_tb"
-        Me.供應商_tb.Size = New System.Drawing.Size(88, 23)
+        Me.供應商_tb.Size = New System.Drawing.Size(169, 23)
         Me.供應商_tb.TabIndex = 1454
         Me.供應商_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -294,18 +305,18 @@ Partial Class 採購對帳單
         '
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.Green
-        Me.Label3.Location = New System.Drawing.Point(644, 6)
+        Me.Label3.Location = New System.Drawing.Point(4, 295)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(68, 16)
         Me.Label3.TabIndex = 1453
-        Me.Label3.Text = "供應商"
+        Me.Label3.Text = "供    應    商"
         '
         '採購金額_tb
         '
         Me.採購金額_tb.ForeColor = System.Drawing.Color.Blue
-        Me.採購金額_tb.Location = New System.Drawing.Point(521, 3)
+        Me.採購金額_tb.Location = New System.Drawing.Point(72, 263)
         Me.採購金額_tb.Name = "採購金額_tb"
-        Me.採購金額_tb.Size = New System.Drawing.Size(117, 23)
+        Me.採購金額_tb.Size = New System.Drawing.Size(169, 23)
         Me.採購金額_tb.TabIndex = 1452
         Me.採購金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -313,7 +324,7 @@ Partial Class 採購對帳單
         '
         Me.Label16.AutoSize = True
         Me.Label16.ForeColor = System.Drawing.Color.Blue
-        Me.Label16.Location = New System.Drawing.Point(454, 6)
+        Me.Label16.Location = New System.Drawing.Point(5, 266)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(68, 16)
         Me.Label16.TabIndex = 1451
@@ -323,6 +334,7 @@ Partial Class 採購對帳單
         '
         Me.日期2_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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.Name = "日期2_dtp"
         Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
@@ -333,6 +345,7 @@ Partial Class 採購對帳單
         '
         Me.日期1_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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.Name = "日期1_dtp"
         Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
@@ -343,18 +356,105 @@ Partial Class 採購對帳單
         '
         Me.物料圖1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖1_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖1_pb.Location = New System.Drawing.Point(3, 54)
+        Me.物料圖1_pb.Location = New System.Drawing.Point(4, 82)
         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(238, 152)
         Me.物料圖1_pb.TabIndex = 1459
         Me.物料圖1_pb.TabStop = False
         '
+        '採購明細_bt
+        '
+        Me.採購明細_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.採購明細_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.採購明細_bt.Location = New System.Drawing.Point(4, 405)
+        Me.採購明細_bt.Name = "採購明細_bt"
+        Me.採購明細_bt.Size = New System.Drawing.Size(237, 25)
+        Me.採購明細_bt.TabIndex = 1460
+        Me.採購明細_bt.Text = "採購明細"
+        Me.採購明細_bt.UseVisualStyleBackColor = True
+        '
+        '應負帳款_bt
+        '
+        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(4, 434)
+        Me.應負帳款_bt.Name = "應負帳款_bt"
+        Me.應負帳款_bt.Size = New System.Drawing.Size(237, 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.Enabled = False
+        Me.DTP1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DTP1.Location = New System.Drawing.Point(937, 266)
+        Me.DTP1.Name = "DTP1"
+        Me.DTP1.Size = New System.Drawing.Size(122, 23)
+        Me.DTP1.TabIndex = 1462
+        Me.DTP1.Visible = False
+        '
+        'DTP2
+        '
+        Me.DTP2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DTP2.Enabled = False
+        Me.DTP2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DTP2.Location = New System.Drawing.Point(937, 295)
+        Me.DTP2.Name = "DTP2"
+        Me.DTP2.Size = New System.Drawing.Size(122, 23)
+        Me.DTP2.TabIndex = 1463
+        Me.DTP2.Visible = False
+        '
+        '開啟供應商資料表_bt
+        '
+        Me.開啟供應商資料表_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.開啟供應商資料表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.開啟供應商資料表_bt.Location = New System.Drawing.Point(4, 496)
+        Me.開啟供應商資料表_bt.Name = "開啟供應商資料表_bt"
+        Me.開啟供應商資料表_bt.Size = New System.Drawing.Size(237, 25)
+        Me.開啟供應商資料表_bt.TabIndex = 1464
+        Me.開啟供應商資料表_bt.Text = "開啟供應商資料表"
+        Me.開啟供應商資料表_bt.UseVisualStyleBackColor = True
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.重新讀取_bt.Location = New System.Drawing.Point(4, 465)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(237, 25)
+        Me.重新讀取_bt.TabIndex = 1465
+        Me.重新讀取_bt.Text = "重新讀取"
+        Me.重新讀取_bt.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button3.ForeColor = System.Drawing.Color.Green
+        Me.Button3.Location = New System.Drawing.Point(247, 650)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(1092, 25)
+        Me.Button3.TabIndex = 1466
+        Me.Button3.Text = "存檔"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         '採購對帳單
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 681)
+        Me.Controls.Add(Me.Button3)
+        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)
@@ -373,7 +473,6 @@ Partial Class 採購對帳單
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.資料筆數1_tb)
         Me.Controls.Add(Me.Label10)
-        Me.Controls.Add(Me.供應商_dgv)
         Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.一般月_ch)
         Me.Controls.Add(Me.會計月_ch)
@@ -381,8 +480,9 @@ Partial Class 採購對帳單
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.結束日期_dtp)
         Me.Controls.Add(Me.開始日期_dtp)
-        Me.Controls.Add(Me.採購清單_dgv)
         Me.Controls.Add(Me.物料圖1_pb)
+        Me.Controls.Add(Me.供應商_dgv)
+        Me.Controls.Add(Me.採購清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "採購對帳單"
@@ -423,4 +523,11 @@ Partial Class 採購對帳單
     Friend WithEvents 日期2_dtp As DateTimePicker
     Friend WithEvents 日期1_dtp As DateTimePicker
     Friend WithEvents 物料圖1_pb As PictureBox
+    Friend WithEvents 採購明細_bt As Button
+    Friend WithEvents 應負帳款_bt As Button
+    Friend WithEvents DTP1 As DateTimePicker
+    Friend WithEvents DTP2 As DateTimePicker
+    Friend WithEvents 開啟供應商資料表_bt As Button
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents Button3 As Button
 End Class

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

@@ -10,18 +10,90 @@ Public Class 採購對帳單
         SQL_採購對帳單_總表()
         da.Fill(ds1) : 供應商_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
-        供應商_dgv.Columns(0).FillWeight = 50 : 供應商_dgv.Columns(1).FillWeight = 80 : 供應商_dgv.Columns(2).FillWeight = 90
+        供應商_dgv.Columns(0).FillWeight = 50 : 供應商_dgv.Columns(1).FillWeight = 80 : 供應商_dgv.Columns(2).FillWeight = 90 : 供應商_dgv.Columns(3).Visible = False
+        供應商_dgv.Columns(4).FillWeight = 50 : 供應商_dgv.Columns(5).FillWeight = 80 : 供應商_dgv.Columns(6).Visible = False : 供應商_dgv.Columns(7).FillWeight = 50
+        供應商_dgv.Columns(8).FillWeight = 80 : 供應商_dgv.Columns(9).FillWeight = 80 : 供應商_dgv.Columns(10).FillWeight = 80 : 供應商_dgv.Columns(11).Visible = False
+        供應商_dgv.Columns(12).FillWeight = 80 : 供應商_dgv.Columns(13).FillWeight = 50 : 供應商_dgv.Columns(14).FillWeight = 50 : 供應商_dgv.Columns(15).FillWeight = 100
+        供應商_dgv.Columns(16).FillWeight = 100 : 供應商_dgv.Columns(17).FillWeight = 150 : 供應商_dgv.Columns(18).FillWeight = 150
 
+        供應商_dgv.Columns(0).ReadOnly = True : 供應商_dgv.Columns(1).ReadOnly = True : 供應商_dgv.Columns(2).ReadOnly = True : 供應商_dgv.Columns(5).ReadOnly = True
+        供應商_dgv.Columns(8).ReadOnly = True : 供應商_dgv.Columns(10).ReadOnly = True : 供應商_dgv.Columns(14).ReadOnly = True : 供應商_dgv.Columns(15).ReadOnly = True
+        供應商_dgv.Columns(16).ReadOnly = True
+
+        資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
+            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
+            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
+            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
+            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
+            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
+            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
+            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
+            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
+            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
+            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+
+            If 供應商_dgv("票期", i).Value.ToString = "" Then
+                If Strings.Mid(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
+                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
+                        供應商_dgv("票期1", i).Value = "28"
+                    End If
+                End If
+                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+                If 供應商_dgv("票期1", i).Value < 10 Then
+                    PA16 = "0" & 供應商_dgv("票期1", i).Value.ToString
+                Else
+                    PA16 = 供應商_dgv("票期1", i).Value.ToString
+                End If
+                供應商_dgv("票期", i).Value = Strings.Left(Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA16
+            End If
+        Next
+
+        供應商_dgv.Columns("公司").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("公司").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("公司").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("個人").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("個人").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("個人").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("公司%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("公司%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("公司%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("個人%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("個人%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("個人%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("實付金額").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("實付金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("實付金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("其他扣款").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("廣告").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("廣告").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("廣告").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("廣告%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("廣告%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("廣告%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("稅金").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("稅金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("稅金").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("稅金%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("稅金%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("稅金%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         供應商_dgv.Columns("當月貨款").DefaultCellStyle.Format = "#,##0"
-        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         供應商_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(1).ReadOnly = True : 供應商_dgv.Columns(2).ReadOnly = True
-        資料筆數1_tb.Text = 供應商_dgv.Rows.Count
+        供應商_dgv.Columns("票期").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("票期").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     End Sub
     Private Sub Set_清單2()
         採購清單_dgv.DataSource = Nothing : ds.Clear()
@@ -43,11 +115,13 @@ Public Class 採購對帳單
         採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 80 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
         採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 200 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).FillWeight = 100
         採購清單_dgv.Columns(8).Visible = False : 採購清單_dgv.Columns(9).FillWeight = 160 : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 95
-        採購清單_dgv.Columns(12).FillWeight = 145 : 採購清單_dgv.Columns(13).FillWeight = 45 : 採購清單_dgv.Columns(14).FillWeight = 45 : 採購清單_dgv.Columns(15).FillWeight = 80
-        採購清單_dgv.Columns(16).FillWeight = 80 : 採購清單_dgv.Columns(17).FillWeight = 70 : 採購清單_dgv.Columns(18).FillWeight = 80 : 採購清單_dgv.Columns(19).FillWeight = 80
-        採購清單_dgv.Columns(20).FillWeight = 80 : 採購清單_dgv.Columns(21).FillWeight = 80 : 採購清單_dgv.Columns(22).FillWeight = 45 : 採購清單_dgv.Columns(23).FillWeight = 45
+        採購清單_dgv.Columns(12).FillWeight = 145 : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 45 : 採購清單_dgv.Columns(15).Visible = False
+        採購清單_dgv.Columns(16).FillWeight = 80 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 70 : 採購清單_dgv.Columns(19).FillWeight = 70
+        採購清單_dgv.Columns(20).FillWeight = 70 : 採購清單_dgv.Columns(21).FillWeight = 70 : 採購清單_dgv.Columns(22).FillWeight = 70 : 採購清單_dgv.Columns(23).FillWeight = 45
+        採購清單_dgv.Columns(24).FillWeight = 45
 
-        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        採購清單_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
         採購清單_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -97,9 +171,44 @@ Public Class 採購對帳單
     End Sub
     Private Sub 採購對帳單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        小間距_ch.Checked = True
+        小間距_ch.Checked = True : 供應商_dgv.Visible = False : 供應商_dgv.Visible = True
         日期格式() : Set_清單2()
     End Sub
+    Private Sub 供應商_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 供應商_dgv.CellEndEdit
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
+            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
+            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
+            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
+            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
+            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
+            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
+            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
+            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
+            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
+            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+
+            If 供應商_dgv("票期", i).Value.ToString = "" Then
+                If Strings.Mid(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
+                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
+                        供應商_dgv("票期1", i).Value = "28"
+                    End If
+                End If
+                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+                供應商_dgv("票期", i).Value = Strings.Left(Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & 供應商_dgv("票期1", i).Value.ToString
+            End If
+        Next
+
+        Dim EU As String
+        EU = 供應商_dgv("票期", e.RowIndex).Value.ToString
+        If EU = "" Then : Else
+            If IsDate(EU) Then
+                DTP2.Text = EU : 供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(DTP2.Value, "yyyy/MM/dd")
+            Else
+                供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = ""
+            End If
+        End If
+    End Sub
     Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
         If e.RowIndex = 採購清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
@@ -204,4 +313,16 @@ Public Class 採購對帳單
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
         Set_清單2()
     End Sub
+    Private Sub 採購明細_bt_Click(sender As Object, e As EventArgs) Handles 採購明細_bt.Click
+        採購明細_bt.Enabled = False : 應負帳款_bt.Enabled = True : 採購清單_dgv.Visible = True : 供應商_dgv.Visible = False
+    End Sub
+    Private Sub 應負帳款_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款_bt.Click
+        採購明細_bt.Enabled = True : 應負帳款_bt.Enabled = False : 採購清單_dgv.Visible = False : 供應商_dgv.Visible = True
+    End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        Set_清單1() : Set_清單2()
+    End Sub
+    Private Sub 開啟供應商資料表_bt_Click(sender As Object, e As EventArgs) Handles 開啟供應商資料表_bt.Click
+        PA = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
+    End Sub
 End Class

YD-ERP-SYS/採購系統管理/採購控制表.Designer.vb

@@ -84,6 +84,10 @@ Partial Class 採購控制表
         Me.Label2 = New System.Windows.Forms.Label()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.日期3_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期4_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.批量勾選_cb = New System.Windows.Forms.CheckBox()
+        Me.過帳_bt = New System.Windows.Forms.Button()
         CType(Me.訂製圖檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -303,7 +307,7 @@ Partial Class 採購控制表
         '申請人_tb
         '
         Me.申請人_tb.Enabled = False
-        Me.申請人_tb.Location = New System.Drawing.Point(612, 31)
+        Me.申請人_tb.Location = New System.Drawing.Point(550, 31)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(130, 23)
         Me.申請人_tb.TabIndex = 1375
@@ -311,7 +315,7 @@ Partial Class 採購控制表
         'Label19
         '
         Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(562, 34)
+        Me.Label19.Location = New System.Drawing.Point(500, 34)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(44, 16)
         Me.Label19.TabIndex = 1374
@@ -413,7 +417,7 @@ Partial Class 採購控制表
         Me.清空1_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.清空1_bt.Location = New System.Drawing.Point(361, 4)
         Me.清空1_bt.Name = "清空1_bt"
-        Me.清空1_bt.Size = New System.Drawing.Size(90, 52)
+        Me.清空1_bt.Size = New System.Drawing.Size(59, 52)
         Me.清空1_bt.TabIndex = 1364
         Me.清空1_bt.Text = "清除查詢條件"
         Me.清空1_bt.UseVisualStyleBackColor = True
@@ -495,9 +499,9 @@ 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(453, 4)
+        Me.存檔_bt.Location = New System.Drawing.Point(422, 4)
         Me.存檔_bt.Name = "存檔_bt"
-        Me.存檔_bt.Size = New System.Drawing.Size(90, 52)
+        Me.存檔_bt.Size = New System.Drawing.Size(59, 52)
         Me.存檔_bt.TabIndex = 1349
         Me.存檔_bt.Text = "存檔"
         Me.存檔_bt.UseVisualStyleBackColor = True
@@ -506,7 +510,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(745, 5)
+        Me.刪除單據上點選的資料_bt.Location = New System.Drawing.Point(683, 5)
         Me.刪除單據上點選的資料_bt.Name = "刪除單據上點選的資料_bt"
         Me.刪除單據上點選的資料_bt.Size = New System.Drawing.Size(102, 50)
         Me.刪除單據上點選的資料_bt.TabIndex = 1350
@@ -547,7 +551,7 @@ Partial Class 採購控制表
         '項次_tb
         '
         Me.項次_tb.Enabled = False
-        Me.項次_tb.Location = New System.Drawing.Point(612, 5)
+        Me.項次_tb.Location = New System.Drawing.Point(550, 5)
         Me.項次_tb.Name = "項次_tb"
         Me.項次_tb.Size = New System.Drawing.Size(130, 23)
         Me.項次_tb.TabIndex = 1348
@@ -555,7 +559,7 @@ Partial Class 採購控制表
         '選擇_lb
         '
         Me.選擇_lb.AutoSize = True
-        Me.選擇_lb.Location = New System.Drawing.Point(544, 8)
+        Me.選擇_lb.Location = New System.Drawing.Point(482, 8)
         Me.選擇_lb.Name = "選擇_lb"
         Me.選擇_lb.Size = New System.Drawing.Size(68, 16)
         Me.選擇_lb.TabIndex = 1347
@@ -653,12 +657,58 @@ Partial Class 採購控制表
         Me.重新整理_tsm.Size = New System.Drawing.Size(122, 22)
         Me.重新整理_tsm.Text = "重新整理"
         '
+        '日期3_dtp
+        '
+        Me.日期3_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期3_dtp.Enabled = False
+        Me.日期3_dtp.Location = New System.Drawing.Point(615, 154)
+        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.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期4_dtp.Enabled = False
+        Me.日期4_dtp.Location = New System.Drawing.Point(615, 183)
+        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(746, 66)
+        Me.批量勾選_cb.Name = "批量勾選_cb"
+        Me.批量勾選_cb.Size = New System.Drawing.Size(75, 20)
+        Me.批量勾選_cb.TabIndex = 1457
+        Me.批量勾選_cb.Text = "批量勾選"
+        Me.批量勾選_cb.UseVisualStyleBackColor = True
+        '
+        '過帳_bt
+        '
+        Me.過帳_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), 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(840, 4)
+        Me.過帳_bt.Name = "過帳_bt"
+        Me.過帳_bt.Size = New System.Drawing.Size(116, 52)
+        Me.過帳_bt.TabIndex = 1458
+        Me.過帳_bt.Text = "過帳"
+        Me.過帳_bt.UseVisualStyleBackColor = True
+        '
         '採購控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 681)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.過帳_bt)
+        Me.Controls.Add(Me.批量勾選_cb)
+        Me.Controls.Add(Me.日期4_dtp)
+        Me.Controls.Add(Me.日期3_dtp)
         Me.Controls.Add(Me.採購金額1_tb)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.供應商_tb)
@@ -782,4 +832,8 @@ Partial Class 採購控制表
     Friend WithEvents Label2 As Label
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
     Friend WithEvents 重新整理_tsm As ToolStripMenuItem
+    Friend WithEvents 日期3_dtp As DateTimePicker
+    Friend WithEvents 日期4_dtp As DateTimePicker
+    Friend WithEvents 批量勾選_cb As CheckBox
+    Friend WithEvents 過帳_bt As Button
 End Class

YD-ERP-SYS/採購系統管理/採購控制表.vb

@@ -1,7 +1,7 @@
 Option Strict Off
 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
-    Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字 As Boolean
+    Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字, 首次開啟 As Boolean
     Private Sub Set_清單1()
         採購清單_dgv.DataSource = Nothing : ds1.Clear()
         採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -18,17 +18,18 @@ Public Class 採購控制表
 
         If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
         PA20 = 業務1_cb.Text
-        SQL_採購控制表()
+        SQL_採購控制表_未過帳()
         da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
         Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
 
-        採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 80 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
-        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 200 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).Visible = False
+        採購清單_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).FillWeight = 145
-        採購清單_dgv.Columns(16).FillWeight = 45 : 採購清單_dgv.Columns(17).FillWeight = 45 : 採購清單_dgv.Columns(18).FillWeight = 80 : 採購清單_dgv.Columns(19).FillWeight = 80
-        採購清單_dgv.Columns(20).FillWeight = 70 : 採購清單_dgv.Columns(21).FillWeight = 80 : 採購清單_dgv.Columns(22).FillWeight = 80 : 採購清單_dgv.Columns(23).FillWeight = 80
-        採購清單_dgv.Columns(24).Visible = False : 採購清單_dgv.Columns(25).Visible = False : 採購清單_dgv.Columns(26).FillWeight = 45
+        採購清單_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("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
         採購清單_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -38,11 +39,16 @@ Public Class 採購控制表
         採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        採購清單_dgv.Columns(3).ReadOnly = True : 採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
-        採購清單_dgv.Columns(21).ReadOnly = True : 採購清單_dgv.Columns(16).ReadOnly = True : 採購清單_dgv.Columns(19).ReadOnly = True
+        採購清單_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_合記計算()
     End Sub
     Private Sub Set_採購清單_dgv_下拉式清單1()
@@ -117,17 +123,20 @@ Public Class 採購控制表
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         小間距_ch.Checked = True : 業務1_cb.Text = 業務號碼 '--------------------控件隱藏、操作許可設定與其他基本顯示設定
 
-        Set_清單1()
+        首次開啟 = True : Set_清單1() : 首次開啟 = False
         Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
     End Sub
     Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
-        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
-            If 採購清單_dgv.Rows(i).Cells("已審核").Value = True Then
-                採購清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            Else
-                採購清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow
-            End If
-        Next
+        If 首次開啟 = True Then : Else
+            For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                If 採購清單_dgv("選擇", I).Value = True Then
+                    採購清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen
+                Else
+                    採購清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White
+                End If
+            Next
+        End If
+
         Dim linePen As New Pen(Color.Blue, 2)
         If e.RowIndex = 採購清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
             If 採購清單_dgv("供應商", e.RowIndex).Value.ToString <> 採購清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
@@ -140,21 +149,45 @@ Public Class 採購控制表
     Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
         Set_合記計算()
 
-        PA20 = 採購清單_dgv(8, e.RowIndex).Value : SQL_銷售明細_改倉名()
+        PA20 = 採購清單_dgv(8, e.RowIndex).Value.ToString : SQL_銷售明細_改倉名()
         If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
-        PA19 = 採購清單_dgv(11, e.RowIndex).Value : SQL_銷售明細_改物料訂製狀態()
+        PA19 = 採購清單_dgv(11, e.RowIndex).Value.ToString : SQL_銷售明細_改物料訂製狀態()
         If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
-        PA18 = 採購清單_dgv(14, e.RowIndex).Value : SQL_銷售明細_倉儲狀態()
+        PA18 = 採購清單_dgv(14, e.RowIndex).Value.ToString : SQL_銷售明細_倉儲狀態()
         If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
 
-        Dim EU(1) As String
+        Dim EU(3) As String
         EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
         If EU(0) = "" Then : Else
-            日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+            If IsDate(EU(0)) Then
+                日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = ""
+            End If
         End If
         EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
         If EU(1) = "" Then : Else
-            日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+            If IsDate(EU(1)) Then
+                日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = ""
+            End If
+        End If
+        EU(2) = 採購清單_dgv("實際進廠日", e.RowIndex).Value.ToString
+        If EU(2) = "" Then : Else
+            If IsDate(EU(2)) Then
+                日期3_dtp.Text = EU(2) : 採購清單_dgv.Rows(e.RowIndex).Cells("實際進廠日").Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("實際進廠日").Value = ""
+            End If
+        End If
+        EU(3) = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
+        If EU(3) = "" Then : Else
+            If IsDate(EU(3)) Then
+                日期4_dtp.Text = EU(3) : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
+            Else
+                採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = "" : 採購清單_dgv("選擇", e.RowIndex).Value = False
+            End If
         End If
     End Sub
     Private Sub 採購清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellClick
@@ -164,7 +197,6 @@ Public Class 採購控制表
             料號_tb.Text = 採購清單_dgv("料號", e.RowIndex).Value.ToString : 供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
 
             Set_合記計算()
-
             PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
 
             物料圖1_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
@@ -183,6 +215,34 @@ Public Class 採購控制表
                     物料圖1_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
+                        PA = InputBox("請輸入指定過帳日期")
+                        If IsDate(PA) Then
+                            採購清單_dgv("過帳日期", e.RowIndex).Value = PA
+                            Dim EU As String
+                            EU = 採購清單_dgv("過帳日期", e.RowIndex).Value.ToString
+                            If EU = "" Then : Else
+                                日期4_dtp.Text = EU : 採購清單_dgv.Rows(e.RowIndex).Cells("過帳日期").Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
+                            End If
+                        Else
+                            MsgBox("請輸入日期格式資料!!!!")
+                            採購清單_dgv("過帳日期", e.RowIndex).Value = ""
+                            採購清單_dgv("選擇", e.RowIndex).Value = False
+                        End If
+                    Else
+                        採購清單_dgv("過帳日期", e.RowIndex).Value = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+                    End If
+                End If
+            End If
+        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
+            採購清單_dgv("過帳日期", e.RowIndex).Value = ""
         End If
     End Sub
     Private Sub 訂製圖檔_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂製圖檔_dgv.CellClick
@@ -231,15 +291,30 @@ Public Class 採購控制表
     End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
-        存檔1() : Set_清單1()
+        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            存檔1() : Set_清單1()
+        Else
+            Set_清單1()
+        End If
     End Sub
     Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
-        存檔1() : Set_清單1()
+        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            存檔1() : Set_清單1()
+        Else
+            Set_清單1()
+        End If
     End Sub
     Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
-        存檔1() : Set_清單1()
+        Dim aa1 As MsgBoxResult = MsgBox("是否需要存檔?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            存檔1() : Set_清單1()
+        Else
+            Set_清單1()
+        End If
     End Sub
     Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
         Set_清單1()
@@ -406,10 +481,21 @@ Public Class 採購控制表
                 SQL_採購控制表_存檔()
             End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        Set_清單1()
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
         存檔1() : MsgBox("修改完成。")
     End Sub
+    Private Sub 過帳_bt_Click(sender As Object, e As EventArgs) Handles 過帳_bt.Click
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
+            If 採購清單_dgv("選擇", i).Value = True Then
+                PA = 採購清單_dgv("資料流水號", i).Value : PA2 = "1" : PA1 = 採購清單_dgv("過帳日期", i).Value
+                SQL_採購控制表_過帳()
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        Set_清單1()
+    End Sub
     Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
         Set_清單1()
     End Sub

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

@@ -302,7 +302,7 @@ Public Class 訂單控制表
             交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
             送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("送貨地點").Value.ToString
             運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value
-            業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
+            '業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
             Set_清單4() : Set_清單5()
             Set_清單6()
             PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()