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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -6,9 +6,9 @@
Sub Load_Users_GS()
Dim Sql = String.Format("SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY T.USERNAME")
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Dim DT_USER = MYDB_ECM.GetDatatable(sql)
Sql = String.Format("SELECT * FROM TBDD_USER WHERE GUID IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME")
Dim DT_USERS_CONFIGURED = ClassDatabase.Return_Datatable(Sql)
Dim DT_USERS_CONFIGURED = MYDB_ECM.GetDatatable(sql)
Try
DD_ECMAdmin.TBAD_Users.Clear()
@@ -63,7 +63,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim insert = "INSERT INTO TBPMO_USER_GLOBAL_SEARCH (USER_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", '" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert, False) = False Then
If MYDB_ECM.ExecuteNonQuery(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
End If
@@ -83,7 +83,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_G
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim delete = "DELETE FROM TBPMO_USER_GLOBAL_SEARCH WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(delete, True) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
refresh = True
End If
End If