20201014備份

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

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

@@ -43,15 +43,15 @@
     End Sub
     Friend Sub SQL_銷售控制表()
         ConnOpen()
-        SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點
-                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 單位主管 LIKE '' ORDER BY 單號"
+        SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點, 運費
+                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 單位主管 LIKE '' ORDER BY 單號 DESC"
         CmdSet_For_DGV()
     End Sub
     '---------------------銷售單審核-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_銷售控制表_審核()
         ConnOpen()
-        SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點
-                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 LIKE '' ORDER BY 單號"
+        SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點, 運費
+                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 LIKE '' ORDER BY 單號 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_銷售控制表_審核確認()
@@ -67,12 +67,153 @@
     '---------------------訂單控制表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_銷售控制表_訂單控制表()
         ConnOpen()
-        SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 銷售控制表.開單日期, 銷售控制表.客戶編號, 銷售控制表.交貨日期, 
-                            銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額, 銷售控制表.送貨地點
-                FROM        銷售控制表 LEFT OUTER JOIN
+        SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 
+                            銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額, 
+                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號
+                FROM        銷售控制表 INNER JOIN
+                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN
                             銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
-                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND   (銷售收款事項.內容 LIKE '未收餘額')
-                ORDER BY    銷售控制表.單號"
+                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%') AND (銷售收款事項.內容 LIKE '未收餘額')
+                ORDER BY    銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    '---------------------銷售分析表-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_銷售分析表_物料明細()
+        If 銷售分析表.依開單日期_ch.Checked = False Then
+            SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 銷售分析表.依開單日期_ch.Checked = True Then
+            SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 
+                            物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價, 
+                            銷售明細表.狀態 AS 倉儲情況
+                FROM        倉儲狀態 RIGHT OUTER JOIN
+                            銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN
+                            物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
+                            倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
+                            物料資料庫 INNER JOIN
+                            供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
+                            銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
+                            銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.成本 > 0) AND 
+                           (銷售明細表.售價 > 0) AND " & SQL2 & " 
+                ORDER BY    銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售分析表_它項明細()
+        If 銷售分析表.依開單日期_ch.Checked = False Then
+            SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 銷售分析表.依開單日期_ch.Checked = True Then
+            SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 
+                            物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價, 
+                            銷售明細表.狀態 AS 倉儲情況
+                FROM        倉儲狀態 RIGHT OUTER JOIN
+                            銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN
+                            物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
+                            倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
+                            物料資料庫 INNER JOIN
+                            供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
+                            銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
+                            銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 
+                ORDER BY    銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售分析表_銷售備註()
+        If 銷售分析表.依開單日期_ch.Checked = False Then
+            SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 銷售分析表.依開單日期_ch.Checked = True Then
+            SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.單號 AS 項次, 銷售備註表.單號, 銷售備註表.備註, 銷售備註表.收入, 銷售備註表.支出
+                FROM       銷售備註表 INNER JOIN 銷售控制表 ON 銷售備註表.單號 = 銷售控制表.單號
+                WHERE     (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND ((銷售備註表.收入 > 0) OR (銷售備註表.支出 > 0)) AND " & SQL2 & " 
+                ORDER BY   銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售分析表_運費()
+        If 銷售分析表.依開單日期_ch.Checked = False Then
+            SQL2 = "(交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 銷售分析表.依開單日期_ch.Checked = True Then
+            SQL2 = "(開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT  單號 AS 項次, 單號, 送貨地點, 運費 FROM 銷售控制表 WHERE  (單號 Not Like '4%') AND (單號 LIKE '" & PA19 & "%') AND (運費 > 0) AND " & SQL2 & " ORDER BY 單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷售分析表_廠商彙總()
+        If 銷售分析表.依開單日期_ch.Checked = False Then
+            SQL2 = "(交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 銷售分析表.依開單日期_ch.Checked = True Then
+            SQL2 = "(開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT          AAA.項次, AAA.編號, AAA.供應商, AAA.成本預估, 系統比例用空白圖片.圖片 AS 成本佔比
+                FROM              系統比例用空白圖片 RIGHT OUTER JOIN
+                                (SELECT          物料資料庫.供應商編號 AS 項次, 物料資料庫.供應商編號 AS 編號, 供應商資料表.簡稱 AS 供應商, 
+                                                              SUM(銷售明細表.數量 * 銷售明細表.成本) AS 成本預估, 物料資料庫.進度條用空白
+                                  FROM               銷售明細表 LEFT OUTER JOIN
+                                                              物料資料庫 INNER JOIN
+                                                              供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
+                                                              銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
+                                                              銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
+                                  WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.成本 > 0) AND 
+                                             (銷售明細表.售價 > 0) AND " & SQL2 & "
+                                  GROUP BY    供應商資料表.簡稱, 物料資料庫.供應商編號, 物料資料庫.進度條用空白) AS AAA ON 
+                            系統比例用空白圖片.選擇 = AAA.進度條用空白
+                ORDER BY   AAA.編號"
+        CmdSet_For_DGV()
+    End Sub
+    '---------------------貨款試算表-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_貨款試算表_廠商彙總()
+        If 貨款試算表.依開單日期_ch.Checked = False Then
+            SQL2 = "(交貨日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 貨款試算表.依開單日期_ch.Checked = True Then
+            SQL2 = "(開單日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT          AAA.項次, AAA.編號, AAA.供應商, AAA.預估進貨, 系統比例用空白圖片.圖片 AS 成本佔比
+                FROM              系統比例用空白圖片 RIGHT OUTER JOIN
+                                (SELECT          物料資料庫.供應商編號 AS 項次, 物料資料庫.供應商編號 AS 編號, 供應商資料表.簡稱 AS 供應商, 
+                                                              SUM(銷售明細表.數量 * 銷售明細表.成本) AS 預估進貨, 物料資料庫.進度條用空白
+                                  FROM               銷售明細表 LEFT OUTER JOIN
+                                                              物料資料庫 INNER JOIN
+                                                              供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
+                                                              銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
+                                                              銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
+                                  WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND (銷售明細表.成本 > 0) AND 
+                                             (銷售明細表.售價 > 0) AND (銷售明細表.倉儲狀態 LIKE 'N03') AND " & SQL2 & "
+                                  GROUP BY    供應商資料表.簡稱, 物料資料庫.供應商編號, 物料資料庫.進度條用空白) AS AAA ON 
+                            系統比例用空白圖片.選擇 = AAA.進度條用空白
+                ORDER BY   AAA.編號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_貨款試算表_物料明細()
+        If 貨款試算表.依開單日期_ch.Checked = False Then
+            SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        ElseIf 貨款試算表.依開單日期_ch.Checked = True Then
+            SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 
+                            物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價 AS 金額, 
+                            銷售明細表.狀態 AS 倉儲情況
+                FROM        倉儲狀態 RIGHT OUTER JOIN
+                            銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN
+                            物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
+                            倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
+                            物料資料庫 INNER JOIN
+                            供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 
+                            銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN
+                            銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號
+                WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA20 & "%')AND (銷售明細表.料號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1%') AND 
+                           (銷售明細表.成本 > 0) AND (銷售明細表.售價 > 0) AND (銷售明細表.倉儲狀態 LIKE 'N03') AND " & SQL2 & " 
+                ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
 End Module

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

@@ -144,7 +144,7 @@
         ConnOpen()
         If PA3 = "" Then
             SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表 WHERE 停用 = 0 ORDER BY   編號"
-        ElseIf PA3 = "2" Or PA3 = "9" Or PA3 = "Y" Then
+        ElseIf PA3 = "1" Or PA3 = "2" Or PA3 = "9" Or PA3 = "Y" Then
             SQL1 = "SELECT 編號, 簡稱 FROM   供應商資料表
                     WHERE  (編號 LIKE N'" & PA3 & "%') AND (停用 = 0)
                     ORDER BY   編號"
@@ -177,7 +177,14 @@
     End Sub
     Friend Sub SQL_銷售明細表_修改()
         ConnOpen()
-        SQL1 = "UPDATE 銷售明細表 SET 備註 = N'" & PA10 & "', 成本 = N'" & NU1 & "', 售價 = N'" & NU2 & "', 含稅 = N'" & BL5 & "' WHERE (資料流水號 LIKE N'" & PA11 & "')"
+        SQL1 = "UPDATE 銷售明細表 SET 備註 = N'" & PA10 & "', 成本 = N'" & NU1 & "', 售價 = N'" & NU2 & "', 含稅 = N'" & BL5 & "',倉儲狀態 = N'" & PA9 & "', 
+                                      物料狀態 = N'" & PA8 & "', 訂製狀態 = N'" & PA7 & "' 
+                WHERE (資料流水號 LIKE N'" & PA11 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細表_成本讀取()
+        ConnOpen()
+        SQL1 = "SELECT 成本 FROM 物料資料庫 WHERE 料號 LIKE '" & PA12 & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售備註表_修改()
@@ -231,8 +238,9 @@
     End Sub
     Friend Sub SQL_銷售單申請_銷售明細表_新增()
         ConnOpen()
-        SQL1 = "INSERT INTO 銷售明細表 (資料流水號, 單號, 料號, 物料狀態, 訂製狀態, 備註, 數量, 成本, 售價, 狀態, 含稅) 
-                VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA2 & "',N'" & PA7 & "',N'" & PA8 & "', N'', N'" & NU1 & "', N'" & NU2 & "', N'" & NU3 & "', '" & PA9 & "', N'" & BL2 & "')"
+        SQL1 = "INSERT INTO 銷售明細表 (資料流水號, 單號, 料號, 物料狀態, 訂製狀態, 備註, 數量, 成本, 售價, 狀態, 含稅, 倉儲狀態) 
+                VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA2 & "',N'" & PA7 & "',N'" & PA8 & "', N'', N'" & NU1 & "', N'" & NU2 & "', N'" & NU3 & "', 
+                         '" & PA9 & "', N'" & BL2 & "', N'" & PA10 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售單申請_倉儲明細表_銷售出庫()
@@ -244,10 +252,15 @@
     End Sub
     Friend Sub SQL_銷售明細表()
         ConnOpen()
-        SQL1 = "SELECT      銷售明細表.資料流水號, 銷售明細表.資料流水號 AS 項次, 銷售明細表.料號, 物料資料庫.品名, 物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 
-                            銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價, 銷售明細表.狀態 AS 倉儲情況, 倉儲明細表.資料流水號 AS 倉儲流水號
-                FROM        銷售明細表 INNER JOIN 倉儲狀態 ON 銷售明細表.物料狀態 = 倉儲狀態.編碼 LEFT OUTER JOIN 倉儲明細表 ON 銷售明細表.料號 = 倉儲明細表.料號 AND 
-                            銷售明細表.單號 = 倉儲明細表.採購單號 LEFT OUTER JOIN 物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
+        SQL1 = "SELECT      銷售明細表.資料流水號, 銷售明細表.資料流水號 AS 項次, 銷售明細表.料號, 物料資料庫.品名, 倉儲分區控制表.倉名, 
+                            物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 
+                            銷售明細表.含稅, 銷售明細表.售價, 銷售明細表.狀態 AS 倉儲情況, 倉儲明細表.資料流水號 AS 倉儲流水號, 銷售明細表.倉儲狀態, 
+                            銷售明細表.訂製狀態, 銷售明細表.物料狀態
+                FROM        銷售明細表 INNER JOIN
+                            倉儲狀態 ON 銷售明細表.物料狀態 = 倉儲狀態.編碼 INNER JOIN
+                            倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
+                            倉儲明細表 ON 銷售明細表.料號 = 倉儲明細表.料號 AND 銷售明細表.單號 = 倉儲明細表.採購單號 LEFT OUTER JOIN
+                            物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN
                             物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號
                 WHERE      (銷售明細表.單號 LIKE '" & PA2 & "')
                 ORDER BY    銷售明細表.料號"
@@ -294,6 +307,15 @@
     Friend Sub SQL_銷售收款事項_最後一筆項次()
         ConnOpen() : SQL1 = "SELECT TOP (1) 項次 FROM 銷售收款事項 ORDER BY 項次 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_銷售明細_改倉名()
+        ConnOpen() : SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉名 LIKE N'" & PA20 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細_改物料訂製狀態()
+        ConnOpen() : SQL1 = "SELECT 編碼 FROM 物料訂製狀態 WHERE 訂製 LIKE N'" & PA19 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷售明細_倉儲狀態()
+        ConnOpen() : SQL1 = "SELECT 編碼 FROM 倉儲狀態 WHERE 狀態 LIKE N'" & PA18 & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_盤盈盤損申請_單據()
         ConnOpen() : SQL1 = "SELECT 執行單號, 申請人, 申請日期 FROM 倉儲明細表 WHERE (狀態 LIKE N'盤%') AND (審核人 LIKE '') GROUP BY 執行單號, 申請人, 申請日期" : CmdSet_For_DGV()
     End Sub

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 = "2020100101"
+    Public 版本 As String = "2020101402"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     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

@@ -42,6 +42,7 @@ Partial Class YD_ERP_SYS
         Me.人員ID卡系統配置設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.業務系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         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()
@@ -81,6 +82,7 @@ Partial Class YD_ERP_SYS
         Me.執行進度_tss = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
+        Me.貨款試算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
@@ -195,7 +197,7 @@ Partial Class YD_ERP_SYS
         '
         '業務系統管理_tsm
         '
-        Me.業務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {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.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"
@@ -207,20 +209,28 @@ 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
+        '
+        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(131, 6)
+        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.pen
         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
@@ -228,20 +238,20 @@ 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.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 = "銷售單審核"
         '
         '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
@@ -257,65 +267,65 @@ 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 = "採購控制表"
         '
         '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.Black
         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
         '
         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
         '
         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 = "採購單審核"
         '
         '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 = "採購退貨申請"
         '
         '採購退貨審核_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 = "採購退貨申請"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.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.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
@@ -476,6 +486,14 @@ Partial Class YD_ERP_SYS
         Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"
         Me.ToolStripProgressBar1.Size = New System.Drawing.Size(750, 16)
         '
+        '貨款試算表_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 = "貨款試算表"
+        '
         'YD_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -558,4 +576,6 @@ Partial Class YD_ERP_SYS
     Friend WithEvents 依銷售申請採購單_tsm As ToolStripMenuItem
     Friend WithEvents 個人帳號管理_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator10 As ToolStripSeparator
+    Friend WithEvents 銷售分析表_tsm As ToolStripMenuItem
+    Friend WithEvents 貨款試算表_tsm As ToolStripMenuItem
 End Class

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

@@ -114,4 +114,14 @@ Public Class YD_ERP_SYS
     Private Sub 個人資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
         PA = "" : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
     End Sub
+
+
+
+
+    Private Sub 銷售分析表_tsm_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

@@ -202,6 +202,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>
@@ -321,6 +333,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 @@
-9eeca1b96de3e09b68cba06face1485b96d12564
+ab861d34e8d3037680fda21f30a2b6a00af148f5

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

@@ -34,3 +34,5 @@ G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單審核.resources
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.個人帳號管理.resources
+G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售分析表.resources
+G:\YD-ERP-SYS\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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 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()
@@ -95,8 +95,8 @@ Partial Class 物料檔案
         Me.物料清單_dgv.Location = New System.Drawing.Point(12, 83)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(570, 572)
         Me.物料清單_dgv.TabIndex = 668
@@ -147,7 +147,7 @@ Partial Class 物料檔案
         '
         Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.地區_cb.FormattingEnabled = True
-        Me.地區_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨"})
+        Me.地區_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨", "其他"})
         Me.地區_cb.Location = New System.Drawing.Point(60, 5)
         Me.地區_cb.Name = "地區_cb"
         Me.地區_cb.Size = New System.Drawing.Size(56, 24)

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

@@ -33,6 +33,7 @@ Public Class 物料檔案
         ElseIf 地區_cb.Text = "南部" Then : PA3 = "3"
         ElseIf 地區_cb.Text = "材料" Then : PA3 = "9"
         ElseIf 地區_cb.Text = "調貨" Then : PA3 = "Y"
+        ElseIf 地區_cb.Text = "其他" Then : PA3 = "1"
         End If
         SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
         While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()

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

@@ -91,7 +91,7 @@ Public Class 供應商資料表
             編號_tb.Text = "" : 簡稱_tb.Text = "" : 供應商_tb.Text = "" : 公司地址_tb.Text = "" : 電話1_tb.Text = "" '--------------------控件清空
             電話2_tb.Text = "" : 電話3_tb.Text = "" : 電話4_tb.Text = "" : 店面地址_tb.Text = "" : 店面電話_tb.Text = ""
             工廠地址_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 手機_tb.Text = "" : 傳真_tb.Text = ""
-            POS_tb.Text = "" : 備註1_tb.Text = "" : 備註2_tb.Text = "" : 登入日期_dtp.Value = Today() : 結算日_nud.Value = 0
+            POS_tb.Text = "" : 備註1_tb.Text = "" : 備註2_tb.Text = "" : 登入日期_dtp.Value = Today() : 結算日_nud.Value = 25
             KR1_nud.Value = 0 : KR2_nud.Value = 0 : KR3_nud.Value = 0 : PEC_cb.Text = "0" : 停用_ch.Checked = False
             查詢_tb.Text = ""
             資料新增判斷 = True '--------------------目前的編輯狀態

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

@@ -113,6 +113,10 @@ Partial Class 訂單控制表
         Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
         Me.最低售價_cb = New System.Windows.Forms.ComboBox()
         Me.最低運費_cb = New System.Windows.Forms.ComboBox()
+        Me.客戶1_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.其他成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.客戶資料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -147,7 +151,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(599, 642)
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(681, 642)
         Me.銷售單據_dgv.TabIndex = 1256
         '
         '未審核_lb
@@ -162,7 +166,7 @@ Partial Class 訂單控制表
         '含稅_ch
         '
         Me.含稅_ch.AutoSize = True
-        Me.含稅_ch.Location = New System.Drawing.Point(651, 125)
+        Me.含稅_ch.Location = New System.Drawing.Point(731, 125)
         Me.含稅_ch.Name = "含稅_ch"
         Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
         Me.含稅_ch.TabIndex = 1277
@@ -172,7 +176,7 @@ Partial Class 訂單控制表
         '交貨日期_dtp
         '
         Me.交貨日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.交貨日期_dtp.Location = New System.Drawing.Point(831, 48)
+        Me.交貨日期_dtp.Location = New System.Drawing.Point(911, 48)
         Me.交貨日期_dtp.Name = "交貨日期_dtp"
         Me.交貨日期_dtp.Size = New System.Drawing.Size(127, 23)
         Me.交貨日期_dtp.TabIndex = 1276
@@ -182,7 +186,7 @@ Partial Class 訂單控制表
         Me.Label9.AutoSize = True
         Me.Label9.ForeColor = System.Drawing.Color.Red
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(775, 51)
+        Me.Label9.Location = New System.Drawing.Point(855, 51)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(56, 16)
         Me.Label9.TabIndex = 1275
@@ -191,7 +195,7 @@ Partial Class 訂單控制表
         '開單日期_dtp
         '
         Me.開單日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.開單日期_dtp.Location = New System.Drawing.Point(831, 23)
+        Me.開單日期_dtp.Location = New System.Drawing.Point(911, 23)
         Me.開單日期_dtp.Name = "開單日期_dtp"
         Me.開單日期_dtp.Size = New System.Drawing.Size(127, 23)
         Me.開單日期_dtp.TabIndex = 1274
@@ -201,7 +205,7 @@ Partial Class 訂單控制表
         Me.Label4.AutoSize = True
         Me.Label4.ForeColor = System.Drawing.Color.Red
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(775, 26)
+        Me.Label4.Location = New System.Drawing.Point(855, 26)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(56, 16)
         Me.Label4.TabIndex = 1273
@@ -212,7 +216,7 @@ Partial Class 訂單控制表
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Black
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label11.Location = New System.Drawing.Point(780, 126)
+        Me.Label11.Location = New System.Drawing.Point(860, 126)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(56, 16)
         Me.Label11.TabIndex = 1272
@@ -220,14 +224,14 @@ Partial Class 訂單控制表
         '
         '統編_tb
         '
-        Me.統編_tb.Location = New System.Drawing.Point(838, 123)
+        Me.統編_tb.Location = New System.Drawing.Point(918, 123)
         Me.統編_tb.Name = "統編_tb"
         Me.統編_tb.Size = New System.Drawing.Size(120, 23)
         Me.統編_tb.TabIndex = 1271
         '
         '公司_tb
         '
-        Me.公司_tb.Location = New System.Drawing.Point(648, 73)
+        Me.公司_tb.Location = New System.Drawing.Point(728, 73)
         Me.公司_tb.Name = "公司_tb"
         Me.公司_tb.Size = New System.Drawing.Size(310, 23)
         Me.公司_tb.TabIndex = 1270
@@ -237,7 +241,7 @@ Partial Class 訂單控制表
         Me.Label10.AutoSize = True
         Me.Label10.ForeColor = System.Drawing.Color.Black
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(611, 76)
+        Me.Label10.Location = New System.Drawing.Point(691, 76)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(32, 16)
         Me.Label10.TabIndex = 1269
@@ -245,28 +249,28 @@ Partial Class 訂單控制表
         '
         '電話2_tb
         '
-        Me.電話2_tb.Location = New System.Drawing.Point(838, 98)
+        Me.電話2_tb.Location = New System.Drawing.Point(918, 98)
         Me.電話2_tb.Name = "電話2_tb"
         Me.電話2_tb.Size = New System.Drawing.Size(120, 23)
         Me.電話2_tb.TabIndex = 1268
         '
         '電話1_tb
         '
-        Me.電話1_tb.Location = New System.Drawing.Point(649, 98)
+        Me.電話1_tb.Location = New System.Drawing.Point(729, 98)
         Me.電話1_tb.Name = "電話1_tb"
         Me.電話1_tb.Size = New System.Drawing.Size(121, 23)
         Me.電話1_tb.TabIndex = 1267
         '
         '住址_tb
         '
-        Me.住址_tb.Location = New System.Drawing.Point(648, 148)
+        Me.住址_tb.Location = New System.Drawing.Point(728, 148)
         Me.住址_tb.Name = "住址_tb"
         Me.住址_tb.Size = New System.Drawing.Size(310, 23)
         Me.住址_tb.TabIndex = 1266
         '
         '客戶_tb
         '
-        Me.客戶_tb.Location = New System.Drawing.Point(648, 48)
+        Me.客戶_tb.Location = New System.Drawing.Point(728, 48)
         Me.客戶_tb.Name = "客戶_tb"
         Me.客戶_tb.Size = New System.Drawing.Size(122, 23)
         Me.客戶_tb.TabIndex = 1265
@@ -275,7 +279,7 @@ Partial Class 訂單控制表
         '
         Me.Label8.AutoSize = True
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label8.Location = New System.Drawing.Point(799, 101)
+        Me.Label8.Location = New System.Drawing.Point(879, 101)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(39, 16)
         Me.Label8.TabIndex = 1264
@@ -286,7 +290,7 @@ Partial Class 訂單控制表
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.Red
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label7.Location = New System.Drawing.Point(611, 101)
+        Me.Label7.Location = New System.Drawing.Point(691, 101)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(39, 16)
         Me.Label7.TabIndex = 1263
@@ -297,7 +301,7 @@ Partial Class 訂單控制表
         Me.Label6.AutoSize = True
         Me.Label6.ForeColor = System.Drawing.Color.Red
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label6.Location = New System.Drawing.Point(611, 151)
+        Me.Label6.Location = New System.Drawing.Point(691, 151)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(32, 16)
         Me.Label6.TabIndex = 1262
@@ -308,7 +312,7 @@ Partial Class 訂單控制表
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.Red
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label3.Location = New System.Drawing.Point(611, 53)
+        Me.Label3.Location = New System.Drawing.Point(691, 53)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(32, 16)
         Me.Label3.TabIndex = 1261
@@ -318,7 +322,7 @@ Partial Class 訂單控制表
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.Red
-        Me.Label2.Location = New System.Drawing.Point(611, 26)
+        Me.Label2.Location = New System.Drawing.Point(691, 26)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(32, 16)
         Me.Label2.TabIndex = 1260
@@ -327,7 +331,7 @@ Partial Class 訂單控制表
         '單號_tb
         '
         Me.單號_tb.Enabled = False
-        Me.單號_tb.Location = New System.Drawing.Point(648, 23)
+        Me.單號_tb.Location = New System.Drawing.Point(728, 23)
         Me.單號_tb.Name = "單號_tb"
         Me.單號_tb.Size = New System.Drawing.Size(122, 23)
         Me.單號_tb.TabIndex = 1259
@@ -339,6 +343,8 @@ Partial Class 訂單控制表
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.其他成本_tb)
+        Me.Panel1.Controls.Add(Me.Label45)
         Me.Panel1.Controls.Add(Me.物料成本_tb)
         Me.Panel1.Controls.Add(Me.Label43)
         Me.Panel1.Controls.Add(Me.預估利潤_tb)
@@ -386,16 +392,16 @@ Partial Class 訂單控制表
         Me.Panel1.Controls.Add(Me.Label28)
         Me.Panel1.Controls.Add(Me.Label40)
         Me.Panel1.Controls.Add(Me.Label20)
-        Me.Panel1.Location = New System.Drawing.Point(608, 175)
+        Me.Panel1.Location = New System.Drawing.Point(694, 175)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(731, 502)
+        Me.Panel1.Size = New System.Drawing.Size(638, 502)
         Me.Panel1.TabIndex = 1278
         '
         '物料成本_tb
         '
         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.Green
-        Me.物料成本_tb.Location = New System.Drawing.Point(608, 700)
+        Me.物料成本_tb.Location = New System.Drawing.Point(534, 674)
         Me.物料成本_tb.Name = "物料成本_tb"
         Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.物料成本_tb.TabIndex = 1318
@@ -407,7 +413,7 @@ Partial Class 訂單控制表
         Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label43.AutoSize = True
         Me.Label43.ForeColor = System.Drawing.Color.Green
-        Me.Label43.Location = New System.Drawing.Point(526, 703)
+        Me.Label43.Location = New System.Drawing.Point(452, 677)
         Me.Label43.Name = "Label43"
         Me.Label43.Size = New System.Drawing.Size(83, 16)
         Me.Label43.TabIndex = 1317
@@ -417,7 +423,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.Green
-        Me.預估利潤_tb.Location = New System.Drawing.Point(609, 751)
+        Me.預估利潤_tb.Location = New System.Drawing.Point(535, 752)
         Me.預估利潤_tb.Name = "預估利潤_tb"
         Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
         Me.預估利潤_tb.TabIndex = 1316
@@ -429,7 +435,7 @@ Partial Class 訂單控制表
         Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label42.AutoSize = True
         Me.Label42.ForeColor = System.Drawing.Color.Green
-        Me.Label42.Location = New System.Drawing.Point(527, 754)
+        Me.Label42.Location = New System.Drawing.Point(453, 755)
         Me.Label42.Name = "Label42"
         Me.Label42.Size = New System.Drawing.Size(83, 16)
         Me.Label42.TabIndex = 1315
@@ -439,7 +445,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.Green
-        Me.管銷費用_tb.Location = New System.Drawing.Point(609, 726)
+        Me.管銷費用_tb.Location = New System.Drawing.Point(535, 726)
         Me.管銷費用_tb.Name = "管銷費用_tb"
         Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
         Me.管銷費用_tb.TabIndex = 1314
@@ -451,7 +457,7 @@ Partial Class 訂單控制表
         Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label41.AutoSize = True
         Me.Label41.ForeColor = System.Drawing.Color.Green
-        Me.Label41.Location = New System.Drawing.Point(527, 729)
+        Me.Label41.Location = New System.Drawing.Point(453, 729)
         Me.Label41.Name = "Label41"
         Me.Label41.Size = New System.Drawing.Size(83, 16)
         Me.Label41.TabIndex = 1313
@@ -461,7 +467,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(608, 577)
+        Me.司機運費_tb.Location = New System.Drawing.Point(534, 552)
         Me.司機運費_tb.Name = "司機運費_tb"
         Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
         Me.司機運費_tb.TabIndex = 1306
@@ -473,7 +479,7 @@ Partial Class 訂單控制表
         Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label38.AutoSize = True
         Me.Label38.ForeColor = System.Drawing.Color.Black
-        Me.Label38.Location = New System.Drawing.Point(523, 581)
+        Me.Label38.Location = New System.Drawing.Point(449, 556)
         Me.Label38.Name = "Label38"
         Me.Label38.Size = New System.Drawing.Size(83, 16)
         Me.Label38.TabIndex = 1305
@@ -486,7 +492,7 @@ Partial Class 訂單控制表
         Me.送貨地點_cb.Enabled = False
         Me.送貨地點_cb.FormattingEnabled = True
         Me.送貨地點_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.送貨地點_cb.Location = New System.Drawing.Point(579, 550)
+        Me.送貨地點_cb.Location = New System.Drawing.Point(505, 525)
         Me.送貨地點_cb.Name = "送貨地點_cb"
         Me.送貨地點_cb.Size = New System.Drawing.Size(110, 24)
         Me.送貨地點_cb.TabIndex = 1303
@@ -495,7 +501,7 @@ Partial Class 訂單控制表
         '
         Me.Label39.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label39.AutoSize = True
-        Me.Label39.Location = New System.Drawing.Point(520, 554)
+        Me.Label39.Location = New System.Drawing.Point(446, 529)
         Me.Label39.Name = "Label39"
         Me.Label39.Size = New System.Drawing.Size(56, 16)
         Me.Label39.TabIndex = 1304
@@ -505,7 +511,7 @@ Partial Class 訂單控制表
         '
         Me.項次3_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.項次3_tb.Enabled = False
-        Me.項次3_tb.Location = New System.Drawing.Point(486, 631)
+        Me.項次3_tb.Location = New System.Drawing.Point(312, 632)
         Me.項次3_tb.Name = "項次3_tb"
         Me.項次3_tb.Size = New System.Drawing.Size(32, 23)
         Me.項次3_tb.TabIndex = 1290
@@ -531,7 +537,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.額外收支_tb.Location = New System.Drawing.Point(609, 663)
+        Me.額外收支_tb.Location = New System.Drawing.Point(535, 638)
         Me.額外收支_tb.Name = "額外收支_tb"
         Me.額外收支_tb.Size = New System.Drawing.Size(81, 23)
         Me.額外收支_tb.TabIndex = 1281
@@ -543,7 +549,7 @@ Partial Class 訂單控制表
         Me.Label35.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label35.AutoSize = True
         Me.Label35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label35.Location = New System.Drawing.Point(523, 666)
+        Me.Label35.Location = New System.Drawing.Point(449, 641)
         Me.Label35.Name = "Label35"
         Me.Label35.Size = New System.Drawing.Size(86, 16)
         Me.Label35.TabIndex = 1280
@@ -553,7 +559,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售合計_tb.Location = New System.Drawing.Point(608, 513)
+        Me.銷售合計_tb.Location = New System.Drawing.Point(534, 488)
         Me.銷售合計_tb.Name = "銷售合計_tb"
         Me.銷售合計_tb.Size = New System.Drawing.Size(81, 23)
         Me.銷售合計_tb.TabIndex = 1279
@@ -565,7 +571,7 @@ Partial Class 訂單控制表
         Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label34.AutoSize = True
         Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label34.Location = New System.Drawing.Point(523, 516)
+        Me.Label34.Location = New System.Drawing.Point(449, 491)
         Me.Label34.Name = "Label34"
         Me.Label34.Size = New System.Drawing.Size(86, 16)
         Me.Label34.TabIndex = 1278
@@ -575,7 +581,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.稅金_tb.Location = New System.Drawing.Point(608, 488)
+        Me.稅金_tb.Location = New System.Drawing.Point(534, 463)
         Me.稅金_tb.Name = "稅金_tb"
         Me.稅金_tb.Size = New System.Drawing.Size(81, 23)
         Me.稅金_tb.TabIndex = 1277
@@ -587,7 +593,7 @@ Partial Class 訂單控制表
         Me.Label33.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label33.AutoSize = True
         Me.Label33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label33.Location = New System.Drawing.Point(523, 491)
+        Me.Label33.Location = New System.Drawing.Point(449, 466)
         Me.Label33.Name = "Label33"
         Me.Label33.Size = New System.Drawing.Size(85, 16)
         Me.Label33.TabIndex = 1276
@@ -597,7 +603,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.支出小計_tb.Location = New System.Drawing.Point(608, 637)
+        Me.支出小計_tb.Location = New System.Drawing.Point(534, 612)
         Me.支出小計_tb.Name = "支出小計_tb"
         Me.支出小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.支出小計_tb.TabIndex = 1275
@@ -609,7 +615,7 @@ Partial Class 訂單控制表
         Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label32.AutoSize = True
         Me.Label32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label32.Location = New System.Drawing.Point(524, 640)
+        Me.Label32.Location = New System.Drawing.Point(450, 615)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(85, 16)
         Me.Label32.TabIndex = 1274
@@ -619,7 +625,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.收入小計_tb.Location = New System.Drawing.Point(608, 611)
+        Me.收入小計_tb.Location = New System.Drawing.Point(534, 586)
         Me.收入小計_tb.Name = "收入小計_tb"
         Me.收入小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.收入小計_tb.TabIndex = 1273
@@ -631,7 +637,7 @@ Partial Class 訂單控制表
         Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label31.AutoSize = True
         Me.Label31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label31.Location = New System.Drawing.Point(522, 614)
+        Me.Label31.Location = New System.Drawing.Point(448, 589)
         Me.Label31.Name = "Label31"
         Me.Label31.Size = New System.Drawing.Size(85, 16)
         Me.Label31.TabIndex = 1272
@@ -641,7 +647,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.售價小計_tb.Location = New System.Drawing.Point(608, 463)
+        Me.售價小計_tb.Location = New System.Drawing.Point(534, 438)
         Me.售價小計_tb.Name = "售價小計_tb"
         Me.售價小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.售價小計_tb.TabIndex = 1271
@@ -653,7 +659,7 @@ Partial Class 訂單控制表
         Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label30.AutoSize = True
         Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label30.Location = New System.Drawing.Point(523, 467)
+        Me.Label30.Location = New System.Drawing.Point(449, 442)
         Me.Label30.Name = "Label30"
         Me.Label30.Size = New System.Drawing.Size(85, 16)
         Me.Label30.TabIndex = 1270
@@ -662,7 +668,7 @@ Partial Class 訂單控制表
         '項次1_tb
         '
         Me.項次1_tb.Enabled = False
-        Me.項次1_tb.Location = New System.Drawing.Point(36, 464)
+        Me.項次1_tb.Location = New System.Drawing.Point(36, 439)
         Me.項次1_tb.Name = "項次1_tb"
         Me.項次1_tb.Size = New System.Drawing.Size(68, 23)
         Me.項次1_tb.TabIndex = 1264
@@ -670,7 +676,7 @@ Partial Class 訂單控制表
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(2, 467)
+        Me.Label26.Location = New System.Drawing.Point(2, 442)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(32, 16)
         Me.Label26.TabIndex = 1265
@@ -696,7 +702,7 @@ Partial Class 訂單控制表
         '調庫單號_tb
         '
         Me.調庫單號_tb.Enabled = False
-        Me.調庫單號_tb.Location = New System.Drawing.Point(567, 356)
+        Me.調庫單號_tb.Location = New System.Drawing.Point(299, 274)
         Me.調庫單號_tb.Name = "調庫單號_tb"
         Me.調庫單號_tb.Size = New System.Drawing.Size(126, 23)
         Me.調庫單號_tb.TabIndex = 1255
@@ -705,7 +711,7 @@ Partial Class 訂單控制表
         '倉儲單號_lb
         '
         Me.倉儲單號_lb.AutoSize = True
-        Me.倉儲單號_lb.Location = New System.Drawing.Point(564, 335)
+        Me.倉儲單號_lb.Location = New System.Drawing.Point(296, 253)
         Me.倉儲單號_lb.Name = "倉儲單號_lb"
         Me.倉儲單號_lb.Size = New System.Drawing.Size(56, 16)
         Me.倉儲單號_lb.TabIndex = 1256
@@ -714,7 +720,7 @@ Partial Class 訂單控制表
         '
         '客戶流水_tb
         '
-        Me.客戶流水_tb.Location = New System.Drawing.Point(202, 356)
+        Me.客戶流水_tb.Location = New System.Drawing.Point(204, 215)
         Me.客戶流水_tb.Name = "客戶流水_tb"
         Me.客戶流水_tb.Size = New System.Drawing.Size(100, 23)
         Me.客戶流水_tb.TabIndex = 1254
@@ -727,7 +733,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, 6337)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 7168)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -740,7 +746,7 @@ Partial Class 訂單控制表
         '
         '倉庫級別_tb
         '
