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

10
app/DD-Record-Organizer/frmRight_Management.vb
View File

@@ -167,7 +167,7 @@
Case 1
Dim sql = String.Format("select T1.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS 'FORM_TITLE' FROM TBPMO_FORM_VIEW T1 " & _
"WHERE T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE", USER_LANGUAGE)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If Not IsNothing(DT) Then
cmbEntity.DataSource = DT
cmbEntity.DisplayMember = DT.Columns(1).ColumnName
@@ -180,7 +180,7 @@
Sub Refresh_Free_Users()
Dim Sql = $"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_RIGHT_USER WHERE ENTITY_ID = {cmbEntity.SelectedValue}) ORDER BY USERNAME"
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Dim DT_USER = MYDB_ECM.GetDatatable(sql)
Try
DD_ECMAdmin.TBAD_Users.Clear()
@@ -237,7 +237,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBPMO_RIGHT_USER (USER_ID,ENTITY_ID) VALUES ({0},{1})", row.Item(5), cmbEntity.SelectedValue)
If ClassDatabase.Execute_non_Query(insert) = 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
@@ -263,7 +263,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
Exit Sub
End Try
Dim del = String.Format("DELETE FROM TBPMO_RIGHT_USER WHERE GUID = {0}", ID)
If ClassDatabase.Execute_non_Query(del) = True Then
If MYDB_ECM.ExecuteNonQuery(del) = True Then
Refresh_Rights_Users(cmbEntity.SelectedValue)
Refresh_Free_Users()
End If
@@ -290,7 +290,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
int_bool = 0
End If
Dim upd = String.Format("UPDATE TBPMO_RIGHT_USER SET {0} = {1} WHERE GUID = {2}", column, int_bool, ID)
If ClassDatabase.Execute_non_Query(upd) = False Then
If MYDB_ECM.ExecuteNonQuery(upd) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Could not Update Right-details!")
statelbl.Text = ""
Else