版本號 : 2021030801

更新內容如下
1、訂單執行輸入，優化客戶交期與接單日修改功能
2、新增日期BUG修正功能

TENDEN-MES-SYS/Module/全域變數.vb

@@ -4,7 +4,7 @@
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021030501"
+    Public 版本 As String = "2021030801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-6d0fdce5cb2e0b53964df67f907ecf468459564a
+419f880514de2839daa27484b25eee5ec80131db

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt

@@ -342,3 +342,4 @@ D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CopyCom
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
+D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料日期除錯.resources

TENDEN-MES-SYS/天盾系統.vbproj

@@ -101,6 +101,12 @@
   <ItemGroup>
     <Compile Include="Module\SQL_Module.vb" />
     <Compile Include="Module\SQL_量產訂單資料庫切換.vb" />
+    <Compile Include="量產訂單管理\業務資料日期除錯.Designer.vb">
+      <DependentUpon>業務資料日期除錯.vb</DependentUpon>
+    </Compile>
+    <Compile Include="量產訂單管理\業務資料日期除錯.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="量產訂單管理\訂單資料匯入-力威.Designer.vb">
       <DependentUpon>訂單資料匯入-力威.vb</DependentUpon>
     </Compile>
@@ -708,6 +714,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="量產訂單管理\業務資料日期除錯.resx">
+      <DependentUpon>業務資料日期除錯.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="量產訂單管理\訂單資料匯入-力威.resx">
       <DependentUpon>訂單資料匯入-力威.vb</DependentUpon>
     </EmbeddedResource>

TENDEN-MES-SYS/量產訂單管理/周進度表.Designer.vb

@@ -28,7 +28,7 @@ Partial Class 周進度表
         Me.導入Excel_bt = New System.Windows.Forms.Button()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.生產工廠_tb = New System.Windows.Forms.TextBox()
-        Me.客戶訂單號_tb = New System.Windows.Forms.TextBox()
+        Me.接單日期_tb = New System.Windows.Forms.TextBox()
         Me.形體號_tb = New System.Windows.Forms.TextBox()
         Me.顏色_tb = New System.Windows.Forms.TextBox()
         Me.Revised_XF_tb = New System.Windows.Forms.TextBox()
@@ -43,11 +43,9 @@ Partial Class 周進度表
         Me.日期存檔_bt = New System.Windows.Forms.Button()
         Me.存檔_bt = New System.Windows.Forms.Button()
         Me.Revised_XF1_tb = New System.Windows.Forms.TextBox()
-        Me.圖片_pb = New System.Windows.Forms.PictureBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Button20 = New System.Windows.Forms.Button()
-        Me.驗貨報告圖片_pb = New System.Windows.Forms.PictureBox()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.Button7 = New System.Windows.Forms.Button()
@@ -57,9 +55,11 @@ Partial Class 周進度表
         Me.Label20 = New System.Windows.Forms.Label()
         Me.日期格式修正_bt = New System.Windows.Forms.Button()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.驗貨報告圖片_pb = New System.Windows.Forms.PictureBox()
