Timas, Fakt -> Leihgeldkasse, etc.

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb

@@ -35,6 +35,7 @@ Partial Class frmMitarbeitersuche
         Me.lblStatusZE = New System.Windows.Forms.Label()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.pnlZeiten = New System.Windows.Forms.Panel()
+        Me.cbxLaengergearbeitet = New System.Windows.Forms.CheckBox()
         Me.btnAkten = New System.Windows.Forms.Button()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.Button2 = New System.Windows.Forms.Button()
@@ -264,6 +265,7 @@ Partial Class frmMitarbeitersuche
         Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk
         Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlZeiten.Controls.Add(Me.cbxLaengergearbeitet)
         Me.pnlZeiten.Controls.Add(Me.btnAkten)
         Me.pnlZeiten.Controls.Add(Me.PictureBox5)
         Me.pnlZeiten.Controls.Add(Me.Button2)
@@ -280,6 +282,18 @@ Partial Class frmMitarbeitersuche
         Me.pnlZeiten.TabIndex = 22
         Me.pnlZeiten.Visible = False
         '
+        'cbxLaengergearbeitet
+        '
+        Me.cbxLaengergearbeitet.AutoSize = True
+        Me.cbxLaengergearbeitet.ForeColor = System.Drawing.Color.Black
+        Me.cbxLaengergearbeitet.Location = New System.Drawing.Point(367, -1)
+        Me.cbxLaengergearbeitet.Name = "cbxLaengergearbeitet"
+        Me.cbxLaengergearbeitet.Size = New System.Drawing.Size(109, 17)
+        Me.cbxLaengergearbeitet.TabIndex = 131
+        Me.cbxLaengergearbeitet.Text = "Länger gearbeitet"
+        Me.cbxLaengergearbeitet.UseVisualStyleBackColor = True
+        Me.cbxLaengergearbeitet.Visible = False
+        '
         'btnAkten
         '
         Me.btnAkten.BackColor = System.Drawing.Color.White
@@ -991,4 +1005,5 @@ Partial Class frmMitarbeitersuche
     Friend WithEvents Label17 As Windows.Forms.Label
     Friend WithEvents lblNotfall_Handy As Windows.Forms.Label
     Friend WithEvents lblNotfall_Name As Windows.Forms.Label
+    Friend WithEvents cbxLaengergearbeitet As Windows.Forms.CheckBox
 End Class

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