AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-05-02 14:03:34 +02:00
parent dfadd6d53a
commit 3d8a88515c
14 changed files with 292 additions and 172 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -263,18 +263,45 @@ Public Class frmConstructor_Main
MsgBox("Error in Save_Grid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Save_DocGrid_Layout()
Try
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", GridViewDoc_Search.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
MsgBox("Error in Save_DocGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_DocGrid_Layout()
Try
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", GridViewDoc_Search.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
End If
Catch ex As Exception
MsgBox("Error in Load_DocGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_Grid_Layout()
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) And GRID_TYPE = GridType.Grid Then
grvwGrid.RestoreLayoutFromXml(XMLPath)
'grvwGrid.ClearGrouping()
' grvwGrid.ClearSelection()
'grvwGrid.OptionsView.ShowPreview = False
grvwGridPos.GuessAutoFilterRowValuesFromFilter()
'Update_Status_Label(True, "Grid Layout Loaded")
grvwGrid.GuessAutoFilterRowValuesFromFilter()
End If
Catch ex As Exception
MsgBox("Error in Load_Grid_Layout: " & vbNewLine & ex.Message)
@@ -1983,7 +2010,6 @@ Public Class frmConstructor_Main
' Datatable laden
GridControlMain.DataSource = DT
BindingSource_Entity.DataSource = DT
BindingNavigator1.BindingSource = BindingSource_Entity
grvwTiles.TileTemplate.Clear()
@@ -2289,8 +2315,7 @@ Public Class frmConstructor_Main
'Databinding Neu
BindingSource_Entity.DataSource = DT_SELECTION
GridControlMain.DataSource = BindingSource_Entity
BindingNavigator1.BindingSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
@@ -3543,6 +3568,7 @@ Public Class frmConstructor_Main
'Icon zuweisen
Select Case extension
Case ".csv"
NewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt"
NewRow.Item(0) = My.Resources.text
Case ".pdf"
@@ -3559,6 +3585,8 @@ Public Class frmConstructor_Main
NewRow.Item(0) = My.Resources.ppt
Case ".pptx"
NewRow.Item(0) = My.Resources.ppt
Case ".dwg"
NewRow.Item(0) = My.Resources.dwg
Case Else
NewRow.Item(0) = My.Resources._blank
End Select
@@ -3781,6 +3809,7 @@ Public Class frmConstructor_Main
Load_POSGrid_Layout()
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
Load_DocGrid_Layout()
tsButtonEdit.Enabled = False
If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
@@ -4836,4 +4865,12 @@ Public Class frmConstructor_Main
End Try
File_open()
End Sub
Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave
Save_DocGrid_Layout()
End Sub
Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
Drag_Drop(e)
End Sub
End Class