版本號 : 2021051302

更新內容如下
1、修正不含管銷會把成本一起歸零的BUG

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

@@ -64,8 +64,9 @@
     Friend Sub SQL_供應商資料表_新增()
         ConnOpen()
         SQL1 = "INSERT INTO 供應商資料表 (編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話, 傳真, POS, 備註1, 
-                                          備註2, 登入日期, 結算日, KR1, KR2, KR3, PEC, 停用) 
-                VALUES (N'" & PA & "', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'" & DTP & "', N'0', N'0', N'0', N'0', N'0', N'0')"
+                                          備註2, 登入日期, 結算日, KR1, KR2, KR3, PEC, 停用, 票期, 支票_私人, 支票_公司, 稅金倍率, 廣告費倍率) 
+                VALUES (N'" & PA & "', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'" & DTP & "', N'0', N'0', N'0', N'0', N'0', 
+                        N'0', N'15', N'', N'', N'0', N'0')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_供應商資料表_修改()

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

@@ -116,8 +116,7 @@
                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
-                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.成本 > 0) AND 
-                           (銷售明細表.售價 > 0) AND " & SQL2 & " 
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND  " & SQL2 & " 
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
@@ -249,4 +248,36 @@
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
+    '---------------------應收帳款未收-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_應收帳款未收_訂單控制表()
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 
+                            銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額, 
+                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2,
+                            客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金
+                FROM        銷售控制表 INNER JOIN
+                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN
+                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (銷售收款事項.金額 > 0) AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%' OR 
+                            客戶資料表.電話1 LIKE N'%" & PA20 & "%' OR 客戶資料表.電話2 LIKE N'%" & PA20 & "%' OR 客戶資料表.地址 LIKE N'%" & PA20 & "%' OR 
+                            客戶資料表.公司名稱 LIKE N'%" & PA20 & "%' OR 客戶資料表.統編 LIKE N'%" & PA20 & "%') 
+                ORDER BY    銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    '---------------------應收帳款已收-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_應收帳款已收_訂單控制表()
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 
+                            銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額, 
+                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2,
+                            客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金
+                FROM        銷售控制表 INNER JOIN
+                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN
+                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (銷售收款事項.金額 = 0) AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%' OR 
+                            客戶資料表.電話1 LIKE N'%" & PA20 & "%' OR 客戶資料表.電話2 LIKE N'%" & PA20 & "%' OR 客戶資料表.地址 LIKE N'%" & PA20 & "%' OR 
+                            客戶資料表.公司名稱 LIKE N'%" & PA20 & "%' OR 客戶資料表.統編 LIKE N'%" & PA20 & "%')
+                ORDER BY    銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
 End Module

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

@@ -181,7 +181,7 @@
     Friend Sub SQL_銷售明細表_修改()
         ConnOpen()
         SQL1 = "UPDATE 銷售明細表 SET 備註 = N'" & PA10 & "', 成本 = N'" & NU1 & "', 售價 = N'" & NU2 & "', 含稅 = N'" & BL5 & "',倉儲狀態 = N'" & PA9 & "', 
-                                      物料狀態 = N'" & PA8 & "', 訂製狀態 = N'" & PA7 & "', 不含管銷 = N'" & BL5 & "' 
+                                      物料狀態 = N'" & PA8 & "', 訂製狀態 = N'" & PA7 & "', 不含管銷 = N'" & BL6 & "' 
                 WHERE (資料流水號 LIKE N'" & PA11 & "')"
         CmdSet_For_dr()
     End Sub
@@ -485,7 +485,7 @@
     End Sub
     Friend Sub SQL_採購控制表_過帳()
         ConnOpen()
-        SQL1 = "UPDATE 採購控制表 SET 已過帳 = '" & PA2 & "', 過帳日期 = N'" & PA1 & "' WHERE 資料流水號 LIKE '" & PA & "%'"
+        SQL1 = "UPDATE 採購控制表 SET 已過帳 = '" & PA2 & "', 過帳日期 = N'" & PA1 & "' WHERE 資料流水號 LIKE '" & PA & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_帳號讀取()

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

@@ -4,7 +4,7 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 業務號碼 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021050601"
+    Public 版本 As String = "2021051302"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

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

@@ -44,9 +44,12 @@ Partial Class YD_ERP_SYS
         Me.訂單控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.銷售分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.貨款試算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator()
+        Me.應收帳款未收_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.應收帳款已收_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
-        Me.銷售單申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.銷售單審核_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.銷售單申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
         Me.客戶資料表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.採購系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -215,7 +218,7 @@ Partial Class YD_ERP_SYS
         '
         '業務系統管理_tsm
         '
-        Me.業務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.訂單控制表_tsm, Me.銷售分析表_tsm, Me.貨款試算表_tsm, Me.ToolStripSeparator9, Me.銷售單申請_tsm, Me.銷售單審核_tsm, Me.ToolStripSeparator8, Me.客戶資料表_tsm})
+        Me.業務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.訂單控制表_tsm, Me.銷售分析表_tsm, Me.貨款試算表_tsm, Me.ToolStripSeparator16, Me.銷售單申請_tsm, Me.銷售單審核_tsm, Me.ToolStripSeparator9, Me.應收帳款未收_tsm, Me.應收帳款已收_tsm, Me.ToolStripSeparator8, Me.客戶資料表_tsm})
         Me.業務系統管理_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.業務系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.business_info
         Me.業務系統管理_tsm.Name = "業務系統管理_tsm"
@@ -227,7 +230,7 @@ Partial Class YD_ERP_SYS
         Me.訂單控制表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.訂單控制表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
         Me.訂單控制表_tsm.Name = "訂單控制表_tsm"
-        Me.訂單控制表_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.訂單控制表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.訂單控制表_tsm.Text = "訂單控制表"
         '
         '銷售分析表_tsm
@@ -235,7 +238,7 @@ Partial Class YD_ERP_SYS
         Me.銷售分析表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.銷售分析表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
         Me.銷售分析表_tsm.Name = "銷售分析表_tsm"
-        Me.銷售分析表_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.銷售分析表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.銷售分析表_tsm.Text = "銷售分析表"
         '
         '貨款試算表_tsm
@@ -243,41 +246,62 @@ Partial Class YD_ERP_SYS
         Me.貨款試算表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.貨款試算表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
         Me.貨款試算表_tsm.Name = "貨款試算表_tsm"
-        Me.貨款試算表_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.貨款試算表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.貨款試算表_tsm.Text = "貨款試算表"
         '
-        'ToolStripSeparator9
+        'ToolStripSeparator16
         '
-        Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
-        Me.ToolStripSeparator9.Size = New System.Drawing.Size(131, 6)
+        Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
+        Me.ToolStripSeparator16.Size = New System.Drawing.Size(177, 6)
         '
-        '銷售單申請_tsm
+        '應收帳款未收_tsm
         '
-        Me.銷售單申請_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單申請_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
-        Me.銷售單申請_tsm.Name = "銷售單申請_tsm"
-        Me.銷售單申請_tsm.Size = New System.Drawing.Size(134, 22)
-        Me.銷售單申請_tsm.Text = "銷售單申請"
+        Me.應收帳款未收_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.應收帳款未收_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
+        Me.應收帳款未收_tsm.Name = "應收帳款未收_tsm"
+        Me.應收帳款未收_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.應收帳款未收_tsm.Text = "應收帳款未收"
+        '
+        '應收帳款已收_tsm
+        '
+        Me.應收帳款已收_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.應收帳款已收_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
+        Me.應收帳款已收_tsm.Name = "應收帳款已收_tsm"
+        Me.應收帳款已收_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.應收帳款已收_tsm.Text = "應收帳款已收"
+        '
+        'ToolStripSeparator9
+        '
+        Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
+        Me.ToolStripSeparator9.Size = New System.Drawing.Size(177, 6)
         '
         '銷售單審核_tsm
         '
         Me.銷售單審核_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.銷售單審核_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.check
         Me.銷售單審核_tsm.Name = "銷售單審核_tsm"
-        Me.銷售單審核_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.銷售單審核_tsm.Size = New System.Drawing.Size(180, 22)
         Me.銷售單審核_tsm.Text = "銷售單審核"
         '
+        '銷售單申請_tsm
+        '
+        Me.銷售單申請_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單申請_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
+        Me.銷售單申請_tsm.Name = "銷售單申請_tsm"
+        Me.銷售單申請_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.銷售單申請_tsm.Text = "銷售單申請"
+        '
         'ToolStripSeparator8
         '
         Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
-        Me.ToolStripSeparator8.Size = New System.Drawing.Size(131, 6)
+        Me.ToolStripSeparator8.Size = New System.Drawing.Size(177, 6)
         '
         '客戶資料表_tsm
         '
         Me.客戶資料表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.客戶資料表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.客戶資料表_tsm.Name = "客戶資料表_tsm"
-        Me.客戶資料表_tsm.Size = New System.Drawing.Size(134, 22)
+        Me.客戶資料表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.客戶資料表_tsm.Text = "客戶資料表"
         '
         '採購系統管理_tsm
@@ -294,7 +318,7 @@ Partial Class YD_ERP_SYS
         Me.採購控制表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.採購控制表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report
         Me.採購控制表_tsm.Name = "採購控制表_tsm"
-        Me.採購控制表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購控制表_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購控制表_tsm.Text = "採購對帳單"
         '
         '採購對帳單_tsm
@@ -302,20 +326,20 @@ Partial Class YD_ERP_SYS
         Me.採購對帳單_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.採購對帳單_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.business_info
         Me.採購對帳單_tsm.Name = "採購對帳單_tsm"
-        Me.採購對帳單_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購對帳單_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購對帳單_tsm.Text = "採購應付帳款"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(167, 6)
         '
         '一般性申請採購單_tsm
         '
         Me.一般性申請採購單_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.一般性申請採購單_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
         Me.一般性申請採購單_tsm.Name = "一般性申請採購單_tsm"
-        Me.一般性申請採購單_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.一般性申請採購單_tsm.Size = New System.Drawing.Size(170, 22)
         Me.一般性申請採購單_tsm.Text = "一般性申請採購單"
         '
         '依銷售申請採購單_tsm
@@ -323,7 +347,7 @@ Partial Class YD_ERP_SYS
         Me.依銷售申請採購單_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.依銷售申請採購單_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen
         Me.依銷售申請採購單_tsm.Name = "依銷售申請採購單_tsm"
-        Me.依銷售申請採購單_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.依銷售申請採購單_tsm.Size = New System.Drawing.Size(170, 22)
         Me.依銷售申請採購單_tsm.Text = "依銷售申請採購單"
         '
         '採購單審核_tsm
@@ -331,19 +355,19 @@ Partial Class YD_ERP_SYS
         Me.採購單審核_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.採購單審核_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.check
         Me.採購單審核_tsm.Name = "採購單審核_tsm"
-        Me.採購單審核_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購單審核_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購單審核_tsm.Text = "採購單審核"
         '
         'ToolStripSeparator7
         '
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
-        Me.ToolStripSeparator7.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(167, 6)
         '
         '採購退貨申請_tsm
         '
         Me.採購退貨申請_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購退貨申請_tsm.Name = "採購退貨申請_tsm"
-        Me.採購退貨申請_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購退貨申請_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨申請_tsm.Text = "採購退貨申請"
         Me.採購退貨申請_tsm.Visible = False
         '
@@ -351,14 +375,14 @@ Partial Class YD_ERP_SYS
         '
         Me.採購退貨審核_tsm.ForeColor = System.Drawing.Color.Black
         Me.採購退貨審核_tsm.Name = "採購退貨審核_tsm"
