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

Aktengang für NKN (45minuten)

Browse Source
This commit is contained in:
d.breimaier
2024-01-08 16:54:10 +01:00
parent f7fdb73b44
commit 6003f55a28
2 changed files with 93 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -338,6 +338,7 @@ Public Class frmMitarbeitersuche
Case Else
timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
End Select
Else
timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
End If
@@ -350,7 +351,23 @@ Public Class frmMitarbeitersuche
End If
ElseIf art = "akten" Then
Dim aktengang As DateTime = Now().AddMinutes(-10)
Dim minutesBeforeStart As Integer = 1
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung <> "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SUB" : minutesBeforeStart = 10
Case "NKN" : minutesBeforeStart = 45
Case Else
minutesBeforeStart = 1 'NICHT ERLAUBT
End Select
Else
minutesBeforeStart = 1 'NICHT ERLAUBT
End If
Dim aktengang As DateTime = Now().AddMinutes(-minutesBeforeStart)
Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo)
If askPost = vbYes Then
Dim info
@@ -360,7 +377,7 @@ Public Class frmMitarbeitersuche
Dim isOnline = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting)
If Not timeEntryExisting AndAlso Not isOnline Then
timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 10) 'Start 10 Aktengang
timestp = timestp.AddMinutes(10)
timestp = timestp.AddMinutes(minutesBeforeStart)
timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "out", 10) 'Ende 10 Aktengang
timestp = timestp.AddMinutes(1)
timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 0) ' Start