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

Anpassung der untersch. Postgangszeiten pro Niederlassung

Browse Source
This commit is contained in:
d.breimaier
2024-01-04 09:56:14 +01:00
parent 23b728284d
commit b2598be73a
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -317,7 +317,7 @@ Public Class frmMitarbeitersuche
If art = "post" Then
'postgang ausstempen, dann beginn post, + 1h ende post
Dim askPost As MsgBoxResult = MsgBox("Postgang (1h) für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & Now.ToString(), vbYesNo)
Dim askPost As MsgBoxResult = MsgBox("Postgang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & Now.ToString(), vbYesNo)
If askPost = vbYes Then
Dim info
Dim timestp = Now
@@ -327,7 +327,20 @@ Public Class frmMitarbeitersuche
If timeEntryExisting AndAlso isOnline Then timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "out", 0) 'Ende
timestp = timestp.AddMinutes(1)
timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 6) 'Start Post 6 Postgang
timestp = timestp.AddHours(1)
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 "WAI" : timestp = timestp.AddMinutes(3015)
Case "NKD" : timestp = timestp.AddMinutes(20)
Case "DTB" : timestp = timestp.AddMinutes(40)
Case Else
timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
End Select
timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
End If
timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "out", 6) ' Ende Post 6 Postgang
MsgBox(info)