-        Me.採購退貨審核_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購退貨審核_tsm.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨審核_tsm.Text = "採購退貨審核"
         Me.採購退貨審核_tsm.Visible = False
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(167, 6)
         Me.ToolStripSeparator1.Visible = False
         '
         '供應商資料表_tsm
@@ -366,7 +390,7 @@ Partial Class YD_ERP_SYS
         Me.供應商資料表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.供應商資料表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
         Me.供應商資料表_tsm.Name = "供應商資料表_tsm"
-        Me.供應商資料表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.供應商資料表_tsm.Size = New System.Drawing.Size(170, 22)
         Me.供應商資料表_tsm.Text = "供應商資料表"
         '
         '倉儲系統管理_tsm
@@ -756,4 +780,7 @@ Partial Class YD_ERP_SYS
     Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
     Friend WithEvents 薪資轉帳表_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
+    Friend WithEvents ToolStripSeparator16 As ToolStripSeparator
+    Friend WithEvents 應收帳款未收_tsm As ToolStripMenuItem
+    Friend WithEvents 應收帳款已收_tsm As ToolStripMenuItem
 End Class

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

@@ -185,4 +185,12 @@ Public Class YD_ERP_SYS
     Private Sub 薪資轉帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 薪資轉帳表_tsm.Click
         PA = "" : 薪資轉帳表.Show() : 薪資轉帳表.BringToFront()
     End Sub
+
+    Private Sub 應收帳款未收ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應收帳款未收_tsm.Click
+        PA = "" : 應收帳款未收.Show() : 應收帳款未收.BringToFront()
+    End Sub
+
+    Private Sub 應收帳款已收_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款已收_tsm.Click
+        PA = "" : 應收帳款已收.Show() : 應收帳款已收.BringToFront()
+    End Sub
 End Class

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

@@ -203,6 +203,18 @@
     <Compile Include="採購系統管理\依銷售申請採購單.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="採購系統管理\應收帳款已收.Designer.vb">
+      <DependentUpon>應收帳款已收.vb</DependentUpon>
+    </Compile>
+    <Compile Include="採購系統管理\應收帳款已收.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="採購系統管理\應收帳款未收.Designer.vb">
+      <DependentUpon>應收帳款未收.vb</DependentUpon>
+    </Compile>
+    <Compile Include="採購系統管理\應收帳款未收.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="採購系統管理\採購單審核.Designer.vb">
       <DependentUpon>採購單審核.vb</DependentUpon>
     </Compile>
@@ -448,6 +460,12 @@
     <EmbeddedResource Include="採購系統管理\依銷售申請採購單.resx">
       <DependentUpon>依銷售申請採購單.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="採購系統管理\應收帳款已收.resx">
+      <DependentUpon>應收帳款已收.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="採購系統管理\應收帳款未收.resx">
+      <DependentUpon>應收帳款未收.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="採購系統管理\採購單審核.resx">
       <DependentUpon>採購單審核.vb</DependentUpon>
     </EmbeddedResource>

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

@@ -1 +1 @@
-134da36bc1a476ecd17ffb6779b8ecef1e31298c
+60a1219e988220db087d64bf23fc6d950054aa15

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

@@ -211,3 +211,123 @@ C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ER
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\PInvoke.Windows.Core.xml
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人事資料表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲入庫.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲出庫.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲分區控制表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲控制表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.單據狀態查詢.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損控制表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損申請.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核_倉儲調整.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.依銷售申請採購單.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購單審核.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應負帳款.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購對帳單.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.供應商資料表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.物料檔案.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.貨款試算表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售分析表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單審核.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單申請.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯入EXCEL.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯率管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.會計科目管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運報表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單一覽表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單審核.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單申請.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.薪資轉帳表.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.FTP資料夾管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.Resources.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.YD_ERP_SYS.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.個人帳號管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.簽名檔管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統使用者管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統執行檔版本管理.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統編碼規則.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.網段.resources
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.GenerateResource.cache
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CoreCompileInputs.cache
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CopyComplete
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
+C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\PInvoke.Windows.Core.xml
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人事資料表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲入庫.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲出庫.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲分區控制表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲控制表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.單據狀態查詢.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損控制表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損申請.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核_倉儲調整.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.依銷售申請採購單.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購單審核.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應負帳款.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購對帳單.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.供應商資料表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.物料檔案.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.貨款試算表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售分析表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單審核.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單申請.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯入EXCEL.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯率管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.會計科目管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運報表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單一覽表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單審核.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單申請.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.薪資轉帳表.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.FTP資料夾管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.Resources.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.YD_ERP_SYS.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.個人帳號管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.簽名檔管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統使用者管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統執行檔版本管理.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統編碼規則.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.網段.resources
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.GenerateResource.cache
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CoreCompileInputs.cache
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CopyComplete
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
+C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
+C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
+C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources

YD-ERP-SYS/倉儲系統管理/物料檔案.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 物料檔案
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.物料清單_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.資料筆數_tb = New System.Windows.Forms.TextBox()
@@ -99,8 +99,8 @@ Partial Class 物料檔案
         Me.物料清單_dgv.Location = New System.Drawing.Point(12, 83)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(570, 572)
         Me.物料清單_dgv.TabIndex = 668
@@ -320,7 +320,7 @@ Partial Class 物料檔案
         Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.狀態_lb.ForeColor = System.Drawing.Color.Red
         Me.狀態_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.狀態_lb.Location = New System.Drawing.Point(953, 65)
+        Me.狀態_lb.Location = New System.Drawing.Point(1029, 65)
         Me.狀態_lb.Name = "狀態_lb"
         Me.狀態_lb.Size = New System.Drawing.Size(56, 16)
         Me.狀態_lb.TabIndex = 1102
@@ -402,7 +402,7 @@ Partial Class 物料檔案
         Me.下載圖檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.下載圖檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下載圖檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下載圖檔_bt.Location = New System.Drawing.Point(1206, 4)
+        Me.下載圖檔_bt.Location = New System.Drawing.Point(1282, 4)
         Me.下載圖檔_bt.Name = "下載圖檔_bt"
         Me.下載圖檔_bt.Size = New System.Drawing.Size(94, 51)
         Me.下載圖檔_bt.TabIndex = 1123
@@ -414,7 +414,7 @@ Partial Class 物料檔案
         Me.圖檔入系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.圖檔入系統_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.圖檔入系統_bt.ForeColor = System.Drawing.Color.Green
-        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1111, 4)
+        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1187, 4)
         Me.圖檔入系統_bt.Name = "圖檔入系統_bt"
         Me.圖檔入系統_bt.Size = New System.Drawing.Size(94, 51)
         Me.圖檔入系統_bt.TabIndex = 1121
@@ -426,7 +426,7 @@ Partial Class 物料檔案
         Me.檔案名稱_tb.AllowDrop = True
         Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1069, 439)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(1145, 439)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
         Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
         Me.檔案名稱_tb.TabIndex = 1119
@@ -436,7 +436,7 @@ Partial Class 物料檔案
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), 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(1017, 465)
+        Me.Label12.Location = New System.Drawing.Point(1093, 465)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(108, 17)
         Me.Label12.TabIndex = 1117
@@ -447,7 +447,7 @@ Partial Class 物料檔案
         Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(1020, 56)
+        Me.Label13.Location = New System.Drawing.Point(1096, 56)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(56, 16)
         Me.Label13.TabIndex = 1116
@@ -458,7 +458,7 @@ Partial Class 物料檔案
         Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1015, 4)
+        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1091, 4)
         Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
         Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(94, 51)
         Me.讀取資料夾路徑_bt.TabIndex = 1115
@@ -469,7 +469,7 @@ Partial Class 物料檔案
         '
         Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1015, 112)
+        Me.本機資料夾_wb.Location = New System.Drawing.Point(1091, 112)
         Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.本機資料夾_wb.Name = "本機資料夾_wb"
         Me.本機資料夾_wb.Size = New System.Drawing.Size(285, 321)
@@ -479,7 +479,7 @@ Partial Class 物料檔案
         'FTP資料夾_wb
         '
         Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1015, 485)
+        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1091, 485)
         Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
         Me.FTP資料夾_wb.Size = New System.Drawing.Size(285, 198)
@@ -491,7 +491,7 @@ Partial Class 物料檔案
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Red
-        Me.Label11.Location = New System.Drawing.Point(1018, 79)
+        Me.Label11.Location = New System.Drawing.Point(1094, 79)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(244, 32)
         Me.Label11.TabIndex = 1118
@@ -501,7 +501,7 @@ Partial Class 物料檔案
         '
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(1015, 442)
+        Me.Label10.Location = New System.Drawing.Point(1091, 442)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(56, 16)
         Me.Label10.TabIndex = 1120
@@ -596,7 +596,7 @@ Partial Class 物料檔案
         Me.物料圖_pb.Location = New System.Drawing.Point(588, 84)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(421, 599)
+        Me.物料圖_pb.Size = New System.Drawing.Size(497, 599)
         Me.物料圖_pb.TabIndex = 1112
         Me.物料圖_pb.TabStop = False
         '
@@ -623,7 +623,7 @@ Partial Class 物料檔案
         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(945, 4)
+        Me.列印_bt.Location = New System.Drawing.Point(1021, 4)
         Me.列印_bt.Name = "列印_bt"
         Me.列印_bt.Size = New System.Drawing.Size(64, 51)
         Me.列印_bt.TabIndex = 1133
@@ -632,12 +632,11 @@ Partial Class 物料檔案
         '
         '字體大小調整_lb
         '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1185, 59)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(879, 58)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1485
@@ -645,8 +644,7 @@ Partial Class 物料檔案
         '
         '字體_NUD
         '
-        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1247, 56)
+        Me.字體_NUD.Location = New System.Drawing.Point(941, 55)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -658,7 +656,7 @@ Partial Class 物料檔案
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1312, 691)
+        Me.ClientSize = New System.Drawing.Size(1388, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)

YD-ERP-SYS/倉儲系統管理/盤盈盤損控制表.Designer.vb

@@ -147,14 +147,15 @@ Partial Class 盤盈盤損控制表
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.調庫明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.調庫明細_dgv.RowTemplate.Height = 24
-        Me.調庫明細_dgv.Size = New System.Drawing.Size(735, 631)
+        Me.調庫明細_dgv.Size = New System.Drawing.Size(858, 631)
         Me.調庫明細_dgv.TabIndex = 1203
         '
         'Label9
         '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(1294, 12)
+        Me.Label9.Location = New System.Drawing.Point(1417, 12)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(44, 16)
         Me.Label9.TabIndex = 1207
@@ -162,7 +163,8 @@ Partial Class 盤盈盤損控制表
         '
         '資料筆數1_tb
         '
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(1252, 9)
+        Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1375, 9)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
         Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
         Me.資料筆數1_tb.TabIndex = 1206
@@ -170,9 +172,10 @@ Partial Class 盤盈盤損控制表
         '
         'Label10
         '
+        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(1230, 12)
+        Me.Label10.Location = New System.Drawing.Point(1353, 12)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(20, 16)
         Me.Label10.TabIndex = 1205
@@ -211,21 +214,21 @@ Partial Class 盤盈盤損控制表
         '
         '字體大小調整_lb
         '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(12, 148)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1223, 11)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1491
         Me.字體大小調整_lb.Text = "字體調整"
         '
         '字體_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(73, 146)
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(1295, 9)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {13, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -237,7 +240,7 @@ Partial Class 盤盈盤損控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.ClientSize = New System.Drawing.Size(1473, 681)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.Label3)

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

