MS

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -166,6 +166,7 @@ Public Class frmConstructor_Main
     Private PARENT_ENTITYID As Integer
     Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = ""
     Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = ""
+    Private DOC_SEARCH_TAB1 As Boolean = False
 
     Private FORM_TYPE As Integer
     Private ENTITY_ID As Integer
@@ -317,9 +318,9 @@ Public Class frmConstructor_Main
 
 
                 Me.SplitContainerTop.Panel1.Controls.Remove(Me.TreeViewMain)
-                Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewMain)
-                SplitContainer1.Collapsed = False
-                SplitContainer1.PanelVisibility = SplitPanelVisibility.Both
+                Me.SplitContainerFORM.Panel1.Controls.Add(Me.TreeViewMain)
+                SplitContainerFORM.Collapsed = False
+                SplitContainerFORM.PanelVisibility = SplitPanelVisibility.Both
                 SplitContainerTop.Collapsed = True
                 SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2
                 SplitContainerMain.Collapsed = True
@@ -443,7 +444,6 @@ Public Class frmConstructor_Main
             MsgBox("Error in Load_Grid_Layout: " & vbNewLine & ex.Message)
         End Try
     End Sub
-
     Sub Load_Splitter_Layout()
         Try
             Dim XMLPath As String = Get_Splitter_Layout_Filename()
@@ -454,6 +454,7 @@ Public Class frmConstructor_Main
             If settings.Count = 0 Then
                 settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                 settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
+                settings.Add(New ClassSetting("SplitViewDetailsSplitterPosition", SplitContainerDetails.SplitterPosition))
                 layout.Save(settings)
             End If
 
@@ -465,16 +466,18 @@ Public Class frmConstructor_Main
                         If NODE_NAVIGATION = False Then
                             SplitContainerMain.SplitterPosition = Integer.Parse(setting._value)
                         Else
-                            SplitContainer1.SplitterPosition = Integer.Parse(setting._value)
+                            SplitContainerFORM.SplitterPosition = Integer.Parse(setting._value)
+                        End If
+                    Case "SplitViewDetailsSplitterPosition"
+                        If DOC_SEARCH_TAB1 = True Then
+                            SplitContainerDetails.SplitterPosition = Integer.Parse(setting._value)
                         End If
-
                 End Select
             Next
         Catch ex As Exception
             MsgBox("Fehler in Load_Splitter_Layout:" & vbNewLine & ex.Message)
         End Try
     End Sub
-
     Sub Save_Splitter_Layout()
         Try
             Dim XMLPath = Get_Splitter_Layout_Filename()
@@ -483,9 +486,13 @@ Public Class frmConstructor_Main
             If NODE_NAVIGATION = False Then
                 settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
                 settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
+                If DOC_SEARCH_TAB1 = True Then
+                    settings.Add(New ClassSetting("SplitViewDetailsSplitterPosition", SplitContainerDetails.SplitterPosition))
+                End If
             Else
                 settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
-                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainer1.SplitterPosition))
+                settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerFORM.SplitterPosition))
+
             End If
 
             layout.Save(settings)
@@ -593,19 +600,7 @@ Public Class frmConstructor_Main
                 If btn.IsMain Then
                     ResetNav()
                 ElseIf btn.Name = "NavButtonRefresh" Then
-                    If TrySave_Automatic() = True Then
-                        ' Setzt die RECORD_ID auf Null
-                        ' damit beim Refresh keine alten Werte
-                        ' in die Datenbank geschrieben werden
-                        SELECTED_RECORD_ID = 0
-                        RECORD_ID = 0
-                        CURRENT_RECORD_ID = 0
-
-                        If CtrlCommandUI.IsInsert Then
-                            ActivateAllTabs()
-                        End If
-                        Load_Datafor_Entity()
-                    End If
+                    Refresh_Entity_Data()
                 End If
 
             Else
@@ -620,7 +615,21 @@ Public Class frmConstructor_Main
 
         End If
     End Sub
+    Sub Refresh_Entity_Data()
+        If TrySave_Automatic() = True Then
+            ' Setzt die RECORD_ID auf Null
+            ' damit beim Refresh keine alten Werte
+            ' in die Datenbank geschrieben werden
+            SELECTED_RECORD_ID = 0
+            RECORD_ID = 0
+            CURRENT_RECORD_ID = 0
 