+        Me.圖片_pb = New System.Windows.Forms.PictureBox()
         CType(Me.訂單種類_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.驗貨報告圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '訂單種類_dgv
@@ -104,12 +104,12 @@ Partial Class 周進度表
         Me.生產工廠_tb.Size = New System.Drawing.Size(129, 23)
         Me.生產工廠_tb.TabIndex = 327
         '
-        '客戶訂單號_tb
+        '接單日期_tb
         '
-        Me.客戶訂單號_tb.Location = New System.Drawing.Point(147, 413)
-        Me.客戶訂單號_tb.Name = "客戶訂單號_tb"
-        Me.客戶訂單號_tb.Size = New System.Drawing.Size(84, 23)
-        Me.客戶訂單號_tb.TabIndex = 328
+        Me.接單日期_tb.Location = New System.Drawing.Point(147, 413)
+        Me.接單日期_tb.Name = "接單日期_tb"
+        Me.接單日期_tb.Size = New System.Drawing.Size(84, 23)
+        Me.接單日期_tb.TabIndex = 328
         '
         '形體號_tb
         '
@@ -227,16 +227,6 @@ Partial Class 周進度表
         Me.Revised_XF1_tb.Size = New System.Drawing.Size(52, 23)
         Me.Revised_XF1_tb.TabIndex = 464
         '
-        '圖片_pb
-        '
-        Me.圖片_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.圖片_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.圖片_pb.Location = New System.Drawing.Point(12, 127)
-        Me.圖片_pb.Name = "圖片_pb"
-        Me.圖片_pb.Size = New System.Drawing.Size(321, 231)
-        Me.圖片_pb.TabIndex = 501
-        Me.圖片_pb.TabStop = False
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
@@ -270,16 +260,6 @@ Partial Class 周進度表
         Me.Button20.Text = "驗貨報告大圖"
         Me.Button20.UseVisualStyleBackColor = True
         '
-        '驗貨報告圖片_pb
-        '
-        Me.驗貨報告圖片_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.驗貨報告圖片_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.驗貨報告圖片_pb.Location = New System.Drawing.Point(12, 474)
-        Me.驗貨報告圖片_pb.Name = "驗貨報告圖片_pb"
-        Me.驗貨報告圖片_pb.Size = New System.Drawing.Size(321, 434)
-        Me.驗貨報告圖片_pb.TabIndex = 509
-        Me.驗貨報告圖片_pb.TabStop = False
-        '
         'Button5
         '
         Me.Button5.Location = New System.Drawing.Point(175, 961)
@@ -361,17 +341,37 @@ Partial Class 周進度表
         Me.ProgressBar1.Size = New System.Drawing.Size(120, 30)
         Me.ProgressBar1.TabIndex = 565
         '
+        '驗貨報告圖片_pb
+        '
+        Me.驗貨報告圖片_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.驗貨報告圖片_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.驗貨報告圖片_pb.Location = New System.Drawing.Point(12, 474)
+        Me.驗貨報告圖片_pb.Name = "驗貨報告圖片_pb"
+        Me.驗貨報告圖片_pb.Size = New System.Drawing.Size(321, 434)
+        Me.驗貨報告圖片_pb.TabIndex = 509
+        Me.驗貨報告圖片_pb.TabStop = False
+        '
+        '圖片_pb
+        '
+        Me.圖片_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.圖片_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.圖片_pb.Location = New System.Drawing.Point(12, 127)
+        Me.圖片_pb.Name = "圖片_pb"
+        Me.圖片_pb.Size = New System.Drawing.Size(321, 231)
+        Me.圖片_pb.TabIndex = 501
+        Me.圖片_pb.TabStop = False
+        '
         '周進度表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 991)
+        Me.Controls.Add(Me.驗貨報告圖片_pb)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.日期格式修正_bt)
         Me.Controls.Add(Me.資料庫選擇2_bt)
         Me.Controls.Add(Me.資料庫選擇1_bt)
         Me.Controls.Add(Me.Label20)
-        Me.Controls.Add(Me.驗貨報告圖片_pb)
         Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button7)
@@ -393,7 +393,7 @@ Partial Class 周進度表
         Me.Controls.Add(Me.Revised_XF_tb)
         Me.Controls.Add(Me.顏色_tb)
         Me.Controls.Add(Me.形體號_tb)
-        Me.Controls.Add(Me.客戶訂單號_tb)
+        Me.Controls.Add(Me.接單日期_tb)
         Me.Controls.Add(Me.生產工廠_tb)
         Me.Controls.Add(Me.導入Excel_bt)
         Me.Controls.Add(Me.列印_bt)