@@ -272,7 +272,7 @@ Partial Class 依銷售申請採購單
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(915, 65)
+        Me.Label9.Location = New System.Drawing.Point(1075, 65)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(44, 16)
         Me.Label9.TabIndex = 1289
@@ -281,7 +281,7 @@ Partial Class 依銷售申請採購單
         '資料筆數1_tb
         '
         Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(873, 62)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1033, 62)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
         Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
         Me.資料筆數1_tb.TabIndex = 1288
@@ -292,7 +292,7 @@ Partial Class 依銷售申請採購單
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(851, 65)
+        Me.Label10.Location = New System.Drawing.Point(1011, 65)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(20, 16)
         Me.Label10.TabIndex = 1287
@@ -329,7 +329,7 @@ Partial Class 依銷售申請採購單
         DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.採購清單_dgv.RowTemplate.Height = 24
-        Me.採購清單_dgv.Size = New System.Drawing.Size(870, 585)
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1030, 585)
         Me.採購清單_dgv.TabIndex = 1235
         '
         'Label15
@@ -386,14 +386,14 @@ Partial Class 依銷售申請採購單
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.銷售明細_dgv.RowTemplate.Height = 24
-        Me.銷售明細_dgv.Size = New System.Drawing.Size(871, 673)
+        Me.銷售明細_dgv.Size = New System.Drawing.Size(1031, 673)
         Me.銷售明細_dgv.TabIndex = 1308
         '
         '單號_tb
         '
         Me.單號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.單號_tb.Enabled = False
-        Me.單號_tb.Location = New System.Drawing.Point(827, 123)
+        Me.單號_tb.Location = New System.Drawing.Point(987, 123)
         Me.單號_tb.Name = "單號_tb"
         Me.單號_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號_tb.TabIndex = 1309
@@ -443,7 +443,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.Location = New System.Drawing.Point(827, 181)
+        Me.日期2_dtp.Location = New System.Drawing.Point(987, 181)
         Me.日期2_dtp.Name = "日期2_dtp"
         Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期2_dtp.TabIndex = 1315
@@ -453,7 +453,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.Location = New System.Drawing.Point(827, 152)
+        Me.日期1_dtp.Location = New System.Drawing.Point(987, 152)
         Me.日期1_dtp.Name = "日期1_dtp"
         Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期1_dtp.TabIndex = 1314
@@ -512,7 +512,7 @@ Partial Class 依銷售申請採購單
         Me.檔案名稱_tb.AllowDrop = True
         Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1107, 480)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(1267, 480)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
         Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
         Me.檔案名稱_tb.TabIndex = 1335
@@ -522,7 +522,7 @@ Partial Class 依銷售申請採購單
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), 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(1055, 506)
+        Me.Label12.Location = New System.Drawing.Point(1215, 506)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(108, 17)
         Me.Label12.TabIndex = 1333
@@ -533,7 +533,7 @@ Partial Class 依銷售申請採購單
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
         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(1057, 298)
+        Me.Label4.Location = New System.Drawing.Point(1217, 298)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(56, 16)
         Me.Label4.TabIndex = 1332
@@ -544,7 +544,7 @@ Partial Class 依銷售申請採購單
         Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(962, 269)
+        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1122, 269)
         Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
         Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(89, 24)
         Me.讀取資料夾路徑_bt.TabIndex = 1331
@@ -555,7 +555,7 @@ Partial Class 依銷售申請採購單
         '
         Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1056, 354)
+        Me.本機資料夾_wb.Location = New System.Drawing.Point(1216, 354)
         Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.本機資料夾_wb.Name = "本機資料夾_wb"
         Me.本機資料夾_wb.Size = New System.Drawing.Size(287, 122)
@@ -565,7 +565,7 @@ Partial Class 依銷售申請採購單
         'FTP資料夾_wb
         '
         Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1056, 523)
+        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1216, 523)
         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)
@@ -577,7 +577,7 @@ Partial Class 依銷售申請採購單
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Red
-        Me.Label11.Location = New System.Drawing.Point(1064, 319)
+        Me.Label11.Location = New System.Drawing.Point(1224, 319)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(244, 32)
         Me.Label11.TabIndex = 1334
@@ -587,7 +587,7 @@ Partial Class 依銷售申請採購單
         '
         Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(1053, 483)
+        Me.Label5.Location = New System.Drawing.Point(1213, 483)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(56, 16)
         Me.Label5.TabIndex = 1336
@@ -598,7 +598,7 @@ Partial Class 依銷售申請採購單
         Me.下載圖檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.下載圖檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下載圖檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下載圖檔_bt.Location = New System.Drawing.Point(1226, 269)
+        Me.下載圖檔_bt.Location = New System.Drawing.Point(1386, 269)
         Me.下載圖檔_bt.Name = "下載圖檔_bt"
         Me.下載圖檔_bt.Size = New System.Drawing.Size(94, 24)
         Me.下載圖檔_bt.TabIndex = 1339
@@ -610,7 +610,7 @@ Partial Class 依銷售申請採購單
         Me.圖檔入系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.圖檔入系統_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.圖檔入系統_bt.ForeColor = System.Drawing.Color.Green
-        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1052, 269)
+        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1212, 269)
         Me.圖檔入系統_bt.Name = "圖檔入系統_bt"
         Me.圖檔入系統_bt.Size = New System.Drawing.Size(173, 24)
         Me.圖檔入系統_bt.TabIndex = 1338
@@ -625,7 +625,7 @@ Partial Class 依銷售申請採購單
             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(961, 321)
+        Me.訂製圖檔_dgv.Location = New System.Drawing.Point(1121, 321)
         Me.訂製圖檔_dgv.Name = "訂製圖檔_dgv"
         Me.訂製圖檔_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -648,7 +648,7 @@ Partial Class 依銷售申請採購單
         Me.大圖預覽_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.大圖預覽_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.大圖預覽_bt.ForeColor = System.Drawing.Color.Blue
-        Me.大圖預覽_bt.Location = New System.Drawing.Point(962, 295)
+        Me.大圖預覽_bt.Location = New System.Drawing.Point(1122, 295)
         Me.大圖預覽_bt.Name = "大圖預覽_bt"
         Me.大圖預覽_bt.Size = New System.Drawing.Size(89, 24)
         Me.大圖預覽_bt.TabIndex = 1342
@@ -659,7 +659,7 @@ Partial Class 依銷售申請採購單
         '
         Me.單號1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.單號1_tb.Enabled = False
-        Me.單號1_tb.Location = New System.Drawing.Point(827, 296)
+        Me.單號1_tb.Location = New System.Drawing.Point(987, 296)
         Me.單號1_tb.Name = "單號1_tb"
         Me.單號1_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號1_tb.TabIndex = 1343
@@ -675,7 +675,7 @@ Partial Class 依銷售申請採購單
         '
         Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.料號_tb.Enabled = False
-        Me.料號_tb.Location = New System.Drawing.Point(827, 325)
+        Me.料號_tb.Location = New System.Drawing.Point(987, 325)
         Me.料號_tb.Name = "料號_tb"
         Me.料號_tb.Size = New System.Drawing.Size(122, 23)
         Me.料號_tb.TabIndex = 1344
@@ -697,7 +697,7 @@ Partial Class 依銷售申請採購單
         Me.物料圖1_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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(965, 4)
+        Me.物料圖1_pb.Location = New System.Drawing.Point(1125, 4)
         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(373, 262)
@@ -766,12 +766,11 @@ Partial Class 依銷售申請採購單
         '
         '字體大小調整_lb
         '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.DarkRed
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1184, 296)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(979, 32)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1462
@@ -779,8 +778,7 @@ Partial Class 依銷售申請採購單
         '
         '字體_NUD
         '
-        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1255, 295)
+        Me.字體_NUD.Location = New System.Drawing.Point(1050, 31)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {14, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -792,7 +790,7 @@ Partial Class 依銷售申請採購單
         '
         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.ClientSize = New System.Drawing.Size(1504, 681)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.交貨日期_tb)

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

@@ -0,0 +1,339 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 應收帳款已收
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.客戶1_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.刪除收款事項上點選的資料_bt = New System.Windows.Forms.Button()
+        Me.新增一筆收款事項_bt = New System.Windows.Forms.Button()
+        Me.項次2_tb = New System.Windows.Forms.TextBox()
+        Me.Label36 = New System.Windows.Forms.Label()
+        Me.收款事項_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.客戶編號_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '銷售單據_dgv
+        '
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.銷售單據_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.銷售單據_dgv.Name = "銷售單據_dgv"
+        Me.銷售單據_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.銷售單據_dgv.RowTemplate.Height = 24
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(660, 686)
+        Me.銷售單據_dgv.TabIndex = 1339
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.Controls.Add(Me.字體大小調整_lb)
+        Me.Panel1.Controls.Add(Me.字體_NUD)
+        Me.Panel1.Controls.Add(Me.未審核_lb)
+        Me.Panel1.Controls.Add(Me.客戶1_tb)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.業務_cb)
+        Me.Panel1.Controls.Add(Me.Label13)
+        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(2, 2)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(667, 719)
+        Me.Panel1.TabIndex = 2
+        '
+        '未審核_lb
+        '
+        Me.未審核_lb.AutoSize = True
+        Me.未審核_lb.Location = New System.Drawing.Point(5, 8)
+        Me.未審核_lb.Name = "未審核_lb"
+        Me.未審核_lb.Size = New System.Drawing.Size(68, 16)
+        Me.未審核_lb.TabIndex = 1340
+        Me.未審核_lb.Text = "業務銷售單"
+        '
+        '客戶1_tb
+        '
+        Me.客戶1_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶1_tb.Location = New System.Drawing.Point(173, 4)
+        Me.客戶1_tb.Name = "客戶1_tb"
+        Me.客戶1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.客戶1_tb.TabIndex = 1343
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.Black
+        Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label12.Location = New System.Drawing.Point(118, 8)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.TabIndex = 1342
+        Me.Label12.Text = "客戶資料"
+        '
+        '業務_cb
+        '
+        Me.業務_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.業務_cb.FormattingEnabled = True
+        Me.業務_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "B", "Y"})
+        Me.業務_cb.Location = New System.Drawing.Point(74, 3)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(40, 24)
+        Me.業務_cb.TabIndex = 1341
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(301, 9)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(260, 15)
+        Me.Label13.TabIndex = 1344
+        Me.Label13.Text = "可以使用客戶名稱，電話，地址，統篇等資料作查詢"
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(565, 5)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
+        Me.字體大小調整_lb.TabIndex = 1455
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Location = New System.Drawing.Point(635, 3)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(27, 23)
+        Me.字體_NUD.TabIndex = 1454
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '刪除收款事項上點選的資料_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.Red
+        Me.刪除收款事項上點選的資料_bt.Location = New System.Drawing.Point(137, 596)
+        Me.刪除收款事項上點選的資料_bt.Name = "刪除收款事項上點選的資料_bt"
+        Me.刪除收款事項上點選的資料_bt.Size = New System.Drawing.Size(163, 23)
+        Me.刪除收款事項上點選的資料_bt.TabIndex = 1292
+        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(41, 596)
+        Me.新增一筆收款事項_bt.Name = "新增一筆收款事項_bt"
+        Me.新增一筆收款事項_bt.Size = New System.Drawing.Size(94, 23)
+        Me.新增一筆收款事項_bt.TabIndex = 1291
+        Me.新增一筆收款事項_bt.Text = "新增一筆收款事項"
+        Me.新增一筆收款事項_bt.UseVisualStyleBackColor = True
+        '
+        '項次2_tb
+        '
+        Me.項次2_tb.Enabled = False
+        Me.項次2_tb.Location = New System.Drawing.Point(4, 596)
+        Me.項次2_tb.Name = "項次2_tb"
+        Me.項次2_tb.Size = New System.Drawing.Size(35, 23)
+        Me.項次2_tb.TabIndex = 1289
+        '
+        'Label36
+        '
+        Me.Label36.AutoSize = True
+        Me.Label36.Location = New System.Drawing.Point(672, 603)
+        Me.Label36.Name = "Label36"
+        Me.Label36.Size = New System.Drawing.Size(32, 16)
+        Me.Label36.TabIndex = 1290
+        Me.Label36.Text = "項次"
+        '
+        '收款事項_dgv
+        '
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.收款事項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收款事項_dgv.Location = New System.Drawing.Point(3, 621)
+        Me.收款事項_dgv.Name = "收款事項_dgv"
+        Me.收款事項_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.收款事項_dgv.RowTemplate.Height = 24
+        Me.收款事項_dgv.Size = New System.Drawing.Size(629, 93)
+        Me.收款事項_dgv.TabIndex = 1288
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.單號_tb)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Controls.Add(Me.客戶編號_tb)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.流水號_tb)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Controls.Add(Me.刪除收款事項上點選的資料_bt)
+        Me.Panel2.Controls.Add(Me.新增一筆收款事項_bt)
+        Me.Panel2.Controls.Add(Me.項次2_tb)
+        Me.Panel2.Controls.Add(Me.收款事項_dgv)
+        Me.Panel2.Location = New System.Drawing.Point(674, 3)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(635, 717)
+        Me.Panel2.TabIndex = 1293
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Enabled = False
+        Me.流水號_tb.Location = New System.Drawing.Point(96, 641)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(100, 23)
+        Me.流水號_tb.TabIndex = 1293
+        Me.流水號_tb.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(38, 644)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.TabIndex = 1294
+        Me.Label1.Text = "流水號"
+        Me.Label1.Visible = False
+        '
+        '客戶編號_tb
+        '
+        Me.客戶編號_tb.Enabled = False
+        Me.客戶編號_tb.Location = New System.Drawing.Point(377, 517)
+        Me.客戶編號_tb.Name = "客戶編號_tb"
+        Me.客戶編號_tb.Size = New System.Drawing.Size(99, 23)
+        Me.客戶編號_tb.TabIndex = 1296
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Red
+        Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label5.Location = New System.Drawing.Point(317, 522)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1295
+        Me.Label5.Text = "編號客戶"
+        '
+        '單號_tb
+        '
+        Me.單號_tb.Enabled = False
+        Me.單號_tb.Location = New System.Drawing.Point(354, 552)
+        Me.單號_tb.Name = "單號_tb"
+        Me.單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.單號_tb.TabIndex = 1297
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Red
+        Me.Label2.Location = New System.Drawing.Point(317, 555)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.TabIndex = 1298
+        Me.Label2.Text = "單號"
+        '
+        '應收帳款已收
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1314, 724)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Label36)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "應收帳款已收"
+        Me.Text = "應收帳款已收"
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Protected WithEvents 銷售單據_dgv As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 客戶1_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 刪除收款事項上點選的資料_bt As Button
+    Friend WithEvents 新增一筆收款事項_bt As Button
+    Friend WithEvents 項次2_tb As TextBox
+    Friend WithEvents Label36 As Label
+    Friend WithEvents 收款事項_dgv As DataGridView
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 客戶編號_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 單號_tb As TextBox
+    Friend WithEvents Label2 As Label
+End Class

