MA

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -331,10 +331,10 @@ Public Class frmMitarbeitersuche
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung <> "" Then
                         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                             Case "SUB" : timestp = timestp.AddHours(1)
-                            Case "SBG" : timestp = timestp.AddHours(1)
+                            Case "SBG" : timestp = timestp.AddHours(1) '? 30
                             Case "WAI" : timestp = timestp.AddMinutes(30)
                             Case "NKD" : timestp = timestp.AddMinutes(20)
-                            Case "DTB" : timestp = timestp.AddMinutes(40)
+                            Case "DTB" : timestp = timestp.AddMinutes(30)
                             Case Else
                                 timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
                         End Select

VERAG_PROG_ALLGEMEIN/cErrorHandler.vb

@@ -15,7 +15,7 @@ Public Class cErrorHandler
         '    bm.Save("C:\formgrab.bmp", Drawing.Imaging.ImageFormat.Bmp)
         'End If
 
-
+        Try
 
             Select Case OP
             Case ERROR_OP.MAIL
@@ -33,6 +33,15 @@ Public Class cErrorHandler
         VERAG_PROG_ALLGEMEIN.cERS.saveErr(OP, message, stack, errCode, functionName, recieverMailAdress, zusatz)
 
 
+        Catch ex As Exception
+            Try
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
+            Catch ex2 As Exception
+
+            End Try
+        End Try
+
     End Sub
 
     Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)