@@ -403,8 +403,8 @@ Partial Class 周進度表
         Me.Name = "周進度表"
         Me.Text = "周進度表"
         CType(Me.訂單種類_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.驗貨報告圖片_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -415,7 +415,7 @@ Partial Class 周進度表
     Friend WithEvents 導入Excel_bt As Button
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
     Friend WithEvents 生產工廠_tb As TextBox
-    Friend WithEvents 客戶訂單號_tb As TextBox
+    Friend WithEvents 接單日期_tb As TextBox
     Friend WithEvents 形體號_tb As TextBox
     Friend WithEvents 顏色_tb As TextBox
     Friend WithEvents Revised_XF_tb As TextBox

TENDEN-MES-SYS/量產訂單管理/周進度表.vb

@@ -57,14 +57,14 @@ Public Class 周進度表
     Private Sub Set_excel導入()
         For i As Integer = 4 To 99999
             生產工廠_tb.Text = xlSheet.Cells(i, 4).value
-            客戶訂單號_tb.Text = xlSheet.Cells(i, 2).value : If 客戶訂單號_tb.Text = "" Then : Else : 客戶訂單號_tb.Text = Format(xlSheet.Cells(i, 2).value, "yyyy/MM/dd") : End If
+            接單日期_tb.Text = xlSheet.Cells(i, 2).value : If 接單日期_tb.Text = "" Then : Else : 接單日期_tb.Text = Format(xlSheet.Cells(i, 2).value, "yyyy/MM/dd") : End If
             形體號_tb.Text = xlSheet.Cells(i, 9).value : If 形體號_tb.Text = "" Then : Else : 形體號_tb.Text = Format(xlSheet.Cells(i, 9).value, "yyyy/MM/dd") : End If
             顏色_tb.Text = xlSheet.Cells(i, 10).value : If 顏色_tb.Text = "" Then : Else : 顏色_tb.Text = Format(xlSheet.Cells(i, 10).value, "yyyy/MM/dd") : End If
             Revised_XF_tb.Text = xlSheet.Cells(i, 11).value : If Revised_XF_tb.Text = "" Then : Else : Revised_XF_tb.Text = Format(xlSheet.Cells(i, 11).value, "yyyy/MM/dd") : End If
             If 生產工廠_tb.Text <> "" Then
                 If gUserName = "李協叡" Then
                     ConnOpen()
-                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 客戶訂單號_tb.Text & "', Requested_XF = '" & 形體號_tb.Text & "', Confirm_XF = '" & 顏色_tb.Text & "', 
+                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 接單日期_tb.Text & "', Requested_XF = '" & 形體號_tb.Text & "', Confirm_XF = '" & 顏色_tb.Text & "', 
                             Revised_XF = '" & Revised_XF_tb.Text & "'," &
                            "裁斷時間 = '" & xlSheet.Cells(i, 12).value & "', 針車時間 = '" & xlSheet.Cells(i, 13).value & "', " &
                            "成型時間 = '" & xlSheet.Cells(i, 14).value & "', Special_Packaging = '" & xlSheet.Cells(i, 15).value & "', Remarks = '" & xlSheet.Cells(i, 16).value & "' " &
@@ -90,7 +90,7 @@ Public Class 周進度表
         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         訂單資料庫選擇.ShowDialog()
 
-        生產工廠_tb.Enabled = False : 客戶訂單號_tb.Enabled = False : 形體號_tb.Enabled = False : 顏色_tb.Enabled = False : Revised_XF_tb.Enabled = False : 楦型_tb.Enabled = False
+        生產工廠_tb.Enabled = False : 接單日期_tb.Enabled = False : 形體號_tb.Enabled = False : 顏色_tb.Enabled = False : Revised_XF_tb.Enabled = False : 楦型_tb.Enabled = False
         日期1_dtp.Visible = False : 日期2_dtp.Visible = False : 日期3_dtp.Visible = False : 日期4_dtp.Visible = False
         日期存檔_bt.Enabled = False : 存檔_bt.Enabled = False
         If CC(36) = True Then : 導入Excel_bt.Enabled = True : Else : 導入Excel_bt.Enabled = False : End If

TENDEN-MES-SYS/量產訂單管理/業務資料庫管理.Designer.vb

@@ -22,14 +22,14 @@ Partial Class 業務資料庫管理
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.訂單控制表暫存檔_dgv = New System.Windows.Forms.DataGridView()
         Me.訂單明細表暫存檔_dgv = New System.Windows.Forms.DataGridView()
         Me.訂單流水號暫存檔1_dgv = New System.Windows.Forms.DataGridView()
@@ -73,6 +73,7 @@ Partial Class 業務資料庫管理
         Me.修改_bt = New System.Windows.Forms.Button()
         Me.Label18 = New System.Windows.Forms.Label()
         Me.訂單流水號暫存檔2_dgv = New System.Windows.Forms.DataGridView()
+        Me.Button1 = New System.Windows.Forms.Button()
         CType(Me.訂單控制表暫存檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單明細表暫存檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單流水號暫存檔1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -85,8 +86,8 @@ Partial Class 業務資料庫管理
         '
         '訂單控制表暫存檔_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單控制表暫存檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單控制表暫存檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.訂單控制表暫存檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單控制表暫存檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單控制表暫存檔_dgv.Location = New System.Drawing.Point(155, 197)
@@ -98,8 +99,8 @@ Partial Class 業務資料庫管理
         '
         '訂單明細表暫存檔_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單明細表暫存檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單明細表暫存檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.訂單明細表暫存檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單明細表暫存檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單明細表暫存檔_dgv.Location = New System.Drawing.Point(155, 607)
@@ -111,8 +112,8 @@ Partial Class 業務資料庫管理
         '
         '訂單流水號暫存檔1_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單流水號暫存檔1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單流水號暫存檔1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.訂單流水號暫存檔1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單流水號暫存檔1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單流水號暫存檔1_dgv.Location = New System.Drawing.Point(4, 22)
@@ -124,8 +125,8 @@ Partial Class 業務資料庫管理
         '
         '訂單控制表比對訂單明細表差異資料_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單控制表比對訂單明細表差異資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單控制表比對訂單明細表差異資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         Me.訂單控制表比對訂單明細表差異資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單控制表比對訂單明細表差異資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單控制表比對訂單明細表差異資料_dgv.Location = New System.Drawing.Point(385, 25)
@@ -137,8 +138,8 @@ Partial Class 業務資料庫管理
         '
         '已使用的天盾流水號_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.已使用的天盾流水號_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.已使用的天盾流水號_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.已使用的天盾流水號_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.已使用的天盾流水號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.已使用的天盾流水號_dgv.Location = New System.Drawing.Point(4, 227)
@@ -348,8 +349,8 @@ Partial Class 業務資料庫管理
         '
         '訂單明細表修改紀錄_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單明細表修改紀錄_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單明細表修改紀錄_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.訂單明細表修改紀錄_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單明細表修改紀錄_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單明細表修改紀錄_dgv.Location = New System.Drawing.Point(1612, 31)
@@ -413,8 +414,8 @@ Partial Class 業務資料庫管理
         '
         '訂單控制表修改紀錄_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單控制表修改紀錄_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單控制表修改紀錄_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         Me.訂單控制表修改紀錄_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單控制表修改紀錄_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單控制表修改紀錄_dgv.Location = New System.Drawing.Point(1316, 31)
@@ -478,8 +479,8 @@ Partial Class 業務資料庫管理
         '
         '訂單流水號暫存檔2_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單流水號暫存檔2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單流水號暫存檔2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
         Me.訂單流水號暫存檔2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訂單流水號暫存檔2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單流水號暫存檔2_dgv.Location = New System.Drawing.Point(155, 22)
@@ -489,11 +490,21 @@ Partial Class 業務資料庫管理
         Me.訂單流水號暫存檔2_dgv.Size = New System.Drawing.Size(145, 127)
         Me.訂單流水號暫存檔2_dgv.TabIndex = 110
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(306, 22)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(73, 50)
+        Me.Button1.TabIndex = 112
+        Me.Button1.Text = "日期除錯"
+        Me.Button1.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(1914, 991)
+        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Label18)
         Me.Controls.Add(Me.訂單流水號暫存檔2_dgv)
         Me.Controls.Add(Me.修改_bt)
@@ -597,5 +608,6 @@ Partial Class 業務資料庫管理
     Friend WithEvents 訂單明細表修改紀錄查詢_bt As Button
     Friend WithEvents Label18 As Label
     Friend WithEvents 訂單流水號暫存檔2_dgv As DataGridView
+    Friend WithEvents Button1 As Button
 End Class
 

TENDEN-MES-SYS/量產訂單管理/業務資料庫管理.vb

@@ -289,4 +289,8 @@ Public Class 業務資料庫管理
         End If : conn.Close()
         MsgBox("修改完成")
     End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        業務資料日期除錯.ShowDialog()
+    End Sub
 End Class

TENDEN-MES-SYS/量產訂單管理/業務資料日期除錯.Designer.vb

@@ -0,0 +1,144 @@
+<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()
+        Me.除錯_dgv = New System.Windows.Forms.DataGridView()
+        Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期4_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期3_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期2_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期5_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '除錯_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.除錯_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.除錯_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.除錯_dgv.Location = New System.Drawing.Point(14, 16)
+        Me.除錯_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.除錯_dgv.Name = "除錯_dgv"
+        Me.除錯_dgv.RowHeadersWidth = 5
+        Me.除錯_dgv.RowTemplate.Height = 24
+        Me.除錯_dgv.Size = New System.Drawing.Size(1492, 616)
+        Me.除錯_dgv.TabIndex = 758
+        '
+        '日期1_dtp
+        '
+        Me.日期1_dtp.Enabled = False
+        Me.日期1_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期1_dtp.Location = New System.Drawing.Point(747, 333)
+        Me.日期1_dtp.Name = "日期1_dtp"
+        Me.日期1_dtp.Size = New System.Drawing.Size(24, 23)
+        Me.日期1_dtp.TabIndex = 759
+        '
+        '日期4_dtp
+        '
+        Me.日期4_dtp.Enabled = False
+        Me.日期4_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期4_dtp.Location = New System.Drawing.Point(837, 333)
+        Me.日期4_dtp.Name = "日期4_dtp"
+        Me.日期4_dtp.Size = New System.Drawing.Size(24, 23)
+        Me.日期4_dtp.TabIndex = 762
+        '
+        '日期3_dtp
+        '
+        Me.日期3_dtp.Enabled = False
+        Me.日期3_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期3_dtp.Location = New System.Drawing.Point(807, 333)
+        Me.日期3_dtp.Name = "日期3_dtp"
+        Me.日期3_dtp.Size = New System.Drawing.Size(24, 23)
+        Me.日期3_dtp.TabIndex = 761
+        '
+        '日期2_dtp
+        '
+        Me.日期2_dtp.Enabled = False
+        Me.日期2_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期2_dtp.Location = New System.Drawing.Point(777, 333)
+        Me.日期2_dtp.Name = "日期2_dtp"
+        Me.日期2_dtp.Size = New System.Drawing.Size(24, 23)
+        Me.日期2_dtp.TabIndex = 760
+        '
+        '日期5_dtp
+        '
+        Me.日期5_dtp.Enabled = False
+        Me.日期5_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期5_dtp.Location = New System.Drawing.Point(867, 333)
+        Me.日期5_dtp.Name = "日期5_dtp"
+        Me.日期5_dtp.Size = New System.Drawing.Size(24, 23)
+        Me.日期5_dtp.TabIndex = 763
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(14, 657)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(1492, 25)
+        Me.Button1.TabIndex = 764
+        Me.Button1.Text = "日期除錯"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(14, 635)
+        Me.ProgressBar1.Maximum = 10000
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(1492, 20)
+        Me.ProgressBar1.TabIndex = 765
+        '
+        '業務資料日期除錯
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1518, 688)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.除錯_dgv)
+        Me.Controls.Add(Me.日期5_dtp)
+        Me.Controls.Add(Me.日期4_dtp)
+        Me.Controls.Add(Me.日期3_dtp)
+        Me.Controls.Add(Me.日期2_dtp)
+        Me.Controls.Add(Me.日期1_dtp)
+        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.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "業務資料日期除錯"
+        CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents 除錯_dgv As DataGridView
+    Friend WithEvents 日期1_dtp As DateTimePicker
+    Friend WithEvents 日期4_dtp As DateTimePicker
+    Friend WithEvents 日期3_dtp As DateTimePicker
+    Friend WithEvents 日期2_dtp As DateTimePicker
+    Friend WithEvents 日期5_dtp As DateTimePicker
+    Friend WithEvents Button1 As Button
+    Friend WithEvents ProgressBar1 As ProgressBar
+End Class