YD-ERP-SYS/採購系統管理/應收帳款已收.resx

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

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

@@ -0,0 +1,105 @@
+Public Class 應收帳款已收
+    ReadOnly ds1, ds2, ds4, ds5, ds6, ds7 As New DataSet
+    Dim EDR As Integer : Dim ESTR As String
+    Private Sub Set_清單6()
+        收款事項_dgv.DataSource = Nothing : ds6.Clear()
+        收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收款事項_dgv.ColumnHeadersHeight = 25
+        收款事項_dgv.AllowUserToAddRows = False
+        收款事項_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項()
+        da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
+        收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180
+
+        收款事項_dgv.Columns(2).ReadOnly = True
+
+        收款事項_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
+
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            收款事項_dgv("項次", i).Value = i + 1
+        Next
+        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        'Set_合記計算()
+    End Sub
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        '採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        '訂製圖檔_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 35
+
+        PA19 = 業務_cb.Text : PA20 = 客戶1_tb.Text
+        SQL_應收帳款已收_訂單控制表()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 110
+        銷售單據_dgv.Columns(4).FillWeight = 110 : 銷售單據_dgv.Columns(5).FillWeight = 50 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 110
+        銷售單據_dgv.Columns(8).FillWeight = 85 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
+        銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = False : 銷售單據_dgv.Columns(14).Visible = False : 銷售單據_dgv.Columns(15).Visible = False
+        銷售單據_dgv.Columns(16).Visible = False : 銷售單據_dgv.Columns(17).Visible = False : 銷售單據_dgv.Columns(18).Visible = False
+
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    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
+        業務_cb.Text = 業務號碼 : Set_清單1()
+    End Sub
+    Private Sub 新增一筆收款事項_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆收款事項_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 客戶編號_tb.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 = "ST" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
+                PA1 = ESTR
+
+                SQL_銷售收款事項_最後一筆項次()
+                If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
+                PA2 = ESTR : PA = 單號_tb.Text
+                SQL_銷售收款事項_新增2()
+
+                For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                    資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                    PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                    NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                    SQL_銷售收款事項_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                Set_清單6()
+            End If
+        End If
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+End Class

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

@@ -0,0 +1,251 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 應收帳款未收
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.客戶1_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.刪除收款事項上點選的資料_bt = New System.Windows.Forms.Button()
+        Me.新增一筆收款事項_bt = New System.Windows.Forms.Button()
+        Me.項次2_tb = New System.Windows.Forms.TextBox()
+        Me.Label36 = New System.Windows.Forms.Label()
+        Me.收款事項_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1.SuspendLayout()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.Controls.Add(Me.字體大小調整_lb)
+        Me.Panel1.Controls.Add(Me.字體_NUD)
+        Me.Panel1.Controls.Add(Me.未審核_lb)
+        Me.Panel1.Controls.Add(Me.客戶1_tb)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.業務_cb)
+        Me.Panel1.Controls.Add(Me.Label13)
+        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(2, 2)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(667, 719)
+        Me.Panel1.TabIndex = 1
+        '
+        '未審核_lb
+        '
+        Me.未審核_lb.AutoSize = True
+        Me.未審核_lb.Location = New System.Drawing.Point(5, 8)
+        Me.未審核_lb.Name = "未審核_lb"
+        Me.未審核_lb.Size = New System.Drawing.Size(68, 16)
+        Me.未審核_lb.TabIndex = 1340
+        Me.未審核_lb.Text = "業務銷售單"
+        '
+        '客戶1_tb
+        '
+        Me.客戶1_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶1_tb.Location = New System.Drawing.Point(173, 4)
+        Me.客戶1_tb.Name = "客戶1_tb"
+        Me.客戶1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.客戶1_tb.TabIndex = 1343
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.Black
+        Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label12.Location = New System.Drawing.Point(118, 8)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.TabIndex = 1342
+        Me.Label12.Text = "客戶資料"
+        '
+        '業務_cb
+        '
+        Me.業務_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.業務_cb.FormattingEnabled = True
+        Me.業務_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "B", "Y"})
+        Me.業務_cb.Location = New System.Drawing.Point(74, 3)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(40, 24)
+        Me.業務_cb.TabIndex = 1341
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(301, 7)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(260, 15)
+        Me.Label13.TabIndex = 1344
+        Me.Label13.Text = "可以使用客戶名稱，電話，地址，統篇等資料作查詢"
+        '
+        '銷售單據_dgv
+        '
+        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
+        Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.銷售單據_dgv.Name = "銷售單據_dgv"
+        Me.銷售單據_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, 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(661, 686)
+        Me.銷售單據_dgv.TabIndex = 1339
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(567, 5)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
+        Me.字體大小調整_lb.TabIndex = 1457
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Location = New System.Drawing.Point(637, 3)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(27, 23)
+        Me.字體_NUD.TabIndex = 1456
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '刪除收款事項上點選的資料_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.Red
+        Me.刪除收款事項上點選的資料_bt.Location = New System.Drawing.Point(838, 601)
+        Me.刪除收款事項上點選的資料_bt.Name = "刪除收款事項上點選的資料_bt"
+        Me.刪除收款事項上點選的資料_bt.Size = New System.Drawing.Size(163, 23)
+        Me.刪除收款事項上點選的資料_bt.TabIndex = 1462
+        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(742, 601)
+        Me.新增一筆收款事項_bt.Name = "新增一筆收款事項_bt"
+        Me.新增一筆收款事項_bt.Size = New System.Drawing.Size(94, 23)
+        Me.新增一筆收款事項_bt.TabIndex = 1461
+        Me.新增一筆收款事項_bt.Text = "新增一筆收款事項"
+        Me.新增一筆收款事項_bt.UseVisualStyleBackColor = True
+        '
+        '項次2_tb
+        '
+        Me.項次2_tb.Enabled = False
+        Me.項次2_tb.Location = New System.Drawing.Point(704, 602)
+        Me.項次2_tb.Name = "項次2_tb"
+        Me.項次2_tb.Size = New System.Drawing.Size(35, 23)
+        Me.項次2_tb.TabIndex = 1459
+        '
+        'Label36
+        '
+        Me.Label36.AutoSize = True
+        Me.Label36.Location = New System.Drawing.Point(673, 605)
+        Me.Label36.Name = "Label36"
+        Me.Label36.Size = New System.Drawing.Size(32, 16)
+        Me.Label36.TabIndex = 1460
+        Me.Label36.Text = "項次"
+        '
+        '收款事項_dgv
+        '
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.收款事項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收款事項_dgv.Location = New System.Drawing.Point(674, 626)
+        Me.收款事項_dgv.Name = "收款事項_dgv"
+        Me.收款事項_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.收款事項_dgv.RowTemplate.Height = 24
+        Me.收款事項_dgv.Size = New System.Drawing.Size(543, 93)
+        Me.收款事項_dgv.TabIndex = 1458
+        '
+        '應收帳款未收
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1334, 724)
+        Me.Controls.Add(Me.刪除收款事項上點選的資料_bt)
+        Me.Controls.Add(Me.新增一筆收款事項_bt)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.項次2_tb)
+        Me.Controls.Add(Me.收款事項_dgv)
+        Me.Controls.Add(Me.Label36)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "應收帳款未收"
+        Me.Text = "應收帳款未收"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 客戶1_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents Label13 As Label
+    Protected WithEvents 銷售單據_dgv As DataGridView
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 刪除收款事項上點選的資料_bt As Button
+    Friend WithEvents 新增一筆收款事項_bt As Button
+    Friend WithEvents 項次2_tb As TextBox
+    Friend WithEvents Label36 As Label
+    Friend WithEvents 收款事項_dgv As DataGridView
+End Class

YD-ERP-SYS/採購系統管理/應收帳款未收.resx

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

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

@@ -0,0 +1,37 @@
+Public Class 應收帳款未收
+    ReadOnly ds1, ds2, ds4, ds5, ds6, ds7 As New DataSet
+
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        '採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        '訂製圖檔_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 35
+
+        PA19 = 業務_cb.Text : PA20 = 客戶1_tb.Text
+        SQL_應收帳款未收_訂單控制表()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 110
+        銷售單據_dgv.Columns(4).FillWeight = 110 : 銷售單據_dgv.Columns(5).FillWeight = 50 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 110
+        銷售單據_dgv.Columns(8).FillWeight = 85 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
+        銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = False : 銷售單據_dgv.Columns(14).Visible = False : 銷售單據_dgv.Columns(15).Visible = False
+        銷售單據_dgv.Columns(16).Visible = False : 銷售單據_dgv.Columns(17).Visible = False : 銷售單據_dgv.Columns(18).Visible = False
+
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    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
+        業務_cb.Text = 業務號碼 : Set_清單1()
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+End Class

