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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-27 13:23:30 +02:00
parent 8f3122c24b
commit 51bd2cdb1d
27 changed files with 2750 additions and 1921 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -110,9 +110,9 @@ Public Class frmConstructorDesigner
End Sub
Public Sub Load_ConstructorUser()
Try
Dim Sql = String.Format("SELECT GUID, USERNAME, EMAIL 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 = 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 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 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)
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, "LOAD USERS FOR CONSTRUCT")
Try
DD_ECMAdmin.TBAD_Users.Clear()
@@ -120,15 +120,16 @@ Public Class frmConstructorDesigner
For Each row As DataRow In DT_USER.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = row.Item(1)
newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
Try
newUserRow.Email = row.Item(2)
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
newUserRow.ID = row.Item("GUID")
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
@@ -142,15 +143,16 @@ Public Class frmConstructorDesigner
For Each row As DataRow In DT_USER_CONSTR.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
newUserRow.Username = row.Item("USERNAME")
Try
newUserRow.Email = row.Item(2)
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
newUserRow.ID = row.Item("GUID")
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
@@ -278,29 +280,29 @@ Public Class frmConstructorDesigner
End Sub
Private Sub LEVEL1_SELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LEVEL1_SELECTCheckBox.CheckedChanged
Try
If LEVEL1_SELECTCheckBox.Checked Then
SQL_SELECT_EBENE1TextBox.Enabled = True
Else
SQL_SELECT_EBENE1TextBox.Enabled = False
End If
Dim view As String
If SQL_SELECT_EBENE1TextBox.Text <> "" Then
view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "")
view = view.Trim
Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')"
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Sql, False)
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
If DT IsNot Nothing Then
COLUMN_NAME1ComboBox.Items.Clear()
For Each row As DataRow In DT.Rows
COLUMN_NAME1ComboBox.Items.Add(row.Item(0))
Next
End If
End If
Catch ex As Exception
MsgBox("Error in LEVEL1_SELECTCheckBox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
'Try
' If LEVEL1_SELECTCheckBox.Checked Then
' SQL_SELECT_EBENE1TextBox.Enabled = True
' Else
' SQL_SELECT_EBENE1TextBox.Enabled = False
' End If
' Dim view As String
' If SQL_SELECT_EBENE1TextBox.Text <> "" Then
' view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "")
' view = view.Trim
' Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')"
' If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Sql, False)
' Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
' If DT IsNot Nothing Then
' COLUMN_NAME1ComboBox.Items.Clear()
' For Each row As DataRow In DT.Rows
' COLUMN_NAME1ComboBox.Items.Add(row.Item(0))
' Next
' End If
' End If
'Catch ex As Exception
' MsgBox("Error in LEVEL1_SELECTCheckBox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
End Sub
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
@@ -461,20 +463,22 @@ Public Class frmConstructorDesigner
End Sub
Public Sub Load_TBWH_Users1()
Try
Dim sql = String.Format("SELECT T.GUID, T.USERNAME, T.EMAIL 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 = 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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
Try
newUserRow.Email = row.Item(2)
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
newUserRow.ID = row.Item("GUID")
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
@@ -484,20 +488,22 @@ Public Class frmConstructorDesigner
End Sub
Public Sub Load_TBAD_Users()
Try
Dim sql = String.Format("SELECT T.GUID, T.USERNAME, T.EMAIL 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 = 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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
DD_ECMAdmin.TBAD_Users.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = row.Item(1)
newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
Try
newUserRow.Email = row.Item(2)
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
newUserRow.ID = row.Item("GUID")
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
@@ -508,20 +514,22 @@ Public Class frmConstructorDesigner
Public Sub Load_Supervisor()
Try
Dim sql = String.Format("SELECT T.GUID, T.USERNAME, T.EMAIL 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 = 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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
DD_ECMAdmin.TBWH_Users2.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row
newUserRow.Username = row.Item(1)
newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
Try
newUserRow.Email = row.Item(2)
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
newUserRow.ID = row.Item("GUID")
DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
@@ -670,10 +678,15 @@ Public Class frmConstructorDesigner
Try
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim home As Integer = CInt(CheckBoxHome.Checked)
Dim home As Integer
If CheckBoxHome.Checked Then
home = 1
Else
home = 0
End If
Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & row.Item(5) & ",'" & Environment.UserName & "'," & home & ")"
If ClassDatabase.Execute_non_Query(insert, True) Then
If ClassDatabase.Execute_non_Query(insert, False) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
End If
Next