TENDEN-MES-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>

TENDEN-MES-SYS/量產訂單管理/業務資料日期除錯.vb

@@ -0,0 +1,72 @@
+Public Class 業務資料日期除錯
+    ReadOnly ds5 As New DataSet : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
+    Private Sub Set_客戶交期除錯()
+        除錯_dgv.DataSource = Nothing : ds5.Clear()
+        除錯_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        除錯_dgv.ColumnHeadersHeight = 25
+        除錯_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT          客戶交期, 工廠回復交期, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, 客戶交期 AS A1, 工廠回復交期 AS A2, PO_S_Date AS A3, Requested_XF AS A4, Confirm_XF AS A5, 
+                                Revised_XF AS A6, 資料流水號, 力威訂單號
+                FROM            " & 訂單資料表(1) & "
+                WHERE          ((LEN(客戶交期) < 10) OR (LEN(工廠回復交期) < 10) OR (LEN(PO_S_Date) < 10) OR (LEN(Requested_XF) < 10) OR (LEN(Confirm_XF) < 10) OR (LEN(Revised_XF) < 10)) AND 
+                                力威訂單號 NOT LIKE ''"
+        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 除錯_dgv.DataSource = ds5.Tables(0) : conn.Close()
+    End Sub
+    Private Sub 業務資料日期除錯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        訂單資料庫選擇.ShowDialog()
+        Set_客戶交期除錯()
+        Dim EU(4) As String
+        For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
+            EU(0) = 除錯_dgv(0, I).Value.ToString
+            EU(1) = 除錯_dgv(1, I).Value.ToString
+            EU(2) = 除錯_dgv(2, I).Value.ToString
+            EU(3) = 除錯_dgv(3, I).Value.ToString
+            EU(4) = 除錯_dgv(4, I).Value.ToString
+
+            If EU(0) = "" Then
+            Else
+                日期1_dtp.Text = EU(0)
+                除錯_dgv.Rows(I).Cells(6).Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(1) = "" Then
+            Else
+                日期2_dtp.Text = EU(1)
+                除錯_dgv.Rows(I).Cells(7).Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(2) = "" Then
+            Else
+                日期3_dtp.Text = EU(2)
+                除錯_dgv.Rows(I).Cells(8).Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(3) = "" Then
+            Else
+                日期4_dtp.Text = EU(3)
+                除錯_dgv.Rows(I).Cells(9).Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(4) = "" Then
+            Else
+                日期5_dtp.Text = EU(4)
+                除錯_dgv.Rows(I).Cells(10).Value = Format(日期5_dtp.Value, "yyyy/MM/dd")
+            End If
+        Next
+    End Sub
+    Private Sub 進度條()
+        平均數 = 10000 / 資料數
+        最終數 += 平均數
+        If 最終數 > 10000 Then : 最終數 = 10000 : End If
+        ProgressBar1.Value = 最終數
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
+            資料數 = 除錯_dgv.Rows.Count : 進度條()
+            ConnOpen()
+            SQL1 = "UPDATE " & 訂單資料表(1) & " SET 客戶交期 = '" & 除錯_dgv("A1", I).Value.ToString & "', 工廠回復交期 = '" & 除錯_dgv("A2", I).Value.ToString & "', 
+                                          PO_S_Date = '" & 除錯_dgv("A3", I).Value.ToString & "', Requested_XF  = '" & 除錯_dgv("A4", I).Value.ToString & "', 
+                                          Confirm_XF = '" & 除錯_dgv("A5", I).Value.ToString & "', Revised_XF = '" & 除錯_dgv("A6", I).Value.ToString & "' 
+                    WHERE (資料流水號 = '" & 除錯_dgv("資料流水號", I).Value.ToString & "')"
+            CmdSet_For_dr() : conn.Close()
+        Next : ProgressBar1.Value = 0 : 最終數 = 0
+        MsgBox("完成")
+    End Sub
+End Class

