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

MS ZSG

Browse Source
This commit is contained in:
SchreiberM
2020-01-15 14:48:46 +01:00
parent 9582091c6d
commit 1f6c197b7f
699 changed files with 516723 additions and 7912 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/frmConstructorDesigner.vb
View File

@@ -110,7 +110,8 @@ Public Class frmConstructorDesigner
End Sub
Public Sub Load_ConstructorUser()
Try
Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER By USERNAME", CONSTRUCTOR_IDTextBox.Text)
Dim Sql = $"SELECT * 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_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {CONSTRUCTOR_IDTextBox.Text}) ORDER By USERNAME"
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Sql = String.Format("SELECT T1.GUID, T.USERNAME + ' - ' + CASE T1.HOME_MENUE WHEN 1 THEN 'HOME' ELSE 'STANDARD' END AS USERNAME, T.EMAIL, T.NAME, T.PRENAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0} ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql)
@@ -488,7 +489,8 @@ Public Class frmConstructorDesigner
End Sub
Public Sub Load_TBWH_Users1()
Try
Dim sql = String.Format("SELECT T.* FROM TBDD_USER T WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
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 IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {CONSTRUCTOR_IDTextBox.Text}) ORDER BY T.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In DT.Rows
@@ -513,7 +515,8 @@ Public Class frmConstructorDesigner
End Sub
Public Sub Load_TBAD_Users()
Try
Dim sql = String.Format("SELECT T.* FROM TBDD_USER T WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
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 IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {CONSTRUCTOR_IDTextBox.Text}) ORDER BY T.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
DD_ECMAdmin.TBAD_Users.Clear()
For Each row As DataRow In DT.Rows
@@ -539,7 +542,8 @@ Public Class frmConstructorDesigner
Public Sub Load_Supervisor()
Try
Dim sql = String.Format("SELECT T.* FROM TBDD_USER T WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0}) ORDER BY T.USERNAME", SELECTED_ENTITY_ID)
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 IN (SELECT USER_ID FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {SELECTED_ENTITY_ID}) ORDER BY T.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
DD_ECMAdmin.TBWH_Users2.Clear()
For Each row As DataRow In DT.Rows