-        Me.倉庫級別_tb.Location = New System.Drawing.Point(441, 332)
+        Me.倉庫級別_tb.Location = New System.Drawing.Point(173, 250)
         Me.倉庫級別_tb.Name = "倉庫級別_tb"
         Me.倉庫級別_tb.Size = New System.Drawing.Size(120, 23)
         Me.倉庫級別_tb.TabIndex = 1246
@@ -749,7 +755,7 @@ Partial Class 訂單控制表
         '
         '倉庫編號_tb
         '
-        Me.倉庫編號_tb.Location = New System.Drawing.Point(441, 357)
+        Me.倉庫編號_tb.Location = New System.Drawing.Point(173, 275)
         Me.倉庫編號_tb.Name = "倉庫編號_tb"
         Me.倉庫編號_tb.Size = New System.Drawing.Size(120, 23)
         Me.倉庫編號_tb.TabIndex = 1247
@@ -762,7 +768,7 @@ Partial Class 訂單控制表
         Me.儲態編號_cb.Enabled = False
         Me.儲態編號_cb.FormattingEnabled = True
         Me.儲態編號_cb.Items.AddRange(New Object() {"2019"})
-        Me.儲態編號_cb.Location = New System.Drawing.Point(305, 330)
+        Me.儲態編號_cb.Location = New System.Drawing.Point(37, 248)
         Me.儲態編號_cb.Name = "儲態編號_cb"
         Me.儲態編號_cb.Size = New System.Drawing.Size(130, 24)
         Me.儲態編號_cb.TabIndex = 1249
@@ -774,7 +780,7 @@ Partial Class 訂單控制表
         Me.訂製編碼_cb.Enabled = False
         Me.訂製編碼_cb.FormattingEnabled = True
         Me.訂製編碼_cb.Items.AddRange(New Object() {"2019"})
-        Me.訂製編碼_cb.Location = New System.Drawing.Point(305, 356)
+        Me.訂製編碼_cb.Location = New System.Drawing.Point(37, 274)
         Me.訂製編碼_cb.Name = "訂製編碼_cb"
         Me.訂製編碼_cb.Size = New System.Drawing.Size(130, 24)
         Me.訂製編碼_cb.TabIndex = 1248
@@ -783,7 +789,7 @@ Partial Class 訂單控制表
         '客戶編號_tb
         '
         Me.客戶編號_tb.Enabled = False
-        Me.客戶編號_tb.Location = New System.Drawing.Point(97, 356)
+        Me.客戶編號_tb.Location = New System.Drawing.Point(99, 215)
         Me.客戶編號_tb.Name = "客戶編號_tb"
         Me.客戶編號_tb.Size = New System.Drawing.Size(99, 23)
         Me.客戶編號_tb.TabIndex = 1183
@@ -792,7 +798,7 @@ Partial Class 訂單控制表
         '流水號_tb
         '
         Me.流水號_tb.Enabled = False
-        Me.流水號_tb.Location = New System.Drawing.Point(97, 331)
+        Me.流水號_tb.Location = New System.Drawing.Point(99, 190)
         Me.流水號_tb.Name = "流水號_tb"
         Me.流水號_tb.Size = New System.Drawing.Size(100, 23)
         Me.流水號_tb.TabIndex = 1172
@@ -801,7 +807,7 @@ Partial Class 訂單控制表
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(39, 334)
+        Me.Label1.Location = New System.Drawing.Point(41, 193)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(44, 16)
         Me.Label1.TabIndex = 1173
@@ -813,7 +819,7 @@ Partial Class 訂單控制表
         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(35, 359)
+        Me.Label5.Location = New System.Drawing.Point(37, 218)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(56, 16)
         Me.Label5.TabIndex = 1178
@@ -835,7 +841,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(704, 431)
+        Me.銷售明細_dgv.Size = New System.Drawing.Size(629, 407)
         Me.銷售明細_dgv.TabIndex = 1199
         '
         '銷售備註_dgv
@@ -846,14 +852,14 @@ 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(3, 490)
+        Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 465)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         Me.銷售備註_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.銷售備註_dgv.RowTemplate.Height = 24
-        Me.銷售備註_dgv.Size = New System.Drawing.Size(515, 139)
+        Me.銷售備註_dgv.Size = New System.Drawing.Size(440, 165)
         Me.銷售備註_dgv.TabIndex = 1250
         '
         '收款事項_dgv
@@ -871,14 +877,14 @@ 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(515, 118)
+        Me.收款事項_dgv.Size = New System.Drawing.Size(440, 118)
         Me.收款事項_dgv.TabIndex = 1282
         '
         'Label28
         '
         Me.Label28.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(522, 534)
+        Me.Label28.Location = New System.Drawing.Point(448, 509)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(168, 16)
         Me.Label28.TabIndex = 1283
@@ -888,7 +894,7 @@ Partial Class 訂單控制表
         '
         Me.Label40.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label40.AutoSize = True
-        Me.Label40.Location = New System.Drawing.Point(525, 685)
+        Me.Label40.Location = New System.Drawing.Point(451, 660)
         Me.Label40.Name = "Label40"
         Me.Label40.Size = New System.Drawing.Size(168, 16)
         Me.Label40.TabIndex = 1312
@@ -898,7 +904,7 @@ Partial Class 訂單控制表
         '
         Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(521, 597)
+        Me.Label20.Location = New System.Drawing.Point(447, 572)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(168, 16)
         Me.Label20.TabIndex = 1302
@@ -992,7 +998,7 @@ Partial Class 訂單控制表
         '
         Me.物料圖1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖1_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖1_pb.Location = New System.Drawing.Point(964, 4)
+        Me.物料圖1_pb.Location = New System.Drawing.Point(1044, 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(291, 167)
@@ -1023,11 +1029,54 @@ Partial Class 訂單控制表
         Me.最低運費_cb.TabIndex = 1304
         Me.最低運費_cb.Visible = False
         '
+        '客戶1_tb
+        '
+        Me.客戶1_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶1_tb.Location = New System.Drawing.Point(207, 5)
+        Me.客戶1_tb.Name = "客戶1_tb"
+        Me.客戶1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.客戶1_tb.TabIndex = 1307
+        '
+        '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(169, 7)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(32, 16)
+        Me.Label12.TabIndex = 1306
+        Me.Label12.Text = "客戶"
+        '
+        '其他成本_tb
+        '
+        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.Green
+        Me.其他成本_tb.Location = New System.Drawing.Point(534, 700)
+        Me.其他成本_tb.Name = "其他成本_tb"
+        Me.其他成本_tb.Size = New System.Drawing.Size(81, 23)
+        Me.其他成本_tb.TabIndex = 1337
+        Me.其他成本_tb.Text = "0"
+        Me.其他成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label45
+        '
+        Me.Label45.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label45.AutoSize = True
+        Me.Label45.ForeColor = System.Drawing.Color.Green
+        Me.Label45.Location = New System.Drawing.Point(452, 703)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(83, 16)
+        Me.Label45.TabIndex = 1336
+        Me.Label45.Text = "其   他   成   本"
+        '
         '訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 681)
+        Me.Controls.Add(Me.客戶1_tb)
+        Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.最低售價_cb)
         Me.Controls.Add(Me.物料圖1_pb)
         Me.Controls.Add(Me.最低運費_cb)
@@ -1160,4 +1209,8 @@ Partial Class 訂單控制表
     Friend WithEvents 管銷費用_tb As TextBox
     Friend WithEvents Label41 As Label
     Friend WithEvents Label40 As Label
+    Friend WithEvents 客戶1_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 其他成本_tb As TextBox
+    Friend WithEvents Label45 As Label
 End Class

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

@@ -1,21 +1,22 @@
 Option Strict Off
 Public Class 訂單控制表
     ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
-    Dim 首次開啟 As Boolean = False
+    Dim 首次開啟 As Boolean = False : Dim 運費 As Integer
     Private Sub Set_清單1()
         銷售單據_dgv.DataSource = Nothing : ds1.Clear()
         銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售單據_dgv.ColumnHeadersHeight = 25
         銷售單據_dgv.AllowUserToAddRows = False
-        銷售單據_dgv.RowTemplate.Height = 25
+        銷售單據_dgv.RowTemplate.Height = 35
 
-        PA19 = 業務_cb.Text
+        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 = 100 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).Visible = False
-        銷售單據_dgv.Columns(4).FillWeight = 100 : 銷售單據_dgv.Columns(5).FillWeight = 100 : 銷售單據_dgv.Columns(6).FillWeight = 100 : 銷售單據_dgv.Columns(7).FillWeight = 100
-        銷售單據_dgv.Columns(8).FillWeight = 100 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 100
+        銷售單據_dgv.Columns(4).FillWeight = 100 : 銷售單據_dgv.Columns(5).FillWeight = 50 : 銷售單據_dgv.Columns(6).FillWeight = 100 : 銷售單據_dgv.Columns(7).FillWeight = 100
+        銷售單據_dgv.Columns(8).FillWeight = 100 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
+        銷售單據_dgv.Columns(12).Visible = False
 
         銷售單據_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
         銷售單據_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -37,20 +38,21 @@ Public Class 訂單控制表
         銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售明細_dgv.ColumnHeadersHeight = 40
         銷售明細_dgv.AllowUserToAddRows = False
-        銷售明細_dgv.RowTemplate.Height = 35
+        銷售明細_dgv.RowTemplate.Height = 90
 
         PA2 = "" : PA2 = 單號_tb.Text
         SQL_銷售明細表()
         da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
 
-
         銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
-        銷售明細_dgv.Columns(4).FillWeight = 150 : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).FillWeight = 190 : 銷售明細_dgv.Columns(7).FillWeight = 80
-        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 50 : 銷售明細_dgv.Columns(11).FillWeight = 80
-        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False
+        銷售明細_dgv.Columns(4).FillWeight = 120 : 銷售明細_dgv.Columns(5).FillWeight = 120 : 銷售明細_dgv.Columns(6).FillWeight = 120 : 銷售明細_dgv.Columns(7).FillWeight = 190
+        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 80 : 銷售明細_dgv.Columns(11).FillWeight = 50
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).Visible = False : 銷售明細_dgv.Columns(15).Visible = False
+        銷售明細_dgv.Columns(16).Visible = False : 銷售明細_dgv.Columns(17).Visible = False
 
         銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
-        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(7).ReadOnly = True : 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(6).ReadOnly = True : 銷售明細_dgv.Columns(8).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+        銷售明細_dgv.Columns(13).ReadOnly = True
 
         銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
         銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
@@ -76,6 +78,12 @@ Public Class 訂單控制表
                 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
             End If
             銷售明細_dgv("項次", i).Value = i + 1
+
+            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            'ElseIf 銷售明細_dgv("倉儲情況", I).Value.ToString = "未有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            'End If
         Next
         銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
@@ -142,11 +150,20 @@ Public Class 訂單控制表
         DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
     End Sub
     Private Sub Set_合記計算()
+        Dim 不含1類銷售小記 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"
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-            物料成本_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)
+                不含1類銷售小記 = 不含1類銷售小記 + (銷售明細_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
+
             If 銷售明細_dgv("含稅", i).Value = True Then
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
@@ -165,28 +182,35 @@ Public Class 訂單控制表
             If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
-                收款事項_dgv("金額", i).Value = Val(銷售合計_tb.Text) - 金額
+                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
             End If
         Next
 
-        If 送貨地點_cb.Text = "" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then : Else
-            If Val(售價小計_tb.Text) <= Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = 最低運費_cb.Text
-            ElseIf Val(售價小計_tb.Text) > Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = Val(售價小計_tb.Text) / 100 * 3
+        If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
+            司機運費_tb.Text = "0"
+        Else
+            If 運費 = 0 Then
+                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                    司機運費_tb.Text = 最低運費_cb.Text
+                ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(其他成本_tb.Text)) / 100 * 3
+                End If
+            Else
+                司機運費_tb.Text = 運費
             End If
         End If
 
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
+        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
 
         售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
         收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
         司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0")
     End Sub
     Private Sub 訂單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         送貨地點_cb_下拉表單資料載入()
-        首次開啟 = False : Set_清單1() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
+        首次開啟 = False : 業務_cb.Text = 業務號碼 : Set_清單1() : 首次開啟 = True '--------------------資料讀取
     End Sub
     Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If 單號_tb.Text = "" Then : Else
@@ -215,16 +239,6 @@ Public Class 訂單控制表
             銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub 銷售明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷售明細_dgv.RowPostPaint
