neu
This commit is contained in:
@@ -45,20 +45,46 @@ Module Mail
|
||||
System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...")
|
||||
Else
|
||||
' PARAM = "BRG_AUSWERTUNG_STANDARD"
|
||||
|
||||
'Select Case firma
|
||||
' Case "ATILLA"
|
||||
' Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA"
|
||||
' ' Msg.To.Add("mestan@verag.ag")
|
||||
|
||||
' Msg.To.Add("verimex@verimex360.com")
|
||||
' Msg.Bcc.Add("al@verag.ag")
|
||||
' Case "IMEX"
|
||||
' Msg.Subject = "Kunden TR - Offene Rechnungen - IMEX"
|
||||
' Msg.Bcc.Add("al@verag.ag")
|
||||
' Msg.To.Add("mario.hoefer@imex-group.at")
|
||||
' Msg.CC.Add("viktoria.leirich@imex-group.at")
|
||||
' Msg.CC.Add("verimex@verimex360.com")
|
||||
' Case "VERAG"
|
||||
' Msg.Subject = "Kunden TR - Offene Rechnungen"
|
||||
' Msg.To.Add("mestan@verag.ag")
|
||||
' Msg.CC.Add("verimex@verimex360.com")
|
||||
' Msg.Bcc.Add("al@verag.ag")
|
||||
|
||||
' End Select
|
||||
Select Case PARAM
|
||||
Case "KD_OP5000"
|
||||
System.Console.WriteLine("OPTION erkannt: KD_TR_OP5000 _ Erstellt eine Liste türkischer Kunden und versendet diese AL.")
|
||||
If SendEmail_OP5000("VERAG", "", {"al@verag.ag"}, {}, {}, "VERAG - Offene Posten") Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
Case "KD_TR_OP5000"
|
||||
System.Console.WriteLine("OPTION erkannt: KD_TR_OP5000 _ Erstellt eine Liste türkischer Kunden und versendet diese an Mestan und Bahadir.")
|
||||
If SendEmail_KD_TR_OP5000("VERAG") Then
|
||||
If SendEmail_OP5000("VERAG", "'TR'", {"mestan@verag.ag"}, {"verimex@verimex360.com"}, {"al@verag.ag"}, "Kunden TR - Offene Rechnungen") Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
Case "KD_TR_OP5000_ATILLA"
|
||||
System.Console.WriteLine("OPTION erkannt: KD_TR_OP5000_ATILLA _ Erstellt eine Liste türkischer Kunden von ATILLA.")
|
||||
If SendEmail_KD_TR_OP5000("ATILLA") Then
|
||||
If SendEmail_OP5000("ATILLA", "'TR'", {"verimex@verimex360.com"}, {}, {"al@verag.ag"}, "Kunden TR - Offene Rechnungen - ATILLA") Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
Case "KD_TR_OP5000_IMEX"
|
||||
System.Console.WriteLine("OPTION erkannt: KD_TR_OP5000_IMEX _ Erstellt eine Liste türkischer Kunden von IMEX.")
|
||||
If SendEmail_KD_TR_OP5000("IMEX") Then
|
||||
If SendEmail_OP5000("IMEX", "'TR'", {"mario.hoefer@imex-group.at"}, {"viktoria.leirich@imex-group.at", "verimex@verimex360.com"}, {"al@verag.ag"}, "Kunden TR - Offene Rechnungen - IMEX") Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
Case "BRG_AUSWERTUNG_STANDARD"
|
||||
@@ -619,8 +645,7 @@ Module Mail
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function SendEmail_KD_TR_OP5000(Optional firma As String = "VERAG") As Boolean
|
||||
Private Function SendEmail_OP5000(firma As String, LandEinschr As String, Mail_to() As String, Mail_cc() As String, Mail_bcc() As String, Mail_Subject As String) As Boolean
|
||||
' send()
|
||||
' Exit Function
|
||||
Dim Msg As New MailMessage
|
||||
@@ -655,36 +680,29 @@ Module Mail
|
||||
Dim excel As String = ""
|
||||
Select Case firma
|
||||
Case "ATILLA"
|
||||
excel = genEXCEL_TR_ATILLA()
|
||||
excel = genEXCEL_TR_ATILLA(LandEinschr)
|
||||
Case "IMEX"
|
||||
excel = genEXCEL_TR_IMEX()
|
||||
excel = genEXCEL_TR_IMEX(LandEinschr)
|
||||
Case "VERAG"
|
||||
excel = genEXCEL_TR()
|
||||
excel = genEXCEL_TR(LandEinschr)
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
System.Console.WriteLine("EXCEL erstellt...")
|
||||
If excel <> "" And Not excel.StartsWith("ERROR: ") Then
|
||||
|
||||
System.Console.WriteLine("Sende E-Mail...")
|
||||
Msg.From = New MailAddress("support@verag.ag")
|
||||
Select Case firma
|
||||
Case "ATILLA"
|
||||
Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA"
|
||||
' Msg.To.Add("mestan@verag.ag")
|
||||
Msg.To.Add("verimex@verimex360.com")
|
||||
Msg.Bcc.Add("al@verag.ag")
|
||||
Case "IMEX"
|
||||
Msg.Subject = "Kunden TR - Offene Rechnungen - IMEX"
|
||||
Msg.Bcc.Add("al@verag.ag")
|
||||
Msg.To.Add("mario.hoefer@imex-group.at")
|
||||
Msg.CC.Add("viktoria.leirich@imex-group.at")
|
||||
Msg.CC.Add("verimex@verimex360.com")
|
||||
Case "VERAG"
|
||||
Msg.Subject = "Kunden TR - Offene Rechnungen"
|
||||
Msg.To.Add("mestan@verag.ag")
|
||||
Msg.CC.Add("verimex@verimex360.com")
|
||||
Msg.Bcc.Add("al@verag.ag")
|
||||
End Select
|
||||
|
||||
|
||||
For Each m In Mail_to : Msg.To.Add(m) : Next
|
||||
For Each m In Mail_cc : Msg.CC.Add(m) : Next
|
||||
For Each m In Mail_bcc : Msg.Bcc.Add(m) : Next
|
||||
Msg.Subject = Mail_Subject
|
||||
|
||||
|
||||
|
||||
|
||||
' Msg.To.Add("al@verag.ag")
|
||||
Msg.Body = "Anbei befindet sich die Liste der türkischen Kunden mit einem offenen Rechnungsbetrag von über 1.000,- EUR." & vbNewLine & vbNewLine & "Stand: " & Now.ToShortDateString & " " & Now.ToShortTimeString & vbNewLine & vbNewLine & vbNewLine & "Automatisch generiertes E-Mail."
|
||||
@@ -1204,15 +1222,15 @@ Module Mail
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function genEXCEL_TR() As String
|
||||
|
||||
Public Function genEXCEL_TR(LandEinschr) As String
|
||||
Try
|
||||
If LandEinschr <> "" Then LandEinschr = " AND LandKz IN (" & LandEinschr & ") "
|
||||
|
||||
|
||||
Dim sqlstr = " SELECT [Kontonummer] as KdNr,cast(SUM([Gesamtausstand]) as decimal(12,2)) as Summe,max([Waehrung]) as Währung ,max(LandKz) as Land, max(Ordnungsbegriff) as Firma,max(Ort) as Ort,max(Straße) as Straße,max([E-Mail]) as [E-Mail],max(Telefon) as Telefon " &
|
||||
Dim sqlstr = " SELECT [Kontonummer] as KdNr,cast(SUM([Gesamtausstand]) as decimal(12,2)) as Summe,max([Waehrung]) as Währung ,max(LandKz) as Land, max(Ordnungsbegriff) as Firma,max(Ort) as Ort,max(Straße) as Straße,max([E-Mail]) as [E-Mail],max(Telefon) as Telefon, min([Fälligkeitsdatum]) as [Fälligkeitsdatum] " &
|
||||
"FROM [Offene Posten] INNER JOIN Adressen ON AdressenNr=Kontonummer " &
|
||||
"WHERE LandKz='TR' AND Firma_ID <> 7 " &
|
||||
"WHERE 1=1 " & LandEinschr & " AND Firma_ID NOT IN (7,15) " &
|
||||
"GROUP BY [Kontonummer] " &
|
||||
"HAVING SUM([Gesamtausstand]) > " & betragOpTr &
|
||||
"ORDER BY Firma asc"
|
||||
@@ -1232,13 +1250,14 @@ Module Mail
|
||||
|
||||
|
||||
|
||||
Public Function genEXCEL_TR_IMEX() As String
|
||||
Public Function genEXCEL_TR_IMEX(LandEinschr) As String
|
||||
Try
|
||||
|
||||
If LandEinschr <> "" Then LandEinschr = " AND LandKz IN (" & LandEinschr & ") "
|
||||
|
||||
Dim sqlstr = " SELECT [KundenNr] as KdNr,cast(SUM(Saldo) as decimal(12,2)) as Summe/*,max([Waehrung]) as Währung */,max(LandKz) as Land, max(Ordnungsbegriff) as Firma,max(Ort) as Ort,max(Straße) as Straße,max([E-Mail]) as [E-Mail],max(Telefon) as Telefon " &
|
||||
" FROM Offene_Posten_DVO INNER JOIN Adressen ON AdressenNr=[KundenNr] " &
|
||||
"WHERE LandKz='TR' " &
|
||||
"WHERE 1=1 " & LandEinschr &
|
||||
"GROUP BY [KundenNr] " &
|
||||
"HAVING SUM([Saldo]) > " & betragOpTr &
|
||||
"ORDER BY Firma asc"
|
||||
@@ -1257,13 +1276,14 @@ Module Mail
|
||||
|
||||
End Function
|
||||
|
||||
Public Function genEXCEL_TR_ATILLA() As String
|
||||
Public Function genEXCEL_TR_ATILLA(LandEinschr) As String
|
||||
Try
|
||||
|
||||
If LandEinschr <> "" Then LandEinschr = " AND LandKz IN (" & LandEinschr & ") "
|
||||
|
||||
Dim sqlstr = " SELECT [Kontonummer] as KdNr,cast(SUM([Gesamtausstand]) as decimal(12,2)) as Summe,max([Waehrung]) as Währung ,max(LandKz) as Land, max(Ordnungsbegriff) as Firma,max(Ort) as Ort,max(Straße) as Straße,max([E-Mail]) as [E-Mail],max(Telefon) as Telefon " &
|
||||
"FROM [Offene Posten] INNER JOIN Adressen ON AdressenNr=Kontonummer " &
|
||||
"WHERE LandKz='TR' AND Firma_ID = 7 " &
|
||||
"WHERE 1=1 " & LandEinschr & " AND Firma_ID = 7 " &
|
||||
"GROUP BY [Kontonummer] " &
|
||||
"HAVING SUM([Gesamtausstand]) > " & betragOpTr &
|
||||
"ORDER BY Firma asc"
|
||||
|
||||
Reference in New Issue
Block a user