Update von itext7 von 7 auf 9, div. Änderungen, etc.

initATLASAufschubkonten/frmStartOptions.vb

@@ -728,7 +728,6 @@ Public Class frmStartOptions
                             Else
                                 counTrans += dt.Rows.Count
                             End If
-                            'i = i + 1 -> In a VB For loop, the loop automatically increases i by 1 each iteration.
                             pages &= " " & i
                         Next
                     End If
@@ -739,6 +738,10 @@ Public Class frmStartOptions
                     If MDMEinarb.ds_count = MDMEinarb.ds_total Then
                         MDMEinarb.completed = True
                         MDMEinarb.completed_date = Now()
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("MSE-Import", 19)
+                        If empfaneger <> "" Then
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "MSE-Import durchgeführt", "Der automatische Import der MSE-Transaktionen wurde durchgeführt und " & MDMEinarb.ds_total & " Datensätze importiert." & vbNewLine & vbNewLine & "Infos: " & batchrequestNr & "-" & totalPages & " Transactions: " & counTrans & " Pages: " & pages,,,,,)
+                        End If
                     End If
 
                     MDMEinarb.import_date = Now()
@@ -2433,7 +2436,7 @@ Public Class frmStartOptions
 
                 If MailsIntern Then
 
-                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("IDS Preisliste", 19)
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("IDS-Preisliste", 19)
 
                     If empfaneger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, MAIL_SUBJ, "*AUTO*",,,, MAIL_CC, MAIL_BCC, MAIL_attach)
 
@@ -6329,6 +6332,9 @@ weiter:
 
         If ok_mitDVR AndAlso ok_OhneDVR AndAlso ok_setInvoiceID AndAlso rechnugdatum <> "" Then
             SQL.doSQL("Update tblMDMEinarbeitung set nacharbeitung_completed = 1 where invoicedate = '" & rechnugdatum & "' and completed = 1", "FMZOLL")
+            Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("IDS-Import", 19)
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "IDS-Import", "IDS-Daten vom Rechnungslauf " & rechnugdatum & " wurden importiert! ")
+
         End If
 
     End Sub