-        Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = 銷售明細_dgv.Rows.Count - 1 Then : Exit Sub : Else
-            If 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "已有貨" Then
-                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
-            ElseIf 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "未有貨" Then
-                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightPink
-            End If
-        End If
-    End Sub
     Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             If 銷售明細_dgv("含稅", i).Value = False Then
@@ -263,6 +277,7 @@ Public Class 訂單控制表
             開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("客戶編號").Value
             交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
             送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("送貨地點").Value.ToString
+            運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value
             業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
             Set_清單4() : Set_清單5()
             Set_清單6()
@@ -280,7 +295,7 @@ Public Class 訂單控制表
         送貨地點_cb.SelectedIndex = 最低售價_cb.SelectedIndex : 最低運費_cb.SelectedIndex = 最低售價_cb.SelectedIndex
     End Sub
     Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
-        'Set_清單1()
+        Set_清單1()
     End Sub
     Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.CheckedChanged
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
@@ -304,4 +319,9 @@ Public Class 訂單控制表
             客戶_tb.Text = "" : 公司_tb.Text = "" : 統編_tb.Text = "" : 住址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = ""
         End If
     End Sub
+    Private Sub 客戶1_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 客戶1_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            Set_清單1()
+        End If
+    End Sub
 End Class

YD-ERP-SYS/業務系統管理/貨款試算表.Designer.vb

