版本號 : 2021092801

更新內容如下 :
1、修正中文樣品單新增顏色時會出現許多重複資料的BUG。

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

TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.vb

                             確認樣品單控制表.掛牌Date, 確認樣品單控制表.掛牌Color, 確認樣品單控制表.Material_Article, 
                             確認樣品單控制表.Construc_Name, 確認樣品單控制表.Insole, 確認樣品單控制表.Footbed, 
                             確認樣品單控制表.掛牌Size, 確認樣品單控制表.Gender, 確認樣品單控制表.Width, 確認樣品單控制表.D_C_S, 
-                            確認樣品單控制表.Stage, 確認樣品單控制表.掛牌Comments, 確認樣品單控制表.ItemNumber, STYLELIST.T1, 
-                            STYLELIST.T2, STYLELIST.WEAR_TEST, 確認樣品單控制表.CFM, STYLELIST.T3, STYLELIST.T4
+                            確認樣品單控制表.Stage, 確認樣品單控制表.掛牌Comments, 確認樣品單控制表.ItemNumber, QQ.T1, 
+                            QQ.T2, QQ.WEAR_TEST, 確認樣品單控制表.CFM, QQ.T3, QQ.T4
                    FROM     確認樣品單控制表 LEFT OUTER JOIN
-                            STYLELIST ON 確認樣品單控制表.ItemNumber = STYLELIST.ItemNumber
+                                (SELECT   ItemNumber, T1, T2, WEAR_TEST, T3, T4
+                                  FROM    STYLELIST
+                                  WHERE  (ItemNumber NOT LIKE '') AND (ItemNumber IS NOT NULL)) AS QQ ON 
+                            確認樣品單控制表.ItemNumber = QQ.ItemNumber
                    WHERE   (確認樣品單控制表.樣品流水號 LIKE '" & TextBox3.Text & "')
                    ORDER BY 確認樣品單控制表.顏色, 確認樣品單控制表.訂單顏色"
         Else
                             確認樣品單控制表暫存檔.掛牌Date, 確認樣品單控制表暫存檔.掛牌Color, 確認樣品單控制表暫存檔.Material_Article, 
                             確認樣品單控制表暫存檔.Construc_Name, 確認樣品單控制表暫存檔.Insole, 確認樣品單控制表暫存檔.Footbed, 
                             確認樣品單控制表暫存檔.掛牌Size, 確認樣品單控制表暫存檔.Gender, 確認樣品單控制表暫存檔.Width, 確認樣品單控制表暫存檔.D_C_S, 
-                            確認樣品單控制表暫存檔.Stage, 確認樣品單控制表暫存檔.掛牌Comments, 確認樣品單控制表暫存檔.ItemNumber, STYLELIST.T1, 
-                            STYLELIST.T2, STYLELIST.WEAR_TEST, 確認樣品單控制表暫存檔.CFM, STYLELIST.T3, STYLELIST.T4
+                            確認樣品單控制表暫存檔.Stage, 確認樣品單控制表暫存檔.掛牌Comments, 確認樣品單控制表暫存檔.ItemNumber, QQ.T1, 
+                            QQ.T2, QQ.WEAR_TEST, 確認樣品單控制表暫存檔.CFM, QQ.T3, QQ.T4
                    FROM     確認樣品單控制表暫存檔 LEFT OUTER JOIN
-                            STYLELIST ON 確認樣品單控制表暫存檔.ItemNumber = STYLELIST.ItemNumber
+                                (SELECT    ItemNumber, T1, T2, WEAR_TEST, T3, T4
+                                  FROM     STYLELIST
+                                  WHERE   (ItemNumber NOT LIKE '') AND (ItemNumber IS NOT NULL)) AS QQ ON 
+                            確認樣品單控制表暫存檔.ItemNumber = QQ.ItemNumber
                    WHERE   (確認樣品單控制表暫存檔.樣品流水號 LIKE '" & TextBox3.Text & "')
                    ORDER BY 確認樣品單控制表暫存檔.顏色, 確認樣品單控制表暫存檔.訂單顏色"
         End If

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

             If 客戶訂單號_tb.Text <> "" Then
                 ConnOpen()
                 SQL1 = "UPDATE " & 訂單資料表(1) & " SET 出貨地 = N'" & xlSheet.Cells(i, 2).value & "', 楦頭號 = N'" & xlSheet.Cells(i, 7).value & "',  
-                                                         材質 = N '" & xlSheet.Cells(i, 9).value & "', 工廠回復交期 = N'" & 顏色_bt.Text & "',  
-                                                         七號模具 = N '" & xlSheet.Cells(i, 13).value & "', 長期試穿 = N'" & xlSheet.Cells(i, 16).value & "', 
+                                                         材質 = N'" & xlSheet.Cells(i, 9).value & "', 工廠回復交期 = N'" & 顏色_bt.Text & "',  
+                                                         七號模具 = N'" & xlSheet.Cells(i, 13).value & "', 長期試穿 = N'" & xlSheet.Cells(i, 16).value & "', 
                                                          面料 = N'" & xlSheet.Cells(i, 21).value & "', 副料 = N'" & xlSheet.Cells(i, 22).value & "', 
                                                          中底 = N'" & xlSheet.Cells(i, 23).value & "', 鞋墊 = N'" & xlSheet.Cells(i, 24).value & "', 
                                                          大底 = N'" & xlSheet.Cells(i, 25).value & "', 跟 = N'" & xlSheet.Cells(i, 26).value & "',