+            If CtrlCommandUI.IsInsert Then
+                ActivateAllTabs()
+            End If
+            Load_Datafor_Entity()
+        End If
+    End Sub
     Private Function LoadLevel1Nav()
         Dim cat As New TileNavCategory()
         cat.Caption = EBENE1_GRID_RESULT
@@ -2043,6 +2052,7 @@ Public Class frmConstructor_Main
         ClassDatabase.Execute_non_Query(del)
         Lock_RecordControls(False)
         tsmi_RecordDelete.Enabled = True
+        tsbtnDeleteRecord.Enabled = True
         MassenänderungToolStripMenuItem.Enabled = True
         Me.tsButtonAdd.Enabled = False
         Me.tsButtonSave.Enabled = True
@@ -2195,6 +2205,7 @@ Public Class frmConstructor_Main
             tsButtonEdit.Visible = True
             tsButtonDelete.Visible = True
             tsmi_RecordDelete.Enabled = True
+            tsbtnDeleteRecord.Enabled = True
             MassenänderungToolStripMenuItem.Enabled = True
 
             If RIGHT_ADD_R = False Then
@@ -2210,6 +2221,7 @@ Public Class frmConstructor_Main
             If RIGHT_DELETE_R = False Then
                 tsButtonDelete.Visible = False
                 tsmi_RecordDelete.Enabled = False
+                tsbtnDeleteRecord.Enabled = False
             End If
         Catch ex As Exception
             MsgBox("Error in GetSet_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -2236,6 +2248,7 @@ Public Class frmConstructor_Main
             CONTROL_DOCTYPE_MATCH = result.Item("CONTROL_DOCTYPE_MATCH")
             SQL_RIGHT_READ_AND_VIEW_ONLY = result.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
             SQL_RIGHT_WINDREAM_FORBIDDEN = result.Item("SQL_RIGHT_WINDREAM_VIEW")
+            DOC_SEARCH_TAB1 = result.Item("DOC_SEARCH_TAB1")
 
             Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
             DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
@@ -2437,7 +2450,7 @@ Public Class frmConstructor_Main
 
 
             If windream_Docshow = True Then
-                If TCDetails.SelectedTabPageIndex = 1 Then
+                If TCDetails.SelectedTabPage.Name = "TabWindream" Or (TCDetails.SelectedTabPage.Name = "TabDetails" And DOC_SEARCH_TAB1 = True) Then
                     Me.GridControlDocSearch.DataSource = Nothing
 
                     If WD_ShowEnitityDocs = True Then
@@ -2597,6 +2610,19 @@ Public Class frmConstructor_Main
                         Load_Record_Direct()
                     End If
                 End If
+                If DOC_SEARCH_TAB1 = True Then
+                    SplitContainerDetails.Collapsed = False
+                    SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Both
+                    SplitContainerDetails.Panel2.Controls.Add(ToolStripDokumente)
+                    SplitContainerDetails.Panel2.Controls.Add(GridControlDocSearch)
+                    TabWindream.PageVisible = False
+                Else
+                    SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Panel1
+                    SplitContainerDetails.Collapsed = True
+                    TabWindream.Controls.Add(ToolStripDokumente)
+                    TabWindream.Controls.Add(GridControlDocSearch)
+                    TabWindream.PageVisible = True
+                End If
             End If
 
             sw.Done()
@@ -3192,29 +3218,39 @@ Public Class frmConstructor_Main
                 End Select
             End If
             RIGHT_CONTROL_CHANGED = False
-            Select Case TCDetails.SelectedTabPageIndex
-                Case 0
+            Select Case TCDetails.SelectedTabPage.Name
+                Case "TabDetails"
                     ENTITY_RELOAD_AFT_CONTROL_LOAD = False
                     CtrlBuilder.WatchRecordChanges = False
                     ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
                     CtrlBuilder.WatchRecordChanges = True
 
                     If windream_Docshow = True Then
-                        Dim stg As String = "windream-Dateien"
+                        Dim stg As String = "Dateien"
                         If USER_LANGUAGE <> "de-DE" Then
-                            stg = "windream-files"
+                            stg = "files"
                         End If
                         TabWindream.Text = stg
                     End If
-                Case 1
-                    If RECORD_ID = 0 Then
-                        'RUN_WD_SEARCH(WD_Suche, "ENTITY")
-                        RUN_WDSEARCH_GRID("ENTITY")
+                    Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2}", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
+                    Dim DT_VARIANT As DataTable = ClassDatabase.Return_Datatable(sel)
+                    If DT_VARIANT.Rows.Count > 0 Then
+                        XtraTabPageVariant.PageVisible = True
+                        Dim msg = "Vorgängervarianten"
+                        If USER_LANGUAGE <> "de-DE" Then
+                            msg = "Pre variants"
+                        End If
+                        XtraTabPageVariant.Text = String.Format(msg & " ({0})", DT_VARIANT.Rows.Count)
                     Else
