edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

timas

Browse Source
This commit is contained in:
d.breimaier
2023-09-27 09:32:56 +02:00
parent df4d816216
commit 842aee93f1
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

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