20210803備份

SHENKANG-MES-SYS/MyModule/全域變數.vb

@@ -9,7 +9,7 @@
                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021040501"
+    Public 版本 As String = "20210080301"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>h9Y/ERhZYaNBBMnF0LlGPDyrWr6wwM3ahmd6MrZdoF0=</dsig:DigestValue>
+        <dsig:DigestValue>s9dkK10jsEi34BwIafcinxQwl1dsPhVnrRg8pn35gqY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -50,7 +50,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>ddOzFmr7mBYpsrnXeky5WrEHkGgw7mxRfUESryNlqTA=</dsig:DigestValue>
+        <dsig:DigestValue>uAsX+jjdCcCZfJTO0LYPAovdHDCYv9WI0XZWR4oxbvo=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>h9Y/ERhZYaNBBMnF0LlGPDyrWr6wwM3ahmd6MrZdoF0=</dsig:DigestValue>
+        <dsig:DigestValue>s9dkK10jsEi34BwIafcinxQwl1dsPhVnrRg8pn35gqY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -50,7 +50,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>ddOzFmr7mBYpsrnXeky5WrEHkGgw7mxRfUESryNlqTA=</dsig:DigestValue>
+        <dsig:DigestValue>uAsX+jjdCcCZfJTO0LYPAovdHDCYv9WI0XZWR4oxbvo=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/請採購館洗系統/供應商管理(製鞋樣品).vb

@@ -123,8 +123,8 @@ Public Class 供應商管理_製鞋樣品
         End If
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        If conn.State = ConnectionState.Closed Then : conn.Open() : End If
-        SQL1 = "UPDATE    供應商清單 SET 廠商 = N'" & TextBox2.Text & "', 公司名 = N'" & TextBox3.Text & "', 公司地址 = N'" & TextBox4.Text &
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.Open() : End If
+        SQL1 = "UPDATE    供應商清單 SET 公司名 = N'" & TextBox3.Text & "', 公司地址 = N'" & TextBox4.Text &
                "', 公司電話1 = N'" & TextBox5.Text & "', 公司電話2 = N'" & TextBox6.Text & "', 公司電話3 = N'" & TextBox7.Text & "', 公司傳真1 = N'" & TextBox8.Text &
                "', 公司傳真2 = N'" & TextBox9.Text & "', 公司傳真3 = N'" & ComboBox1.Text & "', 聯繫人1 = N'" & TextBox11.Text & "', 聯繫人2 = N'" & TextBox12.Text &
                "', 聯繫人3 = N'" & TextBox13.Text & "', 聯繫人1職稱 = N'" & TextBox14.Text & "', 聯繫人2職稱 = N'" & TextBox15.Text & "', 聯繫人3職稱 = N'" & TextBox16.Text &
@@ -141,17 +141,24 @@ Public Class 供應商管理_製鞋樣品
         TextBox21.Enabled = False : TextBox22.Enabled = False : TextBox23.Enabled = False
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        SQL1 = "DELETE FROM 供應商清單 WHERE (供應商編碼 = '" & TextBox1.Text & "')"
-        cmd.CommandText = SQL1 : cmd.Connection = conn
         If conn.State = ConnectionState.Closed Then : conn.Open() : End If
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            cmd.ExecuteNonQuery() : conn.Close()
-            Set_日期格式轉換()
-            MsgBox("刪除完成")
-            讀取供應商料表() : Set_grid()
-        End If
+        SQL1 = "SELECT 廠商 FROM 樣品訂單部件表 WHERE (廠商 = N'" & TextBox2.Text & "')"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : dr = cmd.ExecuteReader
+        If dr.Read() Then
+            MsgBox("該廠商已經有資料引用不可刪除?")
+        Else
+            conn.Close()
+            Dim aa As MsgBoxResult
+            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+            If aa = MsgBoxResult.Ok Then
+                If conn.State = ConnectionState.Closed Then : conn.Open() : End If
+                SQL1 = "DELETE FROM 供應商清單 WHERE (供應商編碼 = '" & TextBox1.Text & "')"
+                cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+                Set_日期格式轉換()
+                MsgBox("刪除完成")
+                讀取供應商料表() : Set_grid()
+            End If
+        End If : conn.Close()
     End Sub
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         PA = InputBox("請輸入要查詢的供應商資料") : 讀取供應商料表() : Set_grid() : PA = ""
@@ -161,7 +168,7 @@ Public Class 供應商管理_製鞋樣品
     End Sub
     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
         Button5.Enabled = False : Button1.Enabled = False : Button7.Enabled = False : Button2.Enabled = True : Button3.Enabled = False
-        TextBox2.Enabled = True : TextBox3.Enabled = True : TextBox4.Enabled = True : TextBox5.Enabled = True : TextBox6.Enabled = True : TextBox7.Enabled = True : TextBox8.Enabled = True
+        TextBox3.Enabled = True : TextBox4.Enabled = True : TextBox5.Enabled = True : TextBox6.Enabled = True : TextBox7.Enabled = True : TextBox8.Enabled = True
         TextBox9.Enabled = True : ComboBox1.Enabled = True : TextBox11.Enabled = True : TextBox12.Enabled = True : TextBox13.Enabled = True : TextBox14.Enabled = True : TextBox15.Enabled = True
         TextBox16.Enabled = True : TextBox17.Enabled = True : TextBox18.Enabled = True : TextBox19.Enabled = True : TextBox21.Enabled = True : TextBox22.Enabled = True : TextBox23.Enabled = True
     End Sub

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單控制表.vb

@@ -511,11 +511,11 @@ Public Class 量產訂單控制表
                        "','" & 控制表_dgv.Rows(I).Cells("年份季度").Value & "','" & 控制表_dgv.Rows(I).Cells("客戶訂單號").Value &
                        "','" & 控制表_dgv.Rows(I).Cells("型體名稱").Value & "','" & 控制表_dgv.Rows(I).Cells("顏色").Value &
                        "','" & 控制表_dgv.Rows(I).Cells("楦型").Value & "','" & 控制表_dgv.Rows(I).Cells("訂單數量").Value &
-                       "','" & 控制表_dgv.Rows(I).Cells("訂單數量").Value & "', '', '" & Format(Today(), "yyyy/MM/dd") & "', '', '', '')"
+                       "','" & 控制表_dgv.Rows(I).Cells("訂單數量").Value & "', '', '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', '', '', '')"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
 
                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                    SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(Today(), "yyyy/MM/dd") & "', 出貨數量 = '" & 控制表_dgv.Rows(I).Cells("訂單數量").Value & "' " &
+                    SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', 出貨數量 = '" & 控制表_dgv.Rows(I).Cells("訂單數量").Value & "' " &
                        "WHERE (資料流水號 = '" & 控制表_dgv.Rows(I).Cells("資料流水號").Value & "')"
                     cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                     SD += 1