ms

app/DD-Record-Organiser/frmConstructorDesigner.vb

@@ -372,13 +372,17 @@ Public Class frmConstructorDesigner
             '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
                 GroupBoxDocSearch.Enabled = True
+                GroupBoxSupervisorControls.Enabled = True
                 Load_TBAD_Users()
                 Load_Supervisor()
+                Load_Supervisor_Controls_Choose()
+                Load_Supervisor_Controls()
                 '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
                 GroupBoxDocSearch.Enabled = False
+                GroupBoxSupervisorControls.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
@@ -506,8 +510,7 @@ Public Class frmConstructorDesigner
 
     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 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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
             DD_ECMAdmin.TBWH_Users2.Clear()
             For Each row As DataRow In DT.Rows
@@ -528,6 +531,30 @@ Public Class frmConstructorDesigner
             MsgBox("UnexpectedError Load_Supervisor:" & vbNewLine & ex.Message)
         End Try
     End Sub
+    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)
+            cmbSupervisorControls.DataSource = DT
+            cmbSupervisorControls.DisplayMember = DT.Columns(1).ColumnName
+            cmbSupervisorControls.ValueMember = DT.Columns(0).ColumnName
+        Catch ex As Exception
+            MsgBox("UnexpectedError Load_Supervisor_Controls_Choose:" & vbNewLine & ex.Message)
+        End Try
+    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 " & _
+                        "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)
+            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)})
+            Next
+        Catch ex As Exception
+            MsgBox("UnexpectedError Load_Supervisor_Controls:" & 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
@@ -773,8 +800,7 @@ Public Class frmConstructorDesigner
 
     Private Sub btnTestSQL_Click(sender As Object, e As EventArgs) Handles btnTestSQL.Click
         Try
-            Dim ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
-            Dim EntSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T"
+            Dim EntSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & SELECTED_ENTITY_ID.ToString & " T"
             Dim query As String = EntSQL & " " & SQL_COMMANDTextBox.Text
 
             For Each row As DataGridViewRow In dgvPlaceholders.Rows
@@ -802,12 +828,12 @@ Public Class frmConstructorDesigner
     End Sub
 
     Private Sub btnsaddUser2Client_Click(sender As Object, e As EventArgs) Handles btnsaddUser2Client.Click
-        Dim ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
+
         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 = " & ENTITY_ID
+            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
-                sql = String.Format("INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID, ENTITY_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, ENTITY_ID, Environment.UserName)
+                sql = String.Format("INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID, ENTITY_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, SELECTED_ENTITY_ID, Environment.UserName)
                 If ClassDatabase.Execute_non_Query(sql) = False Then
                     MsgBox("Error in Adding Entity to Client!", MsgBoxStyle.Critical)
                 End If
@@ -931,4 +957,30 @@ Public Class frmConstructorDesigner
             MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    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
+                sql = String.Format("INSERT INTO TBPMO_SUPERVISOR_CONTROLS (CONTROL_ID, ADDED_WHO) VALUES ({0},'{1}')", cmbSupervisorControls.SelectedValue, Environment.UserName)
+                If ClassDatabase.Execute_non_Query(sql) = False Then
+                    MsgBox("Error in Adding Supervisor-Control! Check log", MsgBoxStyle.Critical)
+                Else
+                    Load_Supervisor_Controls()
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub btndeleteSupervisorControl_Click(sender As Object, e As EventArgs) Handles btndeleteSupervisorControl.Click
+        For Each obj As Object In CheckedListBoxSupervisorControls.CheckedItems
+            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, True) = False Then
+                MsgBox(String.Format("Error in deleting SupervisorControl", item.Text), MsgBoxStyle.Critical)
+            End If
+        Next
+        Load_Supervisor_Controls()
+    End Sub
 End Class