15.06 JJ für MS
This commit is contained in:
SchreiberM
@@ -2086,7 +2086,8 @@ Public Class frmConstructor_Main
|
||||
If WD_ShowEnitityDocs = True Then
|
||||
Clear_Windream_ResultList()
|
||||
GridControlDocSearch.Visible = True
|
||||
RUN_WD_SEARCH("", "ENTITY")
|
||||
'RUN_WD_SEARCH("", "ENTITY")
|
||||
RUN_WDSEARCH_GRID("ENTITY")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -2794,9 +2795,10 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
Case 1
|
||||
If RECORD_ID = 0 Then
|
||||
RUN_WD_SEARCH(WD_Suche, "ENTITY")
|
||||
'RUN_WD_SEARCH(WD_Suche, "ENTITY")
|
||||
RUN_WDSEARCH_GRID("ENTITY")
|
||||
Else
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End If
|
||||
Case 2
|
||||
@@ -3123,12 +3125,18 @@ Public Class frmConstructor_Main
|
||||
End Sub
|
||||
|
||||
#Region "WindreamSuche"
|
||||
Private Function Check_windream_Show(FORM_VIEW_ID As Integer)
|
||||
Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
|
||||
Try
|
||||
|
||||
'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
|
||||
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH")
|
||||
If IsDBNull(wdsearch) Then
|
||||
windream_Docshow = False
|
||||
TabWindream.PageVisible = False
|
||||
WindreamsucheNeuLadenToolStripMenuItem.Visible = False
|
||||
Exit Sub
|
||||
End If
|
||||
If wdsearch <> "" Then
|
||||
TabWindream.PageVisible = True
|
||||
'If IsDBNull(DTWD.Rows(0).Item(0)) Then
|
||||
@@ -3162,7 +3170,7 @@ Public Class frmConstructor_Main
|
||||
windream_Docshow = False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
End Sub
|
||||
Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String)
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
@@ -3652,497 +3660,235 @@ Public Class frmConstructor_Main
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Delete Docs took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
Private Sub RUN_WDSEARCH_GRID()
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim elapsed As Double
|
||||
Dim Basesearch As String
|
||||
|
||||
|
||||
Dim SQL_DOC_SEARCH = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE [RECORD_ID] = {0}", RECORD_ID)
|
||||
Dim DT_FILE_RESULT As DataTable = ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
|
||||
If IsNothing(DT_FILE_RESULT) Then
|
||||
Dim msg = "wrong DocSearch-Configuration - Check logfile"
|
||||
tslblWindreamView.Text = msg
|
||||
Exit Sub
|
||||
End If
|
||||
If DT_FILE_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
|
||||
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "windream-files for record: " & RECORD_ID
|
||||
Private Function GET_DOCSEARCH_DATATABLE(Type As String)
|
||||
Try
|
||||
Dim SQL_DOC_SEARCH
|
||||
If Type = "ENTITY" Then
|
||||
SQL_DOC_SEARCH = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE [ENTITY_ID] = {0}", ENTITY_ID)
|
||||
Else
|
||||
SQL_DOC_SEARCH = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE [RECORD_ID] = {0}", RECORD_ID)
|
||||
End If
|
||||
tslblWindreamView.Text = msg
|
||||
Dim DTGrid As New DataTable
|
||||
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
|
||||
Catch ex As Exception
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Private Sub RUN_WDSEARCH_GRID(Type As String)
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim elapsed As Double
|
||||
|
||||
Dim ColArray As New List(Of String)
|
||||
Try
|
||||
'Die Icon Colum erstellen und konfigurieren
|
||||
Dim colIcon As New System.Data.DataColumn()
|
||||
colIcon.DataType = GetType(Image)
|
||||
colIcon.ColumnName = "ICON"
|
||||
colIcon.Caption = ""
|
||||
DTGrid.Columns.Add(colIcon)
|
||||
'
|
||||
Dim colPath As New System.Data.DataColumn()
|
||||
colPath.DataType = GetType(String)
|
||||
colPath.ColumnName = "FULLPATH"
|
||||
colPath.Caption = "Fullpath"
|
||||
DTGrid.Columns.Add(colPath)
|
||||
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(Type)
|
||||
If IsNothing(DT_FILE_RESULT) Then
|
||||
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
|
||||
tslblWindreamView.Text = msg
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
If DT_FILE_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
|
||||
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
|
||||
If Type = "ENTITY" Then
|
||||
Dim selnode As TreeNode = TreeViewMain.SelectedNode
|
||||
Dim Entitystring
|
||||
If selnode.Text.Contains(" (") Then
|
||||
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
|
||||
Else
|
||||
Entitystring = selnode.Text
|
||||
End If
|
||||
msg = "Windream-Dokumente für Entität: " & Entitystring
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "windream-files for entity: " & Entitystring
|
||||
End If
|
||||
Else
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "windream-files for record: " & RECORD_ID
|
||||
End If
|
||||
End If
|
||||
|
||||
tslblWindreamView.Text = msg
|
||||
Dim DTGrid As New DataTable
|
||||
|
||||
Dim ColArray As New List(Of String)
|
||||
Try
|
||||
'Die Icon Colum erstellen und konfigurieren
|
||||
Dim colIcon As New System.Data.DataColumn()
|
||||
colIcon.DataType = GetType(Image)
|
||||
colIcon.ColumnName = "ICON"
|
||||
colIcon.Caption = ""
|
||||
DTGrid.Columns.Add(colIcon)
|
||||
'
|
||||
Dim colPath As New System.Data.DataColumn()
|
||||
colPath.DataType = GetType(String)
|
||||
colPath.ColumnName = "FULLPATH"
|
||||
colPath.Caption = "Fullpath"
|
||||
DTGrid.Columns.Add(colPath)
|
||||
|
||||
|
||||
If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count = 1 Then
|
||||
Dim ColCount As Integer = 1
|
||||
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then
|
||||
Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName)
|
||||
If Not IsDBNull(ColumnName) Then
|
||||
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
|
||||
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
|
||||
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("COLUMN{0}_WIDTH", ColCount))
|
||||
If IsNothing(Width) Or IsDBNull(Width) Then
|
||||
Width = 200
|
||||
If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count = 1 Then
|
||||
Dim ColCount As Integer = 1
|
||||
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then
|
||||
Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName)
|
||||
If Not IsDBNull(ColumnName) Then
|
||||
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
|
||||
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
|
||||
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("COLUMN{0}_WIDTH", ColCount))
|
||||
If IsNothing(Width) Or IsDBNull(Width) Then
|
||||
Width = 200
|
||||
End If
|
||||
'Die Spalte definieren
|
||||
DTGrid.Columns.Add(ColumnName)
|
||||
ColCount += 1
|
||||
End If
|
||||
'Die Spalte definieren
|
||||
DTGrid.Columns.Add(ColumnName)
|
||||
ColCount += 1
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
|
||||
ColCount = 1
|
||||
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If Column.ColumnName = String.Format("COLUMN{0}", ColCount) Then
|
||||
Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName)
|
||||
If Not IsDBNull(ColumnName) Then
|
||||
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
|
||||
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
|
||||
ColArray.Add(Column.ColumnName)
|
||||
End If
|
||||
End If
|
||||
ColCount += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
COL_ARRAY_RESULTLIST = ColArray
|
||||
|
||||
For Each row As DataRow In DT_FILE_RESULT.Rows
|
||||
|
||||
Dim fullpath = row.Item("FULL_FILENAME")
|
||||
'Dim Folderpath = Path.GetDirectoryName(fullpath)
|
||||
Dim filename = Path.GetFileName(fullpath)
|
||||
Dim extension = Path.GetExtension(fullpath)
|
||||
' Try
|
||||
Dim NewRow As DataRow
|
||||
NewRow = DTGrid.NewRow()
|
||||
|
||||
'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"
|
||||
NewRow.Item(0) = My.Resources.pdf
|
||||
Case ".doc"
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".docx"
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".xls"
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsx"
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".ppt"
|
||||
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
|
||||
'Den Filepath mitgeben
|
||||
NewRow.Item(1) = fullpath
|
||||
|
||||
Dim i = 2 'Fängt bei 2 an, um die ICON Column zu überspringen
|
||||
For Each Column As String In ColArray
|
||||
Dim Colname = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column)
|
||||
Dim rowvalue
|
||||
Try
|
||||
If Colname = "Dateiname" Or Colname = "filename" Then
|
||||
rowvalue = filename
|
||||
ElseIf Colname = "Dokumentart" Or Colname = "doctype" Then
|
||||
rowvalue = row.Item("Doctype")
|
||||
ElseIf Colname = "Erstellt" Or Colname = "created" Then
|
||||
rowvalue = row.Item("Creation_DateTime")
|
||||
Else
|
||||
rowvalue = row.Item(Colname)
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue : '" & rowvalue.ToString & "'", False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "- Error: " & ex.Message)
|
||||
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
|
||||
rowvalue = ""
|
||||
Else
|
||||
rowvalue = "Error getting rowvalue"
|
||||
End If
|
||||
End Try
|
||||
NewRow.Item(i) = rowvalue.ToString
|
||||
i += 1
|
||||
Next
|
||||
'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
|
||||
ColCount = 1
|
||||
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If Column.ColumnName = String.Format("COLUMN{0}", ColCount) Then
|
||||
Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName)
|
||||
If Not IsDBNull(ColumnName) Then
|
||||
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
|
||||
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
|
||||
ColArray.Add(Column.ColumnName)
|
||||
End If
|
||||
End If
|
||||
ColCount += 1
|
||||
DTGrid.Rows.Add(NewRow)
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
' End Try
|
||||
Next
|
||||
If DTGrid.Rows.Count > 0 Then
|
||||
GridControlDocSearch.DataSource = DTGrid
|
||||
' Größe der Icon Column anpassen
|
||||
GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
|
||||
|
||||
For Each col As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If col.ColumnName.EndsWith("WIDTH") Or col.ColumnName.StartsWith("ADDED") Or col.ColumnName.StartsWith("CHANGED") Then
|
||||
Continue For
|
||||
End If
|
||||
Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName)
|
||||
If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then
|
||||
Continue For
|
||||
End If
|
||||
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
|
||||
If Not IsNothing(Width) And Not IsDBNull(Width) Then
|
||||
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rowvalue), DevExpress.XtraGrid.Columns.GridColumn)
|
||||
column.Width = Width
|
||||
Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
|
||||
Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
COL_ARRAY_RESULTLIST = ColArray
|
||||
|
||||
For Each row As DataRow In DT_FILE_RESULT.Rows
|
||||
|
||||
Dim fullpath = "W:" & row.Item("FULL_FILENAME")
|
||||
'Dim Folderpath = Path.GetDirectoryName(fullpath)
|
||||
Dim filename = Path.GetFileName(fullpath)
|
||||
Dim extension = Path.GetExtension(fullpath)
|
||||
' Try
|
||||
Dim NewRow As DataRow
|
||||
NewRow = DTGrid.NewRow()
|
||||
|
||||
'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"
|
||||
NewRow.Item(0) = My.Resources.pdf
|
||||
Case ".doc"
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".docx"
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".xls"
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsx"
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".ppt"
|
||||
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
|
||||
'Den Filepath mitgeben
|
||||
NewRow.Item(1) = fullpath
|
||||
|
||||
Dim i = 2 'Fängt bei 2 an, um die ICON Column zu überspringen
|
||||
For Each Column As String In ColArray
|
||||
Dim Colname = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column)
|
||||
Dim rowvalue
|
||||
Try
|
||||
If Colname = "Dateiname" Or Colname = "filename" Then
|
||||
rowvalue = filename
|
||||
ElseIf Colname = "Dokumentart" Or Colname = "doctype" Then
|
||||
rowvalue = row.Item("Doctype")
|
||||
ElseIf Colname = "Erstellt" Or Colname = "created" Then
|
||||
rowvalue = row.Item("Creation_DateTime")
|
||||
Else
|
||||
rowvalue = row.Item(Colname)
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue : '" & rowvalue.ToString & "'", False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "- Error: " & ex.Message)
|
||||
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
|
||||
rowvalue = ""
|
||||
Else
|
||||
rowvalue = "Error getting rowvalue"
|
||||
End If
|
||||
End Try
|
||||
NewRow.Item(i) = rowvalue.ToString
|
||||
i += 1
|
||||
Next
|
||||
DTGrid.Rows.Add(NewRow)
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
' End Try
|
||||
Next
|
||||
If DTGrid.Rows.Count > 0 Then
|
||||
GridControlDocSearch.DataSource = DTGrid
|
||||
' Größe der Icon Column anpassen
|
||||
GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
|
||||
|
||||
For Each col As DataColumn In DT_WINDREAM_RESULTLIST.Columns
|
||||
If col.ColumnName.EndsWith("WIDTH") Or col.ColumnName.StartsWith("ADDED") Or col.ColumnName.StartsWith("CHANGED") Then
|
||||
Continue For
|
||||
Else
|
||||
Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
|
||||
If Type = "ENTITY" Then
|
||||
Dim selnode As TreeNode = TreeViewMain.SelectedNode
|
||||
Dim Entitystring
|
||||
If selnode.Text.Contains(" (") Then
|
||||
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
|
||||
Else
|
||||
Entitystring = selnode.Text
|
||||
End If
|
||||
Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName)
|
||||
If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then
|
||||
Continue For
|
||||
msg = "Keine Windream-Dokumente für Entität: " & Entitystring & " gefunden"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "No windream-files foundfor entity: " & Entitystring
|
||||
End If
|
||||
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
|
||||
If Not IsNothing(Width) And Not IsDBNull(Width) Then
|
||||
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rowvalue), DevExpress.XtraGrid.Columns.GridColumn)
|
||||
column.Width = Width
|
||||
Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
|
||||
Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
|
||||
Else
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "No windream-files found for record: " & RECORD_ID
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
tslblWindreamView.Text = msg
|
||||
GridControlDocSearch.DataSource = Nothing
|
||||
'Clear_Windream_ResultList()
|
||||
End If
|
||||
Else
|
||||
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "windream-files for record: " & RECORD_ID & " - no files found"
|
||||
End If
|
||||
tslblWindreamView.Text = msg
|
||||
GridControlDocSearch.DataSource = Nothing
|
||||
'Clear_Windream_ResultList()
|
||||
End If
|
||||
|
||||
|
||||
'Try
|
||||
' Dim windream_temp_search
|
||||
' If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Cursor = Cursors.WaitCursor
|
||||
' GridControlDocSearch.DataSource = Nothing
|
||||
' Dim DTWD As DataTable
|
||||
' Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
|
||||
' DTWD = ClassDatabase.Return_Datatable(sql)
|
||||
' If DTWD.Rows.Count = 1 Then
|
||||
' If IsDBNull(DTWD.Rows(0).Item(0)) Then
|
||||
' Cursor = Cursors.Default
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Else
|
||||
' Cursor = Cursors.Default
|
||||
' Exit Sub
|
||||
' End If
|
||||
' 'Die SearchPatterns durchlaufen und zwischenspeichern
|
||||
' If IsDBNull(DTWD.Rows(0).Item(0)) Then
|
||||
' Cursor = Cursors.Default
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Basesearch = DTWD.Rows(0).Item(0)
|
||||
' SP1 = DTWD.Rows(0).Item(1)
|
||||
' If IsDBNull(DTWD.Rows(0).Item(2)) Then
|
||||
' SP2 = ""
|
||||
' Else
|
||||
' SP2 = DTWD.Rows(0).Item(2)
|
||||
' End If
|
||||
' If IsDBNull(DTWD.Rows(0).Item(3)) Then
|
||||
' SP3 = ""
|
||||
' Else
|
||||
' SP3 = DTWD.Rows(0).Item(3)
|
||||
' End If
|
||||
' If IsDBNull(DTWD.Rows(0).Item(4)) Then
|
||||
' SP4 = ""
|
||||
' Else
|
||||
' SP4 = DTWD.Rows(0).Item(4)
|
||||
' End If
|
||||
' If IsDBNull(DTWD.Rows(0).Item(5)) Then
|
||||
' SP5 = ""
|
||||
' Else
|
||||
' SP5 = DTWD.Rows(0).Item(5)
|
||||
' End If
|
||||
|
||||
' 'Eine tempfile generieren
|
||||
' Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
|
||||
' 'Nur den Filenamen ohne Erweiterung
|
||||
' Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
|
||||
' 'tempfile lsöchen
|
||||
' If My.Computer.FileSystem.FileExists(tempFilename1) Then
|
||||
' My.Computer.FileSystem.DeleteFile(tempFilename1)
|
||||
' End If
|
||||
|
||||
' Dim temppath = Path.GetTempPath
|
||||
|
||||
' Dim EncodingFormat As Encoding
|
||||
' Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
|
||||
' If WDUnicode = True Then
|
||||
' EncodingFormat = Encoding.GetEncoding(1252) '1252
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False)
|
||||
' Else
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False)
|
||||
' EncodingFormat = Encoding.GetEncoding(65001)
|
||||
' End If
|
||||
' Dim fileContents As String
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
|
||||
' fileContents = My.Computer.FileSystem.ReadAllText(Basesearch, EncodingFormat) ', System.Text.Encoding.Unicode
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
|
||||
' fileContents = fileContents.Replace("Í", "Ö")
|
||||
' Dim _sp1 = SP1
|
||||
' Dim _sp2 = SP2
|
||||
' Dim _sp3 = SP3
|
||||
' Dim _sp4 = SP4
|
||||
' Dim _sp5 = SP5
|
||||
|
||||
' If _sp1.ToString <> String.Empty Then
|
||||
' _sp1 = Return_SearchPattern(_sp1.ToString)
|
||||
' fileContents = fileContents.Replace("%pattern1%", _sp1)
|
||||
' fileContents = fileContents.Replace("471101", _sp1)
|
||||
' End If
|
||||
' If _sp2.ToString <> String.Empty Then
|
||||
' _sp2 = Return_SearchPattern(_sp2.ToString)
|
||||
' If _sp2 = 0 Then
|
||||
' _sp2 = ""
|
||||
' End If
|
||||
' fileContents = fileContents.Replace("%pattern2%", _sp2)
|
||||
' fileContents = fileContents.Replace("471102", _sp2)
|
||||
' End If
|
||||
' If _sp3.ToString <> String.Empty Then
|
||||
' _sp3 = Return_SearchPattern(_sp3.ToString)
|
||||
' If _sp3 = 0 Then
|
||||
' _sp3 = ""
|
||||
' End If
|
||||
' fileContents = fileContents.Replace("%pattern3%", _sp3)
|
||||
' fileContents = fileContents.Replace("471103", _sp3)
|
||||
' End If
|
||||
' If _sp4.ToString <> String.Empty Then
|
||||
' _sp4 = Return_SearchPattern(_sp4.ToString)
|
||||
' If _sp4 = 0 Then
|
||||
' _sp4 = ""
|
||||
' End If
|
||||
' fileContents = fileContents.Replace("%pattern4%", _sp4)
|
||||
' fileContents = fileContents.Replace("471104", _sp4)
|
||||
' End If
|
||||
' If _sp5.ToString <> String.Empty Then
|
||||
' _sp5 = Return_SearchPattern(_sp5.ToString)
|
||||
' If _sp5 = 0 Then
|
||||
' _sp5 = ""
|
||||
' End If
|
||||
' fileContents = fileContents.Replace("%pattern5%", _sp5)
|
||||
' fileContents = fileContents.Replace("471105", _sp5)
|
||||
' End If
|
||||
' 'Die windream File zusammensetzen
|
||||
' windream_temp_search = temppath & tempName & ".wdf"
|
||||
' TEMP_FILES.Add(windream_temp_search)
|
||||
' 'Die File schreiben
|
||||
' My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
|
||||
' My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
|
||||
' ' XML-Datei öffnen und laden
|
||||
' Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
|
||||
' Dim Reader As New System.Xml.XmlTextReader(Stream)
|
||||
' ' XML-Datei initialisieren
|
||||
' Dim xml As New System.Xml.XmlDocument()
|
||||
' ' XML-Datei öffnen und laden
|
||||
' xml.Load(Reader)
|
||||
' Reader.Close()
|
||||
' xml.Save(windream_temp_search)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False)
|
||||
' Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects
|
||||
' Try
|
||||
' windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search)
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
' End Try
|
||||
' elapsed = sw.Elapsed.TotalSeconds
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
' Dim DTGrid As New DataTable
|
||||
|
||||
' Dim stg As String
|
||||
' If USER_LANGUAGE = "de-DE" Then
|
||||
' stg = "windream-Dateien"
|
||||
' Else
|
||||
' stg = "windream-files"
|
||||
' End If
|
||||
' TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"
|
||||
|
||||
' If windreamSucheErgebnisse.Count > 0 Then 'Es gibt Suchergebnisse
|
||||
' Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 2"
|
||||
' Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET RESULTLIST KONFIG")
|
||||
' Dim ColArray As New List(Of String)
|
||||
' Try
|
||||
' 'Die Icon Colum erstellen und konfigurieren
|
||||
' Dim colIcon As New System.Data.DataColumn()
|
||||
' colIcon.DataType = GetType(Image)
|
||||
' colIcon.ColumnName = "ICON"
|
||||
' colIcon.Caption = ""
|
||||
' DTGrid.Columns.Add(colIcon)
|
||||
' '
|
||||
' Dim colPath As New System.Data.DataColumn()
|
||||
' colPath.DataType = GetType(String)
|
||||
' colPath.ColumnName = "FULLPATH"
|
||||
' colPath.Caption = "Fullpath"
|
||||
' DTGrid.Columns.Add(colPath)
|
||||
' 'GridViewDoc_Search.Columns.
|
||||
' 'TODO: colPath ausblenden
|
||||
|
||||
' If Not DT Is Nothing And DT.Rows.Count = 1 Then
|
||||
' Dim ColCount As Integer = 1
|
||||
' For Each Column As DataColumn In DT.Columns
|
||||
' If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then
|
||||
' Dim sql1 = String.Format("select {0} from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 2", Column.ColumnName)
|
||||
' Dim ColumnName = ClassDatabase.Execute_Scalar(sql1, True)
|
||||
' If Not IsDBNull(ColumnName) Then
|
||||
' If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
|
||||
' 'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
|
||||
' sql1 = String.Format("select COLUMN{0}_WIDTH from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 2", ColCount)
|
||||
' Dim Width = ClassDatabase.Execute_Scalar(sql1, True)
|
||||
' If IsNothing(Width) Or IsDBNull(Width) Then
|
||||
' Width = 200
|
||||
' End If
|
||||
' 'Die Spalte definieren
|
||||
' DTGrid.Columns.Add(ColumnName)
|
||||
' ColCount += 1
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' Next
|
||||
' 'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
|
||||
' ColCount = 1
|
||||
' For Each Column As DataColumn In DT.Columns
|
||||
' If Column.ColumnName = String.Format("COLUMN{0}", ColCount) Then
|
||||
' Dim sql1 = String.Format("select {0} from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 2", Column.ColumnName)
|
||||
' Dim ColumnName = ClassDatabase.Execute_Scalar(sql1, True)
|
||||
' If Not IsDBNull(ColumnName) Then
|
||||
' If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
|
||||
' 'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
|
||||
' ColArray.Add(Column.ColumnName)
|
||||
' End If
|
||||
' End If
|
||||
' ColCount += 1
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
' End Try
|
||||
' If DTGrid.Columns.Count > 0 Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Grid created!", False)
|
||||
' 'Alle gefundenen Dateien durchlaufen
|
||||
' For Each dok As WMObject In windreamSucheErgebnisse
|
||||
' Dim fullpath = "W:" & dok.aPath
|
||||
' Dim Folderpath = Path.GetDirectoryName(fullpath)
|
||||
' Dim filename = Path.GetFileName(fullpath)
|
||||
' Dim extension = Path.GetExtension(fullpath)
|
||||
' Try
|
||||
' Dim NewRow As DataRow
|
||||
' NewRow = DTGrid.NewRow()
|
||||
|
||||
' '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"
|
||||
' NewRow.Item(0) = My.Resources.pdf
|
||||
' Case ".doc"
|
||||
' NewRow.Item(0) = My.Resources.doc
|
||||
' Case ".docx"
|
||||
' NewRow.Item(0) = My.Resources.doc
|
||||
' Case ".xls"
|
||||
' NewRow.Item(0) = My.Resources.xls
|
||||
' Case ".xlsx"
|
||||
' NewRow.Item(0) = My.Resources.xls
|
||||
' Case ".ppt"
|
||||
' 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
|
||||
' 'Den Filepath mitgeben
|
||||
' NewRow.Item(1) = fullpath
|
||||
|
||||
' Dim i = 2 'Fängt bei 2 an, um die ICON Column zu überspringen
|
||||
' For Each Column As String In ColArray
|
||||
' Dim Indexname = DT.Rows(0).Item(Column)
|
||||
' Dim idxvalue
|
||||
' Try
|
||||
' If Indexname.ToString.ToUpper = "Dateiname".ToUpper Then
|
||||
' idxvalue = filename
|
||||
' Else
|
||||
' 'windream-Indexwert holen
|
||||
' idxvalue = dok.GetVariableValue(Indexname)
|
||||
|
||||
' If IsNothing(idxvalue) Then
|
||||
' idxvalue = "-"
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in GetVariableValue for Index '" & Indexname & "- Error: " & ex.Message)
|
||||
' If Indexname.ToString.StartsWith("Doct") Or Indexname.ToString.StartsWith("Dokum") Then
|
||||
' idxvalue = ""
|
||||
' Else
|
||||
' idxvalue = "Error getting indexvalue"
|
||||
' End If
|
||||
' End Try
|
||||
' NewRow.Item(i) = idxvalue.ToString
|
||||
' i += 1
|
||||
' Next
|
||||
|
||||
' DTGrid.Rows.Add(NewRow)
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
' End Try
|
||||
|
||||
' Next
|
||||
' End If
|
||||
' If DTGrid.Rows.Count > 0 Then
|
||||
' GridControlDocSearch.DataSource = DTGrid
|
||||
' ' Größe der Icon Column anpassen
|
||||
' GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
|
||||
' GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
|
||||
' GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
|
||||
' End If
|
||||
' Else
|
||||
' Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
|
||||
' If USER_LANGUAGE <> "de-DE" Then
|
||||
' msg = "windream-files for record: " & RECORD_ID & " - no files found"
|
||||
' End If
|
||||
' tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
|
||||
' 'Clear_Windream_ResultList()
|
||||
' End If
|
||||
|
||||
' Cursor = Cursors.Default
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Error in RUN_WDSEARCH_GRID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
' ClassLogger.Add("Unexpected Error in RUN_WDSEARCH_GRID: " & ex.Message)
|
||||
'End Try
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
Private Function Return_SearchPattern(ByVal content As String)
|
||||
@@ -4302,10 +4048,11 @@ Public Class frmConstructor_Main
|
||||
Load_DocGrid_Layout()
|
||||
tsButtonEdit.Enabled = False
|
||||
If RECORD_ID = 0 Then
|
||||
RUN_WD_SEARCH(WD_Suche, "ENTITY")
|
||||
'RUN_WD_SEARCH(WD_Suche, "ENTITY")
|
||||
RUN_WDSEARCH_GRID("ENTITY")
|
||||
Else
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -4385,7 +4132,7 @@ Public Class frmConstructor_Main
|
||||
CURRENT_RECORD_ID = RECORD_ID
|
||||
CURRENT_FORMVIEW_ID = FORMVIEW_ID
|
||||
frmWD_Index_Dokart.ShowDialog()
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
'RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End If
|
||||
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
|
||||
@@ -4457,7 +4204,7 @@ Public Class frmConstructor_Main
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
|
||||
End If
|
||||
Next
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End If
|
||||
End If
|
||||
@@ -4721,7 +4468,7 @@ Public Class frmConstructor_Main
|
||||
|
||||
|
||||
Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End Sub
|
||||
|
||||
@@ -4917,7 +4664,7 @@ Public Class frmConstructor_Main
|
||||
If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
Update_Status_Label(True, "Template file imported to windream", EditState.Insert)
|
||||
End If
|
||||
@@ -5282,7 +5029,7 @@ Public Class frmConstructor_Main
|
||||
|
||||
If System.IO.File.Exists(FileToDelete) = True Then
|
||||
System.IO.File.Delete(FileToDelete)
|
||||
RUN_WDSEARCH_GRID()
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
|
||||
Reference in New Issue
Block a user