20230107備份

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

@@ -112,7 +112,7 @@
                             銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額 AS 未收額額, 
                             銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 
                             客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金, 銷售控制表.已出貨 AS 出貨, 
-                            銷售控制表.轉業績日期, 銷售控制表.已出貨 AS 已結單
+                            銷售控制表.轉業績日期, 銷售控制表.已出貨 AS 已結單, 銷售控制表.銷貨總額
                 FROM        銷售控制表 INNER JOIN
                             客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 INNER JOIN
                                 (SELECT          銷售明細表.單號

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

@@ -251,6 +251,9 @@
                 WHERE 流水號 LIKE '" & PA1 & "%'"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_銷貨總額_修改()
+        ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 銷貨總額 = N'" & NU5 & "' WHERE 流水號 LIKE '" & PA1 & "%'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_銷售單申請_銷售明細表_新增()
         ConnOpen()
         SQL1 = "INSERT INTO 銷售明細表 (資料流水號, 單號, 料號, 物料狀態, 訂製狀態, 備註, 數量, 成本, 售價, 狀態, 含稅, 倉儲狀態, 排序, 不含管銷) 

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

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

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

@@ -146,6 +146,7 @@ Partial Class 訂單控制表
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.顯示_bt = New System.Windows.Forms.Button()
         Me.隱藏_bt = New System.Windows.Forms.Button()
+        Me.批量刷銷售_bt = New System.Windows.Forms.Button()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -193,7 +194,7 @@ Partial Class 訂單控制表
         Me.未審核_lb.AutoSize = True
         Me.未審核_lb.Location = New System.Drawing.Point(0, 5)
         Me.未審核_lb.Name = "未審核_lb"
-        Me.未審核_lb.Size = New System.Drawing.Size(68, 16)
+        Me.未審核_lb.Size = New System.Drawing.Size(67, 16)
         Me.未審核_lb.TabIndex = 1257
         Me.未審核_lb.Text = "業務銷售單"
         '
@@ -202,7 +203,7 @@ Partial Class 訂單控制表
         Me.含稅_ch.AutoSize = True
         Me.含稅_ch.Location = New System.Drawing.Point(43, 104)
         Me.含稅_ch.Name = "含稅_ch"
-        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.含稅_ch.TabIndex = 1277
         Me.含稅_ch.Text = "含稅"
         Me.含稅_ch.UseVisualStyleBackColor = True
@@ -222,7 +223,7 @@ Partial Class 訂單控制表
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label9.Location = New System.Drawing.Point(167, 30)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
         Me.Label9.TabIndex = 1275
         Me.Label9.Text = "交貨日期"
         '
@@ -241,7 +242,7 @@ Partial Class 訂單控制表
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(167, 5)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 1273
         Me.Label4.Text = "開單日期"
         '
@@ -252,7 +253,7 @@ Partial Class 訂單控制表
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label11.Location = New System.Drawing.Point(172, 105)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.Size = New System.Drawing.Size(55, 16)
         Me.Label11.TabIndex = 1272
         Me.Label11.Text = "統一編號"
         '
@@ -277,7 +278,7 @@ Partial Class 訂單控制表
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label10.Location = New System.Drawing.Point(3, 55)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
         Me.Label10.TabIndex = 1269
         Me.Label10.Text = "公司"
         '
@@ -315,7 +316,7 @@ Partial Class 訂單控制表
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label8.Location = New System.Drawing.Point(191, 80)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(39, 16)
+        Me.Label8.Size = New System.Drawing.Size(38, 16)
         Me.Label8.TabIndex = 1264
         Me.Label8.Text = "電話2"
         '
@@ -326,7 +327,7 @@ Partial Class 訂單控制表
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label7.Location = New System.Drawing.Point(3, 80)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(39, 16)
+        Me.Label7.Size = New System.Drawing.Size(38, 16)
         Me.Label7.TabIndex = 1263
         Me.Label7.Text = "電話1"
         '
@@ -337,7 +338,7 @@ Partial Class 訂單控制表
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label6.Location = New System.Drawing.Point(3, 130)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1262
         Me.Label6.Text = "住址"
         '
@@ -348,7 +349,7 @@ Partial Class 訂單控制表
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label3.Location = New System.Drawing.Point(3, 32)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 1261
         Me.Label3.Text = "客戶"
         '
@@ -358,7 +359,7 @@ Partial Class 訂單控制表
         Me.Label2.ForeColor = System.Drawing.Color.Red
         Me.Label2.Location = New System.Drawing.Point(3, 5)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
         Me.Label2.TabIndex = 1260
         Me.Label2.Text = "單號"
         '
@@ -455,7 +456,7 @@ Partial Class 訂單控制表
         Me.Label49.AutoSize = True
         Me.Label49.Location = New System.Drawing.Point(4, 518)
         Me.Label49.Name = "Label49"
-        Me.Label49.Size = New System.Drawing.Size(32, 16)
+        Me.Label49.Size = New System.Drawing.Size(31, 16)
         Me.Label49.TabIndex = 1352
         Me.Label49.Text = "項次"
         '
@@ -517,7 +518,7 @@ Partial Class 訂單控制表
         Me.Label46.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.Label46.Location = New System.Drawing.Point(583, 413)
         Me.Label46.Name = "Label46"
-        Me.Label46.Size = New System.Drawing.Size(83, 16)
+        Me.Label46.Size = New System.Drawing.Size(82, 16)
         Me.Label46.TabIndex = 1347
         Me.Label46.Text = "刷   卡   稅   金"
         '
@@ -528,7 +529,7 @@ Partial Class 訂單控制表
         Me.Label47.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.Label47.Location = New System.Drawing.Point(583, 389)
         Me.Label47.Name = "Label47"
-        Me.Label47.Size = New System.Drawing.Size(83, 16)
+        Me.Label47.Size = New System.Drawing.Size(82, 16)
         Me.Label47.TabIndex = 1345
         Me.Label47.Text = "刷   卡   總   和"
         '
@@ -550,7 +551,7 @@ Partial Class 訂單控制表
         Me.Label48.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.Label48.Location = New System.Drawing.Point(582, 439)
         Me.Label48.Name = "Label48"
-        Me.Label48.Size = New System.Drawing.Size(83, 16)
+        Me.Label48.Size = New System.Drawing.Size(82, 16)
         Me.Label48.TabIndex = 1343
         Me.Label48.Text = "刷   卡   傭   金"
         '
@@ -572,7 +573,7 @@ Partial Class 訂單控制表
         Me.Label45.ForeColor = System.Drawing.Color.Green
         Me.Label45.Location = New System.Drawing.Point(583, 701)
         Me.Label45.Name = "Label45"
-        Me.Label45.Size = New System.Drawing.Size(83, 16)
+        Me.Label45.Size = New System.Drawing.Size(82, 16)
         Me.Label45.TabIndex = 1336
         Me.Label45.Text = "其   他   成   本"
         '
@@ -594,7 +595,7 @@ Partial Class 訂單控制表
         Me.Label43.ForeColor = System.Drawing.Color.Green
         Me.Label43.Location = New System.Drawing.Point(583, 676)
         Me.Label43.Name = "Label43"
-        Me.Label43.Size = New System.Drawing.Size(83, 16)
+        Me.Label43.Size = New System.Drawing.Size(82, 16)
         Me.Label43.TabIndex = 1317
         Me.Label43.Text = "物   料   成   本"
         '
@@ -616,7 +617,7 @@ Partial Class 訂單控制表
         Me.Label42.ForeColor = System.Drawing.Color.Green
         Me.Label42.Location = New System.Drawing.Point(584, 751)
         Me.Label42.Name = "Label42"
-        Me.Label42.Size = New System.Drawing.Size(83, 16)
+        Me.Label42.Size = New System.Drawing.Size(82, 16)
         Me.Label42.TabIndex = 1315
         Me.Label42.Text = "預   估   利   潤"
         '
@@ -638,7 +639,7 @@ Partial Class 訂單控制表
         Me.Label41.ForeColor = System.Drawing.Color.Green
         Me.Label41.Location = New System.Drawing.Point(584, 726)
         Me.Label41.Name = "Label41"
-        Me.Label41.Size = New System.Drawing.Size(83, 16)
+        Me.Label41.Size = New System.Drawing.Size(82, 16)
         Me.Label41.TabIndex = 1313
         Me.Label41.Text = "管   銷   費   用"
         '
@@ -660,7 +661,7 @@ Partial Class 訂單控制表
         Me.Label38.ForeColor = System.Drawing.Color.Black
         Me.Label38.Location = New System.Drawing.Point(580, 571)
         Me.Label38.Name = "Label38"
-        Me.Label38.Size = New System.Drawing.Size(83, 16)
+        Me.Label38.Size = New System.Drawing.Size(82, 16)
         Me.Label38.TabIndex = 1305
         Me.Label38.Text = "司   機   運   費"
         '
@@ -682,7 +683,7 @@ Partial Class 訂單控制表
         Me.Label39.AutoSize = True
         Me.Label39.Location = New System.Drawing.Point(577, 545)
         Me.Label39.Name = "Label39"
-        Me.Label39.Size = New System.Drawing.Size(56, 16)
+        Me.Label39.Size = New System.Drawing.Size(55, 16)
         Me.Label39.TabIndex = 1304
         Me.Label39.Text = "送貨地點"
         '
@@ -709,7 +710,7 @@ Partial Class 訂單控制表
         Me.Label36.AutoSize = True
         Me.Label36.Location = New System.Drawing.Point(2, 646)
         Me.Label36.Name = "Label36"
-        Me.Label36.Size = New System.Drawing.Size(32, 16)
+        Me.Label36.Size = New System.Drawing.Size(31, 16)
         Me.Label36.TabIndex = 1285
         Me.Label36.Text = "項次"
         '
@@ -731,7 +732,7 @@ Partial Class 訂單控制表
         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(580, 648)
         Me.Label35.Name = "Label35"
-        Me.Label35.Size = New System.Drawing.Size(86, 16)
+        Me.Label35.Size = New System.Drawing.Size(85, 16)
         Me.Label35.TabIndex = 1280
         Me.Label35.Text = "額    外   收   支"
         '
@@ -753,7 +754,7 @@ Partial Class 訂單控制表
         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(580, 516)
         Me.Label34.Name = "Label34"
-        Me.Label34.Size = New System.Drawing.Size(86, 16)
+        Me.Label34.Size = New System.Drawing.Size(85, 16)
         Me.Label34.TabIndex = 1278
         Me.Label34.Text = "銷    售   合   計"
         '
@@ -775,7 +776,7 @@ Partial Class 訂單控制表
         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(580, 491)
         Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(85, 16)
+        Me.Label33.Size = New System.Drawing.Size(84, 16)
         Me.Label33.TabIndex = 1276
         Me.Label33.Text = "明細-稅        金"
         '
@@ -797,7 +798,7 @@ Partial Class 訂單控制表
         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(581, 623)
         Me.Label32.Name = "Label32"
-        Me.Label32.Size = New System.Drawing.Size(85, 16)
+        Me.Label32.Size = New System.Drawing.Size(84, 16)
         Me.Label32.TabIndex = 1274
         Me.Label32.Text = "備註-支出小計"
         '
@@ -819,7 +820,7 @@ Partial Class 訂單控制表
         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(579, 598)
         Me.Label31.Name = "Label31"
-        Me.Label31.Size = New System.Drawing.Size(85, 16)
+        Me.Label31.Size = New System.Drawing.Size(84, 16)
         Me.Label31.TabIndex = 1272
         Me.Label31.Text = "備註-收入小計"
         '
@@ -841,7 +842,7 @@ Partial Class 訂單控制表
         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(580, 467)
         Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(85, 16)
+        Me.Label30.Size = New System.Drawing.Size(84, 16)
         Me.Label30.TabIndex = 1270
         Me.Label30.Text = "明細-售價小計"
         '
@@ -858,7 +859,7 @@ Partial Class 訂單控制表
         Me.Label26.AutoSize = True
         Me.Label26.Location = New System.Drawing.Point(4, 389)
         Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(32, 16)
+        Me.Label26.Size = New System.Drawing.Size(31, 16)
         Me.Label26.TabIndex = 1265
         Me.Label26.Text = "項次"
         '
@@ -875,7 +876,7 @@ Partial Class 訂單控制表
         Me.Label25.AutoSize = True
         Me.Label25.Location = New System.Drawing.Point(3, 6)
         Me.Label25.Name = "Label25"
-        Me.Label25.Size = New System.Drawing.Size(32, 16)
+        Me.Label25.Size = New System.Drawing.Size(31, 16)
         Me.Label25.TabIndex = 1263
         Me.Label25.Text = "項次"
         '
@@ -893,7 +894,7 @@ Partial Class 訂單控制表
         Me.倉儲單號_lb.AutoSize = True
         Me.倉儲單號_lb.Location = New System.Drawing.Point(296, 253)
         Me.倉儲單號_lb.Name = "倉儲單號_lb"
-        Me.倉儲單號_lb.Size = New System.Drawing.Size(56, 16)
+        Me.倉儲單號_lb.Size = New System.Drawing.Size(55, 16)
         Me.倉儲單號_lb.TabIndex = 1256
         Me.倉儲單號_lb.Text = "倉儲單號"
         Me.倉儲單號_lb.Visible = False
@@ -913,7 +914,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, 12065)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 12298)
         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))
