A kód mostantól csak akkor végzi el a speciális Audi-rajzszám átalakítást, ha a paraméter AUDI_RAJZSZAM értéke "26-" prefix-szel kezdődik.

Ha az érték "26-"-tal kezdődik, az átalakítás logikája: az eredeti string első 3 karaktere + "000-" + következő 3 karakter + "-" + a 7–12. karakterekből vett 6 karakter + "-001". (Ha ez a feldolgozás sikertelen, a program figyelmeztetést dob: "Az audi szám nem megfelelő formátum." és leáll.)
2026-05-18 17:41:35 +02:00
parent 197fad1418
commit e7948e8e7f
1 changed files with 9 additions and 1 deletions
@@ -297,7 +297,15 @@ Public Class MainWindow
                Else
                    Dim tempstr As String = ""
                    ReadParam(model1, "AUDI_RAJZSZAM", tempstr)
-                    tempstr = tempstr.Substring(0, 3) + "000-" + tempstr.Substring(3, 3) + "-" + tempstr.Substring(7, 6) + "-001"
+                    If tempstr.StartsWith("26-") Then
+                        Try
+                            tempstr = tempstr.Substring(0, 3) + "000-" + tempstr.Substring(3, 3) + "-" + tempstr.Substring(7, 6) + "-001"
+                        Catch ex As Exception
+                            MsgBox("Az audi szám nem megfelelő formátum.")
+                            Environment.Exit(0)
+                            End
+                        End Try
+                    End If
                    workDir = workDir + "04 - Leadási dokumentáció\INV-____\Zeichnungsdokumentation_2D-Daten\" + tempstr + "\"
                End If