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

MS clswindream entfernt Umstieg auf Modulwindream

Browse Source
This commit is contained in:
Developer01
2024-11-21 18:02:41 +01:00
parent b5ab9c5e1f
commit f05f6d46f8
85 changed files with 416997 additions and 1790 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organizer/frmUserKonfig.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Public Class frmUserKonfig
Public Class frmUserKonfig
Private Shared _Instance As frmUserKonfig = Nothing
Public Shared Function Instance() As frmUserKonfig
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@@ -135,7 +134,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID)
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
lbGroups.Items.Clear()
For Each row As DataRow In dt.Rows
@@ -157,7 +156,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = {0} ORDEr BY T1.CLIENT_NAME", userID)
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
lstbxUserMandant.Items.Clear()
For Each row As DataRow In dt.Rows
@@ -348,9 +347,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & row.Item(5) & " AND GROUP_ID = " & cmbGroups_Group2User.SelectedValue
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbGroups_Group2User.SelectedValue, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in Adding User {0} to Group {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -378,7 +377,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue)
lblUserforGroup.Text = "Users for Group " & cmbGroups_Group2User.Text
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
@@ -412,7 +411,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", row.Item(5))
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -483,9 +482,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & row.Item(5) & " AND CLIENT_ID = " & cmbClientsforUser.SelectedValue
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_CLIENT_USER (USER_ID, CLIENT_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbClientsforUser.SelectedValue, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in Adding User {0} to Client {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -510,7 +509,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
@@ -542,7 +541,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", row.Item(5))
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -616,7 +615,7 @@ Public Class frmUserKonfig
Else
sql = String.Format("UPDATE TBDD_VERSION_USER_UPDATE_PATH SET UPDATE_PATH = '{0}' WHERE USER_ID = {1} AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'", txtPath.Text, row.Item(5))
End If
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
msg &= vbNewLine & String.Format("for User '{0}'", row.Item(1))
End If
End If
@@ -629,7 +628,7 @@ Public Class frmUserKonfig
row.Item(0) = CBool(False)
Next
End If
End Sub
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click