YD-ERP-SYS/採購系統管理/採購單審核.Designer.vb

@@ -109,7 +109,7 @@ Partial Class 採購單審核
         '
         Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.料號_tb.Enabled = False
-        Me.料號_tb.Location = New System.Drawing.Point(744, 296)
+        Me.料號_tb.Location = New System.Drawing.Point(895, 296)
         Me.料號_tb.Name = "料號_tb"
         Me.料號_tb.Size = New System.Drawing.Size(122, 23)
         Me.料號_tb.TabIndex = 1442
@@ -119,7 +119,7 @@ Partial Class 採購單審核
         '
         Me.單號1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.單號1_tb.Enabled = False
-        Me.單號1_tb.Location = New System.Drawing.Point(744, 267)
+        Me.單號1_tb.Location = New System.Drawing.Point(895, 267)
         Me.單號1_tb.Name = "單號1_tb"
         Me.單號1_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號1_tb.TabIndex = 1441
@@ -130,7 +130,7 @@ Partial Class 採購單審核
         Me.大圖預覽_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.大圖預覽_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.大圖預覽_bt.ForeColor = System.Drawing.Color.Blue
-        Me.大圖預覽_bt.Location = New System.Drawing.Point(960, 295)
+        Me.大圖預覽_bt.Location = New System.Drawing.Point(1111, 295)
         Me.大圖預覽_bt.Name = "大圖預覽_bt"
         Me.大圖預覽_bt.Size = New System.Drawing.Size(89, 24)
         Me.大圖預覽_bt.TabIndex = 1440
@@ -153,7 +153,7 @@ Partial Class 採購單審核
             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(959, 321)
+        Me.訂製圖檔_dgv.Location = New System.Drawing.Point(1110, 321)
         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))
@@ -168,7 +168,7 @@ Partial Class 採購單審核
         Me.下載圖檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.下載圖檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下載圖檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下載圖檔_bt.Location = New System.Drawing.Point(1224, 269)
+        Me.下載圖檔_bt.Location = New System.Drawing.Point(1375, 269)
         Me.下載圖檔_bt.Name = "下載圖檔_bt"
         Me.下載圖檔_bt.Size = New System.Drawing.Size(94, 24)
         Me.下載圖檔_bt.TabIndex = 1437
@@ -180,7 +180,7 @@ Partial Class 採購單審核
         Me.圖檔入系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.圖檔入系統_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.圖檔入系統_bt.ForeColor = System.Drawing.Color.Green
-        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1050, 269)
+        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1201, 269)
         Me.圖檔入系統_bt.Name = "圖檔入系統_bt"
         Me.圖檔入系統_bt.Size = New System.Drawing.Size(173, 24)
         Me.圖檔入系統_bt.TabIndex = 1436
@@ -203,7 +203,7 @@ Partial Class 採購單審核
         Me.檔案名稱_tb.AllowDrop = True
         Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1105, 480)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(1256, 480)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
         Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
         Me.檔案名稱_tb.TabIndex = 1433
@@ -213,7 +213,7 @@ Partial Class 採購單審核
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), 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(1053, 506)
+        Me.Label12.Location = New System.Drawing.Point(1204, 506)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(108, 17)
         Me.Label12.TabIndex = 1431
@@ -224,7 +224,7 @@ Partial Class 採購單審核
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
         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(1055, 298)
+        Me.Label4.Location = New System.Drawing.Point(1206, 298)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(56, 16)
         Me.Label4.TabIndex = 1430
@@ -235,7 +235,7 @@ Partial Class 採購單審核
         Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(960, 269)
+        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1111, 269)
         Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
         Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(89, 24)
         Me.讀取資料夾路徑_bt.TabIndex = 1429
@@ -246,7 +246,7 @@ Partial Class 採購單審核
         '
         Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1054, 354)
+        Me.本機資料夾_wb.Location = New System.Drawing.Point(1205, 354)
         Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.本機資料夾_wb.Name = "本機資料夾_wb"
         Me.本機資料夾_wb.Size = New System.Drawing.Size(287, 122)
@@ -256,7 +256,7 @@ Partial Class 採購單審核
         'FTP資料夾_wb
         '
         Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1054, 523)
+        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1205, 523)
         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)
@@ -268,7 +268,7 @@ Partial Class 採購單審核
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Red
-        Me.Label11.Location = New System.Drawing.Point(1062, 319)
+        Me.Label11.Location = New System.Drawing.Point(1213, 319)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(244, 32)
         Me.Label11.TabIndex = 1432
@@ -278,7 +278,7 @@ Partial Class 採購單審核
         '
         Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(1051, 483)
+        Me.Label5.Location = New System.Drawing.Point(1202, 483)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(56, 16)
         Me.Label5.TabIndex = 1434
@@ -325,7 +325,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.Location = New System.Drawing.Point(744, 152)
+        Me.日期2_dtp.Location = New System.Drawing.Point(895, 152)
         Me.日期2_dtp.Name = "日期2_dtp"
         Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期2_dtp.TabIndex = 1422
@@ -335,7 +335,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.Location = New System.Drawing.Point(744, 123)
+        Me.日期1_dtp.Location = New System.Drawing.Point(895, 123)
         Me.日期1_dtp.Name = "日期1_dtp"
         Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期1_dtp.TabIndex = 1421
@@ -364,7 +364,7 @@ Partial Class 採購單審核
         '
         Me.單號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.單號_tb.Enabled = False
-        Me.單號_tb.Location = New System.Drawing.Point(744, 94)
+        Me.單號_tb.Location = New System.Drawing.Point(895, 94)
         Me.單號_tb.Name = "單號_tb"
         Me.單號_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號_tb.TabIndex = 1418
@@ -510,7 +510,7 @@ Partial Class 採購單審核
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(913, 61)
+        Me.Label9.Location = New System.Drawing.Point(1064, 61)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(44, 16)
         Me.Label9.TabIndex = 1402
@@ -519,7 +519,7 @@ Partial Class 採購單審核
         '資料筆數1_tb
         '
         Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(871, 58)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1022, 58)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
         Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
         Me.資料筆數1_tb.TabIndex = 1401
@@ -530,7 +530,7 @@ Partial Class 採購單審核
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(849, 61)
+        Me.Label10.Location = New System.Drawing.Point(1000, 61)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(20, 16)
         Me.Label10.TabIndex = 1400
@@ -588,7 +588,7 @@ Partial Class 採購單審核
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.採購清單_dgv.RowTemplate.Height = 24
-        Me.採購清單_dgv.Size = New System.Drawing.Size(951, 591)
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1102, 591)
         Me.採購清單_dgv.TabIndex = 1395
         '
         '物料圖1_pb
@@ -596,7 +596,7 @@ Partial Class 採購單審核
         Me.物料圖1_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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(963, 4)
+        Me.物料圖1_pb.Location = New System.Drawing.Point(1114, 4)
         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(373, 262)
@@ -693,21 +693,19 @@ Partial Class 採購單審核
         '
         '字體大小調整_lb
         '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1213, 298)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(966, 30)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1453
         Me.字體大小調整_lb.Text = "字體調整"
         '
         '字體_NUD
         '
-        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1274, 295)
+        Me.字體_NUD.Location = New System.Drawing.Point(1036, 28)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -719,7 +717,7 @@ Partial Class 採購單審核
         '
         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.ClientSize = New System.Drawing.Size(1495, 681)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.依廠商選擇_bt)

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

@@ -23,10 +23,10 @@ Partial Class 採購對帳單
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(採購對帳單))
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 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()
@@ -91,6 +91,8 @@ Partial Class 採購對帳單
         Me.列印Excel_bt = New System.Windows.Forms.Button()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.全部選擇_bt = New System.Windows.Forms.Button()
+        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()
@@ -113,7 +115,7 @@ Partial Class 採購對帳單
         '
         Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.料號_tb.Enabled = False
-        Me.料號_tb.Location = New System.Drawing.Point(851, 327)
+        Me.料號_tb.Location = New System.Drawing.Point(1044, 327)
         Me.料號_tb.Name = "料號_tb"
         Me.料號_tb.Size = New System.Drawing.Size(122, 23)
         Me.料號_tb.TabIndex = 1393
@@ -123,7 +125,7 @@ Partial Class 採購對帳單
         '
         Me.單號1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.單號1_tb.Enabled = False
-        Me.單號1_tb.Location = New System.Drawing.Point(851, 298)
+        Me.單號1_tb.Location = New System.Drawing.Point(1044, 298)
         Me.單號1_tb.Name = "單號1_tb"
         Me.單號1_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號1_tb.TabIndex = 1392
@@ -134,7 +136,7 @@ Partial Class 採購對帳單
         Me.大圖預覽_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.大圖預覽_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.大圖預覽_bt.ForeColor = System.Drawing.Color.Blue
-        Me.大圖預覽_bt.Location = New System.Drawing.Point(1067, 297)
+        Me.大圖預覽_bt.Location = New System.Drawing.Point(1260, 297)
         Me.大圖預覽_bt.Name = "大圖預覽_bt"
         Me.大圖預覽_bt.Size = New System.Drawing.Size(89, 24)
         Me.大圖預覽_bt.TabIndex = 1391
@@ -151,18 +153,18 @@ Partial Class 採購對帳單
         '
         '訂製圖檔_dgv
         '
-        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
+        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.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(1066, 323)
+        Me.訂製圖檔_dgv.Location = New System.Drawing.Point(1259, 323)
         Me.訂製圖檔_dgv.Name = "訂製圖檔_dgv"
         Me.訂製圖檔_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂製圖檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂製圖檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.訂製圖檔_dgv.RowTemplate.Height = 24
         Me.訂製圖檔_dgv.Size = New System.Drawing.Size(90, 354)
         Me.訂製圖檔_dgv.TabIndex = 1389
@@ -172,7 +174,7 @@ Partial Class 採購對帳單
         Me.下載圖檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.下載圖檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下載圖檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下載圖檔_bt.Location = New System.Drawing.Point(1331, 271)
+        Me.下載圖檔_bt.Location = New System.Drawing.Point(1524, 271)
         Me.下載圖檔_bt.Name = "下載圖檔_bt"
         Me.下載圖檔_bt.Size = New System.Drawing.Size(94, 24)
         Me.下載圖檔_bt.TabIndex = 1388
@@ -184,7 +186,7 @@ Partial Class 採購對帳單
         Me.圖檔入系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.圖檔入系統_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.圖檔入系統_bt.ForeColor = System.Drawing.Color.Green
-        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1157, 271)
+        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1350, 271)
         Me.圖檔入系統_bt.Name = "圖檔入系統_bt"
         Me.圖檔入系統_bt.Size = New System.Drawing.Size(173, 24)
         Me.圖檔入系統_bt.TabIndex = 1387
@@ -207,7 +209,7 @@ Partial Class 採購對帳單
         Me.檔案名稱_tb.AllowDrop = True
         Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1212, 482)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(1405, 482)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
         Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
         Me.檔案名稱_tb.TabIndex = 1384
@@ -217,7 +219,7 @@ Partial Class 採購對帳單
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), 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(1160, 508)
+        Me.Label12.Location = New System.Drawing.Point(1353, 508)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(108, 17)
         Me.Label12.TabIndex = 1382
