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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:06:47 +02:00
parent 569991b011
commit 2c80644224
22 changed files with 2133 additions and 926 deletions
Download Patch File Download Diff File Expand all files Collapse all files

362
MailSender/MAILSender.vb
View File

@@ -10,10 +10,11 @@ Module Mail
Dim options As String = sPath & "OPTIONS.txt" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim last_sent As String = sPath & "last_sent.txt" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim betragOpTr = 1000
Dim supportPWD = "$up0Rt2809!"
Sub Main()
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
@@ -31,6 +32,23 @@ Module Mail
' End If
' Dim o As String = getOption()
'------------------------------------------------------------------------------------
' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------
If PARAM = "" Then
System.Console.WriteLine("OPTION nicht erkannt!")
Exit Sub
@@ -38,130 +56,142 @@ Module Mail
Dim cnt = 0
' MsgBox(DoesProcessExists("MailSender"))
While DoesProcessExists("MailSender") Or cnt > 20
System.Console.WriteLine("MailSender wurde nicht beendet, warten ...")
Threading.Thread.Sleep(1000)
cnt += 1
End While
If cnt >= 20 Then
System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...")
Else
' PARAM = "BRG_AUSWERTUNG_STANDARD"
System.Console.WriteLine("MailSender wurde nicht beendet, warten ...")
Threading.Thread.Sleep(1000)
cnt += 1
End While
If cnt >= 20 Then
System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...")
Else
'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")
'Select Case firma
' Case "ATILLA"
' Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA"
' ' Msg.To.Add("mestan@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_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_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_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"
System.Console.WriteLine("OPTION erkannt: BRG_AUSWERTUNG_STANDARD _ Erstellt die Auswertung der Bürgschaften.")
System.Console.WriteLine("Einlesen der Bürgschaftsdaten aus ATLAS und E-ZOLL...")
einlesenBRG()
System.Console.WriteLine("Einlesen abgeschlossen...")
System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_BRG_Auswertung(IIf(Now.DayOfWeek = 1, True, False)) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "BRG_AUSWERTUNG_DETAILS"
System.Console.WriteLine("OPTION erkannt: BRG_AUSWERTUNG_DETAILS _ Erstellt die Auswertung der Bürgschaften mit Details.")
System.Console.WriteLine("Einlesen der Bürgschaftsdaten aus ATLAS und E-ZOLL...")
einlesenBRG()
System.Console.WriteLine("Einlesen abgeschlossen...")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_BRG_Auswertung(IIf(Now.DayOfWeek = 1, True, False), True) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "WOELFL"
System.Console.WriteLine("OPTION erkannt: WOELFL ")
System.Console.WriteLine("Starte Wölfl-Mail...")
If SendEmail_WOELFL() Then
Try
Dim outFile As IO.StreamWriter = Nothing
outFile = My.Computer.FileSystem.OpenTextFileWriter(last_sent, False)
outFile.Write(Now.AddDays(-1).ToShortDateString)
outFile.Close()
' 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 ...")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Case "QS_AUFTEILUNG"
System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_QS_Auswertung() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "CS_AUFTEILUNG"
System.Console.WriteLine("OPTION erkannt: CS_AUFTEILUNG _ Erstellt die Auswertung der FISKAL-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_CS_Auswertung() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "MDM_Zollbuero_Verguetung"
System.Console.WriteLine("OPTION erkannt: MDM_Zollbuero_Verguetung _ Erstellt die Auswertung der durchgeführten MWST-Auszahlungen und MD-Kartenausgabe.")
System.Console.WriteLine("Auswertung gestartet...")
If MDM_Zollbuero_Verguetung() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "Kassenbuch_Zufall"
System.Console.WriteLine("OPTION erkannt: Kassenbuch_Zufall - Zufallsziehung zur Kassenkontrolle.")
System.Console.WriteLine("Vorgang gestartet...")
If SendEmail_Kassenbuch_Zufall() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "DEPOT_Kunden_Auswertung"
System.Console.WriteLine("OPTION erkannt: DEPOT_Kunden_Auswertung")
System.Console.WriteLine("Vorgang gestartet...")
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenNrZentrale FROM [tblKundenErweitert] INNER JOIN Kunden on kundennr= kde_KundenNr where Depot_Kunde = 1", "FMZOLL")
If dt IsNot Nothing Then
For Each r In dt.Rows
DEPOT_Kunden_Auswertung(r("KundenNrZentrale"))
Next
End If
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_OP5000("VERAG", "'TR'", {"mestan@verag.ag", "as@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_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_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 "NCTSLIST_TOBB"
System.Console.WriteLine("OPTION erkannt: NCTSLIST_TOBB _ Erstellt eine Liste der Versandscheine mit TOBB Bürgschaft.")
Case Else
System.Console.WriteLine("OPTION nicht erkannt!")
sendTOBB("VERAG/ATILLA", Now.AddDays(-1), Now.AddDays(-1))
sendTOBB("IMEX", Now.AddDays(-1), Now.AddDays(-1))
sendTOBB("UNISPED", Now.AddDays(-1), Now.AddDays(-1))
Case "BRG_AUSWERTUNG_STANDARD"
System.Console.WriteLine("OPTION erkannt: BRG_AUSWERTUNG_STANDARD _ Erstellt die Auswertung der Bürgschaften.")
System.Console.WriteLine("Einlesen der Bürgschaftsdaten aus ATLAS und E-ZOLL...")
einlesenBRG()
System.Console.WriteLine("Einlesen abgeschlossen...")
System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_BRG_Auswertung(IIf(Now.DayOfWeek = 1, True, False)) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "BRG_AUSWERTUNG_DETAILS"
System.Console.WriteLine("OPTION erkannt: BRG_AUSWERTUNG_DETAILS _ Erstellt die Auswertung der Bürgschaften mit Details.")
System.Console.WriteLine("Einlesen der Bürgschaftsdaten aus ATLAS und E-ZOLL...")
einlesenBRG()
System.Console.WriteLine("Einlesen abgeschlossen...")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_BRG_Auswertung(IIf(Now.DayOfWeek = 1, True, False), True) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "WOELFL"
System.Console.WriteLine("OPTION erkannt: WOELFL ")
System.Console.WriteLine("Starte Wölfl-Mail...")
If SendEmail_WOELFL() Then
Try
Dim outFile As IO.StreamWriter = Nothing
outFile = My.Computer.FileSystem.OpenTextFileWriter(last_sent, False)
outFile.Write(Now.AddDays(-1).ToShortDateString)
outFile.Close()
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Case "QS_AUFTEILUNG"
System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_QS_Auswertung() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "CS_AUFTEILUNG"
System.Console.WriteLine("OPTION erkannt: CS_AUFTEILUNG _ Erstellt die Auswertung der FISKAL-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_CS_Auswertung() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "MDM_Zollbuero_Verguetung"
System.Console.WriteLine("OPTION erkannt: MDM_Zollbuero_Verguetung _ Erstellt die Auswertung der durchgeführten MWST-Auszahlungen und MD-Kartenausgabe.")
System.Console.WriteLine("Auswertung gestartet...")
Dim Jahr = -1
If (parameter.Count - 1) >= 2 Then
Jahr = parameter(2)
System.Console.WriteLine("Parameter 'Jahr' erkannt: " & Jahr)
End If
If MDM_Zollbuero_Verguetung(Jahr) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "Kassenbuch_Zufall"
System.Console.WriteLine("OPTION erkannt: Kassenbuch_Zufall - Zufallsziehung zur Kassenkontrolle.")
System.Console.WriteLine("Vorgang gestartet...")
If SendEmail_Kassenbuch_Zufall() Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "DEPOT_Kunden_Auswertung"
System.Console.WriteLine("OPTION erkannt: DEPOT_Kunden_Auswertung")
System.Console.WriteLine("Vorgang gestartet...")
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenNrZentrale FROM [tblKundenErweitert] INNER JOIN Kunden on kundennr= kde_KundenNr where Depot_Kunde = 1", "FMZOLL")
If dt IsNot Nothing Then
For Each r In dt.Rows
DEPOT_Kunden_Auswertung(r("KundenNrZentrale"))
Next
End If
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
Case Else
System.Console.WriteLine("OPTION nicht erkannt!")
End Select
End Select
End If
' Else
@@ -187,6 +217,30 @@ Module Mail
End Try
End Sub
Sub sendTOBB(FirmaTmp, datVon, datBis)
Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", datVon, datBis, True)
Select Case _erg
Case "NO_RESULT"
System.Console.WriteLine("Keine Einträge gefunden.")
Case ""
Case Else
Dim _list As New List(Of String) : _list.Add(_erg)
Dim bool_sent = False
Select Case FirmaTmp
Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & FirmaTmp, "*Automatic generated e-mail*",,,, "atilla@verag.ag", "al@verag.ag", _list)
Case "IMEX" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & FirmaTmp, "*Automatic generated e-mail*",,,, "info@imex-group.at;Mario.Hoefer@imex-group.at", "al@verag.ag", _list)
Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & FirmaTmp, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list)
End Select
If bool_sent Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen (" & FirmaTmp & ") ...")
Else
System.Console.WriteLine("Fehler beim Senden der Mail (" & FirmaTmp & ") ...")
End If
End Select
End Sub
Function getOption() As String
Try
Dim instr = New StreamReader(options)
@@ -214,7 +268,7 @@ Module Mail
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = "support"
myCredentials.Password = supportPWD
' myCredentials.UserName = "testmail@verag.ag"
@@ -294,7 +348,7 @@ Module Mail
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = "support"
myCredentials.Password = supportPWD
' myCredentials.UserName = "testmail@verag.ag"
@@ -368,8 +422,6 @@ Module Mail
myCredentials.UserName = "al@verag.ag"
myCredentials.Password = "verag#2"
' myCredentials.UserName = "testmail@verag.ag"
' myCredentials.Password = "testmail"
Msg.IsBodyHtml = False
@@ -449,8 +501,6 @@ Module Mail
myCredentials.UserName = "al@verag.ag"
myCredentials.Password = "verag#2"
' myCredentials.UserName = "testmail@verag.ag"
' myCredentials.Password = "testmail"
Msg.IsBodyHtml = False
@@ -582,7 +632,7 @@ Module Mail
Return False
End Function
Private Function MDM_Zollbuero_Verguetung() As Boolean
Private Function MDM_Zollbuero_Verguetung(Jahr) As Boolean
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "al@verag.ag"
@@ -598,7 +648,7 @@ Module Mail
Try
Dim datum As String = Now.AddDays(-1).ToShortDateString
System.Console.WriteLine("Erstelle EXCEL...")
Dim excel As String = genEXCEL_MDM_ZOLL()
Dim excel As String = genEXCEL_MDM_ZOLL(Jahr)
System.Console.WriteLine("EXCEL erstellt...")
If excel <> "" And Not excel.StartsWith("ERROR: ") Then
@@ -606,11 +656,12 @@ Module Mail
Msg.From = New MailAddress("al@verag.ag")
Msg.To.Add("al@verag.ag")
Msg.To.Add("Viktoria.Leirich@imex-group.at")
Msg.To.Add("sales@verag.ag")
' Msg.To.Add("jl@verag.ag")
' Msg.Bcc.Add("al@verag.ag")
' Msg.Bcc.Add("cw@verag.ag")
Msg.CC.Add("jl@verag.ag")
Msg.CC.Add("al@verag.ag")
Msg.Subject = "Auswertung MDM-ZOLL Vergütung"
@@ -666,7 +717,7 @@ Module Mail
'myCredentials.UserName = "al@verag.ag"
'myCredentials.Password = "verag#2"
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = "support"
myCredentials.Password = supportPWD
' myCredentials.UserName = "testmail@verag.ag"
@@ -718,7 +769,26 @@ Module Mail
Msg.Attachments.Add(attachment)
mySmtpsvr.Send(Msg)
Try
mySmtpsvr.Send(Msg)
Catch ex As Exception
Try
mySmtpsvr.Port = 25
mySmtpsvr.Send(Msg)
Catch ex2 As Exception
Try
mySmtpsvr.Host = "192.168.0.107"
mySmtpsvr.Port = 25
mySmtpsvr.Send(Msg)
Catch ex3 As Exception
MsgBox(ex3.Message & ex3.StackTrace)
Return False
End Try
End Try
End Try
System.Console.WriteLine("E-Mail gesendet.")
' MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
@@ -729,27 +799,13 @@ Module Mail
End If
Catch ex As Exception
Try
mySmtpsvr.Port = 25
mySmtpsvr.Send(Msg)
Catch ex2 As Exception
Try
mySmtpsvr.Host = "192.168.0.107"
mySmtpsvr.Port = 25
mySmtpsvr.Send(Msg)
Catch ex3 As Exception
MsgBox(ex3.Message & ex3.StackTrace)
Return False
End Try
End Try
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Private Sub send()
Dim message As New MailMessage("al@verag.ag", "al@verag.ag", "Test", "Testmail")
@@ -764,7 +820,7 @@ Module Mail
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = "support"
myCredentials.Password = supportPWD
' myCredentials.UserName = "testmail@verag.ag"
@@ -1071,7 +1127,7 @@ Module Mail
Public Function genEXCEL_MDM_ZOLL() As String
Public Function genEXCEL_MDM_ZOLL(Jahr) As String
Try
@@ -1093,13 +1149,13 @@ Module Mail
Datei = .Workbooks.Open(filepath) 'Anpassen
Blatt = Datei.Worksheets("CS") 'Anpassen
Blatt.Range("E1").Value = Now.Year
Blatt.Range("F1").Value = If(Jahr > 0, Jahr, Now.AddMonths(-1).Year)
' Dim von = CDate("01." & Now.AddMonths(-1) & "." & Now.AddMonths(-1).Year)
For i = 1 To Now.AddMonths(-1).Month
Dim year = Now.AddMonths(-1).Year
For i = 1 To 12 'Now.AddMonths(-1).Month
Dim year = If(Jahr > 0, Jahr, Now.AddMonths(-1).Year)
Dim sqlstr As String = ""
' Dim bis = von.AddMonths(1).AddDays(-1)
@@ -1349,7 +1405,7 @@ Module Mail
Public Function loadDgvBySqlSDL(ByVal sql As String) As DataTable
Try
Dim myTable = New DataTable()
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionSDL
'conn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=test;Password=BmWr501956;"
'conn.Open()

BIN
MailSender/Resources/MDM_ZOLL_Verguetung.xlsx
View File

Binary file not shown.