AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

3.4.4.0

Browse Source
This commit is contained in:
Developer01
2025-10-30 18:29:35 +01:00
parent 07a4c00b01
commit 5c0120cca8
26 changed files with 1708 additions and 1465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organizer/frmViewsUser.vb
View File

@@ -16,8 +16,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
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")
newUserRow.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
newUserRow.Prename = If(IsDBNull(row("PRENAME")), "", row("PRENAME").ToString())
Try
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
@@ -35,8 +35,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
For Each row As DataRow In DT_USERS_CONFIGURED.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
newUserRow.Surname = If(IsDBNull(row("NAME")), "", row("NAME").ToString())
newUserRow.Prename = If(IsDBNull(row("PRENAME")), "", row("PRENAME").ToString())
newUserRow.Username = row.Item("USERNAME")
Try
newUserRow.Email = row.Item("EMAIL")