@@ -989,7 +990,7 @@ Partial Class 訂單控制表
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(41, 193)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 1173
         Me.Label1.Text = "流水號"
         Me.Label1.Visible = False
@@ -1001,7 +1002,7 @@ Partial Class 訂單控制表
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label5.Location = New System.Drawing.Point(37, 218)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
         Me.Label5.TabIndex = 1178
         Me.Label5.Text = "編號客戶"
         Me.Label5.Visible = False
@@ -1048,7 +1049,7 @@ Partial Class 訂單控制表
         Me.Label28.AutoSize = True
         Me.Label28.Location = New System.Drawing.Point(579, 530)
         Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(168, 16)
+        Me.Label28.Size = New System.Drawing.Size(167, 16)
         Me.Label28.TabIndex = 1283
         Me.Label28.Text = "--------------------------------"
         '
@@ -1058,7 +1059,7 @@ Partial Class 訂單控制表
         Me.Label40.AutoSize = True
         Me.Label40.Location = New System.Drawing.Point(582, 662)
         Me.Label40.Name = "Label40"
-        Me.Label40.Size = New System.Drawing.Size(168, 16)
+        Me.Label40.Size = New System.Drawing.Size(167, 16)
         Me.Label40.TabIndex = 1312
         Me.Label40.Text = "--------------------------------"
         '