TENDEN-MES-SYS/量產訂單管理/訂單執行資訊輸入.Designer.vb

@@ -50,6 +50,7 @@ Partial Class 訂單執行資訊輸入
         Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.EXCEL檔案導入1_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.圖片庫_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -237,7 +238,7 @@ Partial Class 訂單執行資訊輸入
         '
         'EXCEL檔案導入_bt
         '
-        Me.EXCEL檔案導入_bt.Location = New System.Drawing.Point(752, 97)
+        Me.EXCEL檔案導入_bt.Location = New System.Drawing.Point(752, 80)
         Me.EXCEL檔案導入_bt.Name = "EXCEL檔案導入_bt"
         Me.EXCEL檔案導入_bt.Size = New System.Drawing.Size(346, 30)
         Me.EXCEL檔案導入_bt.TabIndex = 515
@@ -258,7 +259,7 @@ Partial Class 訂單執行資訊輸入
         '
         '資料庫選擇2_bt
         '
-        Me.資料庫選擇2_bt.Location = New System.Drawing.Point(870, 63)
+        Me.資料庫選擇2_bt.Location = New System.Drawing.Point(870, 49)
         Me.資料庫選擇2_bt.Name = "資料庫選擇2_bt"
         Me.資料庫選擇2_bt.Size = New System.Drawing.Size(75, 30)
         Me.資料庫選擇2_bt.TabIndex = 562
