Timas Bugfix, EMail Function für AMBAR korrigiert, Essensbestellungen für Verag360

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -50,7 +50,7 @@ Public Class frmMitarbeitersuche
                 Me.Close()
             End If
             VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.LOAD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id)
-            initMA()
+            initMA(False)
         End If
 
 
@@ -61,10 +61,10 @@ Public Class frmMitarbeitersuche
 
 
     Private Sub sbMitarbeiter_PropertyChanged() Handles sbMitarbeiter.VALUE_CHANGED
-        initMA()
+        initMA(False)
     End Sub
 
-    Sub initMA()
+    Sub initMA(Optional callTimasSaldo As Boolean = True)
         btn.Visible = False
         pnl.Visible = False
         'lblTimasZeiten.Visible = False
@@ -168,8 +168,8 @@ Public Class frmMitarbeitersuche
                 btnSettings.Visible = True
             End If
 
-            requestDone = False
-            initTimasSaldo()
+            requestDone = Not callTimasSaldo
+            initTimasData()
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                 pnlZeiten.Visible = True
@@ -331,7 +331,7 @@ Public Class frmMitarbeitersuche
                     MsgBox(info)
                     Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
                     requestDone = False
-                    initTimasSaldo()
+                    initTimasData()
                 End If
 
 
@@ -339,15 +339,15 @@ 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)
-            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
-                initTimasSaldo()
+                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()
+                End If
             End If
-        End If
 
         End If
 
@@ -355,7 +355,7 @@ Public Class frmMitarbeitersuche
 
 
 
-    Private Sub initTimasSaldo()
+    Private Sub initTimasData()
 
         lblStatusZE.Visible = False
 
@@ -369,7 +369,7 @@ Public Class frmMitarbeitersuche
             If timas IsNot Nothing Then
                 timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text)
                 lblStatusZE.Visible = True
-                Dim checkEntry As Boolean = timas.getTimeEntries(MA.mit_timasId, dtZeiten, requestDone)
+                Dim checkEntry As Boolean = timas.getTimeEntries(MA.mit_timasId, dtZeiten,, requestDone)
 
                 If requestDone Then
                     If checkEntry Then
@@ -398,15 +398,15 @@ Public Class frmMitarbeitersuche
 
 
                 If dtZeiten.Rows.Count > 0 AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
-                        pnlZeiten.Visible = True
-                    Else
-                        pnlZeiten.Visible = False
-                    End If
-
+                    pnlZeiten.Visible = True
+                Else
+                    pnlZeiten.Visible = False
                 End If
 
             End If
 
+        End If
+
     End Sub
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click