This commit is contained in:
2022-07-07 13:20:13 +02:00
parent 331611c9e8
commit 28254c99f7
125 changed files with 1796 additions and 1144 deletions

View File

@@ -17,8 +17,18 @@
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
Try
newUserRow.Surname = row.Item("NAME")
Catch ex As Exception
newUserRow.Surname = ""
End Try
Try
newUserRow.Prename = row.Item("PRENAME")
Catch ex As Exception
newUserRow.Prename = ""
End Try
Try
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception