Timas, Fakt -> Leihgeldkasse, etc.

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -107,7 +107,7 @@ Public Class frmMitarbeitersuche
             lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer
             lblHandyNr.Text = If(MA.mit_mobiltel, "")
 
-            cbxHomeoffice.Checked = MA.mit_homeoffice
+            cbxHomeoffice.Checked = IIf(MA.mit_homeoffice AndAlso Not MA.mit_timasMehrereFirmen, True, False)
 
 
             Select Case If(MA.mit_abteilung, "")
@@ -203,6 +203,15 @@ Public Class frmMitarbeitersuche
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True
 
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_LÄNGER_ARBEITEN", "SDL") Then cbxLaengergearbeitet.Visible = True
+
+            'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_HOMEOFFICE", "SDL") Then cbxHomeoffice.Visible = True
+
+            If MA.mit_timasMehrereFirmen Then
+                cbxHomeoffice.Visible = False
+            End If
+
+
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Überstunden_auszahlen", "SDL") Then
                 If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
                     Button3.Visible = True
@@ -442,9 +451,14 @@ Public Class frmMitarbeitersuche
 
 
                 'normales kommen/gehen
-                Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
+                Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked AndAlso Not MA.mit_timasMehrereFirmen, "Homeoffice", "Büro") & IIf(cbxLaengergearbeitet.Checked, " (Länger gearbeitet)", "") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
                 If a = vbYes Then
                     Dim info As String = ""
+
+                    If art = "out" AndAlso cbxLaengergearbeitet.Checked Then
+                        resultCode = 15 'länger arbeiten
+                    End If
+
                     timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode)
                     MsgBox(info)
                     Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
@@ -484,12 +498,14 @@ Public Class frmMitarbeitersuche
                         btnZEGehen.Enabled = True
                         btnZEKommen.Enabled = False
                         btnAkten.Enabled = False
+                        cbxLaengergearbeitet.Enabled = True
                     Else
                         lblStatusZE.Text = "OFFLINE"
                         lblStatusZE.BackColor = Color.Firebrick
                         btnZEGehen.Enabled = False
                         btnZEKommen.Enabled = True
                         btnAkten.Enabled = True
+                        cbxLaengergearbeitet.Enabled = False
                     End If
                 Else
 
@@ -503,7 +519,7 @@ Public Class frmMitarbeitersuche
                     btnZEKommen.Enabled = False
                     Button2.Enabled = False
                     btnAkten.Enabled = False
-
+                    cbxLaengergearbeitet.Enabled = False
 
                 End If