edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
d.breimaier
2026-04-27 16:36:02 +02:00
parent 1449dcb894
commit a59e388dad
3 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -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