20210811備份

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

                                  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 = "20210080301"
+    Public 版本 As String = "2021081001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     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

           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>s9dkK10jsEi34BwIafcinxQwl1dsPhVnrRg8pn35gqY=</dsig:DigestValue>
+        <dsig:DigestValue>9yN4SlC+POvlw9sZPq40A65QMOOXGdtRyU/DKZ2GWBY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

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

     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5495808">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5496320">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>uAsX+jjdCcCZfJTO0LYPAovdHDCYv9WI0XZWR4oxbvo=</dsig:DigestValue>
+        <dsig:DigestValue>engImQmsvJezGwzmJO7j3w8TkVKNsNeWN/0K0OnL48g=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

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

           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>s9dkK10jsEi34BwIafcinxQwl1dsPhVnrRg8pn35gqY=</dsig:DigestValue>
+        <dsig:DigestValue>9yN4SlC+POvlw9sZPq40A65QMOOXGdtRyU/DKZ2GWBY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

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

     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5495808">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5496320">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>uAsX+jjdCcCZfJTO0LYPAovdHDCYv9WI0XZWR4oxbvo=</dsig:DigestValue>
+        <dsig:DigestValue>engImQmsvJezGwzmJO7j3w8TkVKNsNeWN/0K0OnL48g=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.FileListAbsolute.txt

 D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.exe
 D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.pdb
 D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.xml
-D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbprojAssemblyReference.cache
 D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.SplashScreen1.resources
 D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.列印_量產訂單控制表.resources
 D:\工巧明\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.成本資料庫管理.resources

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單輸入.vb

     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "UPDATE 訂單明細表抬頭 SET ModeOfDelivery = N'" & ComboBox4.Text & "', DeliveryTerms = N'" & ComboBox5.Text & "', FromPort = N'" & ComboBox6.Text & "', ToPort = N'" & ComboBox7.Text & "', 
-                                          工廠 = N'" & ComboBox9.Text & "', DeliveryAddress = N'" & TextBox16.Text & "', 交期 = N'" & Format(DateTimePicker5.Value, "yyyy/MM/dd") & "',  
-                                          ShipDate =  N'" & Format(DateTimePicker5.Value, "yyyy/MM/dd") & "', OrgShipDate =  N'" & Format(DateTimePicker5.Value, "yyyy/MM/dd") & "'
+        SQL1 = "UPDATE 訂單明細表抬頭 SET ModeOfDelivery = N'" & ComboBox4.Text & "', DeliveryTerms = N'" & ComboBox5.Text & "', FromPort = N'" & ComboBox6.Text & "', 
+                                          ToPort = N'" & ComboBox7.Text & "', 工廠 = N'" & ComboBox9.Text & "', DeliveryAddress = N'" & TextBox16.Text & "', 
+                                          交期 = N'" & Format(DateTimePicker5.Value, "yyyy/MM/dd") & "', ShipDate =  N'" & Format(DateTimePicker5.Value, "yyyy/MM/dd") & "', 
+                                          OrgShipDate =  N'" & Format(DateTimePicker5.Value, "yyyy/MM/dd") & "', Brand = N'" & ComboBox2.Text & "'
                 WHERE (訂單流水號 LIKE N'" & TextBox12.Text & "')"
         cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
 
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Set_清單3() : Set_清單4()
     End Sub
+    Private Sub ComboBox2_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
+        For i As Integer = 0 To DataGridView3.Rows.Count - 1
+            DataGridView3.Rows(i).Cells("BUYER").Value = ComboBox2.Text
+        Next
+    End Sub
 End Class