timas

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -464,7 +464,7 @@ Public Class cTimasAPI
     End Function
 
 
-    Public Function updateEmployee(emp As cTimasEmployee, dgv As DataGridView) As Boolean
+    Public Function updateEmployee(emp As cTimasEmployee, dgvGroups As DataGridView) As Boolean
 
         Try
 
@@ -539,11 +539,11 @@ Public Class cTimasAPI
                 Debug.WriteLine(sbResponseBody)
             End If
 
-            If dgv IsNot Nothing AndAlso dgv.RowCount > 0 AndAlso emp.Gruppen IsNot Nothing Then
+            If dgvGroups IsNot Nothing AndAlso dgvGroups.RowCount > 0 AndAlso emp.Gruppen IsNot Nothing Then
 
 
 
-                For Each r As DataGridViewRow In dgv.Rows
+                For Each r As DataGridViewRow In dgvGroups.Rows
                     For Each i As cTimasGruppe In emp.Gruppen
                         If r.Cells("set").Value = False AndAlso r.Cells("id").Value = i.Id Then
                             deleteGroupmembers(i.Id, emp.ID)
@@ -894,8 +894,9 @@ Public Class cTimasAPI
                 dt.Columns.Add("Geschlecht", GetType(String))
                 dt.Columns.Add("Ausweis-Nr", GetType(Integer))
                 dt.Columns.Add("Info", GetType(String))
+            End If
 
-
+            dt.Clear()
 
                 Dim j As Integer = 0
                 While j < num
@@ -914,7 +915,7 @@ Public Class cTimasAPI
                     dt.Rows.Add(R)
                     j = j + 1
                 End While
-            End If
+
 
         Catch ex As WebException
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)