Start, IDS, Procedures

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -104,6 +104,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnEinarbeiten.Click
+
+        If programName.Contains("IDS") Then
+            If Not vbYes = MsgBox("Wurde der Batch-Jop für die Erstellung der COPY_INVOICE manuell ausgeführt?", vbYesNoCancel) Then
+                Exit Sub
+            End If
+
+        End If
+
         Me.Enabled = False
         Try
             Label5.Visible = True
@@ -329,10 +337,36 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                     invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 10)
 
                 Case "INVOICEBYCOUNTRY"
+
                     Dim i1 = Dateiname.LastIndexOf(".pdf")
                     Dim i2 = Dateiname.LastIndexOf("_") + 1
-                    invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, (Dateiname.LastIndexOf(".pdf") - (Dateiname.LastIndexOf("_") + 1)))
-                    country = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 2)
+
+                    'die RechnungNr steht nun nicht mehr am Ende, sondern an vorletzter Position!!!
+                    '0060003421_31072025_GEOB00018288RO_DE00725749.pdf
+                    Dim underscoreIndexes As New List(Of Integer)
+                    For i As Integer = 0 To Dateiname.Length - 1
+                        If Dateiname(i) = "_"c Then
+                            underscoreIndexes.Add(i)
+                        End If
+                    Next
+
+                    Dim invoiceNo_New As String = ""
+
+                    If underscoreIndexes.Count >= 2 Then
+                        ' Position des vorletzten Unterstrichs
+                        Dim secondLastUnderscore As Integer = underscoreIndexes(underscoreIndexes.Count - 2)
+                        ' Substring ab vorletztem Unterstrich bis Ende
+                        invoiceNo_New = Dateiname.Substring(secondLastUnderscore + 1, ((i2 - 1) - (secondLastUnderscore + 1)))
+                    End If
+
+                    If invoiceNo_New <> "" Then
+                        invoiceNo = invoiceNo_New
+                        country = invoiceNo_New.Substring(0, 2)
+                    Else
+                        invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, (Dateiname.LastIndexOf(".pdf") - (Dateiname.LastIndexOf("_") + 1)))
+                        country = Dateiname.Substring(Dateiname.LastIndexOf("_"), 2)
+
+                    End If
 
                     If IsNumeric(country) Then
                         country = "SE" 'wenn kein Land angegeben, dann SCHWEDEN!

initATLASAufschubkonten/frmStartOptions.vb

@@ -4762,9 +4762,9 @@ Public Class frmStartOptions
                         For Each node As XmlElement In doc.GetElementsByTagName("kurs")
                             Dim wk
                             If art = 1 Then
-                                wk = New cFremdwaehrungskurse()
+                                wk = New cFremdwaehrungskurse() ' notierte Währungen
                             Else
-                                wk = New cWaehrungskurseNEU()
+                                wk = New cWaehrungskurseNEU() 'nicht notierte Währungen
                             End If
                             If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value
                             If node.HasChildNodes Then