timas

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -54,7 +54,7 @@ Public Class usrCntlMitarbeiter
             showVERAGATILLA("VERIMEX")
         ElseIf TabControl1.SelectedIndex = 7 Then
             If dgvTimasNew IsNot Nothing Then
-                showTIMAS()
+                showTIMAS(False)
             End If
         End If
 
@@ -193,11 +193,11 @@ Public Class usrCntlMitarbeiter
     End Sub
 
 
-    Public Sub showTIMAS()
+    Public Sub showTIMAS(refresh As Boolean)
         locZeilen = -1
         If Not Grid_aktiv Then Exit Sub
 
-        If dt.Columns.Count > 0 Then
+        If dt.Columns.Count > 0 And Not refresh Then
 
             If txtSuche.Text <> "" Then
                 dt.DefaultView.RowFilter = "Vorname like '%" & txtSuche.Text & "%'  or Nachname like '%" & txtSuche.Text & "%' or 'Personal-Nr (Lohn)' like '%" & txtSuche.Text & "%'  or Info like '%" & txtSuche.Text & "%'"
@@ -828,11 +828,18 @@ Public Class usrCntlMitarbeiter
     Private Sub dgvTimasNew_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTimasNew.CellDoubleClick
         Me.Cursor = Cursors.WaitCursor
         'neue GUI für Änderungen im Timas
-
         Dim frmMitarbDetails As New frmMitarbTimas()
+
         frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
-        frmMitarbDetails.Show(Me)
-        sender.RELOAD()
+        'frmMitarbDetails.Show(Me)
+        If frmMitarbDetails.ShowDialog() = DialogResult.OK Then
+            sender.RELOAD()
+            showTIMAS(True)
+            dgvTimasNew.Refresh()
+        End If
+
+       
+
         Me.Cursor = Cursors.Default
     End Sub
 End Class