@@ -1068,7 +1069,7 @@ Partial Class 訂單控制表
         Me.Label20.AutoSize = True
         Me.Label20.Location = New System.Drawing.Point(578, 584)
         Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(168, 16)
+        Me.Label20.Size = New System.Drawing.Size(167, 16)
         Me.Label20.TabIndex = 1302
         Me.Label20.Text = "--------------------------------"
         '
@@ -1096,7 +1097,7 @@ Partial Class 訂單控制表
         Me.Label14.AutoSize = True
         Me.Label14.Location = New System.Drawing.Point(579, 452)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(168, 16)
+        Me.Label14.Size = New System.Drawing.Size(167, 16)
         Me.Label14.TabIndex = 1353
         Me.Label14.Text = "--------------------------------"
         '
@@ -1116,7 +1117,7 @@ Partial Class 訂單控制表
         Me.Label37.AutoSize = True
         Me.Label37.Location = New System.Drawing.Point(582, 294)
         Me.Label37.Name = "Label37"
-        Me.Label37.Size = New System.Drawing.Size(92, 16)
+        Me.Label37.Size = New System.Drawing.Size(91, 16)
         Me.Label37.TabIndex = 1289
         Me.Label37.Text = "銷售收款流水號"
         Me.Label37.Visible = False
@@ -1147,7 +1148,7 @@ Partial Class 訂單控制表
         Me.Label24.AutoSize = True
         Me.Label24.Location = New System.Drawing.Point(582, 216)
         Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(92, 16)