@@ -228,7 +230,7 @@ Partial Class 採購對帳單
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
         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(1162, 300)
+        Me.Label4.Location = New System.Drawing.Point(1355, 300)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(56, 16)
         Me.Label4.TabIndex = 1381
@@ -239,7 +241,7 @@ Partial Class 採購對帳單
         Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1067, 271)
+        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1260, 271)
         Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
         Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(89, 24)
         Me.讀取資料夾路徑_bt.TabIndex = 1380
@@ -250,7 +252,7 @@ Partial Class 採購對帳單
         '
         Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1161, 356)
+        Me.本機資料夾_wb.Location = New System.Drawing.Point(1354, 356)
         Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
         Me.本機資料夾_wb.Name = "本機資料夾_wb"
         Me.本機資料夾_wb.Size = New System.Drawing.Size(287, 122)
@@ -260,7 +262,7 @@ Partial Class 採購對帳單
         'FTP資料夾_wb
         '
         Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1161, 525)
+        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1354, 525)
         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)
@@ -272,7 +274,7 @@ Partial Class 採購對帳單
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Red
-        Me.Label11.Location = New System.Drawing.Point(1169, 321)
+        Me.Label11.Location = New System.Drawing.Point(1362, 321)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(244, 32)
         Me.Label11.TabIndex = 1383
@@ -282,7 +284,7 @@ Partial Class 採購對帳單
         '
         Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(1158, 485)
+        Me.Label5.Location = New System.Drawing.Point(1351, 485)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(56, 16)
         Me.Label5.TabIndex = 1385
@@ -329,7 +331,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.Location = New System.Drawing.Point(851, 183)
+        Me.日期2_dtp.Location = New System.Drawing.Point(1044, 183)
         Me.日期2_dtp.Name = "日期2_dtp"
         Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期2_dtp.TabIndex = 1373
@@ -339,7 +341,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.Location = New System.Drawing.Point(851, 154)
+        Me.日期1_dtp.Location = New System.Drawing.Point(1044, 154)
         Me.日期1_dtp.Name = "日期1_dtp"
         Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期1_dtp.TabIndex = 1372
@@ -368,7 +370,7 @@ Partial Class 採購對帳單
         '
         Me.單號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.單號_tb.Enabled = False
-        Me.單號_tb.Location = New System.Drawing.Point(851, 125)
+        Me.單號_tb.Location = New System.Drawing.Point(1044, 125)
         Me.單號_tb.Name = "單號_tb"
         Me.單號_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號_tb.TabIndex = 1369
@@ -408,7 +410,7 @@ Partial Class 採購對帳單
         Me.物料圖1_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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(1070, 6)
+        Me.物料圖1_pb.Location = New System.Drawing.Point(1263, 6)
         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(373, 262)
@@ -526,7 +528,7 @@ Partial Class 採購對帳單
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(1020, 67)
+        Me.Label9.Location = New System.Drawing.Point(1213, 67)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(44, 16)
         Me.Label9.TabIndex = 1353
@@ -535,7 +537,7 @@ Partial Class 採購對帳單
         '資料筆數1_tb
         '
         Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(978, 64)
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1171, 64)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
         Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
         Me.資料筆數1_tb.TabIndex = 1352
@@ -546,7 +548,7 @@ Partial Class 採購對帳單
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(956, 67)
+        Me.Label10.Location = New System.Drawing.Point(1149, 67)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(20, 16)
         Me.Label10.TabIndex = 1351
@@ -598,11 +600,11 @@ Partial Class 採購對帳單
         Me.採購清單_dgv.Location = New System.Drawing.Point(5, 92)
         Me.採購清單_dgv.Name = "採購清單_dgv"
         Me.採購清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.採購清單_dgv.RowTemplate.Height = 24
-        Me.採購清單_dgv.Size = New System.Drawing.Size(1059, 585)
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1252, 585)
         Me.採購清單_dgv.TabIndex = 1346
         '
         'SaveFileDialog1
@@ -665,7 +667,7 @@ Partial Class 採購對帳單
         '
         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(723, 154)
+        Me.日期3_dtp.Location = New System.Drawing.Point(916, 154)
         Me.日期3_dtp.Name = "日期3_dtp"
         Me.日期3_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期3_dtp.TabIndex = 1455
@@ -675,7 +677,7 @@ Partial Class 採購對帳單
         '
         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(723, 183)
+        Me.日期4_dtp.Location = New System.Drawing.Point(916, 183)
         Me.日期4_dtp.Name = "日期4_dtp"
         Me.日期4_dtp.Size = New System.Drawing.Size(122, 23)
         Me.日期4_dtp.TabIndex = 1456
@@ -696,7 +698,7 @@ Partial Class 採購對帳單
         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(948, 4)
+        Me.過帳_bt.Location = New System.Drawing.Point(1141, 4)
         Me.過帳_bt.Name = "過帳_bt"
         Me.過帳_bt.Size = New System.Drawing.Size(116, 52)
         Me.過帳_bt.TabIndex = 1458
@@ -721,7 +723,7 @@ Partial Class 採購對帳單
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(833, 67)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1026, 67)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1461
@@ -730,7 +732,7 @@ Partial Class 採購對帳單
         '字體_NUD
         '
         Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(893, 64)
+        Me.字體_NUD.Location = New System.Drawing.Point(1086, 64)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -738,12 +740,36 @@ Partial Class 採購對帳單
         Me.字體_NUD.TabIndex = 1460
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
+        '全部選擇_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(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.全部選擇_bt.Location = New System.Drawing.Point(824, 63)
+        Me.全部選擇_bt.Name = "全部選擇_bt"
+        Me.全部選擇_bt.Size = New System.Drawing.Size(76, 23)
+        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(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.全部取消_bt.Location = New System.Drawing.Point(903, 63)
+        Me.全部取消_bt.Name = "全部取消_bt"
+        Me.全部取消_bt.Size = New System.Drawing.Size(76, 23)
+        Me.全部取消_bt.TabIndex = 1465
+        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(1452, 681)
+        Me.ClientSize = New System.Drawing.Size(1645, 681)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.全部取消_bt)
+        Me.Controls.Add(Me.全部選擇_bt)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.列印Excel_bt)
@@ -883,4 +909,6 @@ Partial Class 採購對帳單
     Friend WithEvents 列印Excel_bt As Button
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 全部選擇_bt As Button
+    Friend WithEvents 全部取消_bt As Button
 End Class

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

@@ -505,8 +505,10 @@ Public Class 採購對帳單
         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_採購控制表_過帳()
+                If 採購清單_dgv("實際進廠日", i).Value.ToString <> "" Then
+                    PA = 採購清單_dgv("資料流水號", i).Value : PA2 = "1" : PA1 = 採購清單_dgv("實際進廠日", i).Value
+                    SQL_採購控制表_過帳()
+                End If
             End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
         Set_清單1()
@@ -924,6 +926,30 @@ Public Class 採購對帳單
             .ShrinkToFit = False : .ReadingOrder = xlContext
         End With
     End Sub
+
+    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
+        If 供應商_tb.Text = "" Then
+            MsgBox("請先點選供應商!")
+        Else
+            For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+                If 供應商_tb.Text = 採購清單_dgv.Rows(i).Cells("供應商").Value Then
+                    If 採購清單_dgv.Rows(i).Cells("實際進廠日").Value.ToString <> "" Then
+                        採購清單_dgv.Rows(i).Cells("選擇").Value = True
+                    End If
+                End If
+            Next
+        End If
+
+    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
+            If 供應商_tb.Text = 採購清單_dgv.Rows(i).Cells("供應商").Value Then
+                採購清單_dgv.Rows(i).Cells("選擇").Value = False
+            End If
+        Next
+    End Sub
+
     Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
         Set_清單1()
     End Sub

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

@@ -22,12 +22,12 @@ Partial Class 採購應負帳款
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
@@ -79,6 +79,9 @@ Partial Class 採購應負帳款
         Me.匯出Excel_bt = New System.Windows.Forms.Button()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.應負帳款退回_bt = New System.Windows.Forms.Button()
+        Me.資料流水號_tb = New System.Windows.Forms.TextBox()
+        Me.提示_lb = New System.Windows.Forms.Label()
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -179,8 +182,8 @@ Partial Class 採購應負帳款
         '
         '供應商_dgv
         '
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.供應商_dgv.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)
@@ -190,9 +193,9 @@ Partial Class 採購應負帳款
         Me.供應商_dgv.Location = New System.Drawing.Point(247, 34)
         Me.供應商_dgv.Name = "供應商_dgv"
         Me.供應商_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle26.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.供應商_dgv.RowTemplate.Height = 24
         Me.供應商_dgv.Size = New System.Drawing.Size(1092, 711)
         Me.供應商_dgv.TabIndex = 1439
@@ -230,8 +233,8 @@ Partial Class 採購應負帳款
         '
         '採購清單_dgv
         '
-        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         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)
@@ -241,9 +244,9 @@ Partial Class 採購應負帳款
         Me.採購清單_dgv.Location = New System.Drawing.Point(247, 34)
         Me.採購清單_dgv.Name = "採購清單_dgv"
         Me.採購清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle28.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.採購清單_dgv.RowTemplate.Height = 24
         Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 711)
         Me.採購清單_dgv.TabIndex = 1443
@@ -635,8 +638,8 @@ Partial Class 採購應負帳款
         '
         '合計_dgv
         '
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -645,9 +648,9 @@ Partial Class 採購應負帳款
         Me.合計_dgv.Location = New System.Drawing.Point(4, 557)
         Me.合計_dgv.Name = "合計_dgv"
         Me.合計_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.合計_dgv.RowTemplate.Height = 24
         Me.合計_dgv.Size = New System.Drawing.Size(237, 107)
         Me.合計_dgv.TabIndex = 1479
@@ -667,7 +670,8 @@ Partial Class 採購應負帳款
         '
         '字體_NUD
         '
-        Me.字體_NUD.Location = New System.Drawing.Point(327, 7)
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(1287, 4)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -677,21 +681,55 @@ Partial Class 採購應負帳款
         '
         '字體大小調整_lb
         '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(257, 8)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1217, 5)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1483
         Me.字體大小調整_lb.Text = "字體調整"
         '
+        '應負帳款退回_bt
+        '
+        Me.應負帳款退回_bt.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.應負帳款退回_bt.ForeColor = System.Drawing.Color.Brown
+        Me.應負帳款退回_bt.Location = New System.Drawing.Point(247, 2)
+        Me.應負帳款退回_bt.Name = "應負帳款退回_bt"
+        Me.應負帳款退回_bt.Size = New System.Drawing.Size(122, 29)
+        Me.應負帳款退回_bt.TabIndex = 1484
+        Me.應負帳款退回_bt.Text = "應負帳款退回"
+        Me.應負帳款退回_bt.UseVisualStyleBackColor = True
+        '
+        '資料流水號_tb
+        '
+        Me.資料流水號_tb.Location = New System.Drawing.Point(937, 180)
+        Me.資料流水號_tb.Name = "資料流水號_tb"
+        Me.資料流水號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.資料流水號_tb.TabIndex = 1485
+        Me.資料流水號_tb.Visible = False
+        '
+        '提示_lb
+        '
+        Me.提示_lb.AutoSize = True
+        Me.提示_lb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.提示_lb.ForeColor = System.Drawing.Color.Red
+        Me.提示_lb.Location = New System.Drawing.Point(385, 7)
+        Me.提示_lb.Name = "提示_lb"
+        Me.提示_lb.Size = New System.Drawing.Size(67, 20)
+        Me.提示_lb.TabIndex = 1486
+        Me.提示_lb.Text = "Label14"
+        '
         '採購應負帳款
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 782)
+        Me.Controls.Add(Me.提示_lb)
+        Me.Controls.Add(Me.資料流水號_tb)
+        Me.Controls.Add(Me.應負帳款退回_bt)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.匯出Excel_bt)
@@ -809,4 +847,7 @@ Partial Class 採購應負帳款
     Friend WithEvents 匯出Excel_bt As Button
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 應負帳款退回_bt As Button
+    Friend WithEvents 資料流水號_tb As TextBox
+    Friend WithEvents 提示_lb As Label
 End Class

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

