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

MS Push

Browse Source
This commit is contained in:
SchreiberM
2022-01-19 11:40:31 +01:00
parent 9287630dfb
commit fcdeeb12ae
75 changed files with 6011 additions and 3577 deletions
Download Patch File Download Diff File Expand all files Collapse all files

180
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -20,6 +20,7 @@ Imports DevExpress.XtraTreeList
Imports DevExpress.XtraTreeList.Columns
Imports DevExpress.XtraTreeList.Nodes.Operations
Imports DevExpress.XtraTreeList.Nodes
Imports DevExpress.XtraPrinting
Public Class frmConstructor_Main
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
@@ -191,6 +192,7 @@ Public Class frmConstructor_Main
Private IW_USER As String
Private IW_COMMENT As String
Private INWORK_FILE As Boolean
Private BACKGROUND_HELPER As ClassBackgroundHelper
Private ROW_READ_ONLY As Boolean = False
Private ERROR_WHILE_SAVING As Boolean = False
@@ -250,8 +252,8 @@ Public Class frmConstructor_Main
End If
End Sub
Private Sub AddRibbonCloseHandler(controls As Control.ControlCollection)
For Each c As Control In controls
Private Sub AddRibbonCloseHandler(controls As Windows.Forms.Control.ControlCollection)
For Each c As Windows.Forms.Control In controls
AddHandler c.MouseClick, Sub()
MAIN_FORM.CloseRibbon()
End Sub
@@ -520,7 +522,7 @@ Public Class frmConstructor_Main
Private Function Get_VariantsGrid_Layout_Filename()
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", GetSafeFilename(EntityName), CONSTRUCTOR_DETAIL_ID)
Dim Filename As String = String.Format("GridViewDoc_Search_{0}_{1}_UserLayout.xml", GetSafeFilename(EntityName), CONSTRUCTOR_DETAIL_ID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
@@ -564,6 +566,7 @@ Public Class frmConstructor_Main
End If
Dim XMLPath = Get_Grid_Layout_Filename()
grvwGrid.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
@@ -575,10 +578,10 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
If My.Settings.SaveDocGridlayout Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
End If
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
@@ -590,15 +593,18 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
If My.Settings.SaveDocGridlayout Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
End If
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
GridViewDoc_Search.ClearColumnsFilter()
GridViewDoc_Search.ClearFindFilter()
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
@@ -706,7 +712,7 @@ Public Class frmConstructor_Main
Private Function Get_DocGrid_Layout_Filename()
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", GetSafeFilename(EntityName), CONSTRUCTOR_DETAIL_ID)
Dim Filename As String = String.Format("GridViewDoc_Search_{0}_{1}_UserLayout.xml", GetSafeFilename(EntityName), CONSTRUCTOR_DETAIL_ID)
LAYOUT_DOC_GRIDVIEW = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
Return LAYOUT_DOC_GRIDVIEW
End Function
@@ -1175,7 +1181,6 @@ Public Class frmConstructor_Main
TabFollowUp.PageEnabled = True
'pnlPositions.Enabled = True
TabWindream.PageEnabled = True
tsbtnDoc_Refresh.Enabled = True
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then
@@ -1276,6 +1281,10 @@ Public Class frmConstructor_Main
End Try
End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
If e.Node.IsSelected = False Then
'Exit Sub
End If
If NODE_NAVIGATION = False Then
If grvwGrid.Columns.Count > 0 Then
Save_Grid_Layout()
@@ -1363,12 +1372,13 @@ Public Class frmConstructor_Main
End If
sw.Done()
sw = New SW("TreeViewMain_AfterSelect3")
Load_DocGrid_Layout()
Load_Grid_Layout()
Load_Variants_Grid_Layout()
Load_Splitter_Layout()
SELECTION_IN_ACTION = False
sw.Done()
swAll.Done()
End Sub
Sub Doc_ReadOnlyHandler(state As Boolean)
@@ -1883,7 +1893,7 @@ Public Class frmConstructor_Main
End Sub
Private Sub HandleToolTip(sender As Object, e As EventArgs)
Dim control As Control = DirectCast(sender, Control)
Dim control As Windows.Forms.Control = DirectCast(sender, Windows.Forms.Control)
Dim id As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
Dim hint = ClassControlValueCache.LoadHint(id)
@@ -2025,9 +2035,9 @@ Public Class frmConstructor_Main
End Sub
Sub Focus_Control(name As String)
Dim controls As Control.ControlCollection = pnlDetails.Controls
Dim controls As Windows.Forms.Control.ControlCollection = pnlDetails.Controls
For Each c As Control In controls
For Each c As Windows.Forms.Control In controls
Dim tag As Object = c.Tag
Dim controlName As String = DirectCast(tag, ClassControlMetadata).Name
@@ -2429,14 +2439,14 @@ Public Class frmConstructor_Main
#Region "Appointments"
Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try
Dim ctrl As Control = sender
Dim ctrl As Windows.Forms.Control = sender
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, ENTITY_ID, RECORD_ID, pnlDetails.Controls)
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
Sub EditAppointment(ByVal sender As Control, FormID As Integer)
Sub EditAppointment(ByVal sender As Windows.Forms.Control, FormID As Integer)
Try
' Load All appointments first
frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
@@ -2882,7 +2892,7 @@ Public Class frmConstructor_Main
SplitContainerDetails.Collapsed = False
SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Both
'ToolStripDokumente.Dock = DockStyle.None
pnlDocToolStrip.Controls.Add(ToolStripDokumente)
'pnlDocToolStrip.Controls.Add(ToolStripDokumente)
pnlDocFill.Controls.Add(GridControlDocSearch)
TabWindream.PageVisible = False
Load_DocGrid_Layout()
@@ -2890,7 +2900,7 @@ Public Class frmConstructor_Main
SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Panel1
SplitContainerDetails.Collapsed = True
'ToolStripDokumente.Dock = DockStyle.None
TabWindream.Controls.Add(ToolStripDokumente)
'ToolStripDokumente.Dock = DockStyle.Top
TabWindream.Controls.Add(GridControlDocSearch)
TabWindream.PageVisible = True
@@ -3686,12 +3696,13 @@ Public Class frmConstructor_Main
If CBool(wdsearch) = False Then
windream_Docshow = False
TabWindream.PageVisible = False
tsbtnDoc_Refresh.Enabled = False
BbtnitmDocSearch.Enabled = False
tsmiFilesearch.Enabled = False
Exit Sub
Else
TabWindream.PageVisible = True
tsbtnDoc_Refresh.Enabled = True
BbtnitmDocSearch.Enabled = True
tsmiFilesearch.Enabled = True
windream_Docshow = True
If windream_inited = False Then
@@ -3855,7 +3866,7 @@ Public Class frmConstructor_Main
If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration oer unexpected Error in Get_DOC_RESULTTABLE - Check logfile and contact Digital Data"
tslblWindreamView.Text = msg
GridViewDoc_Search.ViewCaption = msg
Me.Cursor = Cursors.Default
Exit Sub
End If
@@ -3909,7 +3920,7 @@ Public Class frmConstructor_Main
msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
End If
tslblWindreamView.Text = msg
GridViewDoc_Search.ViewCaption = msg
If DT_RESULT.Rows.Count > 0 Then
If CURRENT_SEARCH_TYPE = "FULLTEXT" Then
@@ -3936,6 +3947,7 @@ Public Class frmConstructor_Main
CURRENT_SEARCH_TYPE, RECORD_ID)
End If
BbtnitmDocSearch.Enabled = True
Else
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim NODE_TEXT As String = selnode.Text
@@ -3979,7 +3991,7 @@ Public Class frmConstructor_Main
End If
End If
tslblWindreamView.Text = msg
GridViewDoc_Search.ViewCaption = msg
GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList()
End If
@@ -4924,7 +4936,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
GridControlMain.MainView.ExportToXlsx(saveFileDialog1.FileName)
Dim oOptions As XlsxExportOptionsEx = New XlsxExportOptionsEx
oOptions.ShowGridLines = True
oOptions.AllowSortingAndFiltering = DevExpress.Utils.DefaultBoolean.True
oOptions.ExportType = DevExpress.Export.ExportType.DataAware
oOptions.ExportMode = XlsxExportMode.SingleFile
oOptions.AllowFixedColumnHeaderPanel = DevExpress.Utils.DefaultBoolean.True
GridControlMain.MainView.ExportToXlsx(saveFileDialog1.FileName, oOptions)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
@@ -5946,13 +5964,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
ROW_READ_ONLY = False
Select Case Result.ToString
Case "R"
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
LOGGER.Warn("FileRight is R but User is Admin!! - Check the configuration!")
End If
ROW_READ_ONLY = True
ContextMenu_Read()
Case "RW"
ContextMenu_Write()
Case "RWA"
@@ -5967,6 +5979,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Select
CURRENT_FILE_RIGHT = Result.ToString
Else
ContextMenu_Read()
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting rights - check the log")
e.Cancel = True
End If
@@ -5981,13 +5994,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
docCM_RenameMain.Visible = True
DisplaynameUmbenennenToolStripMenuItem.Visible = True
Set_Displayname()
Else
docCM_RenameMain.Visible = False
DisplaynameUmbenennenToolStripMenuItem.Visible = False
End If
Else
docCM_RenameMain.Visible = False
DisplaynameUmbenennenToolStripMenuItem.Visible = False
End If
Catch ex As Exception
@@ -6002,6 +6015,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Sub File_in_Work()
IW_USER = ""
IW_COMMENT = ""
INWORK_FILE = False
docCM_InWork.Enabled = True
Try
Dim expression As String
@@ -6011,22 +6025,24 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
Dim oSQL = "Select IN_WORK,IN_WORK_USER,IN_WORK_COMMENT FROM TBPMO_DOCRESULT_LIST where DocID = " + ClassWindreamDocGrid.SELECTED_DOC_ID
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassWindreamDocGrid.SELECTED_DOC_ID}"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQLDRList)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
IW_USER = CBool(oDT.Rows(0).Item("IN_WORK_USER"))
IW_COMMENT = CBool(oDT.Rows(0).Item("IN_WORK_COMMENT"))
IW_USER = oDT.Rows(0).Item("IN_WORK_USER")
IW_COMMENT = oDT.Rows(0).Item("IN_WORK_COMMENT")
INWORK_FILE = CBool(oDT.Rows(0).Item("IN_WORK"))
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
IW_USER = ""
IW_COMMENT = ""
End Try
Dim displ As String
If CBool(ClassWindreamDocGrid.SELECTED_INWORK) = True Then
If INWORK_FILE = True Then
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
displ = "Datei wieder freigeben"
If USER_LANGUAGE <> "de-DE" Then
@@ -6056,7 +6072,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Exit Sub
End If
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
If ClassWindreamDocGrid.SELECTED_INWORK = True Then ' Datei ist in Bearbeitung
If INWORK_FILE = True Then ' Datei ist in Bearbeitung
Dim msglbl As String
Dim msg1 As String
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
@@ -6369,12 +6385,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub GridViewDoc_Search_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged
Try
Dim origtext As String = tslblWindreamView.Text
Dim origtext As String = GridViewDoc_Search.ViewCaption
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
tslblWindreamView.Text = String.Format("{0} ({1})", existingstring, GridViewDoc_Search.RowCount)
GridViewDoc_Search.ViewCaption = String.Format("{0} ({1})", existingstring, GridViewDoc_Search.RowCount)
Else
tslblWindreamView.Text = String.Format("{0} ({1})", tslblWindreamView.Text, GridViewDoc_Search.RowCount)
GridViewDoc_Search.ViewCaption = String.Format("{0} ({1})", GridViewDoc_Search.ViewCaption, GridViewDoc_Search.RowCount)
End If
Catch ex As Exception
@@ -6409,10 +6425,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
RUN_ENTITY_DOC_SEARCH()
End Sub
Private Sub tsbtnDoc_Refresh_Click(sender As Object, e As EventArgs) Handles tsbtnDoc_Refresh.Click
RUN_WDSEARCH_GRID()
End Sub
Private Sub Load_Variants()
Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
@@ -6529,7 +6541,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Me.tstxtboxSearchNode.Text = "Suche Knoten"
End If
End Sub
Private Function FindFocussedControl(ByVal ctr As Control) As Control
Private Function FindFocussedControl(ByVal ctr As Windows.Forms.Control) As Windows.Forms.Control
Dim container As ContainerControl = TryCast(ctr, ContainerControl)
Do While (container IsNot Nothing)
ctr = container.ActiveControl
@@ -6575,10 +6587,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
frmWM_ChangeDoctype.ShowDialog()
RUN_WDSEARCH_GRID()
End Sub
Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
Display_Filename()
End Sub
Private Sub NeuToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.MouseHover
Display_Filename()
End Sub
@@ -6596,13 +6604,16 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
NewName = NewName & Path.GetExtension(ClassWindreamDocGrid.SELECTED_DOC_PATH)
OnlyFilename &= Path.GetExtension(ClassWindreamDocGrid.SELECTED_DOC_PATH)
' Rename file.
LOGGER.Info($"Renaming Old: [{OldName}]")
LOGGER.Info($"Renaming New: [{NewName}]")
My.Computer.FileSystem.RenameFile(OldName, NewName)
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}",
OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID)
If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) Then
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassWindreamDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
If ClassDatabase.Execute_non_Query(oEXEC) Then
LOGGER.Info($"Exec PRPMO_DOC_CREATE_NEW_DOC done!")
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True)
ClassDatabase.Execute_non_Query(oEXEC, True)
End If
End If
Cursor = Cursors.Default
@@ -6782,11 +6793,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
LOGGER.Warn("OpenFile.FileRight is R but User is Admin!! - Check the configuration!")
End If
allow_Open = True
Case "RW"
allow_Open = True
@@ -6877,10 +6883,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Pos_COLROW_Changer()
End Sub
Private Sub tsbtnStartFulltext_Click(sender As Object, e As EventArgs) Handles tsbtnStartFulltext.Click
Open_FulltextSearch()
End Sub
Private Sub tsmiFulltext_Click(sender As Object, e As EventArgs)
Open_FulltextSearch()
End Sub
@@ -6913,16 +6915,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
LOGGER.Warn(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!")
End If
ContextMenu_Read()
Case Else
ContextMenu_Write()
End Select
Else
'cmDoc1FileProperties.Enabled = True
ContextMenu_Read()
End If
Catch ex As Exception
e.Cancel = True
@@ -7131,6 +7129,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim oUpdate = String.Format("UPDATE TBPMO_STRUCTURE_NODES SET NODE_CAPTION = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", Me.tstxtRenameNode.Text, USER_USERNAME, NODE_GUID)
If ClassDatabase.Execute_non_Query(oUpdate) Then
TreeViewMain.SelectedNode.Text = Me.tstxtRenameNode.Text
cmsTreeView.Close()
End If
End If
End If
@@ -7220,13 +7219,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Showlinks.Click
Try
Dim oDocID = GridViewDoc_Search.GetRowCellValue(GridViewDoc_Search.FocusedRowHandle, "DocID")
If IsNothing(oDocID) Then
MsgBox("Could not get DocID!", MsgBoxStyle.Exclamation)
Exit Sub
End If
CURRENT_DOC_ID = oDocID
CURRENT_DOC_ID = GridViewDoc_Search.GetRowCellValue(GridViewDoc_Search.FocusedRowHandle, "DocID")
Dim frm As New frmDoc_Links
frm.Show()
@@ -7389,7 +7387,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialog1.FileName)
Dim oOptions As XlsxExportOptionsEx = New XlsxExportOptionsEx
oOptions.ShowGridLines = True
oOptions.AllowSortingAndFiltering = DevExpress.Utils.DefaultBoolean.True
oOptions.ExportType = DevExpress.Export.ExportType.DataAware
oOptions.ExportMode = XlsxExportMode.SingleFile
oOptions.AllowFixedColumnHeaderPanel = DevExpress.Utils.DefaultBoolean.True
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialog1.FileName, oOptions)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
@@ -7413,4 +7417,22 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
CURRENT_SEARCH_TYPE = "ENTITY"
RUN_ENTITY_DOC_SEARCH()
End Sub
Private Sub ButtonResetFilter_Click(sender As Object, e As EventArgs) Handles ButtonResetFilter.Click
GridViewDoc_Search.ClearColumnsFilter()
GridViewDoc_Search.ClearFindFilter()
End Sub
Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
Open_FulltextSearch()
End Sub
Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmDocSearch.ItemClick
RUN_WDSEARCH_GRID()
End Sub
Private Sub BarButtonItem16_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
CURRENT_SEARCH_TYPE = "ENTITY"
RUN_ENTITY_DOC_SEARCH()
End Sub
End Class