1、周進度表新增日期格式修正功能。

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

     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 = "2021022401"
+    Public 版本 As String = "2021022402"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

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

         Me.資料庫選擇2_bt = New System.Windows.Forms.Button()
         Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
         Me.Label20 = New System.Windows.Forms.Label()
+        Me.日期格式修正_bt = New System.Windows.Forms.Button()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
         CType(Me.訂單種類_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.驗貨報告圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         '注释_lb
         '
         Me.注释_lb.AutoSize = True
-        Me.注释_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.注释_lb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.注释_lb.ForeColor = System.Drawing.Color.Red
-        Me.注释_lb.Location = New System.Drawing.Point(12, 93)
+        Me.注释_lb.Location = New System.Drawing.Point(231, 414)
         Me.注释_lb.Name = "注释_lb"
-        Me.注释_lb.Size = New System.Drawing.Size(124, 24)
+        Me.注释_lb.Size = New System.Drawing.Size(106, 21)
         Me.注释_lb.TabIndex = 462
         Me.注释_lb.Text = "資料尚未存檔"
         Me.注释_lb.Visible = False
         '存檔_bt
         '
         Me.存檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.存檔_bt.Location = New System.Drawing.Point(12, 61)
+        Me.存檔_bt.Location = New System.Drawing.Point(126, 61)
         Me.存檔_bt.Name = "存檔_bt"
-        Me.存檔_bt.Size = New System.Drawing.Size(321, 24)
+        Me.存檔_bt.Size = New System.Drawing.Size(207, 24)
         Me.存檔_bt.TabIndex = 463
         Me.存檔_bt.Text = "Special Packaging與Remarks存檔"
         Me.存檔_bt.UseVisualStyleBackColor = True
         Me.Label20.TabIndex = 554
         Me.Label20.Text = "選擇訂" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "單品牌"
         '
+        '日期格式修正_bt
+        '
+        Me.日期格式修正_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.日期格式修正_bt.Location = New System.Drawing.Point(12, 61)
+        Me.日期格式修正_bt.Name = "日期格式修正_bt"
+        Me.日期格式修正_bt.Size = New System.Drawing.Size(108, 24)
+        Me.日期格式修正_bt.TabIndex = 557
+        Me.日期格式修正_bt.Text = "日期格式修正"
+        Me.日期格式修正_bt.UseVisualStyleBackColor = True
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(11, 91)
+        Me.ProgressBar1.Maximum = 10000
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(120, 30)
+        Me.ProgressBar1.TabIndex = 565
+        '
         '周進度表
         '
         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.ProgressBar1)
+        Me.Controls.Add(Me.日期格式修正_bt)
         Me.Controls.Add(Me.資料庫選擇2_bt)
         Me.Controls.Add(Me.資料庫選擇1_bt)
         Me.Controls.Add(Me.Label20)
     Friend WithEvents 資料庫選擇2_bt As Button
     Friend WithEvents 資料庫選擇1_bt As Button
     Friend WithEvents Label20 As Label
+    Friend WithEvents 日期格式修正_bt As Button
+    Friend WithEvents ProgressBar1 As ProgressBar
 End Class
 

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

     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
-    Dim file_name As String = ""
+    Dim file_name As String = "" : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Private Sub Set_訂單清單()
         訂單種類_dgv.DataSource = Nothing : ds.Clear()
         訂單種類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
         PA = InputBox("請輸入要查詢的資料")
         If PA = "" Then
-            Set_訂單清單() : Set_grid() : Timer1.Enabled = False
-            日期存檔_bt.Enabled = False : 存檔_bt.Enabled = False
+            Set_訂單清單() : Set_grid() : Timer1.Enabled = False : 日期存檔_bt.Enabled = False : 存檔_bt.Enabled = False
         Else
             Set_訂單清單() : Set_grid()
             If CC(37) = True Then
                                           "Requested_XF = '" & 訂單種類_dgv.Rows(i).Cells("Requested_XF").Value & "', " &
                                             "Confirm_XF = '" & 訂單種類_dgv.Rows(i).Cells("Confirm_XF").Value & "', " &
                                             "Revised_XF = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "', " &
-                                              "客戶交期 = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "' " &
-                       "WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
+                                              "客戶交期 = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "' 
+                        WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
                        "AND (顏色 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Color").Value & "') AND (楦型 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Width").Value & "') " &
                        "AND (訂單數量 = " & 訂單種類_dgv.Rows(i).Cells("QTY").Value & ")"
             End If
     Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
         SQL_訂單資料表選擇_非VIONIC() : Set_訂單清單() : Set_grid()
     End Sub
+    Private Sub 進度條()
+        平均數 = 10000 / 資料數
+        最終數 += 平均數
+        If 最終數 > 10000 Then : 最終數 = 10000 : End If
+        ProgressBar1.Value = 最終數
+    End Sub
+    Private Sub 日期格式修正_bt_Click(sender As Object, e As EventArgs) Handles 日期格式修正_bt.Click
+        Dim EU(3) As String
+        For i As Integer = 0 To 訂單種類_dgv.Rows.Count - 1
+            EU(0) = 訂單種類_dgv(1, i).Value.ToString
+            EU(1) = 訂單種類_dgv(8, i).Value.ToString
+            EU(2) = 訂單種類_dgv(9, i).Value.ToString
+            EU(3) = 訂單種類_dgv(10, i).Value.ToString
+            If EU(0) = "" Then
+            Else
+                日期1_dtp.Text = EU(0)
+                訂單種類_dgv.Rows(i).Cells(1).Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(1) = "" Then
+            Else
+                日期2_dtp.Text = EU(1)
+                訂單種類_dgv.Rows(i).Cells(8).Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(2) = "" Then
+            Else
+                日期3_dtp.Text = EU(2)
+                訂單種類_dgv.Rows(i).Cells(9).Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
+            End If
+            If EU(3) = "" Then
+            Else
+                日期4_dtp.Text = EU(3)
+                訂單種類_dgv.Rows(i).Cells(10).Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
+            End If
+        Next
+        For i As Integer = 0 To 訂單種類_dgv.Rows.Count - 1
+            資料數 = 訂單種類_dgv.Rows.Count : 進度條()
+            If 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value Is DBNull.Value Then
+                Revised_XF1_tb.Text = ""
+            Else
+                Revised_XF1_tb.Text = 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value
+            End If
+
+            ConnOpen()
+            SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 訂單種類_dgv.Rows(i).Cells("PO_S_Date").Value & "', " &
+                                          "Requested_XF = '" & 訂單種類_dgv.Rows(i).Cells("Requested_XF").Value & "', " &
+                                            "Confirm_XF = '" & 訂單種類_dgv.Rows(i).Cells("Confirm_XF").Value & "', " &
+                                            "Revised_XF = '" & 訂單種類_dgv.Rows(i).Cells("Revised_XF").Value & "' " &
+                       "WHERE (客戶訂單號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("PO#").Value & "') AND (形體號 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Style_Name").Value & "') " &
+                       "AND (顏色 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Color").Value & "') AND (楦型 LIKE '" & 訂單種類_dgv.Rows(i).Cells("Width").Value & "') " &
+                       "AND (訂單數量 = " & 訂單種類_dgv.Rows(i).Cells("QTY").Value & ")"
+            CmdSet_For_dr() : conn.Close()
+        Next i : ProgressBar1.Value = 0 : 最終數 = 0
+        MsgBox("存檔完成")
+        Set_訂單清單() : Set_grid()
+    End Sub
 End Class