diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 4ae4a752..69b77bda 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/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)