MS_2911

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -492,15 +492,15 @@ 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", SplitContainerFORM.SplitterPosition))
 
             End If
-
+            If DOC_SEARCH_TAB1 = True Then
+                settings.Add(New ClassSetting("SplitViewDetailsSplitterPosition", SplitContainerDetails.SplitterPosition))
+            End If
             layout.Save(settings)
         Catch ex As Exception
             MsgBox("Error in Save_Splitter_Layout:" & vbNewLine & ex.Message)
@@ -1220,6 +1220,11 @@ Public Class frmConstructor_Main
 
         End If
         Load_Datafor_Entity()
+        If DOC_SEARCH_TAB1 = True Then
+            tsbtnPanel1Collapse.Visible = True
+        Else
+            tsbtnPanel1Collapse.Visible = True
+        End If
         If NODE_NAVIGATION = True Then
             Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
             If SelectedNode IsNot Nothing Then
@@ -1227,8 +1232,10 @@ Public Class frmConstructor_Main
                 If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
                     Dim Record = Return_RECORD_forTag(SelectedNode.Tag)
                     If Record <> 0 Then
+                        ToolStripEdit.Enabled = True
                         If RIGHT_WINDREAM_FORBIDDEN = False Then
                             Doc_Controls_EditMode(True)
+
                         End If
                         Column_Row_Handler(Record, True)
                         LocateRecordById(RECORD_ID)
@@ -1236,8 +1243,9 @@ Public Class frmConstructor_Main
                             Doc_Controls_EditMode(True)
                         End If
                     End If
+                    If pnlDetails.Enabled = False Then pnlDetails.Enabled = True
                 Else
-                    pnlDetails.Enabled = False
+                    If pnlDetails.Enabled = True Then pnlDetails.Enabled = False
                     If DOC_SEARCH_TAB1 = True Then
                         Doc_Controls_EditMode(False)
                     End If
@@ -1259,7 +1267,6 @@ Public Class frmConstructor_Main
             tslblDocViewLocked.Visible = False
         End If
         tsTextboxFulltext.Enabled = state
-        tsdrdowbtnDocSearch.Enabled = state
     End Sub
     Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
         If NODE_NAVIGATION = False Then
@@ -2284,6 +2291,20 @@ Public Class frmConstructor_Main
                 tslblDocIDMain.Visible = True
                 tslblDocIDTab1.Visible = False
             End If
+
+            Dim GEODATA As Boolean = False
+            Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID IN (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = {0})", ENTITY_ID)
+            Dim count = ClassDatabase.Execute_Scalar(sql)
+            If count > 0 Then
+                GEODATA = True
+            Else
+                GEODATA = False
+            End If
+            If GEODATA = True Then
+                tsbtnGeodata.Visible = True
+            Else
+                tsbtnGeodata.Visible = False
+            End If
             ACTIVATE_DOC_SEARCH_ON_EDIT = result.Item("ACTIVATE_DOC_SEARCH_ON_EDIT")
             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")
@@ -3094,8 +3115,9 @@ Public Class frmConstructor_Main
 
                 End Try
                 'Try
-                '    grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
-                '    grvwGrid.Columns("files?").ColumnEdit = CheckBoxEditorForDisplay
+                '    Dim chkRep As New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit
+                '    grvwGrid.GridControl.RepositoryItems.Add(chkRep)
+                '    grvwGrid.Columns("files?").ColumnEdit = chkRep
                 'Catch ex As Exception
                 '    ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
                 'End Try
@@ -4250,7 +4272,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
     Sub Drag_Drop(e As DragEventArgs)
-        If act_FormViewID <> 0 And RIGHT_WINDREAM_FORBIDDEN = False Then
+        If act_FormViewID <> 0 And RIGHT_WINDREAM_FORBIDDEN = False And Not IsNothing(GridControlDocSearch.ContextMenuStrip) Then
             Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
             If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
@@ -6277,6 +6299,9 @@ Public Class frmConstructor_Main
 
     Private Sub tsbtnVariantDetailView_Click(sender As Object, e As EventArgs) Handles tsbtnVariantDetailView.Click
 
+        Load_Variant_Record()
+    End Sub
+    Sub Load_Variant_Record()
         Try
             Dim RECORD_ID = GridViewVariants.GetFocusedRowCellValue(GridViewVariants.Columns("RECORD_ID"))
             If Not IsNothing(RECORD_ID) Then
@@ -6287,9 +6312,43 @@ Public Class frmConstructor_Main
         End Try
         JUMP_RECORD_ID = 0
     End Sub
-
-    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles tsbtnGeodata.Click
         Dim frm As New frmGeodataNavigation(GridControlMain, CURRENT_FORM_ID)
         frm.Show()
     End Sub
+
+    Private Sub GridControl1_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick
+        Load_Variant_Record()
+    End Sub
+
+    Private Sub ChangeHidepanelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChangeHidepanelToolStripMenuItem.Click
+        If SplitContainerDetails.CollapsePanel = SplitCollapsePanel.Panel1 Then
+            SplitContainerDetails.CollapsePanel = SplitCollapsePanel.Panel2
+        Else
+            SplitContainerDetails.CollapsePanel = SplitCollapsePanel.Panel1
+        End If
+
+    End Sub
+
+    Private Sub tsbtnPanel1Collapse_Click(sender As Object, e As EventArgs) Handles tsbtnPanel1Collapse.Click
+        If SplitContainerDetails.CollapsePanel = SplitCollapsePanel.Panel2 Then
+            SplitContainerDetails.CollapsePanel = SplitCollapsePanel.Panel1
+            SplitContainerDetails.Collapsed = True
+            Dim msg = "Dateisuche 'einklappen'"
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Collapse filesearch"
+            End If
+            tsbtnPanel1Collapse.Text = msg
+            tsbtnPanel1Collapse.Image = My.Resources.arrow_Forward_16xLG
+        Else
+            SplitContainerDetails.CollapsePanel = SplitCollapsePanel.Panel2
+            SplitContainerDetails.Collapsed = True
+            Dim msg = "Detailbereich 'einklappen'"
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Collapse details"
+            End If
+            tsbtnPanel1Collapse.Text = msg
+            tsbtnPanel1Collapse.Image = My.Resources.arrow_left
+        End If
+    End Sub
 End Class