@@ -0,0 +1,355 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 貨款試算表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.廠商彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.依交貨日期_ch = New System.Windows.Forms.CheckBox()
+        Me.依開單日期_ch = New System.Windows.Forms.CheckBox()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.訂貨明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.所有訂貨明細_bt = New System.Windows.Forms.Button()
+        Me.進貨成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
+        Me.物料成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label43 = New System.Windows.Forms.Label()
+        Me.供應商_lb = New System.Windows.Forms.Label()
+        CType(Me.廠商彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.訂貨明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Black
+        Me.Label2.Location = New System.Drawing.Point(12, 57)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(388, 16)
+        Me.Label2.TabIndex = 1335
+        Me.Label2.Text = "依廠商、日期與採購單為主要查詢條件生成報表，(不包含一般採購資料)"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.Black
+        Me.Label1.Location = New System.Drawing.Point(12, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(177, 40)
+        Me.Label1.TabIndex = 1334
+        Me.Label1.Text = "貨款試算表"
+        '
+        '廠商彙總_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.廠商彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.廠商彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.廠商彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.廠商彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.廠商彙總_dgv.Location = New System.Drawing.Point(9, 79)
+        Me.廠商彙總_dgv.Name = "廠商彙總_dgv"
+        Me.廠商彙總_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.廠商彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.廠商彙總_dgv.RowTemplate.Height = 24
+        Me.廠商彙總_dgv.Size = New System.Drawing.Size(389, 595)
+        Me.廠商彙總_dgv.TabIndex = 1336
+        '
+        '依交貨日期_ch
+        '
+        Me.依交貨日期_ch.AutoSize = True
+        Me.依交貨日期_ch.Checked = True
+        Me.依交貨日期_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.依交貨日期_ch.Location = New System.Drawing.Point(613, 30)
+        Me.依交貨日期_ch.Name = "依交貨日期_ch"
+        Me.依交貨日期_ch.Size = New System.Drawing.Size(87, 20)
+        Me.依交貨日期_ch.TabIndex = 1348
+        Me.依交貨日期_ch.Text = "依交貨日期"
+        Me.依交貨日期_ch.UseVisualStyleBackColor = True
+        '
+        '依開單日期_ch
+        '
+        Me.依開單日期_ch.AutoSize = True
+        Me.依開單日期_ch.Location = New System.Drawing.Point(613, 7)
+        Me.依開單日期_ch.Name = "依開單日期_ch"
+        Me.依開單日期_ch.Size = New System.Drawing.Size(87, 20)
+        Me.依開單日期_ch.TabIndex = 1347
+        Me.依開單日期_ch.Text = "依開單日期"
+        Me.依開單日期_ch.UseVisualStyleBackColor = True
+        '
+        '業務_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(713, 51)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(62, 24)
+        Me.業務_cb.TabIndex = 1346
+        '
+        '未審核_lb
+        '
+        Me.未審核_lb.AutoSize = True
+        Me.未審核_lb.Location = New System.Drawing.Point(618, 55)
+        Me.未審核_lb.Name = "未審核_lb"
+        Me.未審核_lb.Size = New System.Drawing.Size(92, 16)
+        Me.未審核_lb.TabIndex = 1345
+        Me.未審核_lb.Text = "業    務    號    碼"
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(476, 28)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1344
+        Me.中間日期_dtp.Visible = False
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Location = New System.Drawing.Point(536, 31)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1343
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Checked = True
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月_ch.Location = New System.Drawing.Point(407, 30)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1342
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.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(505, 51)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(97, 25)
+        Me.下個月_bt.TabIndex = 1341
+        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(404, 51)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(97, 25)
+        Me.上個月_bt.TabIndex = 1340
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(493, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1339
+        Me.Label4.Text = "到"
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(515, 4)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.結束日期_dtp.TabIndex = 1338
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(404, 4)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.開始日期_dtp.TabIndex = 1337
+        '
+        '訂貨明細_dgv
+        '
+        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) _
+            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(404, 79)
+        Me.訂貨明細_dgv.Name = "訂貨明細_dgv"
+        Me.訂貨明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂貨明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.訂貨明細_dgv.RowTemplate.Height = 24
+        Me.訂貨明細_dgv.Size = New System.Drawing.Size(933, 595)
+        Me.訂貨明細_dgv.TabIndex = 1349
+        '
+        '所有訂貨明細_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(697, 4)
+        Me.所有訂貨明細_bt.Name = "所有訂貨明細_bt"
+        Me.所有訂貨明細_bt.Size = New System.Drawing.Size(78, 46)
+        Me.所有訂貨明細_bt.TabIndex = 1350
+        Me.所有訂貨明細_bt.Text = "期間內所有訂貨明細"
+        Me.所有訂貨明細_bt.UseVisualStyleBackColor = True
+        '
+        '進貨成本_tb
+        '
+        Me.進貨成本_tb.ForeColor = System.Drawing.Color.Green
+        Me.進貨成本_tb.Location = New System.Drawing.Point(1139, 52)
+        Me.進貨成本_tb.Name = "進貨成本_tb"
+        Me.進貨成本_tb.Size = New System.Drawing.Size(100, 23)
+        Me.進貨成本_tb.TabIndex = 1354
+        Me.進貨成本_tb.Text = "0"
+        Me.進貨成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label45
+        '
+        Me.Label45.AutoSize = True
+        Me.Label45.ForeColor = System.Drawing.Color.Green
+        Me.Label45.Location = New System.Drawing.Point(1077, 56)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(56, 16)
+        Me.Label45.TabIndex = 1353
+        Me.Label45.Text = "進貨成本"
+        '
+        '物料成本_tb
+        '
+        Me.物料成本_tb.ForeColor = System.Drawing.Color.Green
+        Me.物料成本_tb.Location = New System.Drawing.Point(863, 52)
+        Me.物料成本_tb.Name = "物料成本_tb"
+        Me.物料成本_tb.Size = New System.Drawing.Size(100, 23)
+        Me.物料成本_tb.TabIndex = 1352
+        Me.物料成本_tb.Text = "0"
+        Me.物料成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label43
+        '
+        Me.Label43.AutoSize = True
+        Me.Label43.ForeColor = System.Drawing.Color.Green
+        Me.Label43.Location = New System.Drawing.Point(781, 56)
+        Me.Label43.Name = "Label43"
+        Me.Label43.Size = New System.Drawing.Size(80, 16)
+        Me.Label43.TabIndex = 1351
+        Me.Label43.Text = "貨款試算總和"
+        '
+        '供應商_lb
+        '
+        Me.供應商_lb.AutoSize = True
+        Me.供應商_lb.ForeColor = System.Drawing.Color.Green
+        Me.供應商_lb.Location = New System.Drawing.Point(999, 57)
+        Me.供應商_lb.Name = "供應商_lb"
+        Me.供應商_lb.Size = New System.Drawing.Size(56, 16)
+        Me.供應商_lb.TabIndex = 1355
+        Me.供應商_lb.Text = "全供應商"
+        '
+        '貨款試算表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1344, 681)
+        Me.Controls.Add(Me.供應商_lb)
+        Me.Controls.Add(Me.進貨成本_tb)
+        Me.Controls.Add(Me.Label45)
+        Me.Controls.Add(Me.物料成本_tb)
+        Me.Controls.Add(Me.Label43)
+        Me.Controls.Add(Me.所有訂貨明細_bt)
+        Me.Controls.Add(Me.訂貨明細_dgv)
+        Me.Controls.Add(Me.依交貨日期_ch)
+        Me.Controls.Add(Me.依開單日期_ch)
+        Me.Controls.Add(Me.業務_cb)
+        Me.Controls.Add(Me.未審核_lb)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.廠商彙總_dgv)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "貨款試算表"
+        Me.Text = "貨款試算表"
+        CType(Me.廠商彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.訂貨明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 廠商彙總_dgv As DataGridView
+    Friend WithEvents 依交貨日期_ch As CheckBox
+    Friend WithEvents 依開單日期_ch As CheckBox
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 訂貨明細_dgv As DataGridView
+    Friend WithEvents 所有訂貨明細_bt As Button
+    Friend WithEvents 進貨成本_tb As TextBox
+    Friend WithEvents Label45 As Label
+    Friend WithEvents 物料成本_tb As TextBox
+    Friend WithEvents Label43 As Label
+    Friend WithEvents 供應商_lb 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,232 @@
+Option Strict Off
+Public Class 貨款試算表
+    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim 比例 As Integer
+    Private Sub Set_清單1()
+        廠商彙總_dgv.DataSource = Nothing : ds1.Clear()
+        廠商彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        廠商彙總_dgv.ColumnHeadersHeight = 25
+        廠商彙總_dgv.AllowUserToAddRows = False
+        廠商彙總_dgv.RowTemplate.Height = 26
+
+        PA19 = 業務_cb.Text
+        SQL_貨款試算表_廠商彙總()
+        da.Fill(ds1) : 廠商彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        廠商彙總_dgv.Columns(0).FillWeight = 100 : 廠商彙總_dgv.Columns(1).FillWeight = 100 : 廠商彙總_dgv.Columns(2).FillWeight = 150
+        廠商彙總_dgv.Columns(3).FillWeight = 100
+
+        For I As Integer = 0 To 3 : 廠商彙總_dgv.Columns(I).ReadOnly = True : Next
+
+        廠商彙總_dgv.Columns("預估進貨").DefaultCellStyle.Format = "#,##0"
+        廠商彙總_dgv.Columns("預估進貨").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("預估進貨").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("編號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("編號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        物料成本_tb.Text = "0"
+        For i As Integer = 0 To 廠商彙總_dgv.Rows.Count - 1
+            廠商彙總_dgv("項次", i).Value = i + 1
+            物料成本_tb.Text = Val(物料成本_tb.Text) + 廠商彙總_dgv("預估進貨", i).Value
+        Next
+        For i As Integer = 0 To 廠商彙總_dgv.Rows.Count - 1
+            比例 = 廠商彙總_dgv("預估進貨", i).Value / Val(物料成本_tb.Text) * 100
+            If 比例 > 100 Then : 比例 = 100 : End If
+            If 比例 = 0 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._000 : ElseIf 比例 = 1 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._001
+            ElseIf 比例 = 2 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._002 : ElseIf 比例 = 3 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._003
+            ElseIf 比例 = 4 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._004 : ElseIf 比例 = 5 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._005
+            ElseIf 比例 = 6 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._006 : ElseIf 比例 = 7 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._007
+            ElseIf 比例 = 8 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._008 : ElseIf 比例 = 9 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._009
+            ElseIf 比例 = 10 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._010 : ElseIf 比例 = 11 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._011
+            ElseIf 比例 = 12 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._012 : ElseIf 比例 = 13 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._013
+            ElseIf 比例 = 14 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._014 : ElseIf 比例 = 15 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._015
+            ElseIf 比例 = 16 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._016 : ElseIf 比例 = 17 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._017
+            ElseIf 比例 = 18 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._018 : ElseIf 比例 = 19 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._019
+            ElseIf 比例 = 20 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._020 : ElseIf 比例 = 21 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._021
+            ElseIf 比例 = 22 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._022 : ElseIf 比例 = 23 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._023
+            ElseIf 比例 = 24 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._024 : ElseIf 比例 = 25 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._025
+            ElseIf 比例 = 26 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._026 : ElseIf 比例 = 27 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._027
+            ElseIf 比例 = 28 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._028 : ElseIf 比例 = 29 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._029
+            ElseIf 比例 = 30 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._030 : ElseIf 比例 = 31 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._031
+            ElseIf 比例 = 32 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._032 : ElseIf 比例 = 33 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._033
+            ElseIf 比例 = 34 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._034 : ElseIf 比例 = 35 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._035
+            ElseIf 比例 = 36 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._036 : ElseIf 比例 = 37 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._037
+            ElseIf 比例 = 38 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._038 : ElseIf 比例 = 39 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._039
+            ElseIf 比例 = 40 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._040 : ElseIf 比例 = 41 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._041
+            ElseIf 比例 = 42 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._042 : ElseIf 比例 = 43 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._043
+            ElseIf 比例 = 44 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._044 : ElseIf 比例 = 45 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._045
+            ElseIf 比例 = 46 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._046 : ElseIf 比例 = 47 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._047
+            ElseIf 比例 = 48 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._048 : ElseIf 比例 = 49 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._049
+            ElseIf 比例 = 50 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._050 : ElseIf 比例 = 51 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._051
+            ElseIf 比例 = 52 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._052 : ElseIf 比例 = 53 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._053
+            ElseIf 比例 = 54 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._054 : ElseIf 比例 = 55 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._055
+            ElseIf 比例 = 56 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._056 : ElseIf 比例 = 57 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._057
+            ElseIf 比例 = 58 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._058 : ElseIf 比例 = 59 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._059
+            ElseIf 比例 = 60 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._060 : ElseIf 比例 = 61 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._061
+            ElseIf 比例 = 62 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._062 : ElseIf 比例 = 63 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._063
+            ElseIf 比例 = 64 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._064 : ElseIf 比例 = 65 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._065
+            ElseIf 比例 = 66 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._066 : ElseIf 比例 = 67 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._067
+            ElseIf 比例 = 68 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._068 : ElseIf 比例 = 69 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._069
+            ElseIf 比例 = 70 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._070 : ElseIf 比例 = 71 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._071
+            ElseIf 比例 = 72 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._072 : ElseIf 比例 = 73 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._073
+            ElseIf 比例 = 74 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._074 : ElseIf 比例 = 75 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._075
+            ElseIf 比例 = 76 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._076 : ElseIf 比例 = 77 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._077
+            ElseIf 比例 = 78 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._078 : ElseIf 比例 = 79 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._079
+            ElseIf 比例 = 80 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._080 : ElseIf 比例 = 81 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._081
+            ElseIf 比例 = 82 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._082 : ElseIf 比例 = 83 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._083
+            ElseIf 比例 = 84 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._084 : ElseIf 比例 = 85 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._085
+            ElseIf 比例 = 86 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._086 : ElseIf 比例 = 87 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._087
+            ElseIf 比例 = 88 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._088 : ElseIf 比例 = 89 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._089
+            ElseIf 比例 = 90 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._090 : ElseIf 比例 = 91 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._091
+            ElseIf 比例 = 92 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._092 : ElseIf 比例 = 93 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._093
+            ElseIf 比例 = 94 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._094 : ElseIf 比例 = 95 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._095
+            ElseIf 比例 = 96 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._096 : ElseIf 比例 = 97 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._097
+            ElseIf 比例 = 98 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._098 : ElseIf 比例 = 99 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._099
+            ElseIf 比例 >= 100 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._100 : End If
+        Next
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0")
+    End Sub
+    Private Sub Set_清單4()
+        訂貨明細_dgv.DataSource = Nothing : ds4.Clear()
+        訂貨明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂貨明細_dgv.ColumnHeadersHeight = 25
+        訂貨明細_dgv.AllowUserToAddRows = False
+        訂貨明細_dgv.RowTemplate.Height = 90
+
+        SQL_貨款試算表_物料明細()
+        da.Fill(ds4) : 訂貨明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        訂貨明細_dgv.Columns(0).FillWeight = 80 : 訂貨明細_dgv.Columns(1).FillWeight = 80 : 訂貨明細_dgv.Columns(2).FillWeight = 80
+        訂貨明細_dgv.Columns(3).FillWeight = 110 : 訂貨明細_dgv.Columns(4).FillWeight = 200 : 訂貨明細_dgv.Columns(5).FillWeight = 120 : 訂貨明細_dgv.Columns(6).FillWeight = 120
+        訂貨明細_dgv.Columns(7).FillWeight = 120 : 訂貨明細_dgv.Columns(8).FillWeight = 200 : 訂貨明細_dgv.Columns(9).FillWeight = 80 : 訂貨明細_dgv.Columns(10).FillWeight = 100
+        訂貨明細_dgv.Columns(11).Visible = False : 訂貨明細_dgv.Columns(12).Visible = False : 訂貨明細_dgv.Columns(13).FillWeight = 100 : 訂貨明細_dgv.Columns(14).Visible = False
+
+        For I As Integer = 0 To 14 : 訂貨明細_dgv.Columns(I).ReadOnly = True : Next
+
+        訂貨明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 訂貨明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        訂貨明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 訂貨明細_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        訂貨明細_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("單號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        訂貨明細_dgv.Columns("單號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        進貨成本_tb.Text = "0"
+        For i As Integer = 0 To 訂貨明細_dgv.Rows.Count - 1
+            訂貨明細_dgv("金額", i).Value = 訂貨明細_dgv("數量", i).Value * 訂貨明細_dgv("成本", i).Value
+            訂貨明細_dgv("項次", i).Value = i + 1
+            進貨成本_tb.Text = Val(進貨成本_tb.Text) + 訂貨明細_dgv("金額", i).Value
+            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            'ElseIf 銷售明細_dgv("倉儲情況", I).Value.ToString = "未有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            'End If
+        Next
+        進貨成本_tb.Text = Format(Val(進貨成本_tb.Text), "#,##0")
+    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 = 業務號碼
+        開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
+        日期格式()
+        首次開啟 = True
+    End Sub
+    Private Sub 貨款試算表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If 首次開啟 = True Then
+            Set_清單1() : Set_清單4()
+        End If
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單1() : PA19 = "" : PA20 = 業務_cb.Text : Set_清單4() : 供應商_lb.Text = "全供應商"
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單1() : PA19 = "" : PA20 = 業務_cb.Text : Set_清單4() : 供應商_lb.Text = "全供應商"
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1() : PA19 = "" : PA20 = 業務_cb.Text : Set_清單4() : 供應商_lb.Text = "全供應商"
+    End Sub
+    Private Sub 依開單日期_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依開單日期_ch.Click
+        依開單日期_ch.Checked = True : 依交貨日期_ch.Checked = False : Set_清單1() : PA19 = "" : PA20 = 業務_cb.Text : Set_清單4() : 供應商_lb.Text = "全供應商"
+    End Sub
+    Private Sub 依交貨日期_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依交貨日期_ch.Click
+        依開單日期_ch.Checked = False : 依交貨日期_ch.Checked = True : Set_清單1() : PA19 = "" : PA20 = 業務_cb.Text : Set_清單4() : 供應商_lb.Text = "全供應商"
+    End Sub
+    Private Sub 廠商彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 廠商彙總_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            PA19 = 廠商彙總_dgv("編號", e.RowIndex).Value : Set_清單4() : 供應商_lb.Text = 廠商彙總_dgv("供應商", e.RowIndex).Value
+        End If
+    End Sub
+    Private Sub 銷售它項_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂貨明細_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 訂貨明細_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 訂貨明細_dgv("單號", e.RowIndex).Value.ToString <> 訂貨明細_dgv("單號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(訂貨明細_dgv.RowHeadersVisible, 訂貨明細_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 訂貨明細_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 訂貨明細_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 所有訂貨明細_bt_Click(sender As Object, e As EventArgs) Handles 所有訂貨明細_bt.Click
+        PA19 = "" : Set_清單4() : 供應商_lb.Text = "全供應商"
+    End Sub
+End Class

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

@@ -0,0 +1,636 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 銷售分析表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim 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()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.銷售明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.依開單日期_ch = New System.Windows.Forms.CheckBox()
+        Me.依交貨日期_ch = New System.Windows.Forms.CheckBox()
+        Me.銷售它項_dgv = New System.Windows.Forms.DataGridView()
+        Me.銷售備註_dgv = New System.Windows.Forms.DataGridView()
+        Me.運費_dgv = New System.Windows.Forms.DataGridView()
+        Me.廠商彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.其他成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
+        Me.物料成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label43 = New System.Windows.Forms.Label()
+        Me.預估利潤_tb = New System.Windows.Forms.TextBox()
+        Me.Label42 = New System.Windows.Forms.Label()
+        Me.管銷費用_tb = New System.Windows.Forms.TextBox()
+        Me.Label41 = New System.Windows.Forms.Label()
+        Me.司機運費_tb = New System.Windows.Forms.TextBox()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.額外收支_tb = New System.Windows.Forms.TextBox()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.銷售合計_tb = New System.Windows.Forms.TextBox()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.稅金_tb = New System.Windows.Forms.TextBox()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.支出小計_tb = New System.Windows.Forms.TextBox()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.收入小計_tb = New System.Windows.Forms.TextBox()
+        Me.Label31 = New System.Windows.Forms.Label()
+        Me.售價小計_tb = New System.Windows.Forms.TextBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售它項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.廠商彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(318, 28)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1175
+        Me.中間日期_dtp.Visible = False
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Location = New System.Drawing.Point(378, 31)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1174
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Checked = True
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月_ch.Location = New System.Drawing.Point(249, 30)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1173
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.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(347, 51)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(97, 25)
+        Me.下個月_bt.TabIndex = 1172
+        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(246, 51)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(97, 25)
+        Me.上個月_bt.TabIndex = 1171
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(335, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1170
+        Me.Label4.Text = "到"
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(357, 4)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.結束日期_dtp.TabIndex = 1169
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(246, 4)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.開始日期_dtp.TabIndex = 1168
+        '
+        '業務_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(520, 51)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(62, 24)
+        Me.業務_cb.TabIndex = 1257
+        '
+        '未審核_lb
+        '
+        Me.未審核_lb.AutoSize = True
+        Me.未審核_lb.Location = New System.Drawing.Point(453, 55)
+        Me.未審核_lb.Name = "未審核_lb"
+        Me.未審核_lb.Size = New System.Drawing.Size(65, 16)
+        Me.未審核_lb.TabIndex = 1256
+        Me.未審核_lb.Text = "業 務 號 碼"
+        '
+        '銷售明細_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.銷售明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            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(7, 78)
+        Me.銷售明細_dgv.Name = "銷售明細_dgv"
+        Me.銷售明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.銷售明細_dgv.RowTemplate.Height = 24
+        Me.銷售明細_dgv.Size = New System.Drawing.Size(983, 238)
+        Me.銷售明細_dgv.TabIndex = 1258
+        '
+        '依開單日期_ch
+        '
+        Me.依開單日期_ch.AutoSize = True
+        Me.依開單日期_ch.Checked = True
+        Me.依開單日期_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.依開單日期_ch.Location = New System.Drawing.Point(455, 7)
+        Me.依開單日期_ch.Name = "依開單日期_ch"
+        Me.依開單日期_ch.Size = New System.Drawing.Size(87, 20)
+        Me.依開單日期_ch.TabIndex = 1259
+        Me.依開單日期_ch.Text = "依開單日期"
+        Me.依開單日期_ch.UseVisualStyleBackColor = True
+        '
+        '依交貨日期_ch
+        '
+        Me.依交貨日期_ch.AutoSize = True
+        Me.依交貨日期_ch.Location = New System.Drawing.Point(455, 30)
+        Me.依交貨日期_ch.Name = "依交貨日期_ch"
+        Me.依交貨日期_ch.Size = New System.Drawing.Size(87, 20)
+        Me.依交貨日期_ch.TabIndex = 1260
+        Me.依交貨日期_ch.Text = "依交貨日期"
+        Me.依交貨日期_ch.UseVisualStyleBackColor = True
+        '
+        '銷售它項_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售它項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.銷售它項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.銷售它項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售它項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售它項_dgv.Location = New System.Drawing.Point(7, 322)
+        Me.銷售它項_dgv.Name = "銷售它項_dgv"
+        Me.銷售它項_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售它項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.銷售它項_dgv.RowTemplate.Height = 24
+        Me.銷售它項_dgv.Size = New System.Drawing.Size(618, 180)
+        Me.銷售它項_dgv.TabIndex = 1261
+        '
+        '銷售備註_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.銷售備註_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.銷售備註_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售備註_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售備註_dgv.Location = New System.Drawing.Point(4, 508)
+        Me.銷售備註_dgv.Name = "銷售備註_dgv"
+        Me.銷售備註_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.銷售備註_dgv.RowTemplate.Height = 24
+        Me.銷售備註_dgv.Size = New System.Drawing.Size(621, 165)
+        Me.銷售備註_dgv.TabIndex = 1262
+        '
+        '運費_dgv
+        '
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        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(631, 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))
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.運費_dgv.RowTemplate.Height = 24
+        Me.運費_dgv.Size = New System.Drawing.Size(359, 351)
+        Me.運費_dgv.TabIndex = 1263
+        '
+        '廠商彙總_dgv
+        '
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.廠商彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        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(996, 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))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.廠商彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.廠商彙總_dgv.RowTemplate.Height = 24
+        Me.廠商彙總_dgv.Size = New System.Drawing.Size(339, 595)
+        Me.廠商彙總_dgv.TabIndex = 1264
+        '
+        '其他成本_tb
+        '
+        Me.其他成本_tb.ForeColor = System.Drawing.Color.Green
+        Me.其他成本_tb.Location = New System.Drawing.Point(1048, 27)
+        Me.其他成本_tb.Name = "其他成本_tb"
+        Me.其他成本_tb.Size = New System.Drawing.Size(100, 23)
+        Me.其他成本_tb.TabIndex = 1331
+        Me.其他成本_tb.Text = "0"
+        Me.其他成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label45
+        '
+        Me.Label45.AutoSize = True
+        Me.Label45.ForeColor = System.Drawing.Color.Green
+        Me.Label45.Location = New System.Drawing.Point(966, 30)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(80, 16)
+        Me.Label45.TabIndex = 1330
+        Me.Label45.Text = "其他成本總和"
+        '
+        '物料成本_tb
+        '
+        Me.物料成本_tb.ForeColor = System.Drawing.Color.Green
+        Me.物料成本_tb.Location = New System.Drawing.Point(1048, 2)
+        Me.物料成本_tb.Name = "物料成本_tb"
+        Me.物料成本_tb.Size = New System.Drawing.Size(100, 23)
+        Me.物料成本_tb.TabIndex = 1329
+        Me.物料成本_tb.Text = "0"
+        Me.物料成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label43
+        '
+        Me.Label43.AutoSize = True
+        Me.Label43.ForeColor = System.Drawing.Color.Green
+        Me.Label43.Location = New System.Drawing.Point(966, 5)
+        Me.Label43.Name = "Label43"
+        Me.Label43.Size = New System.Drawing.Size(80, 16)
+        Me.Label43.TabIndex = 1328
+        Me.Label43.Text = "物料成本總和"
+        '
+        '預估利潤_tb
+        '
+        Me.預估利潤_tb.ForeColor = System.Drawing.Color.Green
+        Me.預估利潤_tb.Location = New System.Drawing.Point(1157, 52)
+        Me.預估利潤_tb.Name = "預估利潤_tb"
+        Me.預估利潤_tb.Size = New System.Drawing.Size(178, 23)
+        Me.預估利潤_tb.TabIndex = 1327
+        Me.預估利潤_tb.Text = "0"
+        Me.預估利潤_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label42
+        '
+        Me.Label42.AutoSize = True
+        Me.Label42.ForeColor = System.Drawing.Color.Green
+        Me.Label42.Location = New System.Drawing.Point(1154, 31)
+        Me.Label42.Name = "Label42"
+        Me.Label42.Size = New System.Drawing.Size(141, 16)
+        Me.Label42.TabIndex = 1326
+        Me.Label42.Text = "總預估利潤-(未扣除獎金)"
+        '
+        '管銷費用_tb
+        '
+        Me.管銷費用_tb.ForeColor = System.Drawing.Color.Green
+        Me.管銷費用_tb.Location = New System.Drawing.Point(1049, 52)
+        Me.管銷費用_tb.Name = "管銷費用_tb"
+        Me.管銷費用_tb.Size = New System.Drawing.Size(100, 23)
+        Me.管銷費用_tb.TabIndex = 1325
+        Me.管銷費用_tb.Text = "0"
+        Me.管銷費用_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label41
+        '
+        Me.Label41.AutoSize = True
+        Me.Label41.ForeColor = System.Drawing.Color.Green
+        Me.Label41.Location = New System.Drawing.Point(967, 55)
+        Me.Label41.Name = "Label41"
+        Me.Label41.Size = New System.Drawing.Size(80, 16)
+        Me.Label41.TabIndex = 1324
+        Me.Label41.Text = "管銷費用總額"
+        '
+        '司機運費_tb
+        '
+        Me.司機運費_tb.ForeColor = System.Drawing.Color.Black
+        Me.司機運費_tb.Location = New System.Drawing.Point(1235, 3)
+        Me.司機運費_tb.Name = "司機運費_tb"
+        Me.司機運費_tb.Size = New System.Drawing.Size(100, 23)
+        Me.司機運費_tb.TabIndex = 1323
+        Me.司機運費_tb.Text = "0"
+        Me.司機運費_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label38
+        '
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(1153, 7)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(80, 16)
+        Me.Label38.TabIndex = 1322
+        Me.Label38.Text = "司機運費合計"
+        '
+        '額外收支_tb
+        '
+        Me.額外收支_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.額外收支_tb.Location = New System.Drawing.Point(861, 52)
+        Me.額外收支_tb.Name = "額外收支_tb"
+        Me.額外收支_tb.Size = New System.Drawing.Size(100, 23)
+        Me.額外收支_tb.TabIndex = 1321
+        Me.額外收支_tb.Text = "0"
+        Me.額外收支_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label35
+        '
+        Me.Label35.AutoSize = True
+        Me.Label35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label35.Location = New System.Drawing.Point(779, 55)
+        Me.Label35.Name = "Label35"
+        Me.Label35.Size = New System.Drawing.Size(80, 16)
+        Me.Label35.TabIndex = 1320
+        Me.Label35.Text = "額外收支總額"
+        '
+        '銷售合計_tb
+        '
+        Me.銷售合計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售合計_tb.Location = New System.Drawing.Point(673, 52)
+        Me.銷售合計_tb.Name = "銷售合計_tb"
+        Me.銷售合計_tb.Size = New System.Drawing.Size(100, 23)
+        Me.銷售合計_tb.TabIndex = 1319
+        Me.銷售合計_tb.Text = "0"
+        Me.銷售合計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label34.Location = New System.Drawing.Point(588, 55)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(85, 16)
+        Me.Label34.TabIndex = 1318
+        Me.Label34.Text = "總銷售額-含稅"
+        '
+        '稅金_tb
+        '
+        Me.稅金_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.稅金_tb.Location = New System.Drawing.Point(673, 27)
+        Me.稅金_tb.Name = "稅金_tb"
+        Me.稅金_tb.Size = New System.Drawing.Size(100, 23)
+        Me.稅金_tb.TabIndex = 1317
+        Me.稅金_tb.Text = "0"
+        Me.稅金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label33.Location = New System.Drawing.Point(588, 30)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(85, 16)
+        Me.Label33.TabIndex = 1316
+        Me.Label33.Text = "總  銷  售-稅額"
+        '
+        '支出小計_tb
+        '
+        Me.支出小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.支出小計_tb.Location = New System.Drawing.Point(860, 27)
+        Me.支出小計_tb.Name = "支出小計_tb"
+        Me.支出小計_tb.Size = New System.Drawing.Size(100, 23)
+        Me.支出小計_tb.TabIndex = 1315
+        Me.支出小計_tb.Text = "0"
+        Me.支出小計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label32
+        '
+        Me.Label32.AutoSize = True
+        Me.Label32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label32.Location = New System.Drawing.Point(780, 30)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(80, 16)
+        Me.Label32.TabIndex = 1314
+        Me.Label32.Text = "額外支出合計"
+        '
+        '收入小計_tb
+        '
+        Me.收入小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.收入小計_tb.Location = New System.Drawing.Point(860, 2)
+        Me.收入小計_tb.Name = "收入小計_tb"
+        Me.收入小計_tb.Size = New System.Drawing.Size(100, 23)
+        Me.收入小計_tb.TabIndex = 1313
+        Me.收入小計_tb.Text = "0"
+        Me.收入小計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label31
+        '
+        Me.Label31.AutoSize = True
+        Me.Label31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label31.Location = New System.Drawing.Point(778, 5)
+        Me.Label31.Name = "Label31"
+        Me.Label31.Size = New System.Drawing.Size(80, 16)
+        Me.Label31.TabIndex = 1312
+        Me.Label31.Text = "額外收入合計"
+        '
+        '售價小計_tb
+        '
+        Me.售價小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.售價小計_tb.Location = New System.Drawing.Point(673, 2)
+        Me.售價小計_tb.Name = "售價小計_tb"
+        Me.售價小計_tb.Size = New System.Drawing.Size(100, 23)
+        Me.售價小計_tb.TabIndex = 1311
+        Me.售價小計_tb.Text = "0"
+        Me.售價小計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label30
+        '
+        Me.Label30.AutoSize = True
+        Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label30.Location = New System.Drawing.Point(588, 6)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(85, 16)
+        Me.Label30.TabIndex = 1310
+        Me.Label30.Text = "總銷售額-未稅"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.Black
+        Me.Label1.Location = New System.Drawing.Point(11, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(177, 40)
+        Me.Label1.TabIndex = 1332
+        Me.Label1.Text = "銷售分析表"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Black
+        Me.Label2.Location = New System.Drawing.Point(12, 54)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(212, 16)
+        Me.Label2.TabIndex = 1333
+        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(1344, 681)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.其他成本_tb)
+        Me.Controls.Add(Me.Label45)
+        Me.Controls.Add(Me.物料成本_tb)
+        Me.Controls.Add(Me.Label43)
+        Me.Controls.Add(Me.預估利潤_tb)
+        Me.Controls.Add(Me.Label42)
+        Me.Controls.Add(Me.管銷費用_tb)
+        Me.Controls.Add(Me.Label41)
+        Me.Controls.Add(Me.司機運費_tb)
+        Me.Controls.Add(Me.Label38)
+        Me.Controls.Add(Me.額外收支_tb)
+        Me.Controls.Add(Me.Label35)
+        Me.Controls.Add(Me.銷售合計_tb)
+        Me.Controls.Add(Me.稅金_tb)
+        Me.Controls.Add(Me.Label33)
+        Me.Controls.Add(Me.支出小計_tb)
+        Me.Controls.Add(Me.Label32)
+        Me.Controls.Add(Me.收入小計_tb)
+        Me.Controls.Add(Me.Label31)
+        Me.Controls.Add(Me.售價小計_tb)
+        Me.Controls.Add(Me.Label30)
+        Me.Controls.Add(Me.廠商彙總_dgv)
+        Me.Controls.Add(Me.運費_dgv)
+        Me.Controls.Add(Me.銷售備註_dgv)
+        Me.Controls.Add(Me.銷售它項_dgv)
+        Me.Controls.Add(Me.依交貨日期_ch)
+        Me.Controls.Add(Me.依開單日期_ch)
+        Me.Controls.Add(Me.銷售明細_dgv)
+        Me.Controls.Add(Me.業務_cb)
+        Me.Controls.Add(Me.未審核_lb)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.Label34)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "銷售分析表"
+        Me.Text = "銷售分析表"
+        CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售它項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.運費_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.廠商彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 銷售明細_dgv As DataGridView
+    Friend WithEvents 依開單日期_ch As CheckBox
+    Friend WithEvents 依交貨日期_ch As CheckBox
+    Friend WithEvents 銷售它項_dgv As DataGridView
+    Friend WithEvents 銷售備註_dgv As DataGridView
+    Friend WithEvents 運費_dgv As DataGridView
+    Friend WithEvents 廠商彙總_dgv As DataGridView
+    Friend WithEvents 其他成本_tb As TextBox
+    Friend WithEvents Label45 As Label
+    Friend WithEvents 物料成本_tb As TextBox
+    Friend WithEvents Label43 As Label
+    Friend WithEvents 預估利潤_tb As TextBox
+    Friend WithEvents Label42 As Label
+    Friend WithEvents 管銷費用_tb As TextBox
+    Friend WithEvents Label41 As Label
+    Friend WithEvents 司機運費_tb As TextBox
+    Friend WithEvents Label38 As Label
+    Friend WithEvents 額外收支_tb As TextBox
+    Friend WithEvents Label35 As Label
+    Friend WithEvents 銷售合計_tb As TextBox
+    Friend WithEvents Label34 As Label
+    Friend WithEvents 稅金_tb As TextBox
+    Friend WithEvents Label33 As Label
+    Friend WithEvents 支出小計_tb As TextBox
+    Friend WithEvents Label32 As Label
+    Friend WithEvents 收入小計_tb As TextBox
+    Friend WithEvents Label31 As Label
+    Friend WithEvents 售價小計_tb As TextBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents Label1 As Label
+    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,379 @@
+Option Strict Off
+Public Class 銷售分析表
+    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim 比例 As Integer
+    Private Sub Set_清單1()
+        廠商彙總_dgv.DataSource = Nothing : ds1.Clear()
+        廠商彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        廠商彙總_dgv.ColumnHeadersHeight = 25
+        廠商彙總_dgv.AllowUserToAddRows = False
+        廠商彙總_dgv.RowTemplate.Height = 26
+
+        PA19 = 業務_cb.Text
+        SQL_銷售分析表_廠商彙總()
+        da.Fill(ds1) : 廠商彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        廠商彙總_dgv.Columns(0).FillWeight = 80 : 廠商彙總_dgv.Columns(1).FillWeight = 100 : 廠商彙總_dgv.Columns(2).FillWeight = 150
+        廠商彙總_dgv.Columns(3).FillWeight = 100 : 廠商彙總_dgv.Columns(4).FillWeight = 100
+
+        For I As Integer = 0 To 3 : 廠商彙總_dgv.Columns(I).ReadOnly = True : Next
+
+        廠商彙總_dgv.Columns("成本預估").DefaultCellStyle.Format = "#,##0"
+        廠商彙總_dgv.Columns("成本預估").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("成本預估").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("編號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("編號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        廠商彙總_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 廠商彙總_dgv.Rows.Count - 1
+            廠商彙總_dgv("項次", i).Value = i + 1
+        Next
+    End Sub
+    Private Sub Set_清單2()
+        運費_dgv.DataSource = Nothing : ds2.Clear()
+        運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        運費_dgv.ColumnHeadersHeight = 25
+        運費_dgv.AllowUserToAddRows = False
+        運費_dgv.RowTemplate.Height = 26
+
+        PA19 = 業務_cb.Text
+        SQL_銷售分析表_運費()
+        da.Fill(ds2) : 運費_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        運費_dgv.Columns(0).FillWeight = 100 : 運費_dgv.Columns(1).FillWeight = 100 : 運費_dgv.Columns(2).FillWeight = 100
+        運費_dgv.Columns(3).FillWeight = 100
+
+        For I As Integer = 0 To 3 : 運費_dgv.Columns(I).ReadOnly = True : Next
+
+        運費_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0"
+        運費_dgv.Columns("運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        運費_dgv.Columns("運費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        運費_dgv.Columns("單號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        運費_dgv.Columns("單號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        運費_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        運費_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 運費_dgv.Rows.Count - 1
+            運費_dgv("項次", i).Value = i + 1
+        Next
+    End Sub
+    Private Sub Set_清單3()
+        銷售它項_dgv.DataSource = Nothing : ds3.Clear()
+        銷售它項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售它項_dgv.ColumnHeadersHeight = 25
+        銷售它項_dgv.AllowUserToAddRows = False
+        銷售它項_dgv.RowTemplate.Height = 26
+
+        PA19 = 業務_cb.Text
+        SQL_銷售分析表_它項明細()
+        da.Fill(ds3) : 銷售它項_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        銷售它項_dgv.Columns(0).FillWeight = 80 : 銷售它項_dgv.Columns(1).FillWeight = 110 : 銷售它項_dgv.Columns(2).FillWeight = 110
+        銷售它項_dgv.Columns(3).FillWeight = 110 : 銷售它項_dgv.Columns(4).FillWeight = 200 : 銷售它項_dgv.Columns(5).Visible = False : 銷售它項_dgv.Columns(6).Visible = False
+        銷售它項_dgv.Columns(7).Visible = False : 銷售它項_dgv.Columns(8).FillWeight = 200 : 銷售它項_dgv.Columns(9).FillWeight = 80 : 銷售它項_dgv.Columns(10).FillWeight = 80
+        銷售它項_dgv.Columns(11).FillWeight = 80 : 銷售它項_dgv.Columns(12).Visible = False : 銷售它項_dgv.Columns(13).Visible = False : 銷售它項_dgv.Columns(14).Visible = False
+
+        For I As Integer = 0 To 14 : 銷售它項_dgv.Columns(I).ReadOnly = True : Next
+
+        銷售它項_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售它項_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        銷售它項_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售它項_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
+        銷售它項_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("售價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("售價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("單號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售它項_dgv.Columns("單號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售它項_dgv.Rows.Count - 1
+            If 銷售它項_dgv("含稅", i).Value = False Then
+                銷售它項_dgv("售價", i).Value = 銷售它項_dgv("數量", i).Value * 銷售它項_dgv("單價", i).Value
+            ElseIf 銷售它項_dgv("含稅", i).Value = True Then
+                銷售它項_dgv("售價", i).Value = 銷售它項_dgv("數量", i).Value * 銷售它項_dgv("單價", i).Value * 1.05
+            End If
+            銷售它項_dgv("項次", i).Value = i + 1
+
+            'If 銷售它項_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
+            '    銷售它項_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            'ElseIf 銷售它項_dgv("倉儲情況", I).Value.ToString = "未有貨" Then
+            '    銷售它項_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            'End If
+        Next
+    End Sub
+    Private Sub Set_清單4()
+        銷售明細_dgv.DataSource = Nothing : ds4.Clear()
+        銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售明細_dgv.ColumnHeadersHeight = 25
+        銷售明細_dgv.AllowUserToAddRows = False
+        銷售明細_dgv.RowTemplate.Height = 90
+
+        PA19 = 業務_cb.Text
+        SQL_銷售分析表_物料明細()
+        da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        銷售明細_dgv.Columns(0).FillWeight = 80 : 銷售明細_dgv.Columns(1).FillWeight = 110 : 銷售明細_dgv.Columns(2).FillWeight = 110
+        銷售明細_dgv.Columns(3).FillWeight = 110 : 銷售明細_dgv.Columns(4).FillWeight = 200 : 銷售明細_dgv.Columns(5).FillWeight = 120 : 銷售明細_dgv.Columns(6).FillWeight = 120
+        銷售明細_dgv.Columns(7).FillWeight = 120 : 銷售明細_dgv.Columns(8).FillWeight = 200 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 80
+        銷售明細_dgv.Columns(11).FillWeight = 80 : 銷售明細_dgv.Columns(12).FillWeight = 50 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).FillWeight = 80
+
+        For I As Integer = 0 To 14 : 銷售明細_dgv.Columns(I).ReadOnly = True : Next
+
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("售價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("單號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("含稅", i).Value = False Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+            End If
+            銷售明細_dgv("項次", i).Value = i + 1
+
+            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            'ElseIf 銷售明細_dgv("倉儲情況", I).Value.ToString = "未有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            'End If
+        Next
+    End Sub
+    Private Sub Set_清單5()
+        銷售備註_dgv.DataSource = Nothing : ds5.Clear()
+        銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售備註_dgv.ColumnHeadersHeight = 25
+        銷售備註_dgv.AllowUserToAddRows = False
+        銷售備註_dgv.RowTemplate.Height = 26
+
+        PA19 = 業務_cb.Text
+        SQL_銷售分析表_銷售備註()
+        da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        銷售備註_dgv.Columns(0).FillWeight = 80 : 銷售備註_dgv.Columns(1).FillWeight = 120 : 銷售備註_dgv.Columns(2).FillWeight = 910
+        銷售備註_dgv.Columns(3).FillWeight = 120
+
+        For I As Integer = 0 To 3 : 銷售備註_dgv.Columns(I).ReadOnly = True : Next
+
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Format = "#,##0" : 銷售備註_dgv.Columns("支出").DefaultCellStyle.Format = "#,##0"
+        銷售備註_dgv.Columns("收入").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("收入").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("支出").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("單號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售備註_dgv.Columns("單號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
+            銷售備註_dgv("項次", i).Value = i + 1
+        Next
+    End Sub
+    Private Sub Set_合記計算()
+        售價小計_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"
+
+        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)
+            End If
+
+            If 銷售明細_dgv("含稅", i).Value = True Then
+                稅金_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 = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+
+        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
+        Next
+        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+
+        For i As Integer = 0 To 運費_dgv.Rows.Count - 1
+            司機運費_tb.Text = Val(司機運費_tb.Text) + 運費_dgv("運費", i).Value
+        Next
+
+        For i As Integer = 0 To 銷售它項_dgv.Rows.Count - 1
+            其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售它項_dgv("數量", i).Value * 銷售它項_dgv("成本", i).Value) - (銷售它項_dgv("數量", i).Value * 銷售它項_dgv("單價", i).Value)
+        Next
+
+        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
+
+        For i As Integer = 0 To 廠商彙總_dgv.Rows.Count - 1
+            比例 = 廠商彙總_dgv("成本預估", i).Value / Val(物料成本_tb.Text) * 100
+            If 比例 > 100 Then : 比例 = 100 : End If
+            If 比例 = 0 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._000 : ElseIf 比例 = 1 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._001
+            ElseIf 比例 = 2 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._002 : ElseIf 比例 = 3 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._003
+            ElseIf 比例 = 4 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._004 : ElseIf 比例 = 5 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._005
+            ElseIf 比例 = 6 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._006 : ElseIf 比例 = 7 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._007
+            ElseIf 比例 = 8 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._008 : ElseIf 比例 = 9 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._009
+            ElseIf 比例 = 10 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._010 : ElseIf 比例 = 11 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._011
+            ElseIf 比例 = 12 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._012 : ElseIf 比例 = 13 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._013
+            ElseIf 比例 = 14 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._014 : ElseIf 比例 = 15 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._015
+            ElseIf 比例 = 16 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._016 : ElseIf 比例 = 17 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._017
+            ElseIf 比例 = 18 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._018 : ElseIf 比例 = 19 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._019
+            ElseIf 比例 = 20 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._020 : ElseIf 比例 = 21 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._021
+            ElseIf 比例 = 22 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._022 : ElseIf 比例 = 23 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._023
+            ElseIf 比例 = 24 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._024 : ElseIf 比例 = 25 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._025
+            ElseIf 比例 = 26 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._026 : ElseIf 比例 = 27 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._027
+            ElseIf 比例 = 28 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._028 : ElseIf 比例 = 29 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._029
+            ElseIf 比例 = 30 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._030 : ElseIf 比例 = 31 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._031
+            ElseIf 比例 = 32 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._032 : ElseIf 比例 = 33 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._033
+            ElseIf 比例 = 34 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._034 : ElseIf 比例 = 35 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._035
+            ElseIf 比例 = 36 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._036 : ElseIf 比例 = 37 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._037
+            ElseIf 比例 = 38 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._038 : ElseIf 比例 = 39 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._039
+            ElseIf 比例 = 40 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._040 : ElseIf 比例 = 41 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._041
+            ElseIf 比例 = 42 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._042 : ElseIf 比例 = 43 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._043
+            ElseIf 比例 = 44 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._044 : ElseIf 比例 = 45 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._045
+            ElseIf 比例 = 46 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._046 : ElseIf 比例 = 47 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._047
+            ElseIf 比例 = 48 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._048 : ElseIf 比例 = 49 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._049
+            ElseIf 比例 = 50 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._050 : ElseIf 比例 = 51 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._051
+            ElseIf 比例 = 52 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._052 : ElseIf 比例 = 53 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._053
+            ElseIf 比例 = 54 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._054 : ElseIf 比例 = 55 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._055
+            ElseIf 比例 = 56 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._056 : ElseIf 比例 = 57 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._057
+            ElseIf 比例 = 58 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._058 : ElseIf 比例 = 59 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._059
+            ElseIf 比例 = 60 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._060 : ElseIf 比例 = 61 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._061
+            ElseIf 比例 = 62 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._062 : ElseIf 比例 = 63 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._063
+            ElseIf 比例 = 64 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._064 : ElseIf 比例 = 65 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._065
+            ElseIf 比例 = 66 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._066 : ElseIf 比例 = 67 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._067
+            ElseIf 比例 = 68 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._068 : ElseIf 比例 = 69 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._069
+            ElseIf 比例 = 70 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._070 : ElseIf 比例 = 71 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._071
+            ElseIf 比例 = 72 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._072 : ElseIf 比例 = 73 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._073
+            ElseIf 比例 = 74 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._074 : ElseIf 比例 = 75 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._075
+            ElseIf 比例 = 76 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._076 : ElseIf 比例 = 77 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._077
+            ElseIf 比例 = 78 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._078 : ElseIf 比例 = 79 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._079
+            ElseIf 比例 = 80 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._080 : ElseIf 比例 = 81 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._081
+            ElseIf 比例 = 82 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._082 : ElseIf 比例 = 83 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._083
+            ElseIf 比例 = 84 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._084 : ElseIf 比例 = 85 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._085
+            ElseIf 比例 = 86 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._086 : ElseIf 比例 = 87 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._087
+            ElseIf 比例 = 88 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._088 : ElseIf 比例 = 89 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._089
+            ElseIf 比例 = 90 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._090 : ElseIf 比例 = 91 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._091
+            ElseIf 比例 = 92 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._092 : ElseIf 比例 = 93 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._093
+            ElseIf 比例 = 94 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._094 : ElseIf 比例 = 95 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._095
+            ElseIf 比例 = 96 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._096 : ElseIf 比例 = 97 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._097
+            ElseIf 比例 = 98 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._098 : ElseIf 比例 = 99 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._099
+            ElseIf 比例 >= 100 Then : 廠商彙總_dgv.Rows(i).Cells("成本佔比").Value = My.Resources._100 : End If
+        Next
+
+        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0")
+    End Sub
+
+    Private Sub 銷售分析表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        業務_cb.Text = 業務號碼
+        開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
+        日期格式()
+        首次開啟 = True
+    End Sub
+    Private Sub 銷售分析表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If 首次開啟 = True Then
+            Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_合記計算()
+        End If
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_合記計算()
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_合記計算()
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_合記計算()
+    End Sub
+    Private Sub 銷售明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷售明細_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 銷售明細_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 銷售明細_dgv("單號", e.RowIndex).Value.ToString <> 銷售明細_dgv("單號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(銷售明細_dgv.RowHeadersVisible, 銷售明細_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 銷售明細_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 銷售明細_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 依開單日期_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依開單日期_ch.Click
+        依開單日期_ch.Checked = True : 依交貨日期_ch.Checked = False : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_合記計算()
+    End Sub
+    Private Sub 依交貨日期_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依交貨日期_ch.Click
+        依開單日期_ch.Checked = False : 依交貨日期_ch.Checked = True : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_合記計算()
+    End Sub
+End Class

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

@@ -105,10 +105,21 @@ Partial Class 銷售單審核
         Me.單據核准_bt = New System.Windows.Forms.Button()
         Me.單據作廢_bt = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Reset_bt = New System.Windows.Forms.Button()
+        Me.讀取標準成本_bt = New System.Windows.Forms.Button()
+        Me.物料成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label43 = New System.Windows.Forms.Label()
+        Me.預估利潤_tb = New System.Windows.Forms.TextBox()
+        Me.Label42 = New System.Windows.Forms.Label()
+        Me.管銷費用_tb = New System.Windows.Forms.TextBox()
+        Me.Label41 = New System.Windows.Forms.Label()
+        Me.司機運費_tb = New System.Windows.Forms.TextBox()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.送貨地點_cb = New System.Windows.Forms.ComboBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label39 = New System.Windows.Forms.Label()
         Me.項次3_tb = New System.Windows.Forms.TextBox()
-        Me.銷售收款流水號_tb = New System.Windows.Forms.TextBox()
-        Me.Label37 = New System.Windows.Forms.Label()
-        Me.Button2 = New System.Windows.Forms.Button()
+        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()
@@ -125,15 +136,11 @@ Partial Class 銷售單審核
         Me.售價小計_tb = New System.Windows.Forms.TextBox()
         Me.Label30 = New System.Windows.Forms.Label()
         Me.刪除備註_bt = New System.Windows.Forms.Button()
-        Me.銷售備註流水號_tb = New System.Windows.Forms.TextBox()
         Me.銷售備註_bt = New System.Windows.Forms.Button()
         Me.項次1_tb = New System.Windows.Forms.TextBox()
         Me.Label26 = New System.Windows.Forms.Label()
         Me.項次_tb = New System.Windows.Forms.TextBox()
         Me.Label25 = New System.Windows.Forms.Label()
-        Me.倉儲資料流水號_tb = New System.Windows.Forms.TextBox()
-        Me.Label24 = New System.Windows.Forms.Label()
-        Me.銷售資料流水號_tb = New System.Windows.Forms.TextBox()
         Me.調庫單號_tb = New System.Windows.Forms.TextBox()
         Me.倉儲單號_lb = New System.Windows.Forms.Label()
         Me.客戶流水_tb = New System.Windows.Forms.TextBox()
@@ -149,25 +156,22 @@ Partial Class 銷售單審核
         Me.銷售明細_dgv = New System.Windows.Forms.DataGridView()
         Me.銷售備註_dgv = New System.Windows.Forms.DataGridView()
         Me.收款事項_dgv = New System.Windows.Forms.DataGridView()
-        Me.Label27 = New System.Windows.Forms.Label()
         Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label40 = New System.Windows.Forms.Label()
+        Me.銷售收款流水號_tb = New System.Windows.Forms.TextBox()
+        Me.Label37 = New System.Windows.Forms.Label()
+        Me.銷售備註流水號_tb = New System.Windows.Forms.TextBox()
+        Me.倉儲資料流水號_tb = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.銷售資料流水號_tb = New System.Windows.Forms.TextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
         Me.Label23 = New System.Windows.Forms.Label()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
         Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
-        Me.司機運費_tb = New System.Windows.Forms.TextBox()
-        Me.Label38 = New System.Windows.Forms.Label()
-        Me.送貨地點_cb = New System.Windows.Forms.ComboBox()
-        Me.Label20 = New System.Windows.Forms.Label()
-        Me.Label39 = New System.Windows.Forms.Label()
         Me.最低售價_cb = New System.Windows.Forms.ComboBox()
         Me.最低運費_cb = New System.Windows.Forms.ComboBox()
-        Me.物料成本_tb = New System.Windows.Forms.TextBox()
-        Me.Label43 = New System.Windows.Forms.Label()
-        Me.預估利潤_tb = New System.Windows.Forms.TextBox()
-        Me.Label42 = New System.Windows.Forms.Label()
-        Me.管銷費用_tb = New System.Windows.Forms.TextBox()
-        Me.Label41 = New System.Windows.Forms.Label()
-        Me.Label40 = New System.Windows.Forms.Label()
+        Me.其他成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -570,7 +574,7 @@ Partial Class 銷售單審核
         '
         Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.地區_cb.FormattingEnabled = True
-        Me.地區_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨"})
+        Me.地區_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨", "其他"})
         Me.地區_cb.Location = New System.Drawing.Point(47, 3)
         Me.地區_cb.Name = "地區_cb"
         Me.地區_cb.Size = New System.Drawing.Size(71, 24)
@@ -886,6 +890,10 @@ Partial Class 銷售單審核
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.其他成本_tb)
+        Me.Panel1.Controls.Add(Me.Label45)
+        Me.Panel1.Controls.Add(Me.Reset_bt)
+        Me.Panel1.Controls.Add(Me.讀取標準成本_bt)
         Me.Panel1.Controls.Add(Me.物料成本_tb)
         Me.Panel1.Controls.Add(Me.Label43)
         Me.Panel1.Controls.Add(Me.預估利潤_tb)
@@ -898,7 +906,7 @@ Partial Class 銷售單審核
         Me.Panel1.Controls.Add(Me.Label20)
         Me.Panel1.Controls.Add(Me.Label39)
         Me.Panel1.Controls.Add(Me.項次3_tb)
-        Me.Panel1.Controls.Add(Me.Button2)
+        Me.Panel1.Controls.Add(Me.刪除收款事項上點選的資料_bt)
         Me.Panel1.Controls.Add(Me.新增一筆收款事項_bt)
         Me.Panel1.Controls.Add(Me.項次2_tb)
         Me.Panel1.Controls.Add(Me.Label36)
@@ -943,6 +951,148 @@ Partial Class 銷售單審核
         Me.Panel1.Size = New System.Drawing.Size(731, 502)
         Me.Panel1.TabIndex = 1331
         '
+        'Reset_bt
+        '
+        Me.Reset_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Reset_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Reset_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Reset_bt.Location = New System.Drawing.Point(675, 526)
+        Me.Reset_bt.Name = "Reset_bt"
+        Me.Reset_bt.Size = New System.Drawing.Size(30, 24)
+        Me.Reset_bt.TabIndex = 1333
+        Me.Reset_bt.Text = "R"
+        Me.Reset_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.Green
+        Me.讀取標準成本_bt.Location = New System.Drawing.Point(496, 3)
+        Me.讀取標準成本_bt.Name = "讀取標準成本_bt"
+        Me.讀取標準成本_bt.Size = New System.Drawing.Size(163, 23)
+        Me.讀取標準成本_bt.TabIndex = 1332
+        Me.讀取標準成本_bt.Text = "讀取標準成本"
+        Me.讀取標準成本_bt.UseVisualStyleBackColor = True
+        '
+        '物料成本_tb
+        '
+        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.Green
+        Me.物料成本_tb.Location = New System.Drawing.Point(622, 677)
+        Me.物料成本_tb.Name = "物料成本_tb"
+        Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
+        Me.物料成本_tb.TabIndex = 1311
+        Me.物料成本_tb.Text = "0"
+        Me.物料成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label43
+        '
+        Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label43.AutoSize = True
+        Me.Label43.ForeColor = System.Drawing.Color.Green
+        Me.Label43.Location = New System.Drawing.Point(540, 680)
+        Me.Label43.Name = "Label43"
+        Me.Label43.Size = New System.Drawing.Size(83, 16)
+        Me.Label43.TabIndex = 1310
+        Me.Label43.Text = "物   料   成   本"
+        '
+        '預估利潤_tb
+        '
+        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.Green
+        Me.預估利潤_tb.Location = New System.Drawing.Point(623, 752)
+        Me.預估利潤_tb.Name = "預估利潤_tb"
+        Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
+        Me.預估利潤_tb.TabIndex = 1309
+        Me.預估利潤_tb.Text = "0"
+        Me.預估利潤_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label42
+        '
+        Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label42.AutoSize = True
+        Me.Label42.ForeColor = System.Drawing.Color.Green
+        Me.Label42.Location = New System.Drawing.Point(541, 755)
+        Me.Label42.Name = "Label42"
+        Me.Label42.Size = New System.Drawing.Size(83, 16)
+        Me.Label42.TabIndex = 1308
+        Me.Label42.Text = "預   估   利   潤"
+        '
+        '管銷費用_tb
+        '
+        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.Green
+        Me.管銷費用_tb.Location = New System.Drawing.Point(623, 727)
+        Me.管銷費用_tb.Name = "管銷費用_tb"
+        Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
+        Me.管銷費用_tb.TabIndex = 1307
+        Me.管銷費用_tb.Text = "0"
+        Me.管銷費用_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label41
+        '
+        Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label41.AutoSize = True
+        Me.Label41.ForeColor = System.Drawing.Color.Green
+        Me.Label41.Location = New System.Drawing.Point(541, 730)
+        Me.Label41.Name = "Label41"
+        Me.Label41.Size = New System.Drawing.Size(83, 16)
+        Me.Label41.TabIndex = 1306
+        Me.Label41.Text = "管   銷   費   用"
+        '
+        '司機運費_tb
+        '
+        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(624, 553)
+        Me.司機運費_tb.Name = "司機運費_tb"
+        Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
+        Me.司機運費_tb.TabIndex = 1301
+        Me.司機運費_tb.Text = "0"
+        Me.司機運費_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label38
+        '
+        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(539, 557)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(83, 16)
+        Me.Label38.TabIndex = 1300
+        Me.Label38.Text = "司   機   運   費"
+        '
+        '送貨地點_cb
+        '
+        Me.送貨地點_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        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", "Y"})
+        Me.送貨地點_cb.Location = New System.Drawing.Point(595, 526)
+        Me.送貨地點_cb.Name = "送貨地點_cb"
+        Me.送貨地點_cb.Size = New System.Drawing.Size(78, 24)
+        Me.送貨地點_cb.TabIndex = 1298
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(537, 573)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(168, 16)
+        Me.Label20.TabIndex = 1297
+        Me.Label20.Text = "--------------------------------"
+        '
+        'Label39
+        '
+        Me.Label39.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label39.AutoSize = True
+        Me.Label39.Location = New System.Drawing.Point(536, 530)
+        Me.Label39.Name = "Label39"
+        Me.Label39.Size = New System.Drawing.Size(56, 16)
+        Me.Label39.TabIndex = 1299
+        Me.Label39.Text = "送貨地點"
+        '
         '項次3_tb
         '
         Me.項次3_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -952,37 +1102,16 @@ Partial Class 銷售單審核
         Me.項次3_tb.Size = New System.Drawing.Size(32, 23)
         Me.項次3_tb.TabIndex = 1290
         '
-        '銷售收款流水號_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(185, 483)
-        Me.銷售收款流水號_tb.Name = "銷售收款流水號_tb"
-        Me.銷售收款流水號_tb.Size = New System.Drawing.Size(165, 23)
-        Me.銷售收款流水號_tb.TabIndex = 1288
-        Me.銷售收款流水號_tb.Visible = False
-        '
-        'Label37
-        '
-        Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label37.AutoSize = True
-        Me.Label37.Location = New System.Drawing.Point(188, 467)
-        Me.Label37.Name = "Label37"
-        Me.Label37.Size = New System.Drawing.Size(92, 16)
-        Me.Label37.TabIndex = 1289
-        Me.Label37.Text = "銷售收款流水號"
-        Me.Label37.Visible = False
-        '
-        'Button2
+        '刪除收款事項上點選的資料_bt
         '
-        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button2.ForeColor = System.Drawing.Color.Red
-        Me.Button2.Location = New System.Drawing.Point(279, 632)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(163, 23)
-        Me.Button2.TabIndex = 1287
-        Me.Button2.Text = "刪除收款事項上點選的資料"
-        Me.Button2.UseVisualStyleBackColor = True
+        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(279, 632)
+        Me.刪除收款事項上點選的資料_bt.Name = "刪除收款事項上點選的資料_bt"
+        Me.刪除收款事項上點選的資料_bt.Size = New System.Drawing.Size(163, 23)
+        Me.刪除收款事項上點選的資料_bt.TabIndex = 1287
+        Me.刪除收款事項上點選的資料_bt.Text = "刪除收款事項上點選的資料"
+        Me.刪除收款事項上點選的資料_bt.UseVisualStyleBackColor = True
         '
         '新增一筆收款事項_bt
         '
@@ -1016,7 +1145,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.額外收支_tb.Location = New System.Drawing.Point(609, 665)
+        Me.額外收支_tb.Location = New System.Drawing.Point(624, 641)
         Me.額外收支_tb.Name = "額外收支_tb"
         Me.額外收支_tb.Size = New System.Drawing.Size(81, 23)
         Me.額外收支_tb.TabIndex = 1281
@@ -1028,7 +1157,7 @@ Partial Class 銷售單審核
         Me.Label35.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label35.AutoSize = True
         Me.Label35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label35.Location = New System.Drawing.Point(523, 668)
+        Me.Label35.Location = New System.Drawing.Point(538, 644)
         Me.Label35.Name = "Label35"
         Me.Label35.Size = New System.Drawing.Size(86, 16)
         Me.Label35.TabIndex = 1280
@@ -1038,7 +1167,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售合計_tb.Location = New System.Drawing.Point(608, 514)
+        Me.銷售合計_tb.Location = New System.Drawing.Point(623, 490)
         Me.銷售合計_tb.Name = "銷售合計_tb"
         Me.銷售合計_tb.Size = New System.Drawing.Size(81, 23)
         Me.銷售合計_tb.TabIndex = 1279
@@ -1050,7 +1179,7 @@ Partial Class 銷售單審核
         Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label34.AutoSize = True
         Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label34.Location = New System.Drawing.Point(523, 517)
+        Me.Label34.Location = New System.Drawing.Point(538, 493)
         Me.Label34.Name = "Label34"
         Me.Label34.Size = New System.Drawing.Size(86, 16)
         Me.Label34.TabIndex = 1278
@@ -1060,7 +1189,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.稅金_tb.Location = New System.Drawing.Point(608, 489)
+        Me.稅金_tb.Location = New System.Drawing.Point(623, 465)
         Me.稅金_tb.Name = "稅金_tb"
         Me.稅金_tb.Size = New System.Drawing.Size(81, 23)
         Me.稅金_tb.TabIndex = 1277
@@ -1072,7 +1201,7 @@ Partial Class 銷售單審核
         Me.Label33.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label33.AutoSize = True
         Me.Label33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label33.Location = New System.Drawing.Point(523, 492)
+        Me.Label33.Location = New System.Drawing.Point(538, 468)
         Me.Label33.Name = "Label33"
         Me.Label33.Size = New System.Drawing.Size(85, 16)
         Me.Label33.TabIndex = 1276
@@ -1082,7 +1211,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.支出小計_tb.Location = New System.Drawing.Point(608, 639)
+        Me.支出小計_tb.Location = New System.Drawing.Point(623, 615)
         Me.支出小計_tb.Name = "支出小計_tb"
         Me.支出小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.支出小計_tb.TabIndex = 1275
@@ -1094,7 +1223,7 @@ Partial Class 銷售單審核
         Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label32.AutoSize = True
         Me.Label32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label32.Location = New System.Drawing.Point(524, 642)
+        Me.Label32.Location = New System.Drawing.Point(539, 618)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(85, 16)
         Me.Label32.TabIndex = 1274
@@ -1104,7 +1233,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.收入小計_tb.Location = New System.Drawing.Point(608, 613)
+        Me.收入小計_tb.Location = New System.Drawing.Point(623, 589)
         Me.收入小計_tb.Name = "收入小計_tb"
         Me.收入小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.收入小計_tb.TabIndex = 1273
@@ -1116,7 +1245,7 @@ Partial Class 銷售單審核
         Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label31.AutoSize = True
         Me.Label31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label31.Location = New System.Drawing.Point(522, 616)
+        Me.Label31.Location = New System.Drawing.Point(537, 592)
         Me.Label31.Name = "Label31"
         Me.Label31.Size = New System.Drawing.Size(85, 16)
         Me.Label31.TabIndex = 1272
@@ -1126,7 +1255,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.售價小計_tb.Location = New System.Drawing.Point(608, 464)
+        Me.售價小計_tb.Location = New System.Drawing.Point(623, 440)
         Me.售價小計_tb.Name = "售價小計_tb"
         Me.售價小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.售價小計_tb.TabIndex = 1271
@@ -1138,7 +1267,7 @@ Partial Class 銷售單審核
         Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label30.AutoSize = True
         Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label30.Location = New System.Drawing.Point(523, 468)
+        Me.Label30.Location = New System.Drawing.Point(538, 444)
         Me.Label30.Name = "Label30"
         Me.Label30.Size = New System.Drawing.Size(85, 16)
         Me.Label30.TabIndex = 1270
@@ -1148,28 +1277,18 @@ Partial Class 銷售單審核
         '
         Me.刪除備註_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.刪除備註_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除備註_bt.Location = New System.Drawing.Point(279, 464)
+        Me.刪除備註_bt.Location = New System.Drawing.Point(279, 440)
         Me.刪除備註_bt.Name = "刪除備註_bt"
         Me.刪除備註_bt.Size = New System.Drawing.Size(163, 23)
         Me.刪除備註_bt.TabIndex = 1256
         Me.刪除備註_bt.Text = "刪除銷售備註上點選的資料"
         Me.刪除備註_bt.UseVisualStyleBackColor = True
         '
-        '銷售備註流水號_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(185, 444)
-        Me.銷售備註流水號_tb.Name = "銷售備註流水號_tb"
-        Me.銷售備註流水號_tb.Size = New System.Drawing.Size(165, 23)
-        Me.銷售備註流水號_tb.TabIndex = 1266
-        Me.銷售備註流水號_tb.Visible = False
-        '
         '銷售備註_bt
         '
         Me.銷售備註_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.銷售備註_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售備註_bt.Location = New System.Drawing.Point(110, 464)
+        Me.銷售備註_bt.Location = New System.Drawing.Point(110, 440)
         Me.銷售備註_bt.Name = "銷售備註_bt"
         Me.銷售備註_bt.Size = New System.Drawing.Size(163, 23)
         Me.銷售備註_bt.TabIndex = 1261
@@ -1179,7 +1298,7 @@ Partial Class 銷售單審核
         '項次1_tb
         '
         Me.項次1_tb.Enabled = False
-        Me.項次1_tb.Location = New System.Drawing.Point(36, 464)
+        Me.項次1_tb.Location = New System.Drawing.Point(36, 440)
         Me.項次1_tb.Name = "項次1_tb"
         Me.項次1_tb.Size = New System.Drawing.Size(68, 23)
         Me.項次1_tb.TabIndex = 1264
@@ -1187,7 +1306,7 @@ Partial Class 銷售單審核
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(2, 467)
+        Me.Label26.Location = New System.Drawing.Point(2, 443)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(32, 16)
         Me.Label26.TabIndex = 1265
@@ -1210,37 +1329,6 @@ Partial Class 銷售單審核
         Me.Label25.TabIndex = 1263
         Me.Label25.Text = "項次"
         '
-        '倉儲資料流水號_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(185, 405)
-        Me.倉儲資料流水號_tb.Name = "倉儲資料流水號_tb"
-        Me.倉儲資料流水號_tb.Size = New System.Drawing.Size(165, 23)
-        Me.倉儲資料流水號_tb.TabIndex = 1259
-        Me.倉儲資料流水號_tb.Visible = False
-        '
-        'Label24
-        '
-        Me.Label24.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(188, 389)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(92, 16)
-        Me.Label24.TabIndex = 1260
-        Me.Label24.Text = "倉儲資料流水號"
-        Me.Label24.Visible = False
-        '
-        '銷售資料流水號_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(185, 366)
-        Me.銷售資料流水號_tb.Name = "銷售資料流水號_tb"
-        Me.銷售資料流水號_tb.Size = New System.Drawing.Size(165, 23)
-        Me.銷售資料流水號_tb.TabIndex = 1257
-        Me.銷售資料流水號_tb.Visible = False
-        '
         '調庫單號_tb
         '
         Me.調庫單號_tb.Enabled = False
@@ -1275,7 +1363,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, 5783)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 7445)
         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))
@@ -1383,7 +1471,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(704, 431)
+        Me.銷售明細_dgv.Size = New System.Drawing.Size(721, 409)
         Me.銷售明細_dgv.TabIndex = 1199
         '
         '銷售備註_dgv
@@ -1394,14 +1482,14 @@ 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(3, 490)
+        Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 465)
         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))
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.銷售備註_dgv.RowTemplate.Height = 24
-        Me.銷售備註_dgv.Size = New System.Drawing.Size(515, 139)
+        Me.銷售備註_dgv.Size = New System.Drawing.Size(532, 165)
         Me.銷售備註_dgv.TabIndex = 1250
         '
         '收款事項_dgv