+        Me.Label24.Size = New System.Drawing.Size(91, 16)
         Me.Label24.TabIndex = 1260
         Me.Label24.Text = "倉儲資料流水號"
         Me.Label24.Visible = False
@@ -1168,7 +1169,7 @@ Partial Class 訂單控制表
         Me.Label27.AutoSize = True
         Me.Label27.Location = New System.Drawing.Point(582, 256)
         Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(92, 16)
+        Me.Label27.Size = New System.Drawing.Size(91, 16)
         Me.Label27.TabIndex = 1267
         Me.Label27.Text = "銷售備註流水號"
         Me.Label27.Visible = False
@@ -1178,7 +1179,7 @@ Partial Class 訂單控制表
         Me.Label23.AutoSize = True
         Me.Label23.Location = New System.Drawing.Point(226, 178)
         Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(92, 16)
+        Me.Label23.Size = New System.Drawing.Size(91, 16)
         Me.Label23.TabIndex = 1258
         Me.Label23.Text = "銷售資料流水號"
         Me.Label23.Visible = False
@@ -1234,7 +1235,7 @@ Partial Class 訂單控制表
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label12.Location = New System.Drawing.Point(111, 6)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1306
         Me.Label12.Text = "客戶資料"
         '
@@ -1243,7 +1244,7 @@ Partial Class 訂單控制表
         Me.大間距_ch.AutoSize = True
         Me.大間距_ch.Location = New System.Drawing.Point(287, 152)
         Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.大間距_ch.TabIndex = 1337
         Me.大間距_ch.Text = "大間距"
         Me.大間距_ch.UseVisualStyleBackColor = True
