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

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

@@ -35,13 +35,13 @@ Public Class frmConstructorDesigner
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
Load_Head()
Dim sql1 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1)
Dim DTFORMS As DataTable = MYDB_ECM.GetDatatable(sql1)
'FORM_IDComboBox.DataSource = DTFORMS
'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).ColumnName
'FORM_IDComboBox.ValueMember = DTFORMS.Columns(0).ColumnName
Dim sql2 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim DTParent As DataTable = ClassDatabase.Return_Datatable(sql2)
Dim DTParent As DataTable = MYDB_ECM.GetDatatable(sql2)
'PARENT_IDComboBox.DataSource = DTParent
'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName
'PARENT_IDComboBox.ValueMember = DTParent.Columns(0).ColumnName
@@ -60,7 +60,7 @@ Public Class frmConstructorDesigner
Private Sub Load_Detail(ID As Integer)
Try
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID)
SELECTED_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID)
SELECTED_ENTITY_ID = MYDB_ECM.GetScalarValue("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID)
Catch ex As System.Exception
MsgBox("Error Loading Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
@@ -77,20 +77,20 @@ Public Class frmConstructorDesigner
Public Sub Load_QuickDisplay()
Try
If SELECTED_CONSTRUCTOR_DETAIL_ID = 0 Then Exit Sub
Dim formId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim formId = MYDB_ECM.GetScalarValue("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim sql = "SELECT T.GUID, T.COL_NAME AS 'COL_NAME' FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = " & formId & " AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5,12) " & _
"AND T2.GUID not in (1,5,7,8,9) AND T.GUID NOT IN (SELECT CONTROL_ID FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & ") ORDER BY T1.TAB_INDEX"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
listBoxControls.DataSource = DT
listBoxControls.DisplayMember = DT.Columns(1).ColumnName
listBoxControls.ValueMember = DT.Columns(0).ColumnName
Dim DT2 = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID <> 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " ORDER BY T.SEQUENCE")
Dim DT2 = MYDB_ECM.GetDatatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID <> 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " ORDER BY T.SEQUENCE")
ListBoxConfiguredDisplay.DataSource = DT2
ListBoxConfiguredDisplay.DisplayMember = DT2.Columns(1).ColumnName
ListBoxConfiguredDisplay.ValueMember = DT2.Columns(0).ColumnName
Dim DT3 As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim DT3 As DataTable = MYDB_ECM.GetDatatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
If DT3.Rows.Count = 1 Then
Me.txtQuickViewPicture.Text = DT3.Rows(0).Item(1)
Me.txtQuickViewPicture.Tag = DT3.Rows(0).Item(0)
@@ -112,9 +112,9 @@ Public Class frmConstructorDesigner
Try
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)
Dim DT_USER = MYDB_ECM.GetDatatable(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)
Dim DT_USER_CONSTR As DataTable = MYDB_ECM.GetDatatable(sql)
Try
DD_ECMAdmin.TBAD_Users.Clear()
@@ -137,7 +137,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Catch ex As Exception
MsgBox("Error Load_Users for menues:" & vbNewLine & ex.Message)
End Try
Try
DD_ECMAdmin.TBWH_Users1.Clear()
@@ -169,7 +169,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
'Zurücksetzen
lblSaveDocSearch.Visible = False
Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim res = MYDB_ECM.GetScalarValue("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
@@ -177,7 +177,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
chkWDSearch_Active.Checked = False
End If
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT DOC_SEARCH_TAB1,ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim DT As DataTable = MYDB_ECM.GetDatatable("SELECT DOC_SEARCH_TAB1,ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
res = DT.Rows(0).Item(0)
If CBool(res) = True Then
chkDOC_SEARCH_TAB1.Checked = True
@@ -205,10 +205,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Try
Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID IN (1,4) AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel_sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If DT.Rows.Count >= 1 Then
TreeViewDetails.Nodes.Clear()
For Each rowEbene0 As DataRow In DT.Rows
@@ -216,20 +216,20 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Node = TreeViewDetails.Nodes.Add("E1: " & rowEbene0.Item("CAPTION").ToString)
Node.Tag = rowEbene0.Item("GUID")
'Jetzt die Ebene1Knoten einhängen
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene0.Item("FORM_ID"), CONSTR_ID, CURRENT_SCREEN_ID)
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
Dim dtEbene1 As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If dtEbene1.Rows.Count > 0 Then
For Each rowEbene1 As DataRow In dtEbene1.Rows
Dim Node1 As TreeNode
Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("CAPTION").ToString)
Node1.Tag = rowEbene1.Item("GUID")
'Jetzt die Ebene2 Knoten einhängen
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene1.Item("FORM_ID"), CONSTR_ID, CURRENT_SCREEN_ID)
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
Dim dtEbene2 As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If dtEbene2.Rows.Count > 0 Then
For Each rowEbene2 As DataRow In dtEbene2.Rows
Dim Node2 As TreeNode
@@ -308,7 +308,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
' view = view.Trim
' Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')"
' LOGGER.Debug("" & Sql, False)
' Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
' Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
' If DT IsNot Nothing Then
' COLUMN_NAME1ComboBox.Items.Clear()
' For Each row As DataRow In DT.Rows
@@ -351,7 +351,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
docsearch = 0
End If
Dim upd = String.Format("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = {0},CHANGED_WHO = '{1}' WHERE FORM_ID = {2} AND SCREEN_ID = {3}", docsearch, USER_USERNAME, SELECTED_ENTITY_ID, CURRENT_SCREEN_ID)
ClassDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
Dim DOC_SEARCH_TAB1 As Integer
If chkDOC_SEARCH_TAB1.Checked Then
@@ -366,7 +366,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
ACTIVATE_DOC_SEARCH_ON_EDIT = 0
End If
Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET DOC_SEARCH_TAB1 = {0},ACTIVATE_DOC_SEARCH_ON_EDIT = {1}, CHANGED_WHO = '{2}' where GUID = {3}", DOC_SEARCH_TAB1, ACTIVATE_DOC_SEARCH_ON_EDIT, USER_USERNAME, SELECTED_CONSTRUCTOR_DETAIL_ID)
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If
@@ -462,23 +462,23 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Public Sub Load_Client_Entity()
Try
Dim sql = String.Format("SELECT GUID, CLIENT_NAME FROM TBDD_CLIENT WHERE GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0})", USER_GUID)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
chklbxClient.Items.Clear()
For Each row As DataRow In DT1.Rows
chklbxClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("UnexpectedError Load_Client_Entity:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_ClientsforEntity()
Try
Dim sql = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBPMO_CLIENT_ENTITY T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID " & _
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, SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
chklbxEntitiesforClient.Items.Clear()
For Each row1 As DataRow In DT.Rows
chklbxEntitiesforClient.Items.Add(New MyListBoxItem() With {.Text = row1.Item(1), .ExtraData = row1.Item(0)})
@@ -491,7 +491,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Try
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)
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
@@ -517,7 +517,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCT
Try
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)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBAD_Users.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
@@ -544,7 +544,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCT
Try
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)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBWH_Users2.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
@@ -569,7 +569,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Public Sub Load_Supervisor_Controls_Choose()
Try
Dim sql = String.Format("select GUID, NAME + '/' + COL_NAME as control from tbpmo_Control where FORM_ID = {0} and CONTROL_TYPE_ID IN (2,3,12) ORDER BY NAME", SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
cmbSupervisorControls.DataSource = DT
cmbSupervisorControls.DisplayMember = DT.Columns(1).ColumnName
cmbSupervisorControls.ValueMember = DT.Columns(0).ColumnName
@@ -579,9 +579,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
End Sub
Public Sub Load_Supervisor_Controls()
Try
Dim sql = String.Format("select T1.GUID, T.NAME + '/' + T.COL_NAME as [control] from tbpmo_Control T, TBPMO_SUPERVISOR_CONTROLS T1 " & _
Dim sql = String.Format("select T1.GUID, T.NAME + '/' + T.COL_NAME as [control] from tbpmo_Control T, TBPMO_SUPERVISOR_CONTROLS T1 " &
"where T.GUID = T1.CONTROL_ID AND T.FORM_ID = {0} ORDER BY T.NAME", SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
CheckedListBoxSupervisorControls.Items.Clear()
For Each row1 As DataRow In DT.Rows
CheckedListBoxSupervisorControls.Items.Add(New MyListBoxItem() With {.Text = row1.Item(1), .ExtraData = row1.Item(0)})
@@ -595,7 +595,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim i = listBoxControls.SelectedValue
If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert) Then
If MYDB_ECM.ExecuteNonQuery(insert) Then
Load_QuickDisplay()
End If
End If
@@ -609,7 +609,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim i = ListBoxConfiguredDisplay.SelectedValue
If Not IsNothing(i) Then
Dim delete = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE GUID = " & i
If ClassDatabase.Execute_non_Query(delete) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
Load_QuickDisplay()
End If
End If
@@ -634,19 +634,19 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Private Sub btnSetHeadline_Click(sender As Object, e As EventArgs) Handles btnSetHeadline.Click
Dim upd = "UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1, CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & ListBoxConfiguredDisplay.SelectedValue
If ClassDatabase.Execute_non_Query(upd) Then
If MYDB_ECM.ExecuteNonQuery(upd) Then
lblChangeHeadline.Visible = True
End If
End Sub
Private Sub btnSetQuickViewPicture_Click(sender As Object, e As EventArgs) Handles btnSetQuickViewPicture.Click
Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)"
If ClassDatabase.Execute_non_Query(DEL) Then
If MYDB_ECM.ExecuteNonQuery(DEL) Then
Try
Dim i = listBoxControls.SelectedValue
If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,PICTURE,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",1,'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert) Then
If MYDB_ECM.ExecuteNonQuery(insert) Then
Load_QuickDisplay()
lblQuickViewAdded.Visible = True
Else
@@ -666,7 +666,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim i = listBoxControls.SelectedValue
If i.ToString.Contains("DataRowV") Then Exit Sub
If Not IsNothing(i) Then
Dim count = ClassDatabase.Execute_Scalar("SELECT COUNT(T1.GUID) FROM TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 and T1.GUID = " & i)
Dim count = MYDB_ECM.GetScalarValue("SELECT COUNT(T1.GUID) FROM TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 and T1.GUID = " & i)
If count = 1 Then
Me.btnSetQuickViewPicture.Visible = True
Else
@@ -683,7 +683,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)"
If ClassDatabase.Execute_non_Query(DEL) Then
If MYDB_ECM.ExecuteNonQuery(DEL) Then
Load_QuickDisplay()
End If
End Sub
@@ -703,7 +703,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
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) & ",'" & USER_USERNAME & "'," & home & ")"
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
@@ -723,7 +723,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(delete) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
refresh = True
End If
End If
@@ -739,7 +739,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim SelectedNode As TreeNode = TryCast(TreeViewDetails.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = {0}", SelectedNode.Tag)
Dim FormId As Integer = ClassDatabase.Execute_Scalar(sql)
Dim FormId As Integer = MYDB_ECM.GetScalarValue(SQL)
If FormId > 0 Then
CURRENT_ENTITY_ID = FormId
OpenFormLevelDesigner()
@@ -756,14 +756,14 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "SELECT HOME_MENUE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
Dim Home = ClassDatabase.Execute_Scalar(sql)
Dim Home = MYDB_ECM.GetScalarValue(SQL)
If Home = True Then
Home = 0
Else
Home = 1
End If
sql = "UPDATE TBPMO_CONSTRUCTOR_USER SET HOME_MENUE = " & Home & " WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(sql) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
refresh = True
End If
End If
@@ -844,7 +844,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Exit Sub
End If
Next
Dim DT As DataTable = ClassDatabase.Return_Datatable(query)
Dim DT As DataTable = MYDB_ECM.GetDatatable(query)
If DT IsNot Nothing Then
dgvResult.DataSource = DT
@@ -861,9 +861,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each obj As Object In chklbxClient.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql = "select count(*) from TBPMO_CLIENT_ENTITY Where CLIENT_ID = " & item.ExtraData & " AND ENTITY_ID = " & SELECTED_ENTITY_ID
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
sql = String.Format("INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID, ENTITY_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, SELECTED_ENTITY_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("Error in Adding Entity to Client!", MsgBoxStyle.Critical)
End If
End If
@@ -876,7 +876,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql
sql = String.Format("DELETE FROM TBPMO_CLIENT_ENTITY WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting Entity from Client", item.Text), MsgBoxStyle.Critical)
End If
Next
@@ -922,7 +922,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Try
Dim CurrentID = CONSTRUCTOR_IDTextBox.Text
Dim sql = "EXEC PRPMO_DELETE_CONSTRUCTOR " & CurrentID
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
MsgBox("Constructor was deleted!", MsgBoxStyle.Information)
Load_Head()
Load_TreeViewEbene()
@@ -954,9 +954,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
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
If MYDB_ECM.GetScalarValue(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, USER_USERNAME)
If ClassDatabase.Execute_non_Query(insert) Then
If MYDB_ECM.ExecuteNonQuery(insert) Then
End If
End If
End If
@@ -976,7 +976,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
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) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
refresh = True
End If
End If
@@ -990,9 +990,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Private Sub btnAddSupervisorControl_Click(sender As Object, e As EventArgs) Handles btnAddSupervisorControl.Click
If cmbSupervisorControls.SelectedIndex <> -1 Then
Dim sql = "select count(*) from TBPMO_SUPERVISOR_CONTROLS Where CONTROL_ID = " & cmbSupervisorControls.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
sql = String.Format("INSERT INTO TBPMO_SUPERVISOR_CONTROLS (CONTROL_ID, ADDED_WHO) VALUES ({0},'{1}')", cmbSupervisorControls.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("Error in Adding Supervisor-Control! Check log", MsgBoxStyle.Critical)
Else
Load_Supervisor_Controls()
@@ -1006,7 +1006,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql
sql = String.Format("DELETE FROM TBPMO_SUPERVISOR_CONTROLS WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting SupervisorControl", item.Text), MsgBoxStyle.Critical)
End If
Next