@@ -1419,9 +1507,91 @@ Partial Class 銷售單審核
         DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.收款事項_dgv.RowTemplate.Height = 24
-        Me.收款事項_dgv.Size = New System.Drawing.Size(515, 118)
+        Me.收款事項_dgv.Size = New System.Drawing.Size(532, 118)
         Me.收款事項_dgv.TabIndex = 1282
         '
+        'Label28
+        '
+        Me.Label28.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(537, 511)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(168, 16)
+        Me.Label28.TabIndex = 1283
+        Me.Label28.Text = "--------------------------------"
+        '
+        'Label40
+        '
+        Me.Label40.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label40.AutoSize = True
+        Me.Label40.Location = New System.Drawing.Point(539, 662)
+        Me.Label40.Name = "Label40"
+        Me.Label40.Size = New System.Drawing.Size(168, 16)
+        Me.Label40.TabIndex = 1305
+        Me.Label40.Text = "--------------------------------"
+        '
+        '銷售收款流水號_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(185, 483)
+        Me.銷售收款流水號_tb.Name = "銷售收款流水號_tb"
+        Me.銷售收款流水號_tb.Size = New System.Drawing.Size(165, 23)
+        Me.銷售收款流水號_tb.TabIndex = 1288
+        Me.銷售收款流水號_tb.Visible = False
+        '
+        'Label37
+        '
+        Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label37.AutoSize = True
+        Me.Label37.Location = New System.Drawing.Point(188, 467)
+        Me.Label37.Name = "Label37"
+        Me.Label37.Size = New System.Drawing.Size(92, 16)
+        Me.Label37.TabIndex = 1289
+        Me.Label37.Text = "銷售收款流水號"
+        Me.Label37.Visible = False
+        '
+        '銷售備註流水號_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(185, 444)
+        Me.銷售備註流水號_tb.Name = "銷售備註流水號_tb"
+        Me.銷售備註流水號_tb.Size = New System.Drawing.Size(165, 23)
+        Me.銷售備註流水號_tb.TabIndex = 1266
+        Me.銷售備註流水號_tb.Visible = False
+        '
+        '倉儲資料流水號_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(185, 405)
+        Me.倉儲資料流水號_tb.Name = "倉儲資料流水號_tb"
+        Me.倉儲資料流水號_tb.Size = New System.Drawing.Size(165, 23)
+        Me.倉儲資料流水號_tb.TabIndex = 1259
+        Me.倉儲資料流水號_tb.Visible = False
+        '
+        'Label24
+        '
+        Me.Label24.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label24.AutoSize = True
+        Me.Label24.Location = New System.Drawing.Point(188, 389)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(92, 16)
+        Me.Label24.TabIndex = 1260
+        Me.Label24.Text = "倉儲資料流水號"
+        Me.Label24.Visible = False
+        '
+        '銷售資料流水號_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(185, 366)
+        Me.銷售資料流水號_tb.Name = "銷售資料流水號_tb"
+        Me.銷售資料流水號_tb.Size = New System.Drawing.Size(165, 23)
+        Me.銷售資料流水號_tb.TabIndex = 1257
+        Me.銷售資料流水號_tb.Visible = False
+        '
         'Label27
         '
         Me.Label27.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1433,16 +1603,6 @@ Partial Class 銷售單審核
         Me.Label27.Text = "銷售備註流水號"
         Me.Label27.Visible = False
         '
