Version, Mialbenachrichtungen, etc.
This commit is contained in:
@@ -532,7 +532,7 @@ Anzeige:
|
||||
|
||||
Dim Mailext = createInfoMail(regNR, posMassnahmen, "MASSNAHME-DAKOSY")
|
||||
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-MASSNAHME")
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext)
|
||||
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext)
|
||||
|
||||
End If
|
||||
|
||||
@@ -816,7 +816,7 @@ Anzeige:
|
||||
If sendInfoMail Then
|
||||
Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit)
|
||||
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWE", GesSichRef.brgakto_firmaID)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText)
|
||||
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText)
|
||||
End If
|
||||
|
||||
Return True
|
||||
@@ -978,7 +978,7 @@ Anzeige:
|
||||
|
||||
Dim InfoText As String = createInfoMail(MRN_SUMA, dt, "")
|
||||
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA-fehlende Positionen", GesSichRef.brgakto_firmaID)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText)
|
||||
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText)
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -1080,7 +1080,7 @@ Anzeige:
|
||||
If sendInfoMail Then
|
||||
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
|
||||
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID)
|
||||
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)
|
||||
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
|
||||
|
||||
@@ -890,8 +890,8 @@ Public Class frmStartOptions
|
||||
If filepath <> "" Then
|
||||
Dim anhenge As New List(Of String)
|
||||
anhenge.Add(filepath)
|
||||
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("Stichtagsliste Kundensummen", 19)
|
||||
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)
|
||||
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)
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -7972,6 +7972,7 @@ repeatRequest:
|
||||
Dim dtIMEX As DataTable = dt_wrongEmails.Clone()
|
||||
Dim dtAMBAR As DataTable = dt_wrongEmails.Clone()
|
||||
Dim dtUNISPED As DataTable = dt_wrongEmails.Clone()
|
||||
Dim dtFRONTOFFICE As DataTable = dt_wrongEmails.Clone()
|
||||
|
||||
'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
|
||||
Dim yearstocheck As Integer = CustomersWithInvoiceWithingYears
|
||||
@@ -8009,6 +8010,8 @@ repeatRequest:
|
||||
dtAMBAR.ImportRow(ROW)
|
||||
Case "UNISPED"
|
||||
dtUNISPED.ImportRow(ROW)
|
||||
Case "FRONTOFFICE"
|
||||
dtFRONTOFFICE.ImportRow(ROW)
|
||||
End Select
|
||||
|
||||
End If
|
||||
@@ -8025,7 +8028,11 @@ repeatRequest:
|
||||
|
||||
|
||||
Dim Betreff = "EMAIL-CHECK"
|
||||
Dim MailText = "Liste mit fehlerhaften EMail-Adressen im Kunden, die in den letzten " & yearstocheck & " Jahren eine Rechnung bekommen haben " & " < br <> br > " & " * Automatic generated e-mail*"
|
||||
Dim MailText = "Hallo, <br><br>anbei übermitteln wird eine Auflistung von Kunden mit fehlerhaften E-Mail-Adressen, die in den letzten " & yearstocheck & " Jahre(n) eine Rechnung von UNS bekommen haben."
|
||||
MailText &= "<br><br>Aufgrund fehlerhafter Angaben können Emails nicht zugestellt werden, wir ersuchen Sie daher dringend, die angeführten E-Mail-Adressen zeitnah zu überprüfen und zu korrigieren!"
|
||||
MailText &= "<br><br>Erstellt am: " & Now.ToShortDateString & " um " & Now.ToShortTimeString
|
||||
MailText &= "<br><br>Automatisch generiertes E-Mail."
|
||||
|
||||
|
||||
If dtVerag.Rows.Count > 0 Then
|
||||
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 1)
|
||||
@@ -8033,7 +8040,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,,,,, "d.breimaier@verag.ag", anhenge)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", MailText,, True, False,, "d.breimaier@verag.ag", anhenge)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8043,7 +8050,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,,,,, "d.breimaier@verag.ag", anhenge)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", MailText,, True, False,, "d.breimaier@verag.ag", anhenge)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8053,7 +8060,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,,,,, "d.breimaier@verag.ag", anhenge)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", MailText,, True, False,, "d.breimaier@verag.ag", anhenge)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8063,7 +8070,17 @@ 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,,,,, "d.breimaier@verag.ag", anhenge)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", MailText,, True, False,, "d.breimaier@verag.ag", anhenge)
|
||||
End If
|
||||
End If
|
||||
|
||||
If dtFRONTOFFICE.Rows.Count > 0 Then
|
||||
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 17)
|
||||
If empfaneger <> "" Then
|
||||
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)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user