@@ -22,7 +22,7 @@ Public Class 採購應負帳款
         供應商_dgv.ColumnHeadersHeight = 40
         供應商_dgv.AllowUserToAddRows = False
         供應商_dgv.RowTemplate.Height = 30
-        採購清單_dgv.RowTemplate.Height = 30
+
         合計_dgv.RowTemplate.Height = 30
 
         SQL_採購對帳單_總表()
@@ -229,7 +229,8 @@ 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 : 供應商_dgv.Visible = False : 供應商_dgv.Visible = True
+        小間距_ch.Checked = True : 供應商_dgv.Visible = False : 供應商_dgv.Visible = True : 應負帳款退回_bt.Visible = False
+        提示_lb.Text = "目前呈現表單為應付帳款，若要退回採購明細資料請點選下方採購明細"
         首次 = True : 日期格式() : 首次 = False : Set_清單3()
     End Sub
     Private Sub 供應商_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 供應商_dgv.CellEndEdit
@@ -311,7 +312,7 @@ Public Class 採購應負帳款
     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
-
+            資料流水號_tb.Text = 採購清單_dgv.Rows(e.RowIndex).Cells("資料流水號").Value.ToString
             Set_合記計算()
 
             PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString
@@ -384,9 +385,11 @@ Public Class 採購應負帳款
     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
+        應負帳款退回_bt.Visible = True : 提示_lb.Text = "要將採購明細資料退回時，請點選採購明細中要退回的資料後點選左邊的應負帳款退回"
     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
+        應負帳款退回_bt.Visible = False : 提示_lb.Text = "目前呈現表單為應付帳款，若要退回採購明細資料請點選下方採購明細"
     End Sub
     Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
         Set_清單1() : Set_清單2()
@@ -753,6 +756,17 @@ Public Class 採購應負帳款
         合計_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
         採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
     End Sub
+
+    Private Sub 應負帳款退回_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款退回_bt.Click
+        If 資料流水號_tb.Text <> "" Then
+            PA = 資料流水號_tb.Text : PA2 = "0" : PA1 = ""
+            SQL_採購控制表_過帳()
+        Else
+            MsgBox("沒有選擇資料!!!")
+        End If
+        Set_清單2() : 資料流水號_tb.Text = ""
+    End Sub
+
     Private Sub 開啟供應商資料表_bt_Click(sender As Object, e As EventArgs) Handles 開啟供應商資料表_bt.Click
         PA = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
     End Sub

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

@@ -181,7 +181,7 @@ Partial Class 訂單控制表
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售單據_dgv.RowTemplate.Height = 24
-        Me.銷售單據_dgv.Size = New System.Drawing.Size(548, 644)
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(548, 686)
         Me.銷售單據_dgv.TabIndex = 1256
         '
         '未審核_lb
@@ -434,7 +434,7 @@ Partial Class 訂單控制表
         Me.Panel1.Controls.Add(Me.銷售明細_dgv)
         Me.Panel1.Location = New System.Drawing.Point(1, 173)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(769, 500)
+        Me.Panel1.Size = New System.Drawing.Size(769, 542)
         Me.Panel1.TabIndex = 1278
         '
         '項次4_tb
@@ -908,7 +908,7 @@ Partial Class 訂單控制表
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 9669)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 10185)
         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))
@@ -1296,7 +1296,7 @@ Partial Class 訂單控制表
         Me.Panel2.Controls.Add(Me.銷售單據_dgv)
         Me.Panel2.Location = New System.Drawing.Point(2, 2)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(556, 677)
+        Me.Panel2.Size = New System.Drawing.Size(556, 719)
         Me.Panel2.TabIndex = 1339
         '
         'Panel3
@@ -1335,7 +1335,7 @@ Partial Class 訂單控制表
         Me.Panel3.Controls.Add(Me.Label7)
         Me.Panel3.Location = New System.Drawing.Point(559, 2)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(778, 677)
+        Me.Panel3.Size = New System.Drawing.Size(778, 719)
         Me.Panel3.TabIndex = 1340
         '
         '字體大小調整_lb
@@ -1384,7 +1384,7 @@ Partial Class 訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1344, 682)
+        Me.ClientSize = New System.Drawing.Size(1344, 724)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))

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

@@ -179,7 +179,7 @@ Public Class 訂單控制表
         DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
     End Sub
     Private Sub Set_合記計算()
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -193,7 +193,11 @@ Public Class 訂單控制表
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -206,8 +210,7 @@ Public Class 訂單控制表
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
-
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"

YD-ERP-SYS/業務系統管理/銷售分析表.Designer.vb

@@ -209,7 +209,7 @@ Partial Class 銷售分析表
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售明細_dgv.RowTemplate.Height = 24
-        Me.銷售明細_dgv.Size = New System.Drawing.Size(1082, 238)
+        Me.銷售明細_dgv.Size = New System.Drawing.Size(1109, 238)
         Me.銷售明細_dgv.TabIndex = 1258
         '
         '依開單日期_ch
@@ -249,7 +249,7 @@ Partial Class 銷售分析表
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售它項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.銷售它項_dgv.RowTemplate.Height = 24
-        Me.銷售它項_dgv.Size = New System.Drawing.Size(717, 180)
+        Me.銷售它項_dgv.Size = New System.Drawing.Size(744, 180)
         Me.銷售它項_dgv.TabIndex = 1261
         '
         '銷售備註_dgv
@@ -267,7 +267,7 @@ Partial Class 銷售分析表
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.銷售備註_dgv.RowTemplate.Height = 24
-        Me.銷售備註_dgv.Size = New System.Drawing.Size(428, 165)
+        Me.銷售備註_dgv.Size = New System.Drawing.Size(455, 165)
         Me.銷售備註_dgv.TabIndex = 1262
         '
         '運費_dgv
@@ -277,7 +277,7 @@ Partial Class 銷售分析表
         Me.運費_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom 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(730, 322)
+        Me.運費_dgv.Location = New System.Drawing.Point(757, 322)
         Me.運費_dgv.Name = "運費_dgv"
         Me.運費_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -295,7 +295,7 @@ Partial Class 銷售分析表
             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(1095, 78)
+        Me.廠商彙總_dgv.Location = New System.Drawing.Point(1122, 78)
         Me.廠商彙總_dgv.Name = "廠商彙總_dgv"
         Me.廠商彙總_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -553,7 +553,7 @@ Partial Class 銷售分析表
         Me.稅金_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom 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(438, 508)
+        Me.稅金_dgv.Location = New System.Drawing.Point(465, 508)
         Me.稅金_dgv.Name = "稅金_dgv"
         Me.稅金_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -609,9 +609,9 @@ Partial Class 銷售分析表
         '
         Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1353, 17)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1340, 54)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1359
@@ -620,7 +620,7 @@ Partial Class 銷售分析表
         '字體_NUD
         '
         Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1366, 38)
+        Me.字體_NUD.Location = New System.Drawing.Point(1415, 52)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -632,7 +632,7 @@ Partial Class 銷售分析表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1443, 681)
+        Me.ClientSize = New System.Drawing.Size(1470, 681)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)

YD-ERP-SYS/業務系統管理/銷售分析表.vb

@@ -239,12 +239,13 @@ Public Class 銷售分析表
 
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> 1 Then
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
-            End If
-            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = 1 Then
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+            If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "Y" Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> 1 Then
+                    物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) = 1 Then
+                    其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
             End If
         Next
         For i As Integer = 0 To 稅金_dgv.Rows.Count - 1
@@ -335,6 +336,7 @@ Public Class 銷售分析表
     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 = False : 依交貨日期_ch.Checked = True
         業務_cb.Text = 業務號碼
         開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
         日期格式()

YD-ERP-SYS/業務系統管理/銷售單審核.Designer.vb

@@ -22,22 +22,22 @@ Partial Class 銷售單審核
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.業務_cb = New System.Windows.Forms.ComboBox()
         Me.客戶資料驗證_bt = New System.Windows.Forms.Button()
         Me.售價_nud = New System.Windows.Forms.NumericUpDown()
@@ -107,6 +107,7 @@ Partial Class 銷售單審核
         Me.單據核准_bt = New System.Windows.Forms.Button()
         Me.單據作廢_bt = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Reset1_bt = New System.Windows.Forms.Button()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.刪除衍生運費_bt = New System.Windows.Forms.Button()
@@ -199,7 +200,6 @@ Partial Class 銷售單審核
         Me.運費資料流水號_tb = New System.Windows.Forms.TextBox()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.顯示_bt = New System.Windows.Forms.Button()
-        Me.Reset1_bt = New System.Windows.Forms.Button()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -264,17 +264,17 @@ Partial Class 銷售單審核
         '
         '區域庫存_dgv
         '
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.區域庫存_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        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.Bottom Or System.Windows.Forms.AnchorStyles.Left), 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(345, 317)
         Me.區域庫存_dgv.Name = "區域庫存_dgv"
         Me.區域庫存_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 90)
         Me.區域庫存_dgv.TabIndex = 1323
@@ -624,8 +624,8 @@ Partial Class 銷售單審核
         '
         '物料清單_dgv
         '
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -633,9 +633,9 @@ Partial Class 銷售單審核
         Me.物料清單_dgv.Location = New System.Drawing.Point(2, 79)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(534, 235)
         Me.物料清單_dgv.TabIndex = 1283
@@ -870,16 +870,16 @@ Partial Class 銷售單審核
         '
         '銷售單據_dgv
         '
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        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.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售單據_dgv.Location = New System.Drawing.Point(2, 28)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle22.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
+        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(146, 141)
         Me.銷售單據_dgv.TabIndex = 1256
@@ -999,12 +999,25 @@ Partial Class 銷售單審核
         Me.Panel1.Size = New System.Drawing.Size(902, 495)
         Me.Panel1.TabIndex = 1331
         '
+        'Reset1_bt
+        '
+        Me.Reset1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Reset1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Reset1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Reset1_bt.Location = New System.Drawing.Point(768, 492)
+        Me.Reset1_bt.Name = "Reset1_bt"
+        Me.Reset1_bt.Size = New System.Drawing.Size(25, 24)
+        Me.Reset1_bt.TabIndex = 1366
+        Me.Reset1_bt.Text = "R"
+        Me.Reset1_bt.UseVisualStyleBackColor = True
+        '
         '字體大小調整_lb
         '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(505, 7)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(789, 6)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1365
@@ -1012,7 +1025,8 @@ Partial Class 銷售單審核
         '
         '字體_NUD
         '
-        Me.字體_NUD.Location = New System.Drawing.Point(566, 5)
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(850, 4)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -1061,8 +1075,8 @@ Partial Class 銷售單審核
         '
         '銷售衍生運費_dgv
         '
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        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.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1070,9 +1084,9 @@ Partial Class 銷售單審核
         Me.銷售衍生運費_dgv.Location = New System.Drawing.Point(610, 465)
         Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
         Me.銷售衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle24.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
+        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(95, 190)
         Me.銷售衍生運費_dgv.TabIndex = 1344