-        'Label28
-        '
-        Me.Label28.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(522, 535)
-        Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(168, 16)
-        Me.Label28.TabIndex = 1283
-        Me.Label28.Text = "--------------------------------"
-        '
         'Label23
         '
         Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1479,59 +1639,6 @@ Partial Class 銷售單審核
         Me.物料圖1_pb.TabIndex = 1279
         Me.物料圖1_pb.TabStop = False
         '
-        '司機運費_tb
-        '
-        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(609, 577)
-        Me.司機運費_tb.Name = "司機運費_tb"
-        Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
-        Me.司機運費_tb.TabIndex = 1301
-        Me.司機運費_tb.Text = "0"
-        Me.司機運費_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label38
-        '
-        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label38.AutoSize = True
-        Me.Label38.ForeColor = System.Drawing.Color.Black
-        Me.Label38.Location = New System.Drawing.Point(524, 581)
-        Me.Label38.Name = "Label38"
-        Me.Label38.Size = New System.Drawing.Size(83, 16)
-        Me.Label38.TabIndex = 1300
-        Me.Label38.Text = "司   機   運   費"
-        '
-        '送貨地點_cb
-        '
-        Me.送貨地點_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        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", "Y"})
-        Me.送貨地點_cb.Location = New System.Drawing.Point(580, 550)
-        Me.送貨地點_cb.Name = "送貨地點_cb"
-        Me.送貨地點_cb.Size = New System.Drawing.Size(110, 24)
-        Me.送貨地點_cb.TabIndex = 1298
-        '
-        'Label20
-        '
-        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(522, 597)
-        Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(168, 16)
-        Me.Label20.TabIndex = 1297
-        Me.Label20.Text = "--------------------------------"
-        '
-        'Label39
-        '
-        Me.Label39.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label39.AutoSize = True
-        Me.Label39.Location = New System.Drawing.Point(521, 554)
-        Me.Label39.Name = "Label39"
-        Me.Label39.Size = New System.Drawing.Size(56, 16)
-        Me.Label39.TabIndex = 1299
-        Me.Label39.Text = "送貨地點"
-        '
         '最低售價_cb
         '
         Me.最低售價_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1556,81 +1663,27 @@ Partial Class 銷售單審核
         Me.最低運費_cb.TabIndex = 1302
         Me.最低運費_cb.Visible = False
         '
-        '物料成本_tb
-        '
-        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.Green
-        Me.物料成本_tb.Location = New System.Drawing.Point(607, 701)
-        Me.物料成本_tb.Name = "物料成本_tb"
-        Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
-        Me.物料成本_tb.TabIndex = 1311
-        Me.物料成本_tb.Text = "0"
-        Me.物料成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label43
-        '
-        Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label43.AutoSize = True
-        Me.Label43.ForeColor = System.Drawing.Color.Green
-        Me.Label43.Location = New System.Drawing.Point(525, 704)
-        Me.Label43.Name = "Label43"
-        Me.Label43.Size = New System.Drawing.Size(83, 16)
-        Me.Label43.TabIndex = 1310
-        Me.Label43.Text = "物   料   成   本"
-        '
-        '預估利潤_tb
-        '
-        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.Green
-        Me.預估利潤_tb.Location = New System.Drawing.Point(608, 752)
-        Me.預估利潤_tb.Name = "預估利潤_tb"
-        Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
-        Me.預估利潤_tb.TabIndex = 1309
-        Me.預估利潤_tb.Text = "0"
-        Me.預估利潤_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label42
+        '其他成本_tb
         '
-        Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label42.AutoSize = True
-        Me.Label42.ForeColor = System.Drawing.Color.Green
-        Me.Label42.Location = New System.Drawing.Point(526, 755)
-        Me.Label42.Name = "Label42"
-        Me.Label42.Size = New System.Drawing.Size(83, 16)
-        Me.Label42.TabIndex = 1308
-        Me.Label42.Text = "預   估   利   潤"
+        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.Green
+        Me.其他成本_tb.Location = New System.Drawing.Point(622, 702)
+        Me.其他成本_tb.Name = "其他成本_tb"
+        Me.其他成本_tb.Size = New System.Drawing.Size(81, 23)
+        Me.其他成本_tb.TabIndex = 1335
+        Me.其他成本_tb.Text = "0"
+        Me.其他成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        '管銷費用_tb
+        'Label45
         '
-        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.Green
-        Me.管銷費用_tb.Location = New System.Drawing.Point(608, 727)
-        Me.管銷費用_tb.Name = "管銷費用_tb"
-        Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
-        Me.管銷費用_tb.TabIndex = 1307
-        Me.管銷費用_tb.Text = "0"
-        Me.管銷費用_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label41
-        '
-        Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label41.AutoSize = True
-        Me.Label41.ForeColor = System.Drawing.Color.Green
-        Me.Label41.Location = New System.Drawing.Point(526, 730)
-        Me.Label41.Name = "Label41"
-        Me.Label41.Size = New System.Drawing.Size(83, 16)
-        Me.Label41.TabIndex = 1306
-        Me.Label41.Text = "管   銷   費   用"
-        '
-        'Label40
-        '
-        Me.Label40.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label40.AutoSize = True
-        Me.Label40.Location = New System.Drawing.Point(524, 686)
-        Me.Label40.Name = "Label40"
-        Me.Label40.Size = New System.Drawing.Size(168, 16)
-        Me.Label40.TabIndex = 1305
-        Me.Label40.Text = "--------------------------------"
+        Me.Label45.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label45.AutoSize = True
+        Me.Label45.ForeColor = System.Drawing.Color.Green
+        Me.Label45.Location = New System.Drawing.Point(540, 705)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(83, 16)
+        Me.Label45.TabIndex = 1334
+        Me.Label45.Text = "其   他   成   本"
         '
         '銷售單審核
         '
@@ -1814,7 +1867,7 @@ Partial Class 銷售單審核
     Friend WithEvents 項次3_tb As TextBox
     Friend WithEvents 銷售收款流水號_tb As TextBox
     Friend WithEvents Label37 As Label
-    Friend WithEvents Button2 As Button
+    Friend WithEvents 刪除收款事項上點選的資料_bt As Button
     Friend WithEvents 新增一筆收款事項_bt As Button
     Friend WithEvents 項次2_tb As TextBox
     Friend WithEvents Label36 As Label
@@ -1872,4 +1925,8 @@ Partial Class 銷售單審核
     Friend WithEvents 管銷費用_tb As TextBox
     Friend WithEvents Label41 As Label
     Friend WithEvents Label40 As Label
+    Friend WithEvents 讀取標準成本_bt As Button
+    Friend WithEvents Reset_bt As Button
+    Friend WithEvents 其他成本_tb As TextBox
+    Friend WithEvents Label45 As Label
 End Class

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

@@ -3,6 +3,7 @@ Public Class 銷售單審核
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
     ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
     Dim 首次開啟 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String : Dim EDR1 As Integer = 0 : Dim ESTR1 As String : Dim NUM1 As Integer
+    Dim 運費 As Integer
     Private Sub Set_清單()
         物料清單_dgv.DataSource = Nothing : ds.Clear()
         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -70,7 +71,7 @@ Public Class 銷售單審核
 
         銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
         銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
-        銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).Visible = False
+        銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).Visible = False : 銷售單據_dgv.Columns(10).Visible = False
     End Sub
     Private Sub Set_清單2()
         客戶資料_dgv.DataSource = Nothing : ds2.Clear()
@@ -105,20 +106,22 @@ Public Class 銷售單審核
         銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售明細_dgv.ColumnHeadersHeight = 40
         銷售明細_dgv.AllowUserToAddRows = False
-        銷售明細_dgv.RowTemplate.Height = 35
+        銷售明細_dgv.RowTemplate.Height = 90
 
         PA2 = "" : PA2 = 單號_tb.Text
         SQL_銷售明細表()
         da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
-
+        Set_銷售明細_dgv_下拉式清單1() : Set_銷售明細_dgv_下拉式清單2() : Set_銷售明細_dgv_下拉式清單3()
 
         銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
-        銷售明細_dgv.Columns(4).FillWeight = 150 : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).FillWeight = 190 : 銷售明細_dgv.Columns(7).FillWeight = 80
-        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 50 : 銷售明細_dgv.Columns(11).FillWeight = 80
-        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False
+        銷售明細_dgv.Columns(4).Visible = False : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).Visible = False : 銷售明細_dgv.Columns(7).FillWeight = 130
+        銷售明細_dgv.Columns(8).Visible = False : 銷售明細_dgv.Columns(9).FillWeight = 130 : 銷售明細_dgv.Columns(10).FillWeight = 150 : 銷售明細_dgv.Columns(11).FillWeight = 80
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).FillWeight = 50 : 銷售明細_dgv.Columns(15).FillWeight = 80
+        銷售明細_dgv.Columns(16).FillWeight = 70 : 銷售明細_dgv.Columns(17).Visible = False : 銷售明細_dgv.Columns(18).Visible = False : 銷售明細_dgv.Columns(19).Visible = False
+        銷售明細_dgv.Columns(20).Visible = False
 
         銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
-        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(7).ReadOnly = True : 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+        銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(15).ReadOnly = True : 銷售明細_dgv.Columns(16).ReadOnly = True
 
         銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
         銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
@@ -144,9 +147,48 @@ Public Class 銷售單審核
                 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
             End If
             銷售明細_dgv("項次", i).Value = i + 1
+
+            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            'ElseIf 銷售明細_dgv("倉儲情況", i).Value.ToString = "未有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            'End If
         Next
         銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單1()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "倉名"
+        }
+        SQL_倉名_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close()
+        Col.HeaderText = "倉名" : Col.Name = "倉名"
+        銷售明細_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單2()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "訂製"
+        }
+        SQL_訂製狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close()
+        Col.HeaderText = "訂製" : Col.Name = "訂製"
+        銷售明細_dgv.Columns.Insert(7, Col)
+    End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單3()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "狀態"
+        }
+        SQL_倉儲狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close()
+        Col.HeaderText = "狀態" : Col.Name = "狀態"
+        銷售明細_dgv.Columns.Insert(9, Col)
+    End Sub
     Private Sub Set_清單5()
         銷售備註_dgv.DataSource = Nothing : ds5.Clear()
         銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -209,6 +251,7 @@ Public Class 銷售單審核
         ElseIf 地區_cb.Text = "南部" Then : PA3 = "3"
         ElseIf 地區_cb.Text = "材料" Then : PA3 = "9"
         ElseIf 地區_cb.Text = "調貨" Then : PA3 = "Y"
+        ElseIf 地區_cb.Text = "其他" Then : PA3 = "1"
         End If
         SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
         While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
@@ -229,11 +272,20 @@ Public Class 銷售單審核
         DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
     End Sub
     Private Sub Set_合記計算()
+        Dim 不含1類銷售小記 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"
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-            物料成本_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)
+                不含1類銷售小記 = 不含1類銷售小記 + (銷售明細_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
+
             If 銷售明細_dgv("含稅", i).Value = True Then
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
@@ -252,23 +304,30 @@ Public Class 銷售單審核
             If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
-                收款事項_dgv("金額", i).Value = Val(銷售合計_tb.Text) - 金額
+                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
             End If
         Next
 
-        If 送貨地點_cb.Text = "" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then : Else
-            If Val(售價小計_tb.Text) <= Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = 最低運費_cb.Text
-            ElseIf Val(售價小計_tb.Text) > Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = Val(售價小計_tb.Text) / 100 * 3
+        If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
+            司機運費_tb.Text = "0"
+        Else
+            If 運費 = 0 Then
+                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                    司機運費_tb.Text = 最低運費_cb.Text
+                ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(其他成本_tb.Text)) / 100 * 3
+                End If
+            Else
+                司機運費_tb.Text = 運費
             End If
         End If
 
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
+        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
 
         售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
         收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
         司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0")
     End Sub
     Private Sub 指定倉庫_cb_下拉表單資料載入()
         If 需要全部庫存區域清單_ch.Checked = True Then
@@ -325,16 +384,6 @@ Public Class 銷售單審核
             銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub 銷售明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷售明細_dgv.RowPostPaint
-        Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
-            If 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "已有貨" Then
-                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
-            ElseIf 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "未有貨" Then
-                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightPink
-            End If
-        End If
-    End Sub
     Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             If 銷售明細_dgv("含稅", i).Value = False Then
@@ -342,6 +391,22 @@ Public Class 銷售單審核
             ElseIf 銷售明細_dgv("含稅", i).Value = True Then
                 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
             End If
+
+            If 銷售明細_dgv("倉儲情況", i).Value <> "已有貨" Then
+                PA20 = 銷售明細_dgv(5, i).Value : PA19 = 銷售明細_dgv(7, i).Value : PA18 = 銷售明細_dgv(9, i).Value
+                SQL_銷售明細_改倉名()
+                If dr.Read() Then
+                    銷售明細_dgv("倉儲狀態", i).Value = dr("倉名編號")
+                End If
+                SQL_銷售明細_改物料訂製狀態()
+                If dr.Read() Then
+                    銷售明細_dgv("訂製狀態", i).Value = dr("編碼")
+                End If
+                SQL_銷售明細_倉儲狀態()
+                If dr.Read() Then
+                    銷售明細_dgv("物料狀態", i).Value = dr("編碼")
+                End If : conn.Close()
+            End If
         Next
         Set_合記計算()
     End Sub
@@ -373,6 +438,7 @@ Public Class 銷售單審核
             開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("客戶編號").Value
             交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
             送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("送貨地點").Value.ToString
+            運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value : 客戶流水_tb.Text = ""
             業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
             Set_清單4() : Set_清單5()
             Set_清單6()
@@ -411,10 +477,20 @@ Public Class 銷售單審核
                 End If : conn.Close()
 
                 指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
+                成本_nud.Value = 0
                 If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
                     訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
                 Else
                     倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                    If 訂製編碼_cb.Text = "MA0001" Then
+                        PA12 = 料號_tb.Text
+                        SQL_銷售明細表_成本讀取()
+                        If dr.Read() Then : 成本_nud.Value = dr("成本")
+                        Else : 成本_nud.Value = 0
+                        End If : conn.Close()
+                    Else
+                        成本_nud.Value = 0
+                    End If
                 End If
             End If
         End If
@@ -481,6 +557,15 @@ Public Class 銷售單審核
     End Sub
     Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
         訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+        If 訂製編碼_cb.Text = "MA0001" Then
+            PA12 = 料號_tb.Text
+            SQL_銷售明細表_成本讀取()
+            If dr.Read() Then : 成本_nud.Value = dr("成本")
+            Else : 成本_nud.Value = 0
+            End If : conn.Close()
+        Else
+            成本_nud.Value = 0
+        End If
     End Sub
     Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
         Set_清單1()
@@ -523,7 +608,7 @@ Public Class 銷售單審核
         If 流水號_tb.Text = "" Then
             MsgBox("指定客戶前要先有銷售單號，請新增單號或是挑選歷史資料!!")
         Else
-            客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶資料強制對話框模式 = False : 客戶編號_tb.Text = PA15
+            客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶資料強制對話框模式 = False : 客戶編號_tb.Text = PA15 : 客戶資料表.Close()
         End If
     End Sub
     Private Sub 客戶資料驗證_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料驗證_bt.Click
@@ -574,7 +659,7 @@ Public Class 銷售單審核
             End If
         End If
     End Sub
-    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+    Private Sub 存檔1()
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
@@ -585,15 +670,15 @@ Public Class 銷售單審核
                 PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
                 SQL_客戶資料表_修改() '--------------------資料修改
 
-                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked
-                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA1 = 流水號_tb.Text
+                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
+                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
                 SQL_銷售控制表_修改() '--------------------資料修改
 
                 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 : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value
-                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value
+                    PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
+                    NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
                     SQL_銷售明細表_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -612,9 +697,102 @@ Public Class 銷售單審核
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
                 MsgBox("存檔完成。")
+                Set_清單1()
             End If
         End If
     End Sub
+    Private Sub 存檔2()
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            Set_清單2()
+            If 客戶資料_dgv.Rows.Count = 1 Then
+                客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value
+            ElseIf 客戶資料_dgv.Rows.Count > 1 Then
+                Dim aa1 As MsgBoxResult = MsgBox("系統查詢到該客戶有多筆客戶資料，你是否已經確定單據上顯示的客戶資料正確?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then : Else
+                    MsgBox("即將幫您打開客戶資料表，請在客戶資料表中查詢，選取您確認的正確訊息，並指定到銷售申請單。")
+                    客戶資料查詢_bt.PerformClick()
+                    MsgBox("指定客戶後請寄的再次存檔。")
+                    Exit Sub
+                End If
+            ElseIf 客戶資料_dgv.Rows.Count = 0 Then
+                Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    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 = "CL" & "00000000" & EDR
+                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CL" & "0000000" & EDR
+                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CL" & "000000" & EDR
+                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CL" & "00000" & EDR
+                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CL" & "0000" & EDR
+                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CL" & "000" & EDR
+                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR
+                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR
+                    ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR
+                    End If : 客戶流水_tb.Text = ESTR : PA16 = ESTR
+
+                    PA18 = 業務_cb.Text
+                    SQL_客戶資料表_編號_最後一筆資料()  '--------------------自動取得新編號
+                    If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If
+                    conn.Close() : EDR1 += 1
+                    If EDR1 < 10 Then : ESTR1 = 業務_cb.Text & "000" & EDR1
+                    ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1
+                    ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1
+                    ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1
+                    End If : PA17 = ESTR1
+
+                    SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料
+
+                    PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                    PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                    SQL_客戶資料表_修改() : conn.Close() '--------------------資料修改
+                    客戶編號_tb.Text = ESTR1
+                End If
+            End If
+
+            If 客戶編號_tb.Text = "" Then
+                MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
+            Else
+                PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                SQL_客戶資料表_修改() '--------------------資料修改
+
+                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
+                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
+                SQL_銷售控制表_修改() '--------------------資料修改
+
+                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 : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
+                    NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
+                    SQL_銷售明細表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                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 : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                    SQL_銷售備註表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                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
+
+                MsgBox("存檔完成。")
+                Set_清單1()
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔2()
+    End Sub
     Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
@@ -753,7 +931,16 @@ Public Class 銷售單審核
                 ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If
 
                 PA1 = ESTR : PA = 單號_tb.Text
-                SQL_銷售備註表_新增() : Set_清單5()
+                SQL_銷售備註表_新增()
+
+                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 : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                    SQL_銷售備註表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                Set_清單5()
             End If
         End If
     End Sub
@@ -773,7 +960,7 @@ Public Class 銷售單審核
         End If
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
@@ -823,7 +1010,16 @@ Public Class 銷售單審核
                 If EDR < 10 Then : ESTR = EDR
                 ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
                 PA2 = ESTR : PA = 單號_tb.Text
-                SQL_銷售收款事項_新增2() : Set_清單6()
+                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
@@ -855,8 +1051,74 @@ Public Class 銷售單審核
             End If
         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
+            資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
+            PA12 = 銷售明細_dgv.Rows(i).Cells("料號").Value
+            SQL_銷售明細表_成本讀取()
+            If dr.Read() Then : 銷售明細_dgv.Rows(i).Cells("成本").Value = dr("成本")
+            Else : 銷售明細_dgv.Rows(i).Cells("成本").Value = 0
+            End If : conn.Close() : Set_合記計算()
+        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
+        售價小計_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"
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
 
-    Private Sub Label20_Click(sender As Object, e As EventArgs)
+            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 * 銷售明細_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
+
+            If 銷售明細_dgv("含稅", i).Value = True Then
+                稅金_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 = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+
+        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
+        Next
+        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
 
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
+                金額 = 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
+                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+            End If
+        Next
+
+        If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
+            司機運費_tb.Text = "0"
+        Else
+            If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                司機運費_tb.Text = 最低運費_cb.Text
+            ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
+                司機運費_tb.Text = (不含1類銷售小記 - Val(其他成本_tb.Text)) / 100 * 3
+            End If
+        End If
+        存檔1()
+
+        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
+
+        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0")
+    End Sub
+    Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            運費 = 司機運費_tb.Text : 存檔1() : Set_合記計算()
+        End If
     End Sub
 End Class

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

@@ -32,10 +32,10 @@ Partial Class 銷售單申請
         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 DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 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()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.未審核_lb = New System.Windows.Forms.Label()
         Me.開立庫存調整單_bt = New System.Windows.Forms.Button()
@@ -111,8 +111,16 @@ Partial Class 銷售單申請
         Me.售價_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.最低售價_cb = New System.Windows.Forms.ComboBox()
-        Me.最低運費_cb = New System.Windows.Forms.ComboBox()
+        Me.Reset_bt = New System.Windows.Forms.Button()
+        Me.讀取標準成本_bt = New System.Windows.Forms.Button()
+        Me.物料成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label43 = New System.Windows.Forms.Label()
+        Me.預估利潤_tb = New System.Windows.Forms.TextBox()
+        Me.Label42 = New System.Windows.Forms.Label()
+        Me.管銷費用_tb = New System.Windows.Forms.TextBox()
+        Me.Label41 = New System.Windows.Forms.Label()
+        Me.司機運費_tb = New System.Windows.Forms.TextBox()
+        Me.Label38 = New System.Windows.Forms.Label()
         Me.送貨地點_cb = New System.Windows.Forms.ComboBox()
         Me.項次3_tb = New System.Windows.Forms.TextBox()
         Me.刪除收款事項上點選的資料_bt = New System.Windows.Forms.Button()
@@ -141,10 +149,14 @@ Partial Class 銷售單申請
         Me.倉儲單號_lb = New System.Windows.Forms.Label()
         Me.客戶流水_tb = New System.Windows.Forms.TextBox()
         Me.客戶資料_dgv = New System.Windows.Forms.DataGridView()
-        Me.銷售備註_dgv = New System.Windows.Forms.DataGridView()
         Me.收款事項_dgv = New System.Windows.Forms.DataGridView()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label39 = New System.Windows.Forms.Label()
+        Me.Label40 = New System.Windows.Forms.Label()
+        Me.銷售備註_dgv = New System.Windows.Forms.DataGridView()
+        Me.最低售價_cb = New System.Windows.Forms.ComboBox()
+        Me.最低運費_cb = New System.Windows.Forms.ComboBox()
         Me.銷售收款流水號_tb = New System.Windows.Forms.TextBox()
         Me.Label37 = New System.Windows.Forms.Label()
         Me.銷售備註流水號_tb = New System.Windows.Forms.TextBox()
@@ -157,16 +169,9 @@ Partial Class 銷售單申請
         Me.業務_cb = New System.Windows.Forms.ComboBox()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
         Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
-        Me.司機運費_tb = New System.Windows.Forms.TextBox()
-        Me.Label38 = New System.Windows.Forms.Label()
-        Me.Label39 = New System.Windows.Forms.Label()
-        Me.Label40 = New System.Windows.Forms.Label()
-        Me.管銷費用_tb = New System.Windows.Forms.TextBox()
-        Me.Label41 = New System.Windows.Forms.Label()
-        Me.預估利潤_tb = New System.Windows.Forms.TextBox()
-        Me.Label42 = New System.Windows.Forms.Label()
-        Me.物料成本_tb = New System.Windows.Forms.TextBox()
-        Me.Label43 = New System.Windows.Forms.Label()
+        Me.Label44 = New System.Windows.Forms.Label()
+        Me.其他成本_tb = New System.Windows.Forms.TextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -176,8 +181,8 @@ Partial Class 銷售單申請
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.客戶資料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -322,11 +327,10 @@ Partial Class 銷售單申請
         '客戶編號_tb
         '
         Me.客戶編號_tb.Enabled = False
-        Me.客戶編號_tb.Location = New System.Drawing.Point(97, 356)
+        Me.客戶編號_tb.Location = New System.Drawing.Point(1172, 23)
         Me.客戶編號_tb.Name = "客戶編號_tb"
         Me.客戶編號_tb.Size = New System.Drawing.Size(99, 23)
         Me.客戶編號_tb.TabIndex = 1183
-        Me.客戶編號_tb.Visible = False
         '
         'Label8
         '
@@ -376,12 +380,11 @@ Partial Class 銷售單申請
         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(35, 359)
+        Me.Label5.Location = New System.Drawing.Point(1110, 26)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(56, 16)
         Me.Label5.TabIndex = 1178
         Me.Label5.Text = "編號客戶"
-        Me.Label5.Visible = False
         '
         '客戶資料查詢_bt
         '
@@ -447,7 +450,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(721, 431)
+        Me.銷售明細_dgv.Size = New System.Drawing.Size(721, 409)
         Me.銷售明細_dgv.TabIndex = 1199
         '
         '含稅_ch
@@ -515,11 +518,12 @@ Partial Class 銷售單申請
         Me.成本_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.成本_nud.ForeColor = System.Drawing.Color.Green
         Me.成本_nud.Location = New System.Drawing.Point(485, 603)
-        Me.成本_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.成本_nud.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
         Me.成本_nud.Name = "成本_nud"
         Me.成本_nud.Size = New System.Drawing.Size(118, 23)
         Me.成本_nud.TabIndex = 1243
         Me.成本_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.成本_nud.ThousandsSeparator = True
         '
         '盤損數_lb
         '
@@ -578,6 +582,7 @@ Partial Class 銷售單申請
         Me.訂購數量_nud.Size = New System.Drawing.Size(118, 23)
         Me.訂購數量_nud.TabIndex = 1235
         Me.訂購數量_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.訂購數量_nud.ThousandsSeparator = True
         '
         '盤盈數_lb
         '
@@ -839,7 +844,7 @@ Partial Class 銷售單申請
         '
         Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.地區_cb.FormattingEnabled = True
-        Me.地區_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨"})
+        Me.地區_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨", "其他"})
         Me.地區_cb.Location = New System.Drawing.Point(42, 2)
         Me.地區_cb.Name = "地區_cb"
         Me.地區_cb.Size = New System.Drawing.Size(79, 24)
@@ -910,12 +915,12 @@ Partial Class 銷售單申請
         '
         '倉庫編號_tb
         '
-        Me.倉庫編號_tb.Location = New System.Drawing.Point(441, 357)
+        Me.倉庫編號_tb.Enabled = False
+        Me.倉庫編號_tb.Location = New System.Drawing.Point(1277, 23)
         Me.倉庫編號_tb.Name = "倉庫編號_tb"
-        Me.倉庫編號_tb.Size = New System.Drawing.Size(120, 23)
+        Me.倉庫編號_tb.Size = New System.Drawing.Size(38, 23)
         Me.倉庫編號_tb.TabIndex = 1247
         Me.倉庫編號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        Me.倉庫編號_tb.Visible = False
         '
         '倉庫級別_tb
         '
@@ -931,11 +936,12 @@ Partial Class 銷售單申請
         Me.售價_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.售價_nud.ForeColor = System.Drawing.Color.Green
         Me.售價_nud.Location = New System.Drawing.Point(484, 627)
-        Me.售價_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.售價_nud.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
         Me.售價_nud.Name = "售價_nud"
         Me.售價_nud.Size = New System.Drawing.Size(118, 23)
         Me.售價_nud.TabIndex = 1251
         Me.售價_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.售價_nud.ThousandsSeparator = True
         '
         'Label22
         '
@@ -955,6 +961,11 @@ Partial Class 銷售單申請
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.其他成本_tb)
+        Me.Panel1.Controls.Add(Me.Label45)
+        Me.Panel1.Controls.Add(Me.Label44)
+        Me.Panel1.Controls.Add(Me.Reset_bt)
+        Me.Panel1.Controls.Add(Me.讀取標準成本_bt)
         Me.Panel1.Controls.Add(Me.物料成本_tb)
         Me.Panel1.Controls.Add(Me.Label43)
         Me.Panel1.Controls.Add(Me.預估利潤_tb)
