Änderung der Logik der Vollmachtsverwaltung im Kunden (nun können pro VM-Typ mehrere Vollmachten hinterlegt werden). Weiters wurde die GUI der Vollmachten überarbeitet

2022-09-19 08:29:11 +02:00
parent 780d763ba4
commit 5d324634de
399 changed files with 259205 additions and 1386 deletions
--- a/_VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
+++ b/_VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
@@ -0,0 +1,76 @@
+Imports System.Net.Mail
+
+Public Class cErrorHandler
+
+    Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@verag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "", Optional errCode As String = Nothing)
+        If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW)
+        Select Case OP
+            Case ERROR_OP.MAIL
+                sendERRORperMail(title & " | " & My.Application.Info.AssemblyName, message, stack, mailadess, zusatz, functionName)
+            Case ERROR_OP.SHOW
+                'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+                MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler"))
+        End Select
+
+        VERAG_PROG_ALLGEMEIN.cERS.saveErr(OP, message, stack, errCode, functionName, recieverMailAdress, zusatz)
+
+
+    End Sub
+
+    Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)
+        Dim Msg As New MailMessage
+        Dim myCredentials As New System.Net.NetworkCredential
+        'myCredentials.UserName = "support@verag.ag"
+        'myCredentials.Password = "$up0Rt2809!"
+        myCredentials.UserName = "al@verag.ag"
+        myCredentials.Password = "verag#2"
+
+        Msg.IsBodyHtml = False
+        Dim mySmtpsvr As New SmtpClient()
+        mySmtpsvr.Host = "owa.verag.ag" 'bei web.de
+        mySmtpsvr.Port = 25 '587 '25
+        mySmtpsvr.UseDefaultCredentials = False
+        mySmtpsvr.Credentials = myCredentials
+
+        Try
+            Msg.From = New MailAddress("al@verag.ag")
+            Msg.To.Add(recieverMailAdress)
+
+            Msg.Subject = title '"ERROR - DAKOSY Einarbeitung"
+            Msg.Body = "Uhrzeit: " & Now.ToShortDateString & " " & Now.ToShortTimeString
+            Msg.Body = "Function: " & functionName
+            Msg.Body &= vbNewLine
+            Msg.Body &= vbNewLine
+            Msg.Body &= "Fehlermeldung: " & errmsg
+            Msg.Body &= vbNewLine
+            Msg.Body &= vbNewLine
+            Msg.Body &= "Stacktrace: " & errstack
+            Msg.Body &= vbNewLine
+            If zusatz <> "" Then
+                Msg.Body &= "Zusatz: " & zusatz
+                Msg.Body &= vbNewLine
+            End If
+            Msg.Body &= errstack
+            mySmtpsvr.Send(Msg)
+        Catch ex As Exception
+            Try
+                mySmtpsvr.Host = "192.168.0.107" 'bei web.de ' 235
+                mySmtpsvr.Send(Msg)
+
+            Catch ex2 As Exception
+                ' MsgBox(ex.Message & ex.StackTrace)
+            End Try
+
+
+        End Try
+
+    End Sub
+
+End Class
+
+Public Class ERROR_OP
+    Shared Property SHOW As String = "SHOW"
+    Shared Property MAIL As String = "MAIL"
+    Shared Property TOFILE As String = "TOFILE"
+    Shared Property LOG As String = "LOG" 'Nur fürs Protokoll, keine Fehlermeldung
+End Class