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

DAKOSY_Worker/DAKOSY_Worker_lib.vbproj

@@ -550,6 +550,9 @@
     </ProjectReference>
   </ItemGroup>
   <ItemGroup>
+    <PackageReference Include="itext7">
+      <Version>9.6.0</Version>
+    </PackageReference>
     <PackageReference Include="Microsoft.Bcl.AsyncInterfaces">
       <Version>8.0.0</Version>
     </PackageReference>

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -1163,7 +1163,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             Next
         Next
 
-        If programName.Contains("UTA") Then uta.importUTALeistungen()
+        If programName.Contains("UTA") Then
+            uta.importUTALeistungen()
+            If cntDatenEingelesen > 0 Then
+                Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("UTA-Import", 19)
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "UTA-Import", "UTA-Daten wurden importiert! ")
+            End If
+
+        End If
 
             If programName.Contains("RMC") Then
 
@@ -1174,7 +1181,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                     If filepath <> "" Then
                         Dim anhenge As New List(Of String)
                         anhenge.Add(filepath)
-                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC-Import", 19)
                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr (EASYTRIP)", "Im Anhang die zu prüfenden Kunden von WÖLFL EasyTrip: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
                     End If
                 End If

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