@@ -992,13 +1003,10 @@ Partial Class 銷售單申請
         Me.Panel1.Controls.Add(Me.客戶流水_tb)
         Me.Panel1.Controls.Add(Me.客戶資料_dgv)
         Me.Panel1.Controls.Add(Me.倉庫級別_tb)
-        Me.Panel1.Controls.Add(Me.倉庫編號_tb)
         Me.Panel1.Controls.Add(Me.儲態編號_cb)
         Me.Panel1.Controls.Add(Me.訂製編碼_cb)
-        Me.Panel1.Controls.Add(Me.客戶編號_tb)
         Me.Panel1.Controls.Add(Me.流水號_tb)
         Me.Panel1.Controls.Add(Me.Label1)
-        Me.Panel1.Controls.Add(Me.Label5)
         Me.Panel1.Controls.Add(Me.銷售明細_dgv)
         Me.Panel1.Controls.Add(Me.收款事項_dgv)
         Me.Panel1.Controls.Add(Me.Label28)
@@ -1012,29 +1020,116 @@ Partial Class 銷售單申請
         Me.Panel1.Size = New System.Drawing.Size(731, 502)
         Me.Panel1.TabIndex = 1252
         '
-        '最低售價_cb
+        'Reset_bt
+        '
+        Me.Reset_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Reset_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Reset_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Reset_bt.Location = New System.Drawing.Point(678, 526)
+        Me.Reset_bt.Name = "Reset_bt"
+        Me.Reset_bt.Size = New System.Drawing.Size(30, 24)
+        Me.Reset_bt.TabIndex = 1306
+        Me.Reset_bt.Text = "R"
+        Me.Reset_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.Green
+        Me.讀取標準成本_bt.Location = New System.Drawing.Point(498, 3)
+        Me.讀取標準成本_bt.Name = "讀取標準成本_bt"
+        Me.讀取標準成本_bt.Size = New System.Drawing.Size(163, 23)
+        Me.讀取標準成本_bt.TabIndex = 1305
+        Me.讀取標準成本_bt.Text = "讀取標準成本"
+        Me.讀取標準成本_bt.UseVisualStyleBackColor = True
         '
-        Me.最低售價_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        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", "Y"})
-        Me.最低售價_cb.Location = New System.Drawing.Point(211, 581)
-        Me.最低售價_cb.Name = "最低售價_cb"
-        Me.最低售價_cb.Size = New System.Drawing.Size(110, 24)
-        Me.最低售價_cb.TabIndex = 1294
-        Me.最低售價_cb.Visible = False
+        '物料成本_tb
         '
-        '最低運費_cb
+        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.Green
+        Me.物料成本_tb.Location = New System.Drawing.Point(624, 675)
+        Me.物料成本_tb.Name = "物料成本_tb"
+        Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
+        Me.物料成本_tb.TabIndex = 1304
+        Me.物料成本_tb.Text = "0"
+        Me.物料成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        Me.最低運費_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        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", "Y"})
-        Me.最低運費_cb.Location = New System.Drawing.Point(211, 555)
-        Me.最低運費_cb.Name = "最低運費_cb"
-        Me.最低運費_cb.Size = New System.Drawing.Size(110, 24)
-        Me.最低運費_cb.TabIndex = 1293
-        Me.最低運費_cb.Visible = False
+        'Label43
+        '
+        Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label43.AutoSize = True
+        Me.Label43.ForeColor = System.Drawing.Color.Green
+        Me.Label43.Location = New System.Drawing.Point(542, 678)
+        Me.Label43.Name = "Label43"
+        Me.Label43.Size = New System.Drawing.Size(83, 16)
+        Me.Label43.TabIndex = 1303
+        Me.Label43.Text = "物   料   成   本"
+        '
+        '預估利潤_tb
+        '
+        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.Green
+        Me.預估利潤_tb.Location = New System.Drawing.Point(625, 750)
+        Me.預估利潤_tb.Name = "預估利潤_tb"
+        Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
+        Me.預估利潤_tb.TabIndex = 1302
+        Me.預估利潤_tb.Text = "0"
+        Me.預估利潤_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label42
+        '
+        Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label42.AutoSize = True
+        Me.Label42.ForeColor = System.Drawing.Color.Green
+        Me.Label42.Location = New System.Drawing.Point(543, 753)
+        Me.Label42.Name = "Label42"
+        Me.Label42.Size = New System.Drawing.Size(83, 16)
+        Me.Label42.TabIndex = 1301
+        Me.Label42.Text = "預   估   利   潤"
+        '
+        '管銷費用_tb
+        '
+        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.Green
+        Me.管銷費用_tb.Location = New System.Drawing.Point(625, 725)
+        Me.管銷費用_tb.Name = "管銷費用_tb"
+        Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
+        Me.管銷費用_tb.TabIndex = 1300
+        Me.管銷費用_tb.Text = "0"
+        Me.管銷費用_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label41
+        '
+        Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label41.AutoSize = True
+        Me.Label41.ForeColor = System.Drawing.Color.Green
+        Me.Label41.Location = New System.Drawing.Point(543, 728)
+        Me.Label41.Name = "Label41"
+        Me.Label41.Size = New System.Drawing.Size(83, 16)
+        Me.Label41.TabIndex = 1299
+        Me.Label41.Text = "管   銷   費   用"
+        '
+        '司機運費_tb
+        '
+        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(627, 553)
+        Me.司機運費_tb.Name = "司機運費_tb"
+        Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
+        Me.司機運費_tb.TabIndex = 1296
+        Me.司機運費_tb.Text = "0"
+        Me.司機運費_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label38
+        '
+        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(542, 557)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(83, 16)
+        Me.Label38.TabIndex = 1295
+        Me.Label38.Text = "司   機   運   費"
         '
         '送貨地點_cb
         '
@@ -1042,9 +1137,9 @@ Partial Class 銷售單申請
         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", "Y"})
-        Me.送貨地點_cb.Location = New System.Drawing.Point(598, 550)
+        Me.送貨地點_cb.Location = New System.Drawing.Point(598, 526)
         Me.送貨地點_cb.Name = "送貨地點_cb"
-        Me.送貨地點_cb.Size = New System.Drawing.Size(110, 24)
+        Me.送貨地點_cb.Size = New System.Drawing.Size(78, 24)
         Me.送貨地點_cb.TabIndex = 1291
         '
         '項次3_tb
@@ -1099,7 +1194,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.額外收支_tb.Location = New System.Drawing.Point(625, 664)
+        Me.額外收支_tb.Location = New System.Drawing.Point(625, 640)
         Me.額外收支_tb.Name = "額外收支_tb"
         Me.額外收支_tb.Size = New System.Drawing.Size(81, 23)
         Me.額外收支_tb.TabIndex = 1281
@@ -1111,7 +1206,7 @@ Partial Class 銷售單申請
         Me.Label35.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label35.AutoSize = True
         Me.Label35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label35.Location = New System.Drawing.Point(539, 667)
+        Me.Label35.Location = New System.Drawing.Point(539, 643)
         Me.Label35.Name = "Label35"
         Me.Label35.Size = New System.Drawing.Size(86, 16)
         Me.Label35.TabIndex = 1280
@@ -1121,7 +1216,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售合計_tb.Location = New System.Drawing.Point(625, 514)
+        Me.銷售合計_tb.Location = New System.Drawing.Point(625, 490)
         Me.銷售合計_tb.Name = "銷售合計_tb"
         Me.銷售合計_tb.Size = New System.Drawing.Size(81, 23)
         Me.銷售合計_tb.TabIndex = 1279
@@ -1133,7 +1228,7 @@ Partial Class 銷售單申請
         Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label34.AutoSize = True
         Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label34.Location = New System.Drawing.Point(540, 517)
+        Me.Label34.Location = New System.Drawing.Point(540, 493)
         Me.Label34.Name = "Label34"
         Me.Label34.Size = New System.Drawing.Size(86, 16)
         Me.Label34.TabIndex = 1278
@@ -1143,7 +1238,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.稅金_tb.Location = New System.Drawing.Point(625, 489)
+        Me.稅金_tb.Location = New System.Drawing.Point(625, 465)
         Me.稅金_tb.Name = "稅金_tb"
         Me.稅金_tb.Size = New System.Drawing.Size(81, 23)
         Me.稅金_tb.TabIndex = 1277
@@ -1155,7 +1250,7 @@ Partial Class 銷售單申請
         Me.Label33.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label33.AutoSize = True
         Me.Label33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label33.Location = New System.Drawing.Point(540, 492)
+        Me.Label33.Location = New System.Drawing.Point(540, 468)
         Me.Label33.Name = "Label33"
         Me.Label33.Size = New System.Drawing.Size(85, 16)
         Me.Label33.TabIndex = 1276
@@ -1165,7 +1260,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.支出小計_tb.Location = New System.Drawing.Point(624, 638)
+        Me.支出小計_tb.Location = New System.Drawing.Point(624, 614)
         Me.支出小計_tb.Name = "支出小計_tb"
         Me.支出小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.支出小計_tb.TabIndex = 1275
@@ -1177,7 +1272,7 @@ Partial Class 銷售單申請
         Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label32.AutoSize = True
         Me.Label32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label32.Location = New System.Drawing.Point(540, 641)
+        Me.Label32.Location = New System.Drawing.Point(540, 617)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(85, 16)
         Me.Label32.TabIndex = 1274
@@ -1187,7 +1282,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.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.收入小計_tb.Location = New System.Drawing.Point(624, 612)
+        Me.收入小計_tb.Location = New System.Drawing.Point(624, 588)
         Me.收入小計_tb.Name = "收入小計_tb"
         Me.收入小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.收入小計_tb.TabIndex = 1273
@@ -1199,7 +1294,7 @@ Partial Class 銷售單申請
         Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label31.AutoSize = True
         Me.Label31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label31.Location = New System.Drawing.Point(538, 615)
+        Me.Label31.Location = New System.Drawing.Point(538, 591)
         Me.Label31.Name = "Label31"
         Me.Label31.Size = New System.Drawing.Size(85, 16)
         Me.Label31.TabIndex = 1272
@@ -1209,7 +1304,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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.售價小計_tb.Location = New System.Drawing.Point(625, 464)
+        Me.售價小計_tb.Location = New System.Drawing.Point(625, 440)
         Me.售價小計_tb.Name = "售價小計_tb"
         Me.售價小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.售價小計_tb.TabIndex = 1271
@@ -1221,7 +1316,7 @@ Partial Class 銷售單申請
         Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label30.AutoSize = True
         Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label30.Location = New System.Drawing.Point(540, 468)
+        Me.Label30.Location = New System.Drawing.Point(540, 444)
         Me.Label30.Name = "Label30"
         Me.Label30.Size = New System.Drawing.Size(85, 16)
         Me.Label30.TabIndex = 1270
@@ -1231,7 +1326,7 @@ Partial Class 銷售單申請
         '
         Me.刪除備註_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.刪除備註_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除備註_bt.Location = New System.Drawing.Point(279, 464)
+        Me.刪除備註_bt.Location = New System.Drawing.Point(279, 440)
         Me.刪除備註_bt.Name = "刪除備註_bt"
         Me.刪除備註_bt.Size = New System.Drawing.Size(163, 23)
         Me.刪除備註_bt.TabIndex = 1256
@@ -1242,7 +1337,7 @@ Partial Class 銷售單申請
         '
         Me.銷售備註_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.銷售備註_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售備註_bt.Location = New System.Drawing.Point(110, 464)
+        Me.銷售備註_bt.Location = New System.Drawing.Point(110, 440)
         Me.銷售備註_bt.Name = "銷售備註_bt"
         Me.銷售備註_bt.Size = New System.Drawing.Size(163, 23)
         Me.銷售備註_bt.TabIndex = 1261
@@ -1252,7 +1347,7 @@ Partial Class 銷售單申請
         '項次1_tb
         '
         Me.項次1_tb.Enabled = False
-        Me.項次1_tb.Location = New System.Drawing.Point(36, 464)
+        Me.項次1_tb.Location = New System.Drawing.Point(36, 440)
         Me.項次1_tb.Name = "項次1_tb"
         Me.項次1_tb.Size = New System.Drawing.Size(68, 23)
         Me.項次1_tb.TabIndex = 1264
@@ -1260,7 +1355,7 @@ Partial Class 銷售單申請
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(2, 467)
+        Me.Label26.Location = New System.Drawing.Point(2, 443)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(32, 16)
         Me.Label26.TabIndex = 1265
@@ -1304,7 +1399,7 @@ Partial Class 銷售單申請
         '
         '客戶流水_tb
         '
-        Me.客戶流水_tb.Location = New System.Drawing.Point(202, 356)
+        Me.客戶流水_tb.Location = New System.Drawing.Point(113, 360)
         Me.客戶流水_tb.Name = "客戶流水_tb"
         Me.客戶流水_tb.Size = New System.Drawing.Size(100, 23)
         Me.客戶流水_tb.TabIndex = 1254
@@ -1317,7 +1412,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, 5506)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 6614)
         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))
@@ -1328,24 +1423,6 @@ Partial Class 銷售單申請
         Me.客戶資料_dgv.TabIndex = 1254
         Me.客戶資料_dgv.Visible = False
         '
-        '銷售備註_dgv
-        '
-        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.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, 490)
-        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))
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
-        Me.銷售備註_dgv.RowTemplate.Height = 24
-        Me.銷售備註_dgv.Size = New System.Drawing.Size(532, 139)
-        Me.銷售備註_dgv.TabIndex = 1250
-        '
         '收款事項_dgv
         '
         DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -1368,7 +1445,7 @@ Partial Class 銷售單申請
         '
         Me.Label28.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(540, 597)
+        Me.Label28.Location = New System.Drawing.Point(540, 573)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(168, 16)
         Me.Label28.TabIndex = 1283
@@ -1378,12 +1455,74 @@ Partial Class 銷售單申請
         '
         Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(539, 554)
+        Me.Label20.Location = New System.Drawing.Point(539, 530)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(56, 16)
         Me.Label20.TabIndex = 1292
         Me.Label20.Text = "送貨地點"
         '
+        'Label39
+        '
+        Me.Label39.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label39.AutoSize = True
+        Me.Label39.Location = New System.Drawing.Point(542, 510)
+        Me.Label39.Name = "Label39"
+        Me.Label39.Size = New System.Drawing.Size(168, 16)
+        Me.Label39.TabIndex = 1297
+        Me.Label39.Text = "--------------------------------"
+        '
+        'Label40
+        '
+        Me.Label40.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label40.AutoSize = True
+        Me.Label40.Location = New System.Drawing.Point(541, 660)
+        Me.Label40.Name = "Label40"
+        Me.Label40.Size = New System.Drawing.Size(168, 16)
+        Me.Label40.TabIndex = 1298
+        Me.Label40.Text = "--------------------------------"
+        '
+        '銷售備註_dgv
+        '
+        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.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, 465)
+        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))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.銷售備註_dgv.RowTemplate.Height = 24
+        Me.銷售備註_dgv.Size = New System.Drawing.Size(532, 165)
+        Me.銷售備註_dgv.TabIndex = 1250
+        '
+        '最低售價_cb
+        '
+        Me.最低售價_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        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", "Y"})
+        Me.最低售價_cb.Location = New System.Drawing.Point(211, 581)
+        Me.最低售價_cb.Name = "最低售價_cb"
+        Me.最低售價_cb.Size = New System.Drawing.Size(110, 24)
+        Me.最低售價_cb.TabIndex = 1294
+        Me.最低售價_cb.Visible = False
+        '
+        '最低運費_cb
+        '
+        Me.最低運費_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        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", "Y"})
+        Me.最低運費_cb.Location = New System.Drawing.Point(211, 555)
+        Me.最低運費_cb.Name = "最低運費_cb"
+        Me.最低運費_cb.Size = New System.Drawing.Size(110, 24)
+        Me.最低運費_cb.TabIndex = 1293
+        Me.最低運費_cb.Visible = False
+        '
         '銷售收款流水號_tb
         '
         Me.銷售收款流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1514,113 +1653,37 @@ Partial Class 銷售單申請
         Me.物料圖1_pb.TabIndex = 1201
         Me.物料圖1_pb.TabStop = False
         '
-        '司機運費_tb
-        '
-        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(627, 577)
-        Me.司機運費_tb.Name = "司機運費_tb"
-        Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
-        Me.司機運費_tb.TabIndex = 1296
-        Me.司機運費_tb.Text = "0"
-        Me.司機運費_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label38
-        '
-        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label38.AutoSize = True
-        Me.Label38.ForeColor = System.Drawing.Color.Black
-        Me.Label38.Location = New System.Drawing.Point(542, 581)
-        Me.Label38.Name = "Label38"
-        Me.Label38.Size = New System.Drawing.Size(83, 16)
-        Me.Label38.TabIndex = 1295
-        Me.Label38.Text = "司   機   運   費"
-        '
-        'Label39
-        '
-        Me.Label39.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label39.AutoSize = True
-        Me.Label39.Location = New System.Drawing.Point(542, 534)
-        Me.Label39.Name = "Label39"
-        Me.Label39.Size = New System.Drawing.Size(168, 16)
-        Me.Label39.TabIndex = 1297
-        Me.Label39.Text = "--------------------------------"
-        '
-        'Label40
-        '
-        Me.Label40.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label40.AutoSize = True
-        Me.Label40.Location = New System.Drawing.Point(541, 684)
-        Me.Label40.Name = "Label40"
-        Me.Label40.Size = New System.Drawing.Size(168, 16)
-        Me.Label40.TabIndex = 1298
-        Me.Label40.Text = "--------------------------------"
-        '
-        '管銷費用_tb
-        '
-        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.Green
-        Me.管銷費用_tb.Location = New System.Drawing.Point(625, 725)
-        Me.管銷費用_tb.Name = "管銷費用_tb"
-        Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
-        Me.管銷費用_tb.TabIndex = 1300
-        Me.管銷費用_tb.Text = "0"
-        Me.管銷費用_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label41
-        '
-        Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label41.AutoSize = True
-        Me.Label41.ForeColor = System.Drawing.Color.Green
-        Me.Label41.Location = New System.Drawing.Point(543, 728)
-        Me.Label41.Name = "Label41"
-        Me.Label41.Size = New System.Drawing.Size(83, 16)
-        Me.Label41.TabIndex = 1299
-        Me.Label41.Text = "管   銷   費   用"
-        '
-        '預估利潤_tb
-        '
-        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.Green
-        Me.預估利潤_tb.Location = New System.Drawing.Point(625, 750)
-        Me.預估利潤_tb.Name = "預估利潤_tb"
-        Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
-        Me.預估利潤_tb.TabIndex = 1302
-        Me.預估利潤_tb.Text = "0"
-        Me.預估利潤_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label42
-        '
-        Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label42.AutoSize = True
-        Me.Label42.ForeColor = System.Drawing.Color.Green
-        Me.Label42.Location = New System.Drawing.Point(543, 753)
-        Me.Label42.Name = "Label42"
-        Me.Label42.Size = New System.Drawing.Size(83, 16)
-        Me.Label42.TabIndex = 1301
-        Me.Label42.Text = "預   估   利   潤"
-        '
-        '物料成本_tb
-        '
-        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.Green
-        Me.物料成本_tb.Location = New System.Drawing.Point(624, 699)
-        Me.物料成本_tb.Name = "物料成本_tb"
-        Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
-        Me.物料成本_tb.TabIndex = 1304
-        Me.物料成本_tb.Text = "0"
-        Me.物料成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label43
-        '
-        Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label43.AutoSize = True
-        Me.Label43.ForeColor = System.Drawing.Color.Green
-        Me.Label43.Location = New System.Drawing.Point(542, 702)
-        Me.Label43.Name = "Label43"
-        Me.Label43.Size = New System.Drawing.Size(83, 16)
-        Me.Label43.TabIndex = 1303
-        Me.Label43.Text = "物   料   成   本"
+        'Label44
+        '
+        Me.Label44.AutoSize = True
+        Me.Label44.Location = New System.Drawing.Point(39, 363)
+        Me.Label44.Name = "Label44"
+        Me.Label44.Size = New System.Drawing.Size(68, 16)
+        Me.Label44.TabIndex = 1307
+        Me.Label44.Text = "客戶流水號"
+        Me.Label44.Visible = False
+        '
+        '其他成本_tb
+        '
+        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.Green
+        Me.其他成本_tb.Location = New System.Drawing.Point(624, 700)
+        Me.其他成本_tb.Name = "其他成本_tb"
+        Me.其他成本_tb.Size = New System.Drawing.Size(81, 23)
+        Me.其他成本_tb.TabIndex = 1309
+        Me.其他成本_tb.Text = "0"
+        Me.其他成本_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label45
+        '
+        Me.Label45.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label45.AutoSize = True
+        Me.Label45.ForeColor = System.Drawing.Color.Green
+        Me.Label45.Location = New System.Drawing.Point(542, 703)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(83, 16)
+        Me.Label45.TabIndex = 1308
+        Me.Label45.Text = "其   他   成   本"
         '
         '銷售單申請
         '
