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-11-18 14:59:04 +01:00
parent 05280436a4
commit 98378dd496
51 changed files with 4647 additions and 763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
MailSender/MAILSender.vb
View File

@@ -73,7 +73,7 @@ Module Mail
' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------
' PARAM = "MDM_Zollbuero_Verguetung"
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("VERAG/ATILLA", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("07.06.2021 00:00:00"), CDate("07.06.2021 23:59:59"), True)
@@ -144,7 +144,7 @@ Module Mail
System.Console.WriteLine("OPTION erkannt: NCTSLIST_TOBB _ Erstellt eine Liste der Versandscheine mit TOBB Bürgschaft.")
sendTOBB("VERAG/ATILLA", Now.AddDays(-1), Now.AddDays(-1))
sendTOBB("IMEX", 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"
@@ -256,27 +256,30 @@ Module Mail
End Sub
Sub sendTOBB(FirmaTmp, datVon, datBis)
Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157'", datVon, datBis, True)
Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350 / 20TR0004000069756 / 21TR0004000090364", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350', '20TR0004000069756', '21TR0004000090364'", datVon, datBis, True)
Dim _list As New List(Of String)
Dim addbetreff = ""
Select Case _erg
Case "NO_RESULT"
System.Console.WriteLine("Keine Einträge gefunden.")
addbetreff = " - NO DATA"
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
_list.Add(_erg)
End Select
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;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*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;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*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;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*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 Sub
Function getOption() As String
@@ -694,7 +697,8 @@ Module Mail
Msg.From = New MailAddress("al@verag.ag")
Msg.To.Add("Viktoria.Leirich@imex-group.at")
' Msg.To.Add("Viktoria.Leirich@imex-group.at")
Msg.To.Add("as@verag.ag")
Msg.To.Add("sales@verag.ag")
' Msg.To.Add("jl@verag.ag")
' Msg.Bcc.Add("al@verag.ag")
@@ -1218,7 +1222,8 @@ Module Mail
sqlstr &= " SELECT count(*)"
sqlstr &= " FROM tblEABelegnummer as EAB inner join tblEABelegposition as POS on EAB.Mandant=POS.Mandant and EAB.[Niederlassung]=POS.[Niederlassung] and EAB.[Benutzer]=POS.[Benutzer] and EAB.[BelegDat]=POS.[BelegDat] and EAB.[BelegNr]=POS.[BelegNr]"
sqlstr &= " where LeistungsNr=480 and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 and EAB.Mandant='IMEX' "
sqlstr &= " where LeistungsNr=480 and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 and EAB.Mandant='VERA' AND EAB.Niederlassung='SUA' "
' sqlstr &= " where LeistungsNr=480 and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 and EAB.Mandant='IMEX' "
Dim anzahl = 0
@@ -1230,7 +1235,7 @@ Module Mail
sqlstr = " SELECT COUNT(*) FROM [tblSDLAbholung] where sdlAb_Storniert=0 and sdlAb_FahrerAbholAuftrag=1 and sdlAb_Abholung between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
sqlstr = " SELECT COUNT(*) FROM [tblSDLAbholung] where sdlAb_Storniert=0 and sdlAb_FahrerAbholAuftrag=1 and sdlAb_Abholung between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'AND sdlAb_Abholung>='01.09.2021 00:00:00' "
anzahl = 0
Dim dt2 = loadDgvBySqlSDL(sqlstr)

2
MailSender/MailSender.vbproj
View File

@@ -16,7 +16,7 @@
</TargetFrameworkProfile>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>x86</PlatformTarget>
<PlatformTarget>x64</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>