@@ -1253,7 +1254,7 @@ Partial Class 訂單控制表
         Me.中間距_ch.AutoSize = True
         Me.中間距_ch.Location = New System.Drawing.Point(218, 152)
         Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.中間距_ch.TabIndex = 1336
         Me.中間距_ch.Text = "中間距"
         Me.中間距_ch.UseVisualStyleBackColor = True
@@ -1263,7 +1264,7 @@ Partial Class 訂單控制表
         Me.小間距_ch.AutoSize = True
         Me.小間距_ch.Location = New System.Drawing.Point(149, 152)
         Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.小間距_ch.TabIndex = 1335
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
@@ -1296,6 +1297,7 @@ Partial Class 訂單控制表
         Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel2.Controls.Add(Me.批量刷銷售_bt)
         Me.Panel2.Controls.Add(Me.查詢_bt)
         Me.Panel2.Controls.Add(Me.物料關鍵字_tb)
         Me.Panel2.Controls.Add(Me.Label15)
@@ -1344,7 +1346,7 @@ Partial Class 訂單控制表
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label15.Location = New System.Drawing.Point(0, 31)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(68, 16)
+        Me.Label15.Size = New System.Drawing.Size(67, 16)
         Me.Label15.TabIndex = 1339
         Me.Label15.Text = "物料關鍵字"
         '
@@ -1393,7 +1395,7 @@ Partial Class 訂單控制表
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.Location = New System.Drawing.Point(653, 127)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(55, 16)
         Me.字體大小調整_lb.TabIndex = 1341
         Me.字體大小調整_lb.Text = "字體調整"
         '
@@ -1429,6 +1431,15 @@ Partial Class 訂單控制表
         Me.隱藏_bt.Text = "隱藏" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "控件"
         Me.隱藏_bt.UseVisualStyleBackColor = True
         '
+        '批量刷銷售_bt
+        '
+        Me.批量刷銷售_bt.Location = New System.Drawing.Point(473, 26)
+        Me.批量刷銷售_bt.Name = "批量刷銷售_bt"
+        Me.批量刷銷售_bt.Size = New System.Drawing.Size(81, 25)
+        Me.批量刷銷售_bt.TabIndex = 1342
+        Me.批量刷銷售_bt.Text = "批量刷銷售"
+        Me.批量刷銷售_bt.UseVisualStyleBackColor = True
+        '
         '訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -1570,4 +1581,5 @@ Partial Class 訂單控制表
     Friend WithEvents 物料關鍵字_tb As TextBox
     Friend WithEvents Label15 As Label
     Friend WithEvents 查詢_bt As Button
+    Friend WithEvents 批量刷銷售_bt As Button
 End Class

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

@@ -19,11 +19,15 @@ Public Class 訂單控制表
             銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
             銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = False : 銷售單據_dgv.Columns(14).Visible = False : 銷售單據_dgv.Columns(15).Visible = False
             銷售單據_dgv.Columns(16).Visible = False : 銷售單據_dgv.Columns(17).Visible = False : 銷售單據_dgv.Columns(18).Visible = False : 銷售單據_dgv.Columns(19).FillWeight = 65