@@ -267,7 +268,7 @@ Partial Class 訂單執行資訊輸入
         '
         '資料庫選擇1_bt
         '
-        Me.資料庫選擇1_bt.Location = New System.Drawing.Point(792, 63)
+        Me.資料庫選擇1_bt.Location = New System.Drawing.Point(792, 49)
         Me.資料庫選擇1_bt.Name = "資料庫選擇1_bt"
         Me.資料庫選擇1_bt.Size = New System.Drawing.Size(75, 30)
         Me.資料庫選擇1_bt.TabIndex = 561
@@ -277,7 +278,7 @@ Partial Class 訂單執行資訊輸入
         'Label20
         '
         Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(749, 62)
+        Me.Label20.Location = New System.Drawing.Point(749, 48)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(44, 32)
         Me.Label20.TabIndex = 560
@@ -285,18 +286,29 @@ Partial Class 訂單執行資訊輸入
         '
         'EXCEL檔案導入1_bt
         '
-        Me.EXCEL檔案導入1_bt.Location = New System.Drawing.Point(752, 129)
+        Me.EXCEL檔案導入1_bt.Location = New System.Drawing.Point(752, 112)
         Me.EXCEL檔案導入1_bt.Name = "EXCEL檔案導入1_bt"
         Me.EXCEL檔案導入1_bt.Size = New System.Drawing.Size(346, 30)
         Me.EXCEL檔案導入1_bt.TabIndex = 563
