MS_12603_1

2016-03-16 13:45:38 +01:00
parent f85b19b83f
commit 89379fb38d
8 changed files with 5675 additions and 3897 deletions
--- a/app/DD-Record-Organiser/frmConstructorDesigner.vb
+++ b/app/DD-Record-Organiser/frmConstructorDesigner.vb
@@ -110,13 +110,14 @@ Public Class frmConstructorDesigner
    End Sub
    Public Sub Load_ConstructorUser()
        Try
-            Dim Sql = String.Format("SELECT GUID,USERNAME FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_IDTextBox.Text)
+            Dim Sql = String.Format("SELECT GUID,USERNAME 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}", CONSTRUCTOR_IDTextBox.Text)
+            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)
            Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql, "LOAD USERS FOR CONSTRUCT")
-            ListBoxUserConstructor.DataSource = DT_USER
-            ListBoxUserConstructor.DisplayMember = DT_USER.Columns(1).ColumnName
-            ListBoxUserConstructor.ValueMember = DT_USER.Columns(0).ColumnName
+            chksbxUserConstructor.Items.Clear()
+            For Each row As DataRow In DT_USER.Rows
+                chksbxUserConstructor.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
+            Next

            ListBoxUsersFORConstructor.DataSource = DT_USER_CONSTR
            ListBoxUsersFORConstructor.DisplayMember = DT_USER_CONSTR.Columns(1).ColumnName
@@ -282,6 +283,17 @@ Public Class frmConstructorDesigner
                Me.tslblSaveDetail.Visible = False
                Load_Detail(construct_id)
                lblSave1.Visible = False
+                Select Case XtraTabControl2.SelectedTabPageIndex
+                    Case 0
+                        Load_QuickDisplay()
+                    Case 2
+                        RecordSearch_Config()
+                    Case 3
+                        Load_UserSQL()
+                    Case 4
+                        Load_Client_Entity()
+                        Load_ClientsforEntity()
+                End Select

            End If
        Catch ex As Exception
@@ -446,11 +458,71 @@ Public Class frmConstructorDesigner
                RecordSearch_Config()
            Case 3
                Load_UserSQL()
+            Case 4
+                Load_Client_Entity()
+                Load_ClientsforEntity()
        End Select
    End Sub
+    Public Class MyListBoxItem
+        Private _text As String
+        Private _extraData As String
+
+        Public Property Text As String
+            Get
+                Return _text
+            End Get
+            Set(ByVal value As String)
+                _text = value
+            End Set
+        End Property
+
+        Public Property ExtraData As String
+            Get
+                Return _extraData
+            End Get
+            Set(ByVal value As String)
+                _extraData = value
+            End Set
+        End Property
+
+        Public Overrides Function ToString() As String
+            Return Text
+        End Function
+
+    End Class
+    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)
+            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 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)
+
+
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(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)})
+            Next
+        Catch ex As Exception
+            MsgBox("UnexpectedError Load_ClientsforEntity:" & vbNewLine & ex.Message)
+        End Try
+    End Sub
    Public Sub Load_UserSQL()
        Try
            lbxUserSQL.Items.Clear()
+
            Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID = T1.USER_ID AND T1.CLIENT_ID IN ({0}) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
            lbxUserSQL.DataSource = DT
@@ -575,14 +647,14 @@ Public Class frmConstructorDesigner

    Private Sub btnAddUser2ConstructorREL_Click(sender As Object, e As EventArgs) Handles btnAddUser2ConstructorREL.Click
        Try
-            Dim i = ListBoxUserConstructor.SelectedValue
-            If Not IsNothing(i) Then
+            For Each obj As Object In chklbxClient.CheckedItems
+                Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
                Dim home As Integer = CInt(CheckBoxHome.Checked)
-                Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & i & ",'" & Environment.UserName & "'," & home & ")"
+                Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & item.ExtraData & ",'" & Environment.UserName & "'," & home & ")"
                If ClassDatabase.Execute_non_Query(insert, True) Then
                    Load_ConstructorUser()
                End If
-            End If
+            Next
        Catch ex As Exception
            MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
@@ -730,7 +802,34 @@ Public Class frmConstructorDesigner
        Catch ex As Exception
            MsgBox("Error in Testing User-Restriction SQL:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
-       
+

    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
+            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)
+                If ClassDatabase.Execute_non_Query(sql) = False Then
+                    MsgBox("Error in Adding Entity to Client!", MsgBoxStyle.Critical)
+                End If
+            End If
+        Next
+        Load_ClientsforEntity()
+    End Sub
+
+    Private Sub btndeleteEntityfromClient_Click(sender As Object, e As EventArgs) Handles btndeleteEntityfromClient.Click
+        For Each obj As Object In chklbxEntitiesforClient.CheckedItems
+            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, True) = False Then
+                MsgBox(String.Format("Error in deleting Entity from Client", item.Text), MsgBoxStyle.Critical)
+            End If
+        Next
+        Load_ClientsforEntity()
+    End Sub
 End Class