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

cWorker, Einarbeitung IDS Polsen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-24 09:25:45 +02:00
parent f1bd09bdb7
commit ac0024c919
3 changed files with 49 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1081,7 +1081,7 @@ Anzeige:
If sendInfoMail Then If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr, gsrightRow) Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr, gsrightRow)
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID) Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID)
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag") If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2)
End If End If
End If End If

1
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -4,7 +4,6 @@ Imports System.Text
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.Web Imports System.Web
Imports System.Xml Imports System.Xml
Imports java.awt
Imports Renci.SshNet Imports Renci.SshNet
Imports Renci.SshNet.Sftp Imports Renci.SshNet.Sftp
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN

68
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -412,7 +412,7 @@ Public Class frmStartOptions
'---------------------UTA---------------------- '---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff) importFileFromUTAMailAnhang(pfad, betreff)
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Then
'---------------------IDS---------------------- '---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM) importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -891,7 +891,7 @@ Public Class frmStartOptions
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(filepath) anhenge.Add(filepath)
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Stichtagsliste Kundensummen", 19) Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Stichtagsliste Kundensummen", 19)
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom: " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,, "al@verag.ag", anhenge) If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom: " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,,, anhenge)
End If End If
End If End If
@@ -1149,7 +1149,7 @@ Public Class frmStartOptions
If filepath <> "" Then If filepath <> "" Then
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(filepath) anhenge.Add(filepath)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "E-ZOLL nachträgliche Einarbeitung", "Im Anhang befinden sich die Speditionsbucheintrag, die bei der nachträglichen Einarbeitung angelegt wurden: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "E-ZOLL nachträgliche Einarbeitung", "Im Anhang befinden sich die Speditionsbucheintrag, die bei der nachträglichen Einarbeitung angelegt wurden: " & vbNewLine & "*Automatic generated e-mail*",,,,,, anhenge)
End If End If
@@ -1932,7 +1932,7 @@ Public Class frmStartOptions
End If End If
ElseIf betreff.contains("IDS, customer") AndAlso type = "mdm_mail_html" Then 'Email mit Rechnungslink ElseIf betreff.contains("IDS, customer") AndAlso type = "mdm_mail_html" Then 'Email mit Rechnungslink -OLD------
'Bsp: 'Bsp:
'ExportJob E-Invoice:processing mail: F:\vb.net\RoutineManager3\RoutineManager.exe mdm_mail_attach &quot; 'ExportJob E-Invoice:processing mail: F:\vb.net\RoutineManager3\RoutineManager.exe mdm_mail_attach &quot;
@@ -2004,6 +2004,19 @@ Public Class frmStartOptions
End If End If
ElseIf betreff.contains("Q8Truck KSeF") Then
Dim ids As New cIDS
ids.initImportPfade("IDS")
Dim Zielpfad = ids.VERARBEITUNG_PFAD
Dim found = False
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
moveFile(pfad, Zielpfad)
End If End If
@@ -2321,12 +2334,14 @@ Public Class frmStartOptions
End Try End Try
End Try End Try
'ALLGEMEIN Dim MailsAnIntern As Boolean = True
genXLS_NewPrice(DT_PLATTS, FILE_NEW, "IDSPRD: Platts Price Report", "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;ma@verag.ag;alex@verag.ag;ft@verag.ag", "sales@verag.ag;al@verag.ag;sb@verag.ag", "") '--> Send XLS Mail
'ALLGEMEIN
genXLS_NewPrice(DT_PLATTS, FILE_NEW, "IDSPRD: Platts Price Report", "", "", "", MailsAnIntern) '--> Send XLS Mail
MailsAnIntern = False
'SONDERKONDITION 'SONDERKONDITION
' genXLS_NewPrice(DT_PLATTS_SONDER, FILE_NEW.Replace("_ORIG.xls", "_special_ORIG.xls")) '--> Send XLS Mail ' genXLS_NewPrice(DT_PLATTS_SONDER, FILE_NEW.Replace("_ORIG.xls", "_special_ORIG.xls")) '--> Send XLS Mail
genXLS_NewPrice(DT_PLATTS_SONDER_Lukenda, FILE_NEW_Lukenda, "IDSPRD: Platts Price Report - Lukenda", "Logistik@lukenda-transport.com;ivan.andric@lukenda-transport.hr", "", "sales@verag.ag;al@verag.ag") '--> Send XLS Mail genXLS_NewPrice(DT_PLATTS_SONDER_Lukenda, FILE_NEW_Lukenda, "IDSPRD: Platts Price Report - Lukenda", "Logistik@lukenda-transport.com;ivan.andric@lukenda-transport.hr", "", "sales@verag.ag;al@verag.ag", MailsAnIntern) '--> Send XLS Mail
Next Next
@@ -2338,7 +2353,7 @@ Public Class frmStartOptions
End Sub End Sub
Sub genXLS_NewPrice(DT_PLATTS As DataTable, FILE_NEW As String, MAIL_SUBJ As String, MAIL_TO As String, MAIL_CC As String, MAIL_BCC As String) Sub genXLS_NewPrice(DT_PLATTS As DataTable, FILE_NEW As String, MAIL_SUBJ As String, MAIL_TO As String, MAIL_CC As String, MAIL_BCC As String, MailsIntern As Boolean)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'NEUES EXCEL ERSTELLEN::::::: 'NEUES EXCEL ERSTELLEN:::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -2406,8 +2421,19 @@ Public Class frmStartOptions
Dim MAIL_attach As New List(Of String) Dim MAIL_attach As New List(Of String)
MAIL_attach.Add(FIN_FILE) MAIL_attach.Add(FIN_FILE)
If MailsIntern Then
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)
Else
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MAIL_TO, MAIL_SUBJ, "*AUTO*",,,, MAIL_CC, MAIL_BCC, MAIL_attach) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MAIL_TO, MAIL_SUBJ, "*AUTO*",,,, MAIL_CC, MAIL_BCC, MAIL_attach)
End If
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Catch ex As Exception Catch ex As Exception
@@ -3352,13 +3378,13 @@ Public Class frmStartOptions
Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1) Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs, True) getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs, True)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20) Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 24) Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 24)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs)
Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 21) Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 21)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs) getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs)
End Function End Function
@@ -3507,7 +3533,7 @@ Public Class frmStartOptions
If PDF <> "" Then If PDF <> "" Then
Dim list As New List(Of String) Dim list As New List(Of String)
list.Add(PDF) list.Add(PDF)
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungsergebnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= createUIDPruefungUebersicht(dt) Body &= createUIDPruefungUebersicht(dt)
@@ -4015,7 +4041,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1) Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, , cbxUpdateFIBU.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", Empfaenger,,, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, , cbxUpdateFIBU.Checked)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)
End Sub End Sub
@@ -4493,7 +4519,7 @@ Public Class frmStartOptions
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20) Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", Empfaenger,,, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)
End Sub End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
@@ -7035,7 +7061,7 @@ repeatRequest:
If countMissingIMEX > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20) If countMissingIMEX > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
If countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21) If countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
If countMissingAMBAR > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24) If countMissingAMBAR > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
If empfaneger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE - fehlende CS-IDs", "Im Anhang befinden sich eine Liste der Kunden, deren Creditsafe-ID ungültig sind/nicht gefunden wurden!" & "<br><br>" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) If empfaneger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE - fehlende CS-IDs", "Im Anhang befinden sich eine Liste der Kunden, deren Creditsafe-ID ungültig sind/nicht gefunden wurden!" & "<br><br>" & "*Automatic generated e-mail*",,,,,, anhenge)
End If End If
End If End If
@@ -8037,7 +8063,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVerag,,,,, False,,, True) Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVerag,,,,, False,,, True)
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(path) anhenge.Add(path)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", MailText,, True, False,,, anhenge)
End If End If
End If End If
@@ -8047,7 +8073,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtIMEX,,,,, False,,, True) Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtIMEX,,,,, False,,, True)
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(path) anhenge.Add(path)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", MailText,, True, False,,, anhenge)
End If End If
End If End If
@@ -8057,7 +8083,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtAMBAR,,,,, False,,, True) Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtAMBAR,,,,, False,,, True)
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(path) anhenge.Add(path)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", MailText,, True, False,,, anhenge)
End If End If
End If End If
@@ -8067,7 +8093,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtUNISPED,,,,, False,,, True) Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtUNISPED,,,,, False,,, True)
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(path) anhenge.Add(path)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", MailText,, True, False,,, anhenge)
End If End If
End If End If
@@ -8077,7 +8103,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtFRONTOFFICE,,,,, False,,, True) Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtFRONTOFFICE,,,,, False,,, True)
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(path) anhenge.Add(path)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " FRONTOFFICE", MailText,, True, False,, "d.breimaier@verag.ag", anhenge) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " FRONTOFFICE", MailText,, True, False,,, anhenge)
End If End If
End If End If