div. Änderungen

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -36,6 +36,10 @@ Public Class usrCntlMitarbeiter
     End Sub
 
     Public Sub Tabelle_anzeigen()
+
+        btnUEZ_ausz.Visible = False
+        lblAktiv.Text = ""
+
         If TabControl1.SelectedIndex = 0 Then
             showVERAGATILLA("VERAG")
         ElseIf TabControl1.SelectedIndex = 1 Then
@@ -53,17 +57,12 @@ Public Class usrCntlMitarbeiter
         ElseIf TabControl1.SelectedIndex = 7 Then
             showVERAGATILLA("DURMAZ")
         ElseIf TabControl1.SelectedIndex = 8 Then
+            btnUEZ_ausz.Visible = True
             If dgvTimasNew IsNot Nothing Then
                 showTIMAS(False)
             End If
         End If
 
-        If TabControl1.SelectedIndex = 7 Then
-            Button7.Visible = True
-        Else
-            Button7.Visible = False
-        End If
-
     End Sub
 
     Public Sub showVERAGATILLA(firma)
@@ -244,7 +243,7 @@ Public Class usrCntlMitarbeiter
             Dim dt_onlyActive As New DataTable
             dt_onlyActive = dt.Select("[Ausweis-Nr] <> 0 and Vorname <> '' and Nachname <> ''").CopyToDataTable
             dgvTimasNew.DataSource = dt_onlyActive
-
+            lblAktiv.Text = "AKTIV: " & dt_onlyActive.Rows.Count & "/" & dt.Rows.Count
             ' MsgBox("ALLE:" & dt.Rows.Count & vbNewLine & "AKIVE:" & dt_onlyActive.Rows.Count)
 
         End If
@@ -875,7 +874,7 @@ Public Class usrCntlMitarbeiter
                 Return failureDesc
             End If
 
-            API_STRING &= "/u"
+            API_String &= "/u"
 
             rest.AddHeader("Authorization", "Bearer " & API.Rows(0).Item("api_token"))
             rest.AddHeader("Content-Type", "multipart/form-data")
@@ -898,7 +897,7 @@ Public Class usrCntlMitarbeiter
             rest.AddHeader("Content-Type", "image/jpeg")
             success = rest.SetMultipartBodyStream(fileStream)
 
-            Dim responseBody As String = rest.FullRequestMultipart("POST", API_STRING)
+            Dim responseBody As String = rest.FullRequestMultipart("POST", API_String)
             If (rest.LastMethodSuccess <> True) Then
                 Debug.WriteLine(rest.LastErrorText)
                 Return rest.LastErrorText
@@ -938,7 +937,7 @@ Public Class usrCntlMitarbeiter
             dgvTimasNew.Refresh()
         End If
 
-       
+
 
         Me.Cursor = Cursors.Default
     End Sub
@@ -947,7 +946,7 @@ Public Class usrCntlMitarbeiter
         Tabelle_anzeigen()
     End Sub
 
-    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnUEZ_ausz.Click
 
         If dgvTimasNew.Rows.Count = 0 Then Exit Sub
 
@@ -1042,4 +1041,6 @@ Public Class usrCntlMitarbeiter
 
 
     End Sub
+
+
 End Class