-        Me.EXCEL檔案導入1_bt.Text = "EXCEL檔案導入-依據力威訂單號更新交期" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.EXCEL檔案導入1_bt.Text = "EXCEL檔案導入-依據力威訂單號更新交期、與接單日。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.EXCEL檔案導入1_bt.UseVisualStyleBackColor = True
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Location = New System.Drawing.Point(755, 145)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(233, 16)
+        Me.Label1.TabIndex = 564
+        Me.Label1.Text = "導入格式 : 力威訂單號、客戶交期、接單日"
+        '
         '訂單執行資訊輸入
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 991)
+        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.EXCEL檔案導入1_bt)
         Me.Controls.Add(Me.資料庫選擇2_bt)
         Me.Controls.Add(Me.資料庫選擇1_bt)
@@ -360,5 +372,6 @@ Partial Class 訂單執行資訊輸入
     Friend WithEvents 資料庫選擇1_bt As Button
     Friend WithEvents Label20 As Label
     Friend WithEvents EXCEL檔案導入1_bt As Button
+    Friend WithEvents Label1 As Label
 End Class
 

TENDEN-MES-SYS/量產訂單管理/訂單執行資訊輸入.vb

@@ -262,7 +262,7 @@ Public Class 訂單執行資訊輸入
                     If dr.Read() Then
                         conn.Close()
                         ConnOpen()
