From b2598be73a7de0eaf9acb64d207b70a36a2d920e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 4 Jan 2024 09:56:14 +0100 Subject: [PATCH 1/2] Anpassung der untersch. Postgangszeiten pro Niederlassung --- .../frmMitarbeitersuche.vb | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index bce25b55..863ff318 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -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) From f7fdb73b44acbd335d5f2479395d600f1fd40132 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 4 Jan 2024 09:57:23 +0100 Subject: [PATCH 2/2] Postgang --- .../Mitarbeiterverzeichnis/frmMitarbeitersuche.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 863ff318..792e877a 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -332,7 +332,7 @@ Public Class frmMitarbeitersuche 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 "WAI" : timestp = timestp.AddMinutes(30) Case "NKD" : timestp = timestp.AddMinutes(20) Case "DTB" : timestp = timestp.AddMinutes(40) Case Else