diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index ee385a0..445e924 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -1081,7 +1081,7 @@ Anzeige:
If sendInfoMail Then
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)
- 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
diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
index f0f45aa..4d968e1 100644
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
+++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
@@ -4,7 +4,6 @@ Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Xml
-Imports java.awt
Imports Renci.SshNet
Imports Renci.SshNet.Sftp
Imports VERAG_PROG_ALLGEMEIN
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 6515c50..ce31e66 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -412,7 +412,7 @@ Public Class frmStartOptions
'---------------------UTA----------------------
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----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -891,7 +891,7 @@ Public Class frmStartOptions
Dim anhenge As New List(Of String)
anhenge.Add(filepath)
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
@@ -1149,7 +1149,7 @@ Public Class frmStartOptions
If filepath <> "" Then
Dim anhenge As New List(Of String)
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
@@ -1932,7 +1932,7 @@ Public Class frmStartOptions
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:
'ExportJob E-Invoice:processing mail: F:\vb.net\RoutineManager3\RoutineManager.exe mdm_mail_attach "
@@ -2004,6 +2004,19 @@ Public Class frmStartOptions
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
@@ -2321,12 +2334,14 @@ Public Class frmStartOptions
End Try
End Try
- 'ALLGEMEIN
- 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
+ Dim MailsAnIntern As Boolean = True
+ 'ALLGEMEIN
+ genXLS_NewPrice(DT_PLATTS, FILE_NEW, "IDSPRD: Platts Price Report", "", "", "", MailsAnIntern) '--> Send XLS Mail
+ MailsAnIntern = False
'SONDERKONDITION
' 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
@@ -2338,7 +2353,7 @@ Public Class frmStartOptions
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:::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -2406,7 +2421,18 @@ Public Class frmStartOptions
Dim MAIL_attach As New List(Of String)
MAIL_attach.Add(FIN_FILE)
- VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MAIL_TO, MAIL_SUBJ, "*AUTO*",,,, MAIL_CC, MAIL_BCC, MAIL_attach)
+
+ 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)
+
+ End If
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -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
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)
- 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)
- 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)
- 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
@@ -3507,7 +3533,7 @@ Public Class frmStartOptions
If PDF <> "" Then
Dim list As New List(Of String)
list.Add(PDF)
- Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
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.
Bei UID-Nummer mit dem Prüfungsergebnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= createUIDPruefungUebersicht(dt)
@@ -4015,7 +4041,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
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)
End Sub
@@ -4493,7 +4519,7 @@ Public Class frmStartOptions
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
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)
End Sub
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 countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
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!" & "
" & "*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!" & "
" & "*Automatic generated e-mail*",,,,,, anhenge)
End If
End If
@@ -8037,7 +8063,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVerag,,,,, False,,, True)
Dim anhenge As New List(Of String)
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
@@ -8047,7 +8073,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtIMEX,,,,, False,,, True)
Dim anhenge As New List(Of String)
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
@@ -8057,7 +8083,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtAMBAR,,,,, False,,, True)
Dim anhenge As New List(Of String)
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
@@ -8067,7 +8093,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtUNISPED,,,,, False,,, True)
Dim anhenge As New List(Of String)
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
@@ -8077,7 +8103,7 @@ repeatRequest:
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtFRONTOFFICE,,,,, False,,, True)
Dim anhenge As New List(Of String)
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