Überstundenauszahlung, TimasAPI, etc.

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -72,6 +72,7 @@ Public Class frmMitarbeitersuche
         lblTimasSaldo.Visible = False
         Panel1.Visible = False
         btnSettings.Visible = False
+        Button3.Visible = False
         ' Dim MA As cMitarbeiter = Nothing
         If sbMitarbeiter._value <> "" Then
             MA = New cMitarbeiter(sbMitarbeiter._value)
@@ -190,6 +191,8 @@ 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("Überstunden_auszahlen", "SDL") Then Button3.Visible = True = True
+
         End If
     End Sub
 
@@ -423,7 +426,7 @@ Public Class frmMitarbeitersuche
             Dim dtZeiten As New DataTable
             If timas IsNot Nothing Then
                 Dim isServiceRunning As Boolean = True
-                timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text, isServiceRunning)
+                timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text, "dailyBalanceYesterday", isServiceRunning)
                 If Not isServiceRunning Then
                     'Abfrage konnte nicht durchgeführt werden.
                     MsgBox("Abfragefehler am Timas-Server!")
@@ -484,4 +487,9 @@ Public Class frmMitarbeitersuche
         Process.Start(webAddress)
     End Sub
 
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If sbMitarbeiter._value = "" Then Exit Sub
+        Dim f As New frmUeberstundenauszahlen(sbMitarbeiter._value)
+        f.ShowDialog(Me)
+    End Sub
 End Class