Start, IDS, Procedures

UID/usrctlProcedures.vb

@@ -3459,6 +3459,8 @@ Public Class usrctlProcedures
         Dim kdnr_tmp = ""
         Try
 
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
             Dim fd As New OpenFileDialog
             If fd.ShowDialog = DialogResult.OK Then
                 If fd.FileName.ToLower.EndsWith(".csv") Then
@@ -3688,9 +3690,33 @@ Public Class usrctlProcedures
                                             End If
 
                                         Else
+
+                                            Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3))
+                                            If STDOF.hasEntry Then
+
+                                                Dim save As Boolean = False
+
+                                                If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
+                                                    save = True
+                                                    STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
+                                                End If
+                                                If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
+                                                    save = True
+                                                    STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
+                                                End If
+                                                If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
+                                                    save = True
+                                                    STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
+                                                End If
+
+                                                If save Then STDOF.SAVE()
+
+                                            End If
+
+
                                             'MsgBox(currentRow(2))
                                         End If
-                                    End If
+                                            End If
                                 End If
 
                                 'For Each currentField In currentRow

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