From a59e388daddc0a59d194cf906ebe13c6facc8505 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 27 Apr 2026 16:36:02 +0200 Subject: [PATCH] =?UTF-8?q?Update=20von=20itext7=20von=207=20auf=209,=20di?= =?UTF-8?q?v.=20=C3=84nderungen,=20etc.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- DAKOSY_Worker/DAKOSY_Worker_lib.vbproj | 3 +++ .../frmNachrichtenVerarbeitung_MDM_divers.vb | 13 ++++++++++--- initATLASAufschubkonten/frmStartOptions.vb | 10 ++++++++-- 3 files changed, 21 insertions(+), 5 deletions(-) diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index eea2309..d069f50 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -550,6 +550,9 @@ + + 9.6.0 + 8.0.0 diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index 4d968e1..9838c25 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -1163,9 +1163,16 @@ 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 - If programName.Contains("RMC") Then + End If + + If programName.Contains("RMC") Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM 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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 30b6424..c551f11 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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