Mitarbeiter kopieren

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -1,4 +1,7 @@
 Imports System.ComponentModel
+Imports GrapeCity.Viewer.Common.Model
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class usrCntlMitarbeiter
 
@@ -370,4 +373,106 @@ Public Class usrCntlMitarbeiter
     Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckStateChanged
         Tabelle_anzeigen()
     End Sub
+
+    Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click
+        If TabControl1.SelectedIndex = 0 Then
+
+            If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
+
+        ElseIf TabControl1.SelectedIndex = 1 Then
+
+            If dgvATILLA.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvATILLA.CurrentRow.Cells(0).Value)
+
+        ElseIf TabControl1.SelectedIndex = 2 Then
+
+            If dgvIMEX.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvIMEX.CurrentRow.Cells(0).Value)
+
+        ElseIf TabControl1.SelectedIndex = 3 Then
+
+            If dgvUNISPED.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvUNISPED.CurrentRow.Cells(0).Value)
+
+        ElseIf TabControl1.SelectedIndex = 4 Then
+
+            If dgvAMBAR.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvAMBAR.CurrentRow.Cells(0).Value)
+
+        ElseIf TabControl1.SelectedIndex = 5 Then
+
+            If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
+
+        ElseIf TabControl1.SelectedIndex = 5 Then
+
+            If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub
+            copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)
+
+        End If
+    End Sub
+
+    Private Sub dgvVerag_CellMouseDown(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles dgvVERAG.CellMouseDown, dgvVERIMEX.CellMouseDown, dgvUNISPED.CellMouseDown, dgvIMEX.CellMouseDown, dgvFRONTOFFICE.CellMouseDown, dgvATILLA.CellMouseDown, dgvAMBAR.CellMouseDown
+
+        If e.Button = Windows.Forms.MouseButtons.Right AndAlso e.RowIndex > -1 Then
+            Dim rowClicked As DataGridView.HitTestInfo
+            Select Case sender.name
+                Case "dgvVERAG"
+                    rowClicked = dgvVERAG.HitTest(e.X, e.Y)
+                    dgvVERAG.ClearSelection()
+                    Me.dgvVERAG.Rows(e.RowIndex).Selected = True
+
+                Case "dgvVERIMEX"
+                    rowClicked = dgvVERIMEX.HitTest(e.X, e.Y)
+                    dgvVERIMEX.ClearSelection()
+                    Me.dgvVERIMEX.Rows(e.RowIndex).Selected = True
+
+                Case "dgvUNISPED"
+                    rowClicked = dgvUNISPED.HitTest(e.X, e.Y)
+                    dgvUNISPED.ClearSelection()
+                    Me.dgvUNISPED.Rows(e.RowIndex).Selected = True
+
+                Case "dgvIMEX"
+                    rowClicked = dgvIMEX.HitTest(e.X, e.Y)
+                    dgvIMEX.ClearSelection()
+                    Me.dgvIMEX.Rows(e.RowIndex).Selected = True
+
+                Case "dgvFRONTOFFICE"
+                    rowClicked = dgvFRONTOFFICE.HitTest(e.X, e.Y)
+                    dgvFRONTOFFICE.ClearSelection()
+                    Me.dgvFRONTOFFICE.Rows(e.RowIndex).Selected = True
+
+                Case "dgvATILLA"
+                    rowClicked = dgvATILLA.HitTest(e.X, e.Y)
+                    dgvATILLA.ClearSelection()
+                    Me.dgvATILLA.Rows(e.RowIndex).Selected = True
+
+                Case Else
+
+                    rowClicked = dgvAMBAR.HitTest(e.X, e.Y)
+                    dgvAMBAR.ClearSelection()
+                    Me.dgvAMBAR.Rows(e.RowIndex).Selected = True
+
+            End Select
+
+            ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)
+
+        End If
+
+    End Sub
+    Private Sub copyUser(id As Integer)
+
+
+        Me.Cursor = Cursors.WaitCursor
+        Dim frmMitarbDetails As New frmMitarbDetails()
+
+        frmMitarbDetails.mid = id
+        frmMitarbDetails.Show(Me)
+        frmMitarbDetails.isUpdate = False
+        frmMitarbDetails.txtVname.Text = "Kopie von" & frmMitarbDetails.txtVname.Text
+        Me.Cursor = Cursors.Default
+
+
+    End Sub
 End Class