-                        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 客戶交期 = '" & xlSheet.Cells(YY, 2).value & "', PO_S_Date = '" & xlSheet.Cells(YY, 2).value & "', 
+                        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 客戶交期 = '" & xlSheet.Cells(YY, 2).value & "', PO_S_Date = '" & xlSheet.Cells(YY, 3).value & "', 
                                                              Requested_XF = '" & xlSheet.Cells(YY, 2).value & "', Confirm_XF = '" & xlSheet.Cells(YY, 2).value & "' 
                                 WHERE 力威訂單號 LIKE '" & xlSheet.Cells(YY, 1).value & "'"
                         CmdSet_For_dr() : conn.Close() : 次數 += 1

TENDEN-MES-SYS/量產訂單管理/訂單控制表.vb

@@ -1024,25 +1024,25 @@ Public Class 訂單控制表
         Set_格式設定() : Set_訂單清單() : Set_自動彙總1() : Set_grid()
         ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入()
 
-        Set_客戶交期除錯()
-        If 除錯_dgv.Rows.Count > 0 Then
-            For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
-                If IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
-                    除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/0" &
-                        Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
-                ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = True And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
-                    除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 2) & "/0" &
-                        Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
-                    除錯_dgv("後段", I).Value = "2021/" & Strings.Left(除錯_dgv("前段", I).Value.ToString, 2) & "/0" & Strings.Right(除錯_dgv("前段", I).Value.ToString, 1)
-                ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = True Then
-                    除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/" &
-                        Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)
-                End If
-                ConnOpen()
-                SQL1 = "UPDATE 訂單控制表 SET 客戶交期 = '" & 除錯_dgv("後段", I).Value.ToString & "' WHERE (資料流水號 = '" & 除錯_dgv("資料流水號", I).Value.ToString & "')"
-                CmdSet_For_dr() : conn.Close()
-            Next
-        End If
+        'Set_客戶交期除錯()
+        'If 除錯_dgv.Rows.Count > 0 Then
+        '    For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
+        '        If IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
+        '            除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/0" &
+        '                Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
+        '        ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = True And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
+        '            除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 2) & "/0" &
+        '                Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
+        '            除錯_dgv("後段", I).Value = "2021/" & Strings.Left(除錯_dgv("前段", I).Value.ToString, 2) & "/0" & Strings.Right(除錯_dgv("前段", I).Value.ToString, 1)
+        '        ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = True Then
+        '            除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/" &
+        '                Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)
+        '        End If
+        '        ConnOpen()
+        '        SQL1 = "UPDATE 訂單控制表 SET 客戶交期 = '" & 除錯_dgv("後段", I).Value.ToString & "' WHERE (資料流水號 = '" & 除錯_dgv("資料流水號", I).Value.ToString & "')"
+        '        CmdSet_For_dr() : conn.Close()
+        '    Next
+        'End If
     End Sub
     Private Sub 訂單控制表_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
         frmOpenFlag = False