-                        RUN_WDSEARCH_GRID("RECORD")
-                        ' RUN_WD_SEARCH(WD_Suche, "RECORD")
+                        XtraTabPageVariant.PageVisible = False
                     End If
-                Case 2
+                    If DOC_SEARCH_TAB1 = True Then
+                        DocSearch_Decision()
+                    End If
+
+                Case "TabWindream"
+                    DocSearch_Decision()
+                Case "TabFollowUp"
                     tsButtonEdit.Enabled = False
                     Refresh_FollowUps()
                     dtpFollowUp.Enabled = False
@@ -3254,6 +3290,15 @@ Public Class frmConstructor_Main
         End Try
 
     End Sub
+    Sub DocSearch_Decision()
+        If RECORD_ID = 0 Then
+            'RUN_WD_SEARCH(WD_Suche, "ENTITY")
+            RUN_WDSEARCH_GRID("ENTITY")
+        Else
+            RUN_WDSEARCH_GRID("RECORD")
+            ' RUN_WD_SEARCH(WD_Suche, "RECORD")
+        End If
+    End Sub
     Sub Reload_Entity_while_Control_Load()
         Dim result As MsgBoxResult
         Dim stg As String
@@ -3414,49 +3459,6 @@ Public Class frmConstructor_Main
 
         End Try
     End Function
-    'Sub Get_Selected_Record()
-    '    Select Case EDIT_STATE
-    '        Case EditState.None
-    '            'Ganz normalerDatensatzwechsel Wechsel
-    '            Show_Selected_Record_Data("Record-ID")
-    '            'Refresh_Treeview_SelectedData()
-
-    '            Update_Status_Label(False)
-    '            'tslblStatusMain_show(False, "")
-    '        Case EditState.Insert
-    '            'Refresh_Treeview_SelectedData()
-    '        Case EditState.Update
-    '            ' Refresh_Treeview_SelectedData()
-    '    End Select
-    '    Select Case TCDetails.SelectedTabPageIndex
-    '        Case 0
-    '            'Die Values in die Controls laden
-    '            If EDIT_STATE = EditState.None Then
-    '                'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
-    '                'Die Daten auf dem Panel laden
-    '                ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
-    '                'Load_Control_Values(CtrlBuilder.AllControls)
-    '                'Refresh_Treeview_SelectedData()
-    '                RECORD_CHANGED = False
-    '            End If
-    '        Case 1
-    '            RUN_WD_SEARCH(WD_Suche, "RECORD")
-    '        Case 2
-    '            'If FOLLOW_UPisActive = True Then Refresh_FollowUps()
-    '    End Select
-    '    'DT_FU_Record = Nothing
-    '    'VerknüpfungenToolStripMenuItem.Enabled = True
-    '    Update_Record_Label(SELECTED_RECORD_ID)
-
-    '    If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader()
-
-    '    Show_act_WFTask()
-    '    Get_RecordCounts_Nodes()
-    '    pnlDetails.Enabled = False
-
-    '    Refresh_TaskOverview()
-    'End Sub
-
     Private Sub Refresh_FollowUp_TabHeader()
         Try
             DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader")
@@ -3670,7 +3672,7 @@ Public Class frmConstructor_Main
                 Dim selnode As TreeNode = TreeViewMain.SelectedNode
                 Dim NODE_TEXT As String = selnode.Text
 
-                Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
+                Dim msg = "Dateien für Record: " & RECORD_ID
                 If Type = "ENTITY" Then
                     selnode = TreeViewMain.SelectedNode
                     Dim Entitystring
@@ -3679,9 +3681,9 @@ Public Class frmConstructor_Main
                     Else
                         Entitystring = selnode.Text
                     End If