@@ -1664,11 +1727,14 @@ Partial Class 銷售單申請
         Me.Controls.Add(Me.銷售資料流水號_tb)
         Me.Controls.Add(Me.品名_tb)
         Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.倉庫編號_tb)
         Me.Controls.Add(Me.料號_tb)
         Me.Controls.Add(Me.Label17)
         Me.Controls.Add(Me.查詢_tb)
+        Me.Controls.Add(Me.客戶編號_tb)
         Me.Controls.Add(Me.供應商編碼_cb)
         Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.供應商_cb)
         Me.Controls.Add(Me.Label19)
         Me.Controls.Add(Me.清空_bt)
@@ -1720,8 +1786,8 @@ Partial Class 銷售單申請
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         CType(Me.客戶資料_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -1860,4 +1926,9 @@ Partial Class 銷售單申請
     Friend WithEvents Label41 As Label
     Friend WithEvents Label39 As Label
     Friend WithEvents Label40 As Label
+    Friend WithEvents 讀取標準成本_bt As Button
+    Friend WithEvents Reset_bt As Button
+    Friend WithEvents Label44 As Label
+    Friend WithEvents 其他成本_tb As TextBox
+    Friend WithEvents Label45 As Label
 End Class

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

@@ -3,6 +3,7 @@ Public Class 銷售單申請
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
     ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
     Dim 首次開啟 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String : Dim EDR1 As Integer = 0 : Dim ESTR1 As String : Dim NUM1 As Integer
+    Dim 運費 As Integer
     Private Sub Set_清單()
         物料清單_dgv.DataSource = Nothing : ds.Clear()
         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -70,7 +71,7 @@ Public Class 銷售單申請
 
         銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
         銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
-        銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).Visible = False
+        銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).Visible = False : 銷售單據_dgv.Columns(10).Visible = False
     End Sub
     Private Sub Set_清單2()
         客戶資料_dgv.DataSource = Nothing : ds2.Clear()
@@ -105,20 +106,22 @@ Public Class 銷售單申請
         銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         銷售明細_dgv.ColumnHeadersHeight = 40
         銷售明細_dgv.AllowUserToAddRows = False
-        銷售明細_dgv.RowTemplate.Height = 35
+        銷售明細_dgv.RowTemplate.Height = 95
 
         PA2 = "" : PA2 = 單號_tb.Text
         SQL_銷售明細表()
         da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
-
+        Set_銷售明細_dgv_下拉式清單1() : Set_銷售明細_dgv_下拉式清單2() : Set_銷售明細_dgv_下拉式清單3()
 
         銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
-        銷售明細_dgv.Columns(4).FillWeight = 150 : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).FillWeight = 190 : 銷售明細_dgv.Columns(7).FillWeight = 80
-        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).FillWeight = 50 : 銷售明細_dgv.Columns(11).FillWeight = 80
-        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).Visible = False
+        銷售明細_dgv.Columns(4).Visible = False : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).Visible = False : 銷售明細_dgv.Columns(7).FillWeight = 130
+        銷售明細_dgv.Columns(8).Visible = False : 銷售明細_dgv.Columns(9).FillWeight = 130 : 銷售明細_dgv.Columns(10).FillWeight = 150 : 銷售明細_dgv.Columns(11).FillWeight = 80
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).FillWeight = 50 : 銷售明細_dgv.Columns(15).FillWeight = 80
+        銷售明細_dgv.Columns(16).FillWeight = 70 : 銷售明細_dgv.Columns(17).Visible = False : 銷售明細_dgv.Columns(18).Visible = False : 銷售明細_dgv.Columns(19).Visible = False
+        銷售明細_dgv.Columns(20).Visible = False
 
         銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
-        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(7).ReadOnly = True : 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+        銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(15).ReadOnly = True : 銷售明細_dgv.Columns(16).ReadOnly = True
 
         銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
         銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0"
@@ -144,9 +147,48 @@ Public Class 銷售單申請
                 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
             End If
             銷售明細_dgv("項次", i).Value = i + 1
+
+            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            'ElseIf 銷售明細_dgv("倉儲情況", I).Value.ToString = "未有貨" Then
+            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            'End If
         Next
         銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單1()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "倉名"
+        }
+        SQL_倉名_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close()
+        Col.HeaderText = "倉名" : Col.Name = "倉名"
+        銷售明細_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單2()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "訂製"
+        }
+        SQL_訂製狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close()
+        Col.HeaderText = "訂製" : Col.Name = "訂製"
+        銷售明細_dgv.Columns.Insert(7, Col)
+    End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單3()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "狀態"
+        }
+        SQL_倉儲狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close()
+        Col.HeaderText = "狀態" : Col.Name = "狀態"
+        銷售明細_dgv.Columns.Insert(9, Col)
+    End Sub
     Private Sub Set_清單5()
         銷售備註_dgv.DataSource = Nothing : ds5.Clear()
         銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -209,6 +251,7 @@ Public Class 銷售單申請
         ElseIf 地區_cb.Text = "南部" Then : PA3 = "3"
         ElseIf 地區_cb.Text = "材料" Then : PA3 = "9"
         ElseIf 地區_cb.Text = "調貨" Then : PA3 = "Y"
+        ElseIf 地區_cb.Text = "其他" Then : PA3 = "1"
         End If
         SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
         While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
@@ -229,11 +272,20 @@ 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
         售價小計_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"
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
-            物料成本_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)
+                不含1類銷售小記 = 不含1類銷售小記 + (銷售明細_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
+
             If 銷售明細_dgv("含稅", i).Value = True Then
                 稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
@@ -252,23 +304,30 @@ Public Class 銷售單申請
             If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
-                收款事項_dgv("金額", i).Value = Val(銷售合計_tb.Text) - 金額
+                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
             End If
         Next
 
-        If 送貨地點_cb.Text = "" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then : Else
-            If Val(售價小計_tb.Text) <= Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = 最低運費_cb.Text
-            ElseIf Val(售價小計_tb.Text) > Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = Val(售價小計_tb.Text) / 100 * 3
+        If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
+            司機運費_tb.Text = "0"
+        Else
+            If 運費 = 0 Then
+                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                    司機運費_tb.Text = 最低運費_cb.Text
+                ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(其他成本_tb.Text)) / 100 * 3
+                End If
+            Else
+                司機運費_tb.Text = 運費
             End If
         End If
 
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
+        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
 
         售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
         收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
         司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0")
     End Sub
     Private Sub 指定倉庫_cb_下拉表單資料載入()
         If 需要全部庫存區域清單_ch.Checked = True Then
@@ -332,25 +391,33 @@ Public Class 銷售單申請
             銷售備註流水號_tb.Text = 銷售備註_dgv("資料流水號", e.RowIndex).Value.ToString : 項次1_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub 銷售明細_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷售明細_dgv.RowPostPaint
-        Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = 銷售明細_dgv.Rows.Count - 1 Then : Exit Sub : Else
-            If 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "已有貨" Then
-                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
-            ElseIf 銷售明細_dgv("倉儲情況", e.RowIndex).Value.ToString = "未有貨" Then
-                銷售明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightPink
-            End If
-        End If
-    End Sub
     Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit
-        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            If 銷售明細_dgv("含稅", i).Value = False Then
-                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
-            ElseIf 銷售明細_dgv("含稅", i).Value = True Then
-                銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
-            End If
-        Next
-        Set_合記計算()
+        If e.RowIndex = -1 Then : Else
+            For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+                If 銷售明細_dgv("含稅", i).Value = False Then
+                    銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
+                ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                    銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
+                End If
+
+                If 銷售明細_dgv("倉儲情況", i).Value <> "已有貨" Then
+                    PA20 = 銷售明細_dgv(5, i).Value : PA19 = 銷售明細_dgv(7, i).Value : PA18 = 銷售明細_dgv(9, i).Value
+                    SQL_銷售明細_改倉名()
+                    If dr.Read() Then
+                        銷售明細_dgv("倉儲狀態", i).Value = dr("倉名編號")
+                    End If
+                    SQL_銷售明細_改物料訂製狀態()
+                    If dr.Read() Then
+                        銷售明細_dgv("訂製狀態", i).Value = dr("編碼")
+                    End If
+                    SQL_銷售明細_倉儲狀態()
+                    If dr.Read() Then
+                        銷售明細_dgv("物料狀態", i).Value = dr("編碼")
+                    End If : conn.Close
+                End If
+            Next
+            Set_合記計算()
+        End If
     End Sub
     Private Sub 銷售明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellClick
         If e.RowIndex = -1 Then : Else
@@ -380,6 +447,7 @@ Public Class 銷售單申請
             開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("客戶編號").Value
             交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
             送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("送貨地點").Value.ToString
+            運費 = 銷售單據_dgv.Rows(e.RowIndex).Cells("運費").Value.ToString : 客戶流水_tb.Text = ""
             業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
 
             Set_清單4() : Set_清單5()
@@ -419,10 +487,20 @@ Public Class 銷售單申請
                 End If : conn.Close()
 
                 指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
+                成本_nud.Value = 0
                 If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
                     訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
                 Else
                     倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                    If 訂製編碼_cb.Text = "MA0001" Then
+                        PA12 = 料號_tb.Text
+                        SQL_銷售明細表_成本讀取()
+                        If dr.Read() Then : 成本_nud.Value = dr("成本")
+                        Else : 成本_nud.Value = 0
+                        End If : conn.Close()
+                    Else
+                        成本_nud.Value = 0
+                    End If
                 End If
             End If
         End If
@@ -486,6 +564,15 @@ Public Class 銷售單申請
     End Sub
     Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
         訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+        If 訂製編碼_cb.Text = "MA0001" Then
+            PA12 = 料號_tb.Text
+            SQL_銷售明細表_成本讀取()
+            If dr.Read() Then : 成本_nud.Value = dr("成本")
+            Else : 成本_nud.Value = 0
+            End If : conn.Close()
+        Else
+            成本_nud.Value = 0
+        End If
     End Sub
     Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
         訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
@@ -531,7 +618,7 @@ Public Class 銷售單申請
         If 流水號_tb.Text = "" Then
             MsgBox("指定客戶前要先有銷售單號，請新增單號或是挑選歷史資料!!")
         Else
-            客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶資料強制對話框模式 = False : 客戶編號_tb.Text = PA15
+            客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶編號_tb.Text = PA15 : 客戶資料強制對話框模式 = False : 客戶資料表.Close()
         End If
     End Sub
     Private Sub 開立庫存調整單_bt_Click(sender As Object, e As EventArgs) Handles 開立庫存調整單_bt.Click
@@ -548,8 +635,8 @@ Public Class 銷售單申請
                 Else
                     If IsNumeric(PA) = True Then
                         If PA.Length = 7 Then
-                            開立庫存調整單_bt.Enabled = False
-                            單號_tb.Text = PA : 調庫單號_tb.Text = ""
+                            開立庫存調整單_bt.Enabled = False : 銷售單據_dgv.Enabled = False
+                            單號_tb.Text = PA : 調庫單號_tb.Text = "" : 客戶編號_tb.Text = "" : 運費 = 0 : 客戶流水_tb.Text = ""
 
                             SQL_銷售控制表_最後一筆資料()  '--------------------自動取得新編號
                             If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 4)) : Else : EDR = 1 : End If
@@ -600,7 +687,8 @@ Public Class 銷售單申請
             If 客戶資料_dgv.Rows.Count = 1 Then
                 客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value
             ElseIf 客戶資料_dgv.Rows.Count > 1 Then
-                MsgBox("該客戶名稱有多筆資料，請點擊  [客戶資料查詢]  由操作介面中查詢確認。")
+                MsgBox("即將幫您打開客戶資料表，請在客戶資料表中查詢，選取您確認的正確訊息，並指定到銷售申請單。")
+                客戶資料查詢_bt.PerformClick()
             ElseIf 客戶資料_dgv.Rows.Count = 0 Then
                 Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel)
                 If aa1 = MsgBoxResult.Ok Then
@@ -640,7 +728,7 @@ Public Class 銷售單申請
             End If
         End If
     End Sub
-    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+    Private Sub 存檔1()
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
@@ -651,15 +739,15 @@ Public Class 銷售單申請
                 PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
                 SQL_客戶資料表_修改() '--------------------資料修改
 
-                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked
+                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
                 PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
                 SQL_銷售控制表_修改() '--------------------資料修改
 
                 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 : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value
-                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value
+                    PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
+                    NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
                     SQL_銷售明細表_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
@@ -677,93 +765,183 @@ Public Class 銷售單申請
                     SQL_銷售收款事項_修改() : conn.Close()
                 Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
 
-                MsgBox("存檔完成。")
-                開立庫存調整單_bt.Enabled = True
+                Set_清單1()
             End If
         End If
     End Sub
-    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+    Private Sub 存檔2()
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
+            Set_清單2()
+            If 客戶資料_dgv.Rows.Count = 1 Then
+                客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value
+            ElseIf 客戶資料_dgv.Rows.Count > 1 Then
+                Dim aa1 As MsgBoxResult = MsgBox("系統查詢到該客戶有多筆客戶資料，你是否已經確定單據上顯示的客戶資料正確?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then : Else
+                    MsgBox("即將幫您打開客戶資料表，請在客戶資料表中查詢，選取您確認的正確訊息，並指定到銷售申請單。")
+                    客戶資料查詢_bt.PerformClick()
+                    MsgBox("指定客戶後請寄的再次存檔。")
+                    Exit Sub
+                End If
+            ElseIf 客戶資料_dgv.Rows.Count = 0 Then
+                Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    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 = "CL" & "00000000" & EDR
+                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CL" & "0000000" & EDR
+                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CL" & "000000" & EDR
+                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CL" & "00000" & EDR
+                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CL" & "0000" & EDR
+                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CL" & "000" & EDR
+                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR
+                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR
+                    ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR
+                    End If : 客戶流水_tb.Text = ESTR : PA16 = ESTR
+
+                    PA18 = 業務_cb.Text
+                    SQL_客戶資料表_編號_最後一筆資料()  '--------------------自動取得新編號
+                    If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If
+                    conn.Close() : EDR1 += 1
+                    If EDR1 < 10 Then : ESTR1 = 業務_cb.Text & "000" & EDR1
+                    ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1
+                    ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1
+                    ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1
+                    End If : PA17 = ESTR1
+
+                    SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料
+
+                    PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                    PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                    SQL_客戶資料表_修改() : conn.Close() '--------------------資料修改
+                    客戶編號_tb.Text = ESTR1
+                End If
+            End If
+
             If 客戶編號_tb.Text = "" Then
                 MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
             Else
-                If 料號_tb.Text = "" Then
-                    MsgBox("請選擇物料，調整庫存需要指定物料!!")
+                PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text
+                PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text
+                SQL_客戶資料表_修改() '--------------------資料修改
+
+                DTP = Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
+                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
+                SQL_銷售控制表_修改() '--------------------資料修改
+
+                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 : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
+                    NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value
+                    BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value
+                    SQL_銷售明細表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                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 : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                    SQL_銷售備註表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                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
+
+                MsgBox("存檔完成。")
+                開立庫存調整單_bt.Enabled = True : Set_清單1() : 銷售單據_dgv.Enabled = True
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔2()
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 流水號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 銷售單據_dgv.Enabled = False Then
+                存檔2()
+            End If
+            If 料號_tb.Text = "" Then
+                MsgBox("請選擇物料，調整庫存需要指定物料!!")
+            Else
+                If 儲態編號_cb.Text = "" Then
+                    MsgBox("倉儲狀態是一定要選擇的!!")
                 Else
-                    If 儲態編號_cb.Text = "" Then
-                        MsgBox("倉儲狀態是一定要選擇的!!")
+                    If 訂製狀態_cb.Text = "" Then
+                        MsgBox("物品的訂製狀態也是一定要選擇的!!")
                     Else
-                        If 訂製狀態_cb.Text = "" Then
-                            MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                        If 訂購數量_nud.Value = 0 Then
+                            MsgBox("訂購數量為零是不容許的!!")
                         Else
-                            If 訂購數量_nud.Value = 0 Then
-                                MsgBox("訂購數量為零是不容許的!!")
+                            PA1 = 單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                            SQL_銷售明細表_確認單據是否申請()
+                            If dr.Read() Then
+                                conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
                             Else
-                                PA1 = 單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
-                                SQL_銷售明細表_確認單據是否申請()
-                                If dr.Read() Then
-                                    conn.Close() : MsgBox("該料號已經在本單據中申請過了，如要修改，請直接到單據中尋找並修改。")
-                                Else
-                                    SQL_銷售明細表_最後一筆資料()
+                                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 = "SA" & "00000000" & EDR
+                                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SA" & "0000000" & EDR
+                                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SA" & "000000" & EDR
+                                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SA" & "00000" & EDR
+                                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SA" & "0000" & EDR
+                                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SA" & "000" & EDR
+                                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SA" & "00" & EDR
+                                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SA" & "0" & EDR
+                                ElseIf EDR > 99999999 Then : ESTR = "SA" & EDR : End If
+
+                                Set_日期格式轉換()
+                                PA3 = ESTR : PA4 = 單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 訂購數量_nud.Value : NU2 = 成本_nud.Value : NU3 = 售價_nud.Value
+                                PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text : BL2 = 含稅_ch.Checked : PA10 = 倉庫編號_tb.Text
+                                If Val(可申請_tb.Text) > 0 Then
+                                    PA9 = "已有貨"
+                                    SQL_銷售單申請_銷售明細表_新增()
+
+                                    If 調庫單號_tb.Text = "" Then
+                                        Set_日期格式轉換()
+                                        For i As Integer = 1 To 999
+                                            NUM1 = 0 + i
+                                            If NUM1 < 10 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1
+                                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
+                                            ElseIf NUM1 > 99 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-" & NUM1
+                                            End If
+                                            PA1 = 調庫單號_tb.Text
+                                            SQL_倉儲明細執行單號_執行單號驗證()
+                                            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+                                        Next
+                                        SQL_倉儲明細執行單號_新增() : conn.Close()
+                                    End If
+
+                                    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 = "SA" & "00000000" & EDR
-                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SA" & "0000000" & EDR
-                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SA" & "000000" & EDR
-                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SA" & "00000" & EDR
-                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SA" & "0000" & EDR
-                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SA" & "000" & EDR
-                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SA" & "00" & EDR
-                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SA" & "0" & EDR
-                                    ElseIf EDR > 99999999 Then : ESTR = "SA" & EDR : End If
-
-                                    Set_日期格式轉換()
-                                    PA3 = ESTR : PA4 = 單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 訂購數量_nud.Value : NU2 = 成本_nud.Value : NU3 = 售價_nud.Value
-                                    PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text : BL2 = 含稅_ch.Checked
-                                    If Val(可申請_tb.Text) > 0 Then
-                                        PA9 = "已有貨"
-                                        SQL_銷售單申請_銷售明細表_新增()
-
-                                        If 調庫單號_tb.Text = "" Then
-                                            Set_日期格式轉換()
-                                            For i As Integer = 1 To 999
-                                                NUM1 = 0 + i
-                                                If NUM1 < 10 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-00" & NUM1
-                                                ElseIf NUM1 > 9 And NUM1 < 100 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-0" & NUM1
-                                                ElseIf NUM1 > 99 Then : 調庫單號_tb.Text = "WH-" & DTP1 & "-" & NUM1
-                                                End If
-                                                PA1 = 調庫單號_tb.Text
-                                                SQL_倉儲明細執行單號_執行單號驗證()
-                                                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
-                                            Next
-                                            SQL_倉儲明細執行單號_新增() : conn.Close()
-                                        End If
-
-                                        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 = "WH" & "00000000" & EDR
-                                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
-                                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
-                                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
-                                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
-                                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
-                                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
-                                        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
-                                        ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
-
-                                        PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : PA9 = 單號_tb.Text
-                                        SQL_銷售單申請_倉儲明細表_銷售出庫()
-                                        Set_清單4()
-                                    ElseIf Val(可申請_tb.Text) = 0 Then
-                                        PA9 = "未有貨"
-                                        SQL_銷售單申請_銷售明細表_新增()
-                                        Set_清單4()
-                                    End If : conn.Close()
-                                    Set_清單()
-                                End If
+                                    If EDR < 10 Then : ESTR = "WH" & "00000000" & EDR
+                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                                    ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                                    PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : PA9 = 單號_tb.Text
+                                    SQL_銷售單申請_倉儲明細表_銷售出庫()
+                                    Set_清單4()
+                                ElseIf Val(可申請_tb.Text) = 0 Then
+                                    PA9 = "未有貨"
+                                    SQL_銷售單申請_銷售明細表_新增()
+                                    Set_清單4()
+                                End If : conn.Close()
+                                Set_清單()
                             End If
                         End If
                     End If
@@ -824,7 +1002,16 @@ Public Class 銷售單申請
                 ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If
 
                 PA1 = ESTR : PA = 單號_tb.Text
-                SQL_銷售備註表_新增() : Set_清單5()
+                SQL_銷售備註表_新增()
+
+                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 : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value
+                    SQL_銷售備註表_修改() : conn.Close()
+                Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                Set_清單5()
             End If
         End If
     End Sub
@@ -894,8 +1081,87 @@ Public Class 銷售單申請
                 If EDR < 10 Then : ESTR = EDR
                 ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
                 PA2 = ESTR : PA = 單號_tb.Text
-                SQL_銷售收款事項_新增2() : Set_清單6()
+                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 讀取標準成本_bt_Click(sender As Object, e As EventArgs) Handles 讀取標準成本_bt.Click
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條()
+            PA12 = 銷售明細_dgv.Rows(i).Cells("料號").Value
+            SQL_銷售明細表_成本讀取()
+            If dr.Read() Then : 銷售明細_dgv.Rows(i).Cells("成本").Value = dr("成本")
+            Else : 銷售明細_dgv.Rows(i).Cells("成本").Value = 0
+            End If : conn.Close() : Set_合記計算()
+        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
+        售價小計_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"
+        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)
+                不含1類銷售小記 = 不含1類銷售小記 + (銷售明細_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
+
+            If 銷售明細_dgv("含稅", i).Value = True Then
+                稅金_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 = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+
+        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
+        Next
+        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" Then
+                金額 = 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" Then
+                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
             End If
+        Next
+
+        If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
+            司機運費_tb.Text = "0"
+        Else
+            If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                司機運費_tb.Text = 最低運費_cb.Text
+            ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
+                司機運費_tb.Text = (不含1類銷售小記 - Val(其他成本_tb.Text)) / 100 * 3
+            End If
+        End If
+        存檔1()
+
+        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text)
+
+        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0")
+    End Sub
+    Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            運費 = 司機運費_tb.Text : 存檔1() : Set_合記計算()
         End If
     End Sub
 End Class