Timas-API, WIKI-API, GUI

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -20,6 +20,7 @@ Public Class usrCntlMitarbeiter
     Private locZeilen As Integer = -1
     Public mid As Integer = -1
     Dim FUNC = New cProgramFunctions
+    Dim dt As New DataTable()
 
     Private Sub uctrlMitarbeiter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ConnStr = frmMain.ConnStr
@@ -197,12 +198,23 @@ Public Class usrCntlMitarbeiter
         locZeilen = -1
         If Not Grid_aktiv Then Exit Sub
 
-        Dim dt As New DataTable()
+        If dt.Columns.Count > 0 Then
 
-        Dim timas As New cTimasAPI()
-        timas.getEmployeeList(dt)
+            If txtSuche.Text <> "" Then
+                dt.DefaultView.RowFilter = "lastname like '%" & txtSuche.Text & "%'  or firstname like '%" & txtSuche.Text & "%' or pnr1 like '%" & txtSuche.Text & "%'  or info like '%" & txtSuche.Text & "%'"
+
+            Else
+                dt.DefaultView.RowFilter = Nothing
+            End If
+
+            dgvTimasNew.DataSource = dt
+
+        Else
+                Dim timas As New cTimasAPI()
+                timas.getEmployeeList(dt)
+                dgvTimasNew.DataSource = dt
+            End If
 
-        dgvTimasNew.DataSource = dt
 
     End Sub
 
@@ -533,7 +545,7 @@ Public Class usrCntlMitarbeiter
 
     End Sub
 
-    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+    Private Sub copyToClipboardWIKI()
         Try
             Me.Cursor = Cursors.WaitCursor
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -591,7 +603,47 @@ Public Class usrCntlMitarbeiter
 
     End Sub
 
-    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
+        ContextMenuStrip1.Hide()
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+
+        If item IsNot Nothing Then
+            If item.Name = "uploadPuctureToWiki" Then
+                uploadToWiki()
+
+            ElseIf item.Name = "copyToClipboard" Then
+                copyToClipboardWIKI()
+            Else
+                MsgBox("Funktion nicht implementiert!")
+            End If
+
+        End If
+
+    End Sub
+
+
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        If Not ContextMenuStrip2.Items.ContainsKey("uploadPuctureToWiki") Then
+            Dim uploadPictures = New ToolStripMenuItem() With {.Text = "Bilder ins WIKI hochladen", .Name = "uploadPuctureToWiki", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            ContextMenuStrip2.Items.Add(uploadPictures)
+            AddHandler uploadPictures.Click, AddressOf mnuItem_Clicked
+        End If
+
+
+        If Not ContextMenuStrip2.Items.ContainsKey("copyToClipboard") Then
+            Dim copyToClipboard = New ToolStripMenuItem() With {.Text = "In Zwischenablage kopieren", .Name = "copyToClipboard", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            AddHandler copyToClipboard.Click, AddressOf mnuItem_Clicked
+            ContextMenuStrip2.Items.Add(copyToClipboard)
+        End If
+
+
+
+        ContextMenuStrip2.Show(Cursor.Position)
+    End Sub
+
+
+    Private Sub uploadToWiki()
 
         Me.Cursor = Cursors.WaitCursor
         Dim token = "eyJhbGciOiJSUzI1NiIsInR5cCI6IkpXVCJ9.eyJhcGkiOjEsImdycCI6MSwiaWF0IjoxNjg3OTMzNDU3LCJleHAiOjE3MTk0OTEwNTcsImF1ZCI6InVybjp3aWtpLmpzIiwiaXNzIjoidXJuOndpa2kuanMifQ.ul2loFYVHdco2Ia2LcS4nme4PdgcuU6QKrunucECebX5LhcsSyuEg-lKiP2X3JXW57Ym4oCBjamDd5-5uqbQd9hOQ5CDO6yqK2r8TPNxivK29oAl2wfcHaKOe7QNti0yRlMpomJjc_5qaegeeLjN5w-lYbbqtSz_6y8GkPPr0P3l4coIk5IzngGazj8XLYGGN6y5qT4s8IR0sNhfz0hJAlIeVTeFKl8KFZMpFKvBnOjkL0GYOYjrHzPLSUAhe8hCGVcA7rWsweVjjvOclFDDFwZ0SwOY0TZqvz-LOsZ3V7ucQaT3flAjuHiEhODGJguQRBs67U8lVO2cxbJJyR3FUA"
@@ -631,7 +683,7 @@ Public Class usrCntlMitarbeiter
         For Each row As DataGridViewRow In dgv.Rows
             If row.Cells("mit_foto_DocId").Value > 0 Then
                 Dim file = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(row.Cells("mit_foto_DocId").Value)
-                Dim succeess = uploadPictureToWiki(token, 4, file) 'Folder 4 -> Mitarbeiterfotos
+                Dim succeess = uploadPictureToWIKI(token, 4, file) 'Folder 4 -> Mitarbeiterfotos
             End If
 
         Next
@@ -647,7 +699,7 @@ Public Class usrCntlMitarbeiter
 
 
 
-    Private Function uploadPictureToWiki(authenticationToken As String, folderIDx As Integer, image As String) As String
+    Private Function uploadPictureToWIKI(authenticationToken As String, folderIDx As Integer, image As String) As String
         Try
 
             VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()