From e7948e8e7f5634c362108aa09f51884e4437e4af Mon Sep 17 00:00:00 2001 From: "vit.mark@hotmail.com" Date: Mon, 18 May 2026 17:41:35 +0200 Subject: [PATCH] =?UTF-8?q?A=20k=C3=B3d=20mostant=C3=B3l=20csak=20akkor=20?= =?UTF-8?q?v=C3=A9gzi=20el=20a=20speci=C3=A1lis=20Audi-rajzsz=C3=A1m=20?= =?UTF-8?q?=C3=A1talak=C3=ADt=C3=A1st,=20ha=20a=20param=C3=A9ter=20AUDI=5F?= =?UTF-8?q?RAJZSZAM=20=C3=A9rt=C3=A9ke=20"26-"=20prefix-szel=20kezd=C5=91d?= =?UTF-8?q?ik.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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.) --- Dokumentáció Készítő 3/MainWindow.xaml.vb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Dokumentáció Készítő 3/MainWindow.xaml.vb b/Dokumentáció Készítő 3/MainWindow.xaml.vb index 08d0024..832334f 100644 --- a/Dokumentáció Készítő 3/MainWindow.xaml.vb +++ b/Dokumentáció Készítő 3/MainWindow.xaml.vb @@ -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