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
2022-03-21 10:17:42 +01:00
parent 39911e313e
commit e3843466c8
28 changed files with 4460 additions and 608 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
MailSender/ClosedXML.dll
View File

Binary file not shown.

155
MailSender/MAILSender.vb
View File

@@ -73,7 +73,7 @@ Module Mail
' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------
' PARAM = "MDM_Zollbuero_Verguetung"
' PARAM = "KD_OP_Kreditlimit"
'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)
@@ -90,11 +90,11 @@ Module Mail
End If
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
'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
@@ -140,6 +140,11 @@ Module Mail
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 "KD_OP_Kreditlimit"
System.Console.WriteLine("OPTION erkannt: KD_OP_Kreditlimit _ Erstellt eine OP Liste von Kunden mit Kreditlimit oder VK-Kunden.")
If SendEmail_OPKreditlimit({"as@verag.ag"}, {}, {"al@verag.ag"}, "Kunden - Offene Rechnungen - ACHTUNG: nur mit erfasstem Kreditlimit") 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.")
@@ -248,15 +253,15 @@ Module Mail
System.Console.WriteLine("Programm beendet in 1")
Threading.Thread.Sleep(1000)
Exit Sub
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Exit Sub
End Try
End Sub
Sub sendTOBB(FirmaTmp, datVon, datBis)
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 _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB), datVon, datBis, True)
Dim _list As New List(Of String)
Dim addbetreff = ""
Select Case _erg
@@ -832,6 +837,98 @@ Module Mail
System.Console.WriteLine("E-Mail gesendet.")
' MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
System.Console.WriteLine("Erfolgreich!")
Return True
Else
System.Console.WriteLine(excel)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Private Function SendEmail_OPKreditlimit(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
Dim myCredentials As New System.Net.NetworkCredential
'myCredentials.UserName = "al@verag.ag"
'myCredentials.Password = "Luxandreas#2"
' myCredentials.UserName = "al@verag.ag"
' myCredentials.Password = "verag#2"
'myCredentials.UserName = "al@verag.ag"
'myCredentials.Password = "verag#2"
myCredentials.UserName = "support@verag.ag"
myCredentials.Password = supportPWD
' myCredentials.UserName = "testmail@verag.ag"
' myCredentials.Password = "testmail"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
' mySmtpsvr.Host = "192.168.0.107" 'bei web.de
' mySmtpsvr.Port = 25 '587 '25
mySmtpsvr.Host = "owa.verag.ag"
mySmtpsvr.Port = 587 '25 '587 '25
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
System.Console.WriteLine("E-Mail Daten initialisiert...")
Try
Dim datum As String = Now.AddDays(-1).ToShortDateString
System.Console.WriteLine("Erstelle EXCEL...")
Dim excel As String = genEXCEL_OPKreditlimit()
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")
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 Kunden mit einem offenen Rechnungsbetrag über dem eingegebenen Kreditlimit " & vbNewLine & vbNewLine & "ACHTUNG: Kunden ohne hinterlegten Kreditlimit sind nciht in der Liste beinhaltet." & vbNewLine & vbNewLine & "Stand: " & Now.ToShortDateString & " " & Now.ToShortTimeString & vbNewLine & vbNewLine & vbNewLine & "Automatisch generiertes E-Mail."
Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
Msg.Attachments.Add(attachment)
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")
System.Console.WriteLine("Erfolgreich!")
@@ -1415,6 +1512,46 @@ Module Mail
End Function
Public Function genEXCEL_OPKreditlimit() As String
Try
'Dim sqlstr = "SELECT [AdressenNr],Ordnungsbegriff,Kreditlimit,sum([Offene Posten].Bruttobetrag) as OP_Saldo
' FROM [VERAG].[dbo].[Adressen]
' inner join Kunden on KundenNr=AdressenNr
' inner join [Offene Posten] on KundenNrZentrale=[Offene Posten].Kontonummer
' where Kreditlimit<>2600
' and (LEN(Adressennr)=6 and AdressenNr not like '40%')
' group by [AdressenNr],Ordnungsbegriff,Kreditlimit
' having sum([Offene Posten].Bruttobetrag) >Kreditlimit"
Dim sqlstr = " SELECT [AdressenNr],Ordnungsbegriff, Kreditlimit ,dbo.fn_ConvertNumber(OP_Saldo, 1031, 2) as OP_Saldo, Vorauskasse, dbo.fn_ConvertNumber(OP_Faellig, 1031, 2)OP_Fällig
FROM (SELECT [AdressenNr],Ordnungsbegriff, CASE WHEN kunden.Vorkasse =1 then '' ELSE CONVERT(varchar, CAST(Kreditlimit AS money), 1) END AS Kreditlimit , (sum([Offene Posten].Bruttobetrag)) as OP_Saldo, CASE WHEN kunden.Vorkasse =1 then 'JA' ELSE 'NEIN' END Vorauskasse
, SUM(case when [Offene Posten].Fälligkeitsdatum<=getdate() then [Offene Posten].Bruttobetrag ELSE 0 end) as OP_Faellig
FROM [VERAG].[dbo].[Adressen]
inner join Kunden on KundenNr=AdressenNr
inner join [Offene Posten] on KundenNrZentrale=[Offene Posten].Kontonummer
inner join Filialen on filialen.filialenNr=Kunden.FilialenNr
where ((Kreditlimit<>2600 and Kreditlimit<>0) OR kunden.Vorkasse =1)
and (LEN(Adressennr)=6 and AdressenNr not like '40%')
and filialen.Firma IN ('VERAG','ATILLA') and filialen.filialenNr<>8001
group by [AdressenNr],Ordnungsbegriff,Kreditlimit ,kunden.Vorkasse
having sum([Offene Posten].Bruttobetrag) >Kreditlimit
)
AS T1
WHERE cast (OP_Faellig as float) > 5000
order by OP_Faellig desc"
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
genExcel(dt)
Return sPath & "TMP.xlsx"
Catch ex As Exception
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
Return "ERROR: " & ex.Message
End Try
End Function
Public Function genEXCEL_TR_ATILLA(LandEinschr) As String
Try

12
MailSender/MailSender.vbproj
View File

@@ -50,10 +50,6 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="ClosedXML, Version=0.76.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\closedxml\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml">
<HintPath>C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll</HintPath>
<Private>True</Private>
@@ -137,9 +133,6 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
</ItemGroup>
<ItemGroup>
<Content Include="ClosedXML.dll" />
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Service References\" />
</ItemGroup>
@@ -153,6 +146,11 @@
<Name>ADMIN</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<PackageReference Include="ClosedXML">
<Version>0.95.4</Version>
</PackageReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.