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

MA

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-12 22:47:30 +01:00
parent cf4e17bcdb
commit 9ff161f411
2 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

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

11
VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
View File

@@ -15,7 +15,7 @@ Public Class cErrorHandler
' bm.Save("C:\formgrab.bmp", Drawing.Imaging.ImageFormat.Bmp) ' bm.Save("C:\formgrab.bmp", Drawing.Imaging.ImageFormat.Bmp)
'End If 'End If
Try
Select Case OP Select Case OP
Case ERROR_OP.MAIL Case ERROR_OP.MAIL
@@ -33,6 +33,15 @@ Public Class cErrorHandler
VERAG_PROG_ALLGEMEIN.cERS.saveErr(OP, message, stack, errCode, functionName, recieverMailAdress, zusatz) 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 End Sub
Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName) Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)