LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -13,6 +13,7 @@ Public Class frmMitarbeitersuche
     Dim timas As New cTimasAPI("timas")
     Dim requestDone As Boolean = False
     Dim MA As cMitarbeiter = Nothing
+    Dim online As Boolean = False
 
     Sub New()
 
@@ -221,6 +222,7 @@ Public Class frmMitarbeitersuche
         pnlMotto.Visible = False
         pic.BackgroundImage = My.Resources.personGray_m
         picGeschlecht.Visible = False
+        'pnlZeiten.Visible = False
     End Sub
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -402,19 +404,34 @@ Public Class frmMitarbeitersuche
 
             Else
 
+                Dim resultCode As Integer = IIf(cbxHomeoffice.Checked, 3, 0)
+
+                If MA.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
+
+                    Dim f As New frmZEButtons(art)
+                    f.ShowDialog()
+
+                    If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then
+                        resultCode = f.resultCode
+                    Else
+                        Exit Sub
+                    End If
+                End If
+
+
                 '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)
-                If a = vbYes Then
-                    Dim info
-                    timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, IIf(cbxHomeoffice.Checked, 3, 0))
-                    MsgBox(info)
-                    Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
-                    requestDone = False
-                    initTimasData()
+                    If a = vbYes Then
+                        Dim info
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode)
+                        MsgBox(info)
+                        Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
+                        requestDone = False
+                        initTimasData()
+                    End If
                 End If
-            End If
 
-        End If
+            End If
 
     End Sub
 
@@ -441,7 +458,7 @@ Public Class frmMitarbeitersuche
                 End If
                 lblStatusZE.Visible = True
                 Dim checkEntry As Boolean = timas.getTimeEntries(MA.mit_timasId, dtZeiten,, requestDone)
-
+                online = checkEntry
                 If requestDone Then
                     If checkEntry Then
                         'PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green