-                    msg = "Windream-Dokumente für Entität: " & Entitystring
+                    msg = "Dateien für Entität: " & Entitystring
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = "windream-files for entity: " & Entitystring
+                        msg = "files for entity: " & Entitystring
                     End If
                     msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                 ElseIf Type = "RECORD" Then
@@ -3702,9 +3704,9 @@ Public Class frmConstructor_Main
                         msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                     End If
                 Else
-                    msg = String.Format("Dateien für Volltextsuche")
+                    msg = String.Format("Ergebnis der Volltextsuche")
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = String.Format("Files for Fulltext-Search")
+                        msg = String.Format("Result of Fulltext-Search")
                     End If
                     msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
                 End If
@@ -3723,10 +3725,6 @@ Public Class frmConstructor_Main
                        AddressOf OnTextSelectedValueChanged,
                        AddressOf OnCheckboxValueChanged,
                        Type)
-
-                    If TCDetails.SelectedTabPageIndex <> 1 Then
-                        TCDetails.SelectedTabPageIndex = 1
-                    End If
                 End If
             Else
                 Dim selnode As TreeNode = TreeViewMain.SelectedNode
@@ -3742,7 +3740,7 @@ Public Class frmConstructor_Main
                     End If
                     msg = "Keine Dateien für Entität: " & Entitystring & " gefunden"
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = "No windream-files found for entity: " & Entitystring
+                        msg = "No files found for entity: " & Entitystring
                     End If
                 ElseIf Type = "RECORD" Then
                     If NODE_NAVIGATION Then
@@ -3762,7 +3760,7 @@ Public Class frmConstructor_Main
                 Else
                     msg = "Keine Dateien für Volltextsuche gefunden"
                     If USER_LANGUAGE <> "de-DE" Then
-                        msg = "No windream-files found for fulltext-search"
+                        msg = "No files found for fulltext-search"
                     End If
                 End If
 
@@ -3983,9 +3981,9 @@ Public Class frmConstructor_Main
 
             'AxObjectListControl.RemoveAllColumnHeader()
             'Me.AxObjectListControl.ClearResultList()
-            Dim stg As String = "windream-Dateien"
+            Dim stg As String = "Dateien"
             If USER_LANGUAGE <> "de-DE" Then
-                stg = "windream-files"
+                stg = "files"
             End If
             TabWindream.Text = stg
             Dim elapsed As Double
@@ -4140,9 +4138,11 @@ Public Class frmConstructor_Main
             lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
             'Check_FOLLOWUP_IsConfigured(ENTITY_ID)
         End If
-
-        Select Case TCDetails.SelectedTabPageIndex
-            Case 0
+        If TCDetails.SelectedTabPage.Name = "XtraTabPageVariant" Then
+            XtraTabPageVariant_Open()
+        End If
+        Select Case TCDetails.SelectedTabPage.Name
+            Case "TabDetails"
                 If NODE_NAVIGATION = False Then
                     Column_Row_Handler(RECORD_ID, False, True)
                 End If
@@ -4154,13 +4154,22 @@ Public Class frmConstructor_Main
 
                 'Refresh_CreatedChangedRecordByID(RECORD_ID)
                 ' RECORD_CHANGED = False
-            Case 1 'windream-Dokumente
+                If DOC_SEARCH_TAB1 = True Then
+                    BACKGROUND_HELPER.PictureAlignment = ContentAlignment.BottomRight
+                End If
+            Case "TabWindream" 'Dateien
                 BACKGROUND_HELPER.PictureAlignment = ContentAlignment.BottomRight
-
-            Case 2
+            Case "TabFollowUp"
                 'Refresh_FollowUps()
         End Select
     End Sub
+    Sub XtraTabPageVariant_Open()
+        Try
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
     Private Sub Refresh_FollowUps()
 
         Try
@@ -6175,4 +6184,12 @@ Public Class frmConstructor_Main
             LocateRecordById(CURRENT_RECORD_ID)
         End If
     End Sub
+
+    Private Sub tsbtnDeleteRecord_Click(sender As Object, e As EventArgs) Handles tsbtnDeleteRecord.Click
+        Delete_Record()
+    End Sub
+
+    Private Sub tsbtnRefresh_Entity_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh_Entity.Click
+        Refresh_Entity_Data()
+    End Sub
 End Class