20240302備份

SHENKANG-MES-SYS/00、MyModule/SQL_量產訂單管理系統.vb

@@ -117,6 +117,11 @@
         SQL1 = "SELECT TOP (1)  訂單流水號 FROM 訂單控制表 WHERE ( 訂單流水號 LIKE '" & 量產訂單輸入.訂單流水號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_訂單重複查詢()
+        ConnOpen()
+        SQL1 = "SELECT  訂單流水號 FROM 訂單控制表 WHERE ( 客戶訂單號 LIKE '" & 量產訂單輸入.客戶訂單號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_新增訂單明細表抬頭()
         ConnOpen()
         SQL1 = "INSERT INTO 訂單明細表抬頭 (客戶訂單號, 訂單流水號, ConstructionName, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, 

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

@@ -7,7 +7,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 = "2023112701"
+    Public 版本 As String = "2024022701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31,
            PA32, PA33 As String

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

@@ -90,8 +90,7 @@ Public Class 量產訂單控制表
         合總銷售_tb.Text = Format(Val(合總銷售_tb.Text), "#,##0") : L總銷售_tb.Text = Format(Val(L總銷售_tb.Text), "#,##0") : Cost總銷售_tb.Text = Format(Val(Cost總銷售_tb.Text), "#,##0")
         L總雙數_tb.Text = Format(Val(L總雙數_tb.Text), "#,##0") : Cost總雙數_tb.Text = Format(Val(Cost總雙數_tb.Text), "#,##0") : 合總雙數_tb.Text = Format(Val(合總雙數_tb.Text), "#,##0")
 
-
-        If DGV位置2.Value >= 控制表_dgv.Rows.Count Then : DGV位置2.Value = 控制表_dgv.Rows.Count - 1 : End If
+        If DGV位置2.Value >= 控制表_dgv.Rows.Count And 控制表_dgv.Rows.Count > 0 Then : DGV位置2.Value = 控制表_dgv.Rows.Count - 1 : End If
         If DGV位置2.Value > 0 Then : 控制表_dgv.CurrentCell = 控制表_dgv.Rows(DGV位置2.Value).Cells(1) : End If
     End Sub
     Private Sub 量產訂單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

@@ -315,24 +315,36 @@ Public Class 量產訂單輸入
         End If
     End Sub
     Private Sub 生成量產訂單抬頭_bt_Click(sender As Object, e As EventArgs) Handles 生成量產訂單抬頭_bt.Click
-        If 客戶_cb.Text = "" Or 客戶訂單號_tb.Text = "" Or ModeOfDelivery_cb.Text = "" Or DeliveryTerms_cb.Text = "" Or FromPort_cb.Text = "" Or
-            ToPort_cb.Text = "" Or Remark_cb.Text = "" Or 工廠_cb.Text = "" Or 客戶名稱_cb.Text = "" Or 季節_cb.Text = "" Then
-            MsgBox("生成量產訂單抬頭之前，請注意訂單資料不可有誤。")
-        Else
-            Dim NUM0 As Integer
-            Set_日期格式轉換()
-            For i As Integer = 1 To 999
-                NUM0 = 0 + i
-                If NUM0 < 10 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-00" & NUM0
-                ElseIf NUM0 > 9 And NUM0 < 100 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-0" & NUM0
-                ElseIf NUM0 > 99 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-" & NUM0
-                End If
-                SQL_第一筆訂單流水號()
-                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
-            Next
-            SQL_新增訂單明細表抬頭() : conn.Close()
-            生成量產訂單號碼_bt.Enabled = False : 套用已有量產訂單號_bt.Enabled = False : 生成量產訂單抬頭_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = True
-        End If
+        If 客戶_cb.Text = "" Then : MsgBox("客戶  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+            If 客戶訂單號_tb.Text = "" Then : MsgBox("客戶訂單號  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                If ModeOfDelivery_cb.Text = "" Then : MsgBox("Mode Of Delivery  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                    If DeliveryTerms_cb.Text = "" Then : MsgBox("Delivery Terms  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                        If FromPort_cb.Text = "" Then : MsgBox("From Port  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                            If ToPort_cb.Text = "" Then : MsgBox("To Port  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                                If Remark_cb.Text = "" Then : MsgBox("Remark  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                                    If 工廠_cb.Text = "" Then : MsgBox("工廠  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                                        If 客戶名稱_cb.Text = "" Then : MsgBox("客戶名稱  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                                            If 季節_cb.Text = "" Then : MsgBox("季節  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
+                                                SQL_訂單重複查詢()
+                                                If dr.Read Then : MsgBox("客戶訂單號重複，請重新確認訂單資料是否已經有建檔過!!")
+                                                    生成量產訂單號碼_bt.Enabled = True : 套用已有量產訂單號_bt.Enabled = True : 生成量產訂單抬頭_bt.Enabled = False
+                                                    生成訂單SIZERUN_bt.Enabled = False : 存檔_bt.Enabled = False : Exit Sub
+                                                End If
+                                                Dim NUM0 As Integer
+                                                Set_日期格式轉換()
+                                                For i As Integer = 1 To 999
+                                                    NUM0 = 0 + i
+                                                    If NUM0 < 10 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-00" & NUM0
+                                                    ElseIf NUM0 > 9 And NUM0 < 100 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-0" & NUM0
+                                                    ElseIf NUM0 > 99 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-" & NUM0
+                                                    End If
+                                                    SQL_第一筆訂單流水號()
+                                                    If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+                                                Next
+                                                SQL_新增訂單明細表抬頭() : conn.Close()
+                                                生成量產訂單號碼_bt.Enabled = False : 套用已有量產訂單號_bt.Enabled = False
+                                                生成量產訂單抬頭_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = True
+                                            End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
     End Sub
     Private Sub 生成訂單SIZERUN_bt_Click(sender As Object, e As EventArgs) Handles 生成訂單SIZERUN_bt.Click
         If DM_cb.Text = "" Then

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>NltwMzQRjKArVuz4bsKUZLyH6a/0GISVKLSfTg2ZFKo=</dsig:DigestValue>
+        <dsig:DigestValue>39MQKvUiXQI2C8UFbK8KnNWZ/Qv2oZBaZ1BIMLoL2O4=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

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

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5668864">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5670400">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.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>uzJXr3iylP+M6nzFOMIaItB5wa5RMcjWI73LVpAwtnU=</dsig:DigestValue>
+        <dsig:DigestValue>g9JKktAKFE4uqkuRC5NUkBSUDeiRoI0lSn81tjyzat0=</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>NltwMzQRjKArVuz4bsKUZLyH6a/0GISVKLSfTg2ZFKo=</dsig:DigestValue>
+        <dsig:DigestValue>39MQKvUiXQI2C8UFbK8KnNWZ/Qv2oZBaZ1BIMLoL2O4=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

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

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5668864">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5670400">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.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>uzJXr3iylP+M6nzFOMIaItB5wa5RMcjWI73LVpAwtnU=</dsig:DigestValue>
+        <dsig:DigestValue>g9JKktAKFE4uqkuRC5NUkBSUDeiRoI0lSn81tjyzat0=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>