-            銷售單據_dgv.Columns(20).Visible = False : 銷售單據_dgv.Columns(21).FillWeight = 65
+            銷售單據_dgv.Columns(20).Visible = False : 銷售單據_dgv.Columns(21).FillWeight = 65 : 銷售單據_dgv.Columns("銷貨總額").FillWeight = 80
             銷售單據_dgv.Columns("未收額額").DefaultCellStyle.Format = "#,##0"
             銷售單據_dgv.Columns("未收額額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             銷售單據_dgv.Columns("未收額額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            銷售單據_dgv.Columns("銷貨總額").DefaultCellStyle.Format = "#,##0"
+            銷售單據_dgv.Columns("銷貨總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            銷售單據_dgv.Columns("銷貨總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
             For i As Integer = 0 To 銷售單據_dgv.Rows.Count - 1
+                If IsDBNull(銷售單據_dgv("銷貨總額", i).Value) = True Then : 銷售單據_dgv("銷貨總額", i).Value = "0" : End If
                 If IsDBNull(銷售單據_dgv("轉業績日期", i).Value) Then : 銷售單據_dgv("轉業績日期", i).Value = "" : End If
                 If IsDBNull(銷售單據_dgv("已結單", i).Value) Then : 銷售單據_dgv("已結單", i).Value = False : Else : 銷售單據_dgv("已結單", i).Value = False : End If
                 If 銷售單據_dgv("轉業績日期", i).Value.ToString <> "" Then : 銷售單據_dgv("已結單", i).Value = True : End If
@@ -356,7 +360,7 @@ Public Class 訂單控制表
         Try
             If 銷售單據_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
             If 銷售單據_dgv.SelectedCells.Count > 0 Then
-                If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Then
+                If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Or 銷售單據_dgv.SelectedCells(0).ColumnIndex = 22 Then
                     If 已超出 = False Then
                         Dim x As Double = 0
                         For i As Integer = 0 To 銷售單據_dgv.SelectedCells.Count - 1
@@ -537,11 +541,31 @@ Public Class 訂單控制表
                 Set_清單6() : Set_清單7()
                 PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
                 If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
+                PA1 = 流水號_tb.Text : NU5 = 銷售合計_tb.Text
+                SQL_銷貨總額_修改()
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub 批量刷銷售_bt_Click(sender As Object, e As EventArgs) Handles 批量刷銷售_bt.Click
+        資料數 = 銷售單據_dgv.Rows.Count : MyModule1.進度條()
+        For I As Integer = 0 To 銷售單據_dgv.Rows.Count - 1 : MyModule1.進度條()
+            稅金存檔 = 銷售單據_dgv.Rows(I).Cells("稅金").Value
+            流水號_tb.Text = 銷售單據_dgv.Rows(I).Cells("流水號").Value : 單號_tb.Text = 銷售單據_dgv.Rows(I).Cells("單號").Value
+            開單日期_dtp.Value = 銷售單據_dgv.Rows(I).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(I).Cells("客戶編號").Value
+            交貨日期_dtp.Value = 銷售單據_dgv.Rows(I).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(I).Cells("含稅").Value
+            送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(I).Cells("送貨地點").Value.ToString
+            運費 = 銷售單據_dgv.Rows(I).Cells("運費").Value
+            '業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
+            Set_清單4() : Set_清單5()
+            Set_清單6() : Set_清單7()
+            PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號()
+            If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If
+            PA1 = 流水號_tb.Text : NU5 = 銷售合計_tb.Text
+            SQL_銷貨總額_修改()
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
         Set_清單4()

YD-ERP-SYS/財務系統管理/業績獎金彙總表.Designer.vb

@@ -22,15 +22,15 @@ Partial Class 業績獎金彙總表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim 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()
         Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
@@ -64,6 +64,7 @@ Partial Class 業績獎金彙總表
         Me.列印成EXCEL_bt = New System.Windows.Forms.Button()
         Me.未審核_lb = New System.Windows.Forms.Label()
         Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.重新計算_bt = New System.Windows.Forms.Button()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -83,8 +84,8 @@ Partial Class 業績獎金彙總表
         '
         '彙總1_dgv
         '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.彙總1_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.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -106,7 +107,7 @@ Partial Class 業績獎金彙總表
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.字體大小調整_lb.Location = New System.Drawing.Point(1225, 7)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(55, 16)
         Me.字體大小調整_lb.TabIndex = 1501
         Me.字體大小調整_lb.Text = "字體調整"
         '
@@ -125,8 +126,8 @@ Partial Class 業績獎金彙總表
         '
         '衍生運費_dgv
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.衍生運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.衍生運費_dgv.Location = New System.Drawing.Point(470, 33)
@@ -140,8 +141,8 @@ Partial Class 業績獎金彙總表
         '
         '其他_dgv
         '
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.其他_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.其他_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.其他_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.其他_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.其他_dgv.Location = New System.Drawing.Point(1177, 33)
@@ -155,8 +156,8 @@ Partial Class 業績獎金彙總表
         '
         '外車車資_dgv
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.外車車資_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.外車車資_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.外車車資_dgv.Location = New System.Drawing.Point(627, 33)
@@ -170,8 +171,8 @@ Partial Class 業績獎金彙總表
         '
         '料號一_dgv
         '
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.料號一_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.料號一_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.料號一_dgv.Location = New System.Drawing.Point(992, 33)
@@ -185,8 +186,8 @@ Partial Class 業績獎金彙總表
         '
         '備註運費_dgv
         '
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.備註運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.備註運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.備註運費_dgv.Location = New System.Drawing.Point(835, 33)
@@ -253,14 +254,14 @@ Partial Class 業績獎金彙總表
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(99, 7)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(20, 16)
+        Me.Label1.Size = New System.Drawing.Size(19, 16)
         Me.Label1.TabIndex = 1512
         Me.Label1.Text = "到"
         '
         '獎金彙總_dgv
         '
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Lavender
-        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Lavender
+        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.獎金彙總_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -278,7 +279,7 @@ Partial Class 業績獎金彙總表
         '
         Me.彙總表_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.彙總表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.彙總表_bt.Location = New System.Drawing.Point(341, 4)
+        Me.彙總表_bt.Location = New System.Drawing.Point(446, 4)
         Me.彙總表_bt.Name = "彙總表_bt"
         Me.彙總表_bt.Size = New System.Drawing.Size(57, 23)
         Me.彙總表_bt.TabIndex = 1514
@@ -289,7 +290,7 @@ Partial Class 業績獎金彙總表
         '
         Me.明細表_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.明細表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細表_bt.Location = New System.Drawing.Point(400, 4)
+        Me.明細表_bt.Location = New System.Drawing.Point(505, 4)
         Me.明細表_bt.Name = "明細表_bt"
         Me.明細表_bt.Size = New System.Drawing.Size(57, 23)
         Me.明細表_bt.TabIndex = 1515
@@ -298,8 +299,8 @@ Partial Class 業績獎金彙總表
         '
         '獎金明細表_dgv
         '
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LavenderBlush
-        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.LavenderBlush
+        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         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)
@@ -315,8 +316,8 @@ Partial Class 業績獎金彙總表
         '
         '過度表_dgv
         '
-        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.過度表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.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
@@ -335,7 +336,7 @@ Partial Class 業績獎金彙總表
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(194, 578)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(112, 16)
+        Me.Label2.Size = New System.Drawing.Size(111, 16)
         Me.Label2.TabIndex = 1518
         Me.Label2.Text = "扣運費(上個月已結)"
         '
@@ -345,7 +346,7 @@ Partial Class 業績獎金彙總表
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(414, 578)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(80, 16)
+        Me.Label3.Size = New System.Drawing.Size(79, 16)
         Me.Label3.TabIndex = 1520
         Me.Label3.Text = "已出貨未收款"
         '
@@ -355,7 +356,7 @@ Partial Class 業績獎金彙總表
         Me.Label4.AutoSize = True
         Me.Label4.Location = New System.Drawing.Point(601, 578)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(44, 16)
+        Me.Label4.Size = New System.Drawing.Size(43, 16)
         Me.Label4.TabIndex = 1522
         Me.Label4.Text = "代運費"
         '
@@ -365,7 +366,7 @@ Partial Class 業績獎金彙總表
         Me.Label5.AutoSize = True
         Me.Label5.Location = New System.Drawing.Point(7, 578)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(80, 16)
+        Me.Label5.Size = New System.Drawing.Size(79, 16)
         Me.Label5.TabIndex = 1524
         Me.Label5.Text = "獎金合計運費"
         '
@@ -373,8 +374,8 @@ Partial Class 業績獎金彙總表
         '
         Me.NUD1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD1.Location = New System.Drawing.Point(88, 575)
-        Me.NUD1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NUD1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD1.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD1.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NUD1.Name = "NUD1"
         Me.NUD1.Size = New System.Drawing.Size(100, 23)
         Me.NUD1.TabIndex = 1526
@@ -384,8 +385,8 @@ Partial Class 業績獎金彙總表
         '
         Me.NUD2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD2.Location = New System.Drawing.Point(306, 575)
-        Me.NUD2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NUD2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD2.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD2.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NUD2.Name = "NUD2"
         Me.NUD2.Size = New System.Drawing.Size(100, 23)
         Me.NUD2.TabIndex = 1527
@@ -395,8 +396,8 @@ Partial Class 業績獎金彙總表
         '
         Me.NUD3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD3.Location = New System.Drawing.Point(495, 575)
-        Me.NUD3.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NUD3.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD3.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD3.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NUD3.Name = "NUD3"
         Me.NUD3.Size = New System.Drawing.Size(100, 23)
         Me.NUD3.TabIndex = 1528
@@ -406,8 +407,8 @@ Partial Class 業績獎金彙總表
         '
         Me.NUD4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD4.Location = New System.Drawing.Point(651, 575)
-        Me.NUD4.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NUD4.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD4.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD4.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NUD4.Name = "NUD4"
         Me.NUD4.Size = New System.Drawing.Size(100, 23)
         Me.NUD4.TabIndex = 1529
@@ -417,8 +418,8 @@ Partial Class 業績獎金彙總表
         '
         Me.NUD5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.NUD5.Location = New System.Drawing.Point(814, 574)
-        Me.NUD5.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NUD5.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD5.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD5.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
         Me.NUD5.Name = "NUD5"
         Me.NUD5.Size = New System.Drawing.Size(100, 23)
         Me.NUD5.TabIndex = 1531
@@ -430,7 +431,7 @@ Partial Class 業績獎金彙總表
         Me.Label6.AutoSize = True
         Me.Label6.Location = New System.Drawing.Point(757, 577)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
         Me.Label6.TabIndex = 1530
         Me.Label6.Text = "運費總計"
         '
@@ -450,7 +451,7 @@ Partial Class 業績獎金彙總表
         '
         Me.列印成EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.列印成EXCEL_bt.ForeColor = System.Drawing.Color.Green
-        Me.列印成EXCEL_bt.Location = New System.Drawing.Point(466, 4)
+        Me.列印成EXCEL_bt.Location = New System.Drawing.Point(571, 4)
         Me.列印成EXCEL_bt.Name = "列印成EXCEL_bt"
         Me.列印成EXCEL_bt.Size = New System.Drawing.Size(107, 23)
         Me.列印成EXCEL_bt.TabIndex = 1533
@@ -460,9 +461,9 @@ Partial Class 業績獎金彙總表
         '未審核_lb
         '
         Me.未審核_lb.AutoSize = True
-        Me.未審核_lb.Location = New System.Drawing.Point(579, 7)
+        Me.未審核_lb.Location = New System.Drawing.Point(684, 7)
         Me.未審核_lb.Name = "未審核_lb"
-        Me.未審核_lb.Size = New System.Drawing.Size(56, 16)
+        Me.未審核_lb.Size = New System.Drawing.Size(55, 16)
         Me.未審核_lb.TabIndex = 1534
         Me.未審核_lb.Text = "業務編號"
         '
@@ -471,16 +472,28 @@ 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", "10", "11", "12", "13", "B", "Y"})
-        Me.業務_cb.Location = New System.Drawing.Point(635, 2)
+        Me.業務_cb.Location = New System.Drawing.Point(740, 2)
         Me.業務_cb.Name = "業務_cb"
         Me.業務_cb.Size = New System.Drawing.Size(46, 24)
         Me.業務_cb.TabIndex = 1535
         '
+        '重新計算_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(333, 4)
+        Me.重新計算_bt.Name = "重新計算_bt"
+        Me.重新計算_bt.Size = New System.Drawing.Size(65, 23)
+        Me.重新計算_bt.TabIndex = 1536
+        Me.重新計算_bt.Text = "重新計算"
+        Me.重新計算_bt.UseVisualStyleBackColor = True
+        '
         '業績獎金彙總表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1338, 603)
+        Me.Controls.Add(Me.重新計算_bt)
         Me.Controls.Add(Me.未審核_lb)
         Me.Controls.Add(Me.業務_cb)
         Me.Controls.Add(Me.列印成EXCEL_bt)
@@ -571,4 +584,5 @@ Partial Class 業績獎金彙總表
     Friend WithEvents 列印成EXCEL_bt As Button
     Friend WithEvents 未審核_lb As Label
     Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents 重新計算_bt As Button
 End Class

YD-ERP-SYS/財務系統管理/業績獎金彙總表.vb

@@ -526,6 +526,9 @@ Public Class 業績獎金彙總表
     Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
         計算()
     End Sub
+    Private Sub 重新計算_bt_Click(sender As Object, e As EventArgs) Handles 重新計算_bt.Click
+        日期格式() : 計算()
+    End Sub
     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
         中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
         開始日期_dtp.Value = 中間日期_dtp.Value