cWorker, Einarbeitung IDS Polsen, etc.
This commit is contained in:
@@ -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.<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)
|
||||
|
||||
@@ -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!" & "<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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user