@@ -1585,17 +1599,17 @@ Partial Class 銷售單審核
         '
         '客戶資料_dgv
         '
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 10257)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 10541)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle26.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.客戶資料_dgv.RowTemplate.Height = 24
         Me.客戶資料_dgv.Size = New System.Drawing.Size(191, 92)
         Me.客戶資料_dgv.TabIndex = 1254
@@ -1685,8 +1699,8 @@ Partial Class 銷售單審核
         '
         '銷售明細_dgv
         '
-        DataGridViewCellStyle27.BackColor = System.Drawing.Color.White
-        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.White
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.銷售明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1694,33 +1708,33 @@ Partial Class 銷售單審核
         Me.銷售明細_dgv.Location = New System.Drawing.Point(3, 29)
         Me.銷售明細_dgv.Name = "銷售明細_dgv"
         Me.銷售明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle28.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.銷售明細_dgv.RowTemplate.Height = 24
         Me.銷售明細_dgv.Size = New System.Drawing.Size(892, 409)
         Me.銷售明細_dgv.TabIndex = 1199
         '
         '銷售備註_dgv
         '
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.銷售備註_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售備註_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 465)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         Me.銷售備註_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.銷售備註_dgv.RowTemplate.Height = 24
         Me.銷售備註_dgv.Size = New System.Drawing.Size(603, 190)
         Me.銷售備註_dgv.TabIndex = 1250
         '
         '收款事項_dgv
         '
-        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1728,9 +1742,9 @@ Partial Class 銷售單審核
         Me.收款事項_dgv.Location = New System.Drawing.Point(3, 682)
         Me.收款事項_dgv.Name = "收款事項_dgv"
         Me.收款事項_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle32.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.收款事項_dgv.RowTemplate.Height = 24
         Me.收款事項_dgv.Size = New System.Drawing.Size(616, 93)
         Me.收款事項_dgv.TabIndex = 1282
@@ -2087,18 +2101,6 @@ Partial Class 銷售單審核
         Me.顯示_bt.Text = "顯示物料控件"
         Me.顯示_bt.UseVisualStyleBackColor = True
         '
-        'Reset1_bt
-        '
-        Me.Reset1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Reset1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Reset1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Reset1_bt.Location = New System.Drawing.Point(768, 492)
-        Me.Reset1_bt.Name = "Reset1_bt"
-        Me.Reset1_bt.Size = New System.Drawing.Size(25, 24)
-        Me.Reset1_bt.TabIndex = 1366
-        Me.Reset1_bt.Text = "R"
-        Me.Reset1_bt.UseVisualStyleBackColor = True
-        '
         '銷售單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)

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

@@ -299,7 +299,7 @@ Public Class 銷售單審核
         DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
     End Sub
     Private Sub Set_合記計算()
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -313,7 +313,11 @@ Public Class 銷售單審核
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -326,8 +330,7 @@ Public Class 銷售單審核
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
-
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
@@ -1193,7 +1196,7 @@ Public Class 銷售單審核
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -1207,7 +1210,11 @@ Public Class 銷售單審核
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -1220,8 +1227,7 @@ Public Class 銷售單審核
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
-
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
@@ -1301,7 +1307,7 @@ Public Class 銷售單審核
     End Sub
 
     Private Sub Reset1_bt_Click(sender As Object, e As EventArgs) Handles Reset1_bt.Click
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -1313,8 +1319,13 @@ Public Class 銷售單審核
         刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(刷卡總和_tb.Text) * 0.02)
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -1327,7 +1338,7 @@ Public Class 銷售單審核
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
         銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then

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

@@ -113,6 +113,7 @@ Partial Class 銷售單申請
         Me.售價_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Reset1_bt = New System.Windows.Forms.Button()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.刪除衍生運費_bt = New System.Windows.Forms.Button()
@@ -200,7 +201,6 @@ Partial Class 銷售單申請
         Me.隱藏_bt = New System.Windows.Forms.Button()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.顯示_bt = New System.Windows.Forms.Button()
-        Me.Reset1_bt = New System.Windows.Forms.Button()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1070,12 +1070,25 @@ Partial Class 銷售單申請
         Me.Panel1.Size = New System.Drawing.Size(904, 502)
         Me.Panel1.TabIndex = 1252
         '
+        'Reset1_bt
+        '
+        Me.Reset1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Reset1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Reset1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Reset1_bt.Location = New System.Drawing.Point(771, 492)
+        Me.Reset1_bt.Name = "Reset1_bt"
+        Me.Reset1_bt.Size = New System.Drawing.Size(25, 24)
+        Me.Reset1_bt.TabIndex = 1364
+        Me.Reset1_bt.Text = "R"
+        Me.Reset1_bt.UseVisualStyleBackColor = True
+        '
         '字體大小調整_lb
         '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(512, 7)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(771, 6)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1363
@@ -1083,7 +1096,8 @@ Partial Class 銷售單申請
         '
         '字體_NUD
         '
-        Me.字體_NUD.Location = New System.Drawing.Point(574, 4)
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(832, 3)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -1152,7 +1166,7 @@ Partial Class 銷售單申請
         '
         Me.刷卡可刪除_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刷卡可刪除_ch.AutoSize = True
-        Me.刷卡可刪除_ch.Location = New System.Drawing.Point(776, 4)
+        Me.刷卡可刪除_ch.Location = New System.Drawing.Point(680, 6)
         Me.刷卡可刪除_ch.Name = "刷卡可刪除_ch"
         Me.刷卡可刪除_ch.Size = New System.Drawing.Size(87, 20)
         Me.刷卡可刪除_ch.TabIndex = 1333
@@ -1374,7 +1388,7 @@ Partial Class 銷售單申請
         '
         Me.司機運費_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.司機運費_tb.ForeColor = System.Drawing.Color.Black
-        Me.司機運費_tb.Location = New System.Drawing.Point(799, 572)
+        Me.司機運費_tb.Location = New System.Drawing.Point(797, 572)
         Me.司機運費_tb.Name = "司機運費_tb"
         Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
         Me.司機運費_tb.TabIndex = 1296
@@ -1674,7 +1688,7 @@ Partial Class 銷售單申請
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 11580)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 12680)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -2107,18 +2121,6 @@ Partial Class 銷售單申請
         Me.顯示_bt.Text = "顯示物料控件"
         Me.顯示_bt.UseVisualStyleBackColor = True
         '
-        'Reset1_bt
-        '
-        Me.Reset1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Reset1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Reset1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Reset1_bt.Location = New System.Drawing.Point(771, 492)
-        Me.Reset1_bt.Name = "Reset1_bt"
-        Me.Reset1_bt.Size = New System.Drawing.Size(25, 24)
-        Me.Reset1_bt.TabIndex = 1364
-        Me.Reset1_bt.Text = "R"
-        Me.Reset1_bt.UseVisualStyleBackColor = True
-        '
         '銷售單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)

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

@@ -305,7 +305,7 @@ Public Class 銷售單申請
         DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
     End Sub
     Private Sub Set_合記計算()
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -319,7 +319,11 @@ Public Class 銷售單申請
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -332,8 +336,7 @@ Public Class 銷售單申請
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
-
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
@@ -465,7 +468,7 @@ Public Class 銷售單申請
     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 : 項次4_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString
+            運費資料流水號_tb.Text = 銷售衍生運費_dgv("資料流水號", e.RowIndex).Value.ToString : 項次4_tb.Text = 銷售衍生運費_dgv("項次", e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit
@@ -1286,7 +1289,7 @@ Public Class 銷售單申請
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -1300,7 +1303,11 @@ Public Class 銷售單申請
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -1313,8 +1320,7 @@ Public Class 銷售單申請
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
-
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
@@ -1388,7 +1394,7 @@ Public Class 銷售單申請
         物料清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
     End Sub
     Private Sub Reset1_bt_Click(sender As Object, e As EventArgs) Handles Reset1_bt.Click
-        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0
+        Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
         司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -1400,8 +1406,13 @@ Public Class 銷售單申請
         刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(刷卡總和_tb.Text) * 0.02)
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-
+            If 銷售明細_dgv("無管銷", i).Value = False Then
+                If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
+                    無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                End If
+            End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 1) <> "1" Then
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
@@ -1414,7 +1425,7 @@ Public Class 銷售單申請
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
-        管銷費用_tb.Text = Val(物料成本_tb.Text) * 1.06 - Val(物料成本_tb.Text)
+        管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
         銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
 
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
@@ -1474,6 +1485,11 @@ Public Class 銷售單申請
         刷卡稅金_tb.Text = Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(Val(刷卡傭金_tb.Text), "#,##0")
 
     End Sub
+
+    Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles Panel3.Paint
+
+    End Sub
+
     Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress
         If e.KeyChar = Chr(13) Then
             運費 = 司機運費_tb.Text

YD-ERP-SYS/財務系統管理/會計科目管理.Designer.vb

@@ -425,7 +425,7 @@ Partial Class 會計科目管理
         Me.會計科目清單_dgv.Name = "會計科目清單_dgv"
         Me.會計科目清單_dgv.RowHeadersWidth = 5
         Me.會計科目清單_dgv.RowTemplate.Height = 24
-        Me.會計科目清單_dgv.Size = New System.Drawing.Size(1769, 619)
+        Me.會計科目清單_dgv.Size = New System.Drawing.Size(1916, 619)
         Me.會計科目清單_dgv.TabIndex = 761
         '
         'Label1
@@ -440,12 +440,12 @@ Partial Class 會計科目管理
         '字體大小調整_lb
         '
         Me.字體大小調整_lb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1090, 58)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1815, 56)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1493
@@ -454,12 +454,12 @@ Partial Class 會計科目管理
         '字體_NUD
         '
         Me.字體_NUD.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1159, 57)
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(1884, 55)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
-        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.Size = New System.Drawing.Size(41, 23)
         Me.字體_NUD.TabIndex = 1492
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
@@ -467,7 +467,7 @@ Partial Class 會計科目管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1784, 711)
+        Me.ClientSize = New System.Drawing.Size(1931, 711)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.Label1)

YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 營運成本收支單_對帳表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.未兌現支票1_tb = New System.Windows.Forms.TextBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.未兌現支票_tb = New System.Windows.Forms.TextBox()
@@ -442,8 +442,8 @@ Partial Class 營運成本收支單_對帳表
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(1868, 544)
         Me.明細_dgv.TabIndex = 1073
@@ -534,12 +534,12 @@ Partial Class 營運成本收支單_對帳表
         Me.字體大小調整_lb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1475, 36)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1473, 36)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1495
         Me.字體大小調整_lb.Text = "字體調整"
         '
@@ -547,7 +547,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.字體_NUD.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1534, 32)
+        Me.字體_NUD.Location = New System.Drawing.Point(1533, 34)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"

YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.Designer.vb

@@ -22,7 +22,7 @@ Partial Class FTP資料夾管理
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.指定_tb = New System.Windows.Forms.TextBox()
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.修改_bt = New System.Windows.Forms.Button()
@@ -96,8 +96,8 @@ Partial Class FTP資料夾管理
         '
         '資料夾清單_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.資料夾清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.資料夾清單_dgv.Location = New System.Drawing.Point(12, 39)
         Me.資料夾清單_dgv.Name = "資料夾清單_dgv"
@@ -132,7 +132,7 @@ Partial Class FTP資料夾管理
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1782, 10)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1783, 11)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1493
@@ -141,7 +141,7 @@ Partial Class FTP資料夾管理
         '字體_NUD
         '
         Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體_NUD.Location = New System.Drawing.Point(1851, 9)
+        Me.字體_NUD.Location = New System.Drawing.Point(1852, 10)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"