Mitarbeiter Postgang

This commit is contained in:
2024-01-16 09:25:05 +01:00
parent eb334c3256
commit c16108097c
3 changed files with 10 additions and 6 deletions

View File

@@ -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) 'Verag Post + AT Zoll
Case "WAI" : timestp = timestp.AddMinutes(30)
Case "NKD" : timestp = timestp.AddMinutes(20)
Case "DTB" : timestp = timestp.AddMinutes(40)
Case "NKD" : timestp = timestp.AddMinutes(30)
Case "DTB" : timestp = timestp.AddMinutes(30)
Case Else
timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
End Select