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

MS_1708

Browse Source
This commit is contained in:
SchreiberM
2016-08-17 11:32:45 +02:00
parent b811570870
commit 32192cf542
70 changed files with 7103 additions and 9527 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -164,71 +164,11 @@ Public Class frmConstructorDesigner
Public Sub RecordSearch_Config()
Try
'Zurücksetzen
txtWindreamsuche.Text = ""
cmbSearchPattern1.SelectedIndex = -1
cmbSearchPattern2.SelectedIndex = -1
cmbSearchPattern3.SelectedIndex = -1
cmbSearchPattern4.SelectedIndex = -1
cmbSearchPattern5.SelectedIndex = -1
Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If res = True Then
chkWDSearch_Active.Checked = True
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If DT.Rows.Count = 1 Then
If Not IsDBNull(DT.Rows(0).Item(0)) Then
txtWindreamsuche.Text = ClassHelper.CheckDBNull(DT.Rows(0).Item(0), "String")
'Form-ID (Entity)
'Record -ID
Dim result
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(1), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern1.SelectedIndex = 1
Else
cmbSearchPattern1.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(2), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern2.SelectedIndex = 1
Else
cmbSearchPattern2.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(3), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern3.SelectedIndex = 1
Else
cmbSearchPattern3.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(4), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern4.SelectedIndex = 1
Else
cmbSearchPattern4.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(5), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern5.SelectedIndex = 1
Else
cmbSearchPattern5.SelectedIndex = 0
End If
End If
'cmbSearchPattern1.SelectedIndex = cmbSearchPattern1.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(1), "String"))
'cmbSearchPattern2.SelectedIndex = cmbSearchPattern2.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(2), "String"))
'cmbSearchPattern3.SelectedIndex = cmbSearchPattern3.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(3), "String"))
'cmbSearchPattern4.SelectedIndex = cmbSearchPattern4.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(4), "String"))
'cmbSearchPattern5.SelectedIndex = cmbSearchPattern5.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(5), "String"))
End If
End If
Else
chkWDSearch_Active.Checked = False
End If
@@ -299,6 +239,7 @@ Public Class frmConstructorDesigner
If formloaded = True Then
Try
If CONSTRUCTOR_IDTextBox.Text <> "" Then
LANGUAGETextBox.Text = USER_LANGUAGE
Load_TreeViewEbene()
Load_ConstructorUser()
@@ -316,7 +257,6 @@ Public Class frmConstructorDesigner
SELECTED_CONSTRUCTOR_DETAIL_ID = construct_id
Me.tslblSaveDetail.Visible = False
Load_Detail(construct_id)
lblSave1.Visible = False
Select Case XtraTabControl2.SelectedTabPageIndex
Case 0
Load_QuickDisplay()
@@ -325,7 +265,7 @@ Public Class frmConstructorDesigner
Case 2
RecordSearch_Config()
Case 3
Load_UserSQL()
Load_TBWH_Users1()
Case 4
Load_Client_Entity()
Load_ClientsforEntity()
@@ -385,45 +325,26 @@ Public Class frmConstructorDesigner
If XtraTabControl2.SelectedTabPageIndex = 2 Then
Try
Try
Dim SP1, SP2, SP3, SP4, SP5
If cmbSearchPattern1.SelectedIndex <> -1 Then
SP1 = "@" & cmbSearchPattern1.Text
lblSaveDocSearch.Visible = False
Dim docsearch As Integer
If chkWDSearch_Active.Checked Then
docsearch = 1
Else
SP1 = ""
docsearch = 0
End If
If cmbSearchPattern2.SelectedIndex <> -1 Then
SP2 = "@" & cmbSearchPattern2.Text
Else
SP2 = ""
End If
If cmbSearchPattern3.SelectedIndex <> -1 Then
SP3 = "@" & cmbSearchPattern3.Text
Else
SP3 = ""
End If
If cmbSearchPattern4.SelectedIndex <> -1 Then
SP4 = "@" & cmbSearchPattern4.Text
Else
SP4 = ""
End If
If cmbSearchPattern5.SelectedIndex <> -1 Then
SP5 = "@" & cmbSearchPattern5.Text
Else
SP5 = ""
End If
Dim sql = "UPDATE TBPMO_FORM_VIEW SET WINDREAM_SEARCH = '" & txtWindreamsuche.Text & "',SEARCH_PATTERN1 = '" & SP1 & "',SEARCH_PATTERN2= '" & SP2 & "',SEARCH_PATTERN3= '" & SP3 & _
"',SEARCH_PATTERN4 = '" & SP4 & "',SEARCH_PATTERN5 = '" & SP5 & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
Dim sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = " & docsearch & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
lblSave1.Visible = True
lblSave1.Text = "Data saved - " & Now
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If
Catch ex As Exception
MsgBox("Error in Save DocView-properties 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
lblSave1.Visible = False
lblSaveDocSearch.Visible = False
End Try
Catch ex As Exception
MsgBox("Error in Save DocView-properties 1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
lblSave1.Visible = False
lblSaveDocSearch.Visible = False
End Try
End If
@@ -445,40 +366,22 @@ Public Class frmConstructorDesigner
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not Me.txtWindreamsuche.Text = "" Then
Me.OFDWindreamsuche.FileName = Me.WINDREAM_SEARCHTextBox.Text
End If
If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.WINDREAM_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
End If
End Sub
Private Sub btnWindreamsuche_Click(sender As Object, e As EventArgs) Handles btnWindreamsuche.Click
If Not Me.txtWindreamsuche.Text = "" Then
Me.OFDWindreamsuche.FileName = Me.txtWindreamsuche.Text
End If
If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.txtWindreamsuche.Text = Me.OFDWindreamsuche.FileName
End If
End Sub
Private Sub chkWDSearch_Active_CheckedChanged(sender As Object, e As EventArgs) Handles chkWDSearch_Active.CheckedChanged
Try
Dim check = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
'Dim check = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If chkWDSearch_Active.Checked Then
grpbxWD_RecordSearch.Enabled = True
If check = False Then
ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
End If
GroupBoxDocSearch.Enabled = True
Load_TBAD_Users()
Load_Supervisor()
'If check = False Then
' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
'End If
Else
grpbxWD_RecordSearch.Enabled = False
If check = True Then
ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
End If
GroupBoxDocSearch.Enabled = False
'If check = True Then
' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
'End If
End If
Catch ex As Exception
MsgBox("Error in Checked Change WD-Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -493,7 +396,7 @@ Public Class frmConstructorDesigner
Case 2
RecordSearch_Config()
Case 3
Load_UserSQL()
Load_TBWH_Users1()
Case 4
Load_Client_Entity()
Load_ClientsforEntity()
@@ -541,9 +444,8 @@ Public Class frmConstructorDesigner
End Sub
Sub Load_ClientsforEntity()
Try
Dim ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim sql = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBPMO_CLIENT_ENTITY T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID " & _
"AND T1.GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0}) AND T.ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
"AND T1.GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0}) AND T.ENTITY_ID = {1}", USER_GUID, SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
@@ -555,7 +457,7 @@ Public Class frmConstructorDesigner
MsgBox("UnexpectedError Load_ClientsforEntity:" & vbNewLine & ex.Message)
End Try
End Sub
Public Sub Load_UserSQL()
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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
@@ -578,6 +480,54 @@ Public Class frmConstructorDesigner
MsgBox("UnexpectedError Load_UserSQL:" & vbNewLine & ex.Message)
End Try
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 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)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("UnexpectedError Load_TBAD_Users:" & vbNewLine & ex.Message)
End Try
End Sub
Public Sub Load_Supervisor()
Try
Dim ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
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", 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)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("UnexpectedError Load_Supervisor:" & vbNewLine & ex.Message)
End Try
End Sub
Private Sub btnAddControl_Click(sender As Object, e As EventArgs) Handles btnAddControl.Click
Try
Dim i = listBoxControls.SelectedValue
@@ -930,4 +880,55 @@ Public Class frmConstructorDesigner
MsgBox("Unexpected error in executing delete-statement! Check log!", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub btnAddUser2Supervisor_Click(sender As Object, e As EventArgs) Handles btnAddUser2Supervisor.Click
Try
If cmbRight.Text = "" Then
MsgBox("Please choose a right!", MsgBoxStyle.Exclamation)
cmbRight.DroppedDown = True
Exit Sub
End If
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim right As String
Select Case cmbRight.Text
Case "Admin"
right = "4"
Case "Read/Write/Rights"
right = "6"
End Select
Dim sel = String.Format("SELECT COUNT(GUID) FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0} AND USER_ID = {1}", SELECTED_ENTITY_ID, row.Item(5))
If ClassDatabase.Execute_Scalar(sel) = 0 Then
Dim insert = String.Format("INSERT INTO TBPMO_ENTITY_SUPERVISOR ([ENTITY_ID], USER_ID,RIGHT1,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_ENTITY_ID, row.Item(5), right, Environment.UserName)
If ClassDatabase.Execute_non_Query(insert, True) Then
End If
End If
End If
Next
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
row.Item(0) = CBool(False)
Next
Load_Supervisor()
Catch ex As Exception
MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnDeleteUserSupervisor_Click(sender As Object, e As EventArgs) Handles btnDeleteUserSupervisor.Click
Try
Dim refresh As Boolean = False
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then
Dim delete = String.Format("DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = {0} AND ENTITY_ID = {1}", row.Item(5), SELECTED_ENTITY_ID)
If ClassDatabase.Execute_non_Query(delete, True) Then
refresh = True
End If
End If
Next
If refresh = True Then Load_Supervisor()
Catch ex As Exception
MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class