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

15.06 JJ für MS

Browse Source
This commit is contained in:
SchreiberM
2016-06-15 11:07:47 +02:00
parent 621a7f0fff
commit 6a708d29e4
10 changed files with 325 additions and 551 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -1,4 +1,5 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Text.RegularExpressions
Public Class ClassControlBuilder Public Class ClassControlBuilder
Private _master_panel As Panel Private _master_panel As Panel
@@ -217,13 +218,14 @@ Public Class ClassControlBuilder
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False) If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1 ' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand) Dim dt_result As DataTable = Nothing
dt_result = ClassDatabase.Return_Datatable(sqlcommand)
If dt.Rows.Count = 1 Then If dt_result.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(dt.Rows(0).Item(0)) Dim enabled As Boolean = CBool(dt_result.Rows(0).Item(0))
dependingControl.Enabled = enabled dependingControl.Enabled = enabled
Else Else
ClassLogger.Add(" >> Attention: RowCount for enabling control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'") ClassLogger.Add(" >> Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False)
End If End If
End If End If
@@ -979,16 +981,42 @@ Public Class ClassControlBuilder
End If End If
AddHandler control.KeyUp, AddressOf AutoCompleteCombo_KeyUp AddHandler control.KeyUp, AddressOf AutoCompleteCombo_KeyUp
End Sub End Sub
Public Function IsValidCurrency(currencyValue As String) As Boolean
Dim pattern As String = "\p{Sc}+\s*\d+"
Dim currencyRegex As New Regex(pattern)
Return currencyRegex.IsMatch(currencyValue)
End Function
Private Sub Textbox_Currency_Handler(sender As Object, e As EventArgs) Private Sub Textbox_Currency_Handler(sender As Object, e As EventArgs)
Dim control As TextBox = DirectCast(sender, TextBox) Dim control As TextBox = DirectCast(sender, TextBox)
Dim value As Decimal If control.Text <> "" Then
Dim currencyRegex = New System.Text.RegularExpressions.Regex("[0-9,\.]*") Dim controlvalue = control.Text
Dim match = currencyRegex.Match(control.Text) If controlvalue.Contains(".") Then
controlvalue = controlvalue.Replace(".", ",")
If Not match.Success Then End If
hier currency prüfen Dim value As Double
If Double.TryParse(controlvalue, Globalization.NumberStyles.Currency, Nothing, value) Then
'Valid.
control.Text = value.ToString("c"c)
Else
'Invalid.
MessageBox.Show("Please enter a valid curreny amount.")
control.Focus()
control.SelectAll()
End If
End If End If
'Dim i = IsValidCurrency(control.Text)
'If IsValidCurrency(control.Text) = False Then
' MsgBox("Sorry but some input characters are invalid for the format currency!", MsgBoxStyle.Exclamation)
' control.Focus()
' control.SelectAll()
'End If
'Dim currencyRegex = New System.Text.RegularExpressions.Regex("[0-9,\.]*")
'Dim match = currencyRegex.Match(control.Text)
'If match.Success Then
'End If

6
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -529,11 +529,11 @@ Public Class ClassControlValues
Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL) Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL)
If dt.Rows.Count = 1 Then If enableDT.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(dt.Rows(0).Item(0)) Dim enabled As Boolean = CBool(enableDT.Rows(0).Item(0))
DependingControl.Enabled = enabled DependingControl.Enabled = enabled
Else Else
ClassLogger.Add(" >> Attention: RowCount for enabling control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'") ClassLogger.Add(" >> Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
End If End If
End If End If
Next Next

6
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -39,7 +39,7 @@ Public Class ClassImport_Windream
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
Count += 1 Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
err = True err = True
@@ -58,7 +58,7 @@ Public Class ClassImport_Windream
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID Dim idxvalue = CURRENT_FORM_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
err = True err = True
MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical)
@@ -67,7 +67,7 @@ Public Class ClassImport_Windream
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ENTITY_ID idxvalue = CURRENT_PARENT_ENTITY_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
err = True err = True
MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)

42
app/DD-Record-Organiser/ClassWindream.vb
View File

@@ -782,20 +782,20 @@ Public Class ClassWindream
''' <param name="filenameZiel">neuer Name der zu indexierenden Datei</param> ''' <param name="filenameZiel">neuer Name der zu indexierenden Datei</param>
''' <returns>Liefert True wenn das Indexieren erfolgreich war, sonst False</returns> ''' <returns>Liefert True wenn das Indexieren erfolgreich war, sonst False</returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String) Public Shared Function IndexFile(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> DateiIndexieren wurde aufgerufen", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> IndexFile ('" & WD_File & "','" & _Indexname & "','" & _Value & "') was called!", False)
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, _Indexname)
' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
'' das entsprechende Attribut aus windream auslesen
'Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, _Indexname)
''den Variablentyp (String, Integer, ...) auslesen
'Dim vType = oAttribute.getVariableValue("dwAttrType")
WD_File = WD_File.Substring(2) WD_File = WD_File.Substring(2)
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString)
'MsgBox("IndexFile:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString)
' den Dokumenttyp schreiben ' den Dokumenttyp schreiben
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexieren wird gestartet", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing will be started", False)
' ein windream-Objekt der Datei anlegen ' ein windream-Objekt der Datei anlegen
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
Try Try
@@ -811,7 +811,7 @@ Public Class ClassWindream
' ihr den entsprechenden Dokumenttyp zuweisen ' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype '" & _WDObjekttyp & "' was written!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype '" & _WDObjekttyp & "' was set!", False)
End If End If
Try Try
@@ -827,48 +827,42 @@ Public Class ClassWindream
Catch ex As Exception Catch ex As Exception
' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei wurde gespeichert / Unlock wurde durchgeführt", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> File saved / Unlock done", False)
' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben ' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben
If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp: " & _WDObjekttyp, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype: " & _WDObjekttyp, False)
' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden
Dim indexe As String = "" Dim indexe As String = ""
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexname: '" & _Indexname & "'", False)
Dim werte = New ArrayList Dim werte = New ArrayList
'Den Typ des Index-Feldes auslesen 'Den Typ des Index-Feldes auslesen
'MsgBox(value.GetType.ToString) 'MsgBox(value.GetType.ToString)
If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Es handelt sich um ein Vektor-Feld", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> type vectorfield", False)
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt
If LogErrorsOnly = False Then ClassLogger.Add(" >> Wert vor Überprüfung: " & _Value, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> value before checking: " & _Value, False)
_Value = CheckIndexValue(_Value) _Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung 'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then If _Value Is Nothing Then
Return False Return False
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False)
werte.Add(_Value) werte.Add(_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for indexing: " & _Value, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Werte zu Array hinzugefügt!", False)
Else Else
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value vor Überprüfung: " & _Value, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> value before checking: " & _Value, False)
_Value = CheckIndexValue(_Value) _Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung 'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then If _Value Is Nothing Then
Return False Return False
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False)
werte.Add(_Value) werte.Add(_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for indexing: " & _Value, False)
End If End If
'indexe &= indexname & " = " & werte & vbNewLine 'indexe &= indexname & " = " & werte & vbNewLine
@@ -887,7 +881,7 @@ Public Class ClassWindream
'MsgBox(arr(0) & vbNewLine & indexe) 'MsgBox(arr(0) & vbNewLine & indexe)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in DateiIndexieren: the file' " & WD_File & "' could not be indexed!") ClassLogger.Add("Unexpected Error in IndexFile: the file' " & WD_File & "' could not be indexed!")
ClassLogger.Add("Error-Description: " & ex.Message) ClassLogger.Add("Error-Description: " & ex.Message)
' Me.TreeNodeInfos.Add(temp) ' Me.TreeNodeInfos.Add(temp)
Return False Return False

2
app/DD-Record-Organiser/My Project/AssemblyInfo.vb
View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.5.9")> <Assembly: AssemblyVersion("2.4.6.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

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

@@ -2086,7 +2086,8 @@ Public Class frmConstructor_Main
If WD_ShowEnitityDocs = True Then If WD_ShowEnitityDocs = True Then
Clear_Windream_ResultList() Clear_Windream_ResultList()
GridControlDocSearch.Visible = True GridControlDocSearch.Visible = True
RUN_WD_SEARCH("", "ENTITY") 'RUN_WD_SEARCH("", "ENTITY")
RUN_WDSEARCH_GRID("ENTITY")
End If End If
End If End If
End If End If
@@ -2794,9 +2795,10 @@ Public Class frmConstructor_Main
End If End If
Case 1 Case 1
If RECORD_ID = 0 Then If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY") 'RUN_WD_SEARCH(WD_Suche, "ENTITY")
RUN_WDSEARCH_GRID("ENTITY")
Else Else
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
Case 2 Case 2
@@ -3123,12 +3125,18 @@ Public Class frmConstructor_Main
End Sub End Sub
#Region "WindreamSuche" #Region "WindreamSuche"
Private Function Check_windream_Show(FORM_VIEW_ID As Integer) Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
Try Try
'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID 'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql) 'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH") 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 If wdsearch <> "" Then
TabWindream.PageVisible = True TabWindream.PageVisible = True
'If IsDBNull(DTWD.Rows(0).Item(0)) Then 'If IsDBNull(DTWD.Rows(0).Item(0)) Then
@@ -3162,7 +3170,7 @@ Public Class frmConstructor_Main
windream_Docshow = False windream_Docshow = False
End Try End Try
End Function End Sub
Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String) Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String)
Dim sw As New Stopwatch Dim sw As New Stopwatch
sw.Start() 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) If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Delete Docs took " & Format(elapsed, "0.000000000") & " seconds", False)
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
Private Sub RUN_WDSEARCH_GRID() Private Function GET_DOCSEARCH_DATATABLE(Type As String)
Dim sw As New Stopwatch Try
sw.Start() Dim SQL_DOC_SEARCH
Dim elapsed As Double If Type = "ENTITY" Then
Dim Basesearch As String 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)
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
End If End If
tslblWindreamView.Text = msg Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
Dim DTGrid As New DataTable 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) Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(Type)
Try If IsNothing(DT_FILE_RESULT) Then
'Die Icon Colum erstellen und konfigurieren Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
Dim colIcon As New System.Data.DataColumn() tslblWindreamView.Text = msg
colIcon.DataType = GetType(Image) Me.Cursor = Cursors.Default
colIcon.ColumnName = "ICON" Exit Sub
colIcon.Caption = "" End If
DTGrid.Columns.Add(colIcon) If DT_FILE_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
' Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
Dim colPath As New System.Data.DataColumn() If Type = "ENTITY" Then
colPath.DataType = GetType(String) Dim selnode As TreeNode = TreeViewMain.SelectedNode
colPath.ColumnName = "FULLPATH" Dim Entitystring
colPath.Caption = "Fullpath" If selnode.Text.Contains(" (") Then
DTGrid.Columns.Add(colPath) 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 If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count = 1 Then
Dim ColCount As Integer = 1 Dim ColCount As Integer = 1
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then
Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName) Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName)
If Not IsDBNull(ColumnName) Then If Not IsDBNull(ColumnName) Then
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren 'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("COLUMN{0}_WIDTH", ColCount)) Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("COLUMN{0}_WIDTH", ColCount))
If IsNothing(Width) Or IsDBNull(Width) Then If IsNothing(Width) Or IsDBNull(Width) Then
Width = 200 Width = 200
End If
'Die Spalte definieren
DTGrid.Columns.Add(ColumnName)
ColCount += 1
End If End If
'Die Spalte definieren
DTGrid.Columns.Add(ColumnName)
ColCount += 1
End If End If
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 Next
'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten DTGrid.Rows.Add(NewRow)
ColCount = 1 ' Catch ex As Exception
For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns ' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
If Column.ColumnName = String.Format("COLUMN{0}", ColCount) Then ' End Try
Dim ColumnName = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column.ColumnName) Next
If Not IsDBNull(ColumnName) Then If DTGrid.Rows.Count > 0 Then
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then GridControlDocSearch.DataSource = DTGrid
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren ' Größe der Icon Column anpassen
ColArray.Add(Column.ColumnName) GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
End If GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
End If GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
ColCount += 1
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 End If
Next Next
End If End If
Catch ex As Exception Else
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
End Try If Type = "ENTITY" Then
COL_ARRAY_RESULTLIST = ColArray Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim Entitystring
For Each row As DataRow In DT_FILE_RESULT.Rows If selnode.Text.Contains(" (") Then
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
Dim fullpath = "W:" & row.Item("FULL_FILENAME") Else
'Dim Folderpath = Path.GetDirectoryName(fullpath) Entitystring = selnode.Text
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
End If End If
Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName) msg = "Keine Windream-Dokumente für Entität: " & Entitystring & " gefunden"
If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then If USER_LANGUAGE <> "de-DE" Then
Continue For msg = "No windream-files foundfor entity: " & Entitystring
End If End If
Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName)) Else
If Not IsNothing(Width) And Not IsDBNull(Width) Then If USER_LANGUAGE <> "de-DE" Then
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rowvalue), DevExpress.XtraGrid.Columns.GridColumn) msg = "No windream-files found for record: " & RECORD_ID
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 End If
Next End If
tslblWindreamView.Text = msg
GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList()
End If End If
Else elapsed = sw.Elapsed.TotalSeconds
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden" sw.Stop()
If USER_LANGUAGE <> "de-DE" Then sw.Reset()
msg = "windream-files for record: " & RECORD_ID & " - no files found" If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
End If Catch ex As Exception
tslblWindreamView.Text = msg MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
GridControlDocSearch.DataSource = Nothing End Try
'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)
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
Private Function Return_SearchPattern(ByVal content As String) Private Function Return_SearchPattern(ByVal content As String)
@@ -4302,10 +4048,11 @@ Public Class frmConstructor_Main
Load_DocGrid_Layout() Load_DocGrid_Layout()
tsButtonEdit.Enabled = False tsButtonEdit.Enabled = False
If RECORD_ID = 0 Then If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY") 'RUN_WD_SEARCH(WD_Suche, "ENTITY")
RUN_WDSEARCH_GRID("ENTITY")
Else Else
' RUN_WD_SEARCH(WD_Suche, "RECORD") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID("RECORD")
End If End If
End If End If
End If End If
@@ -4385,7 +4132,7 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog() frmWD_Index_Dokart.ShowDialog()
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID("RECORD")
'RUN_WD_SEARCH(WD_Suche, "RECORD") 'RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then 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!") If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
End If End If
Next Next
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
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 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") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
End Sub End Sub
@@ -4917,7 +4664,7 @@ Public Class frmConstructor_Main
If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
Update_Status_Label(True, "Template file imported to windream", EditState.Insert) Update_Status_Label(True, "Template file imported to windream", EditState.Insert)
End If End If
@@ -5282,7 +5029,7 @@ Public Class frmConstructor_Main
If System.IO.File.Exists(FileToDelete) = True Then If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete) System.IO.File.Delete(FileToDelete)
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID("RECORD")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

19
app/DD-Record-Organiser/frmMain.vb
View File

@@ -420,16 +420,21 @@ Public Class frmMain
End Sub End Sub
Private Sub SetBackgroundImage() Private Sub SetBackgroundImage()
Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'" Try
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL) Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL)
If Not IsDBNull(bimage) Then If Not IsDBNull(bimage) Then
Dim image As Bitmap = ByteArrayToBitmap(bimage) Dim image As Bitmap = ByteArrayToBitmap(bimage)
Me.BackgroundImage = image Me.BackgroundImage = image
Me.BackgroundImageLayout = ImageLayout.Center Me.BackgroundImageLayout = ImageLayout.Center
End If End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Load BackgroundImage: " & ex.Message)
End Try
End Sub End Sub
Sub Refresh_TaskReminder() Sub Refresh_TaskReminder()

8
app/DD-Record-Organiser/frmWD_EntityImport.vb
View File

@@ -153,28 +153,28 @@ Public Class frmWD_EntityImport
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID Dim idxvalue = CURRENT_FORM_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
End If End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ENTITY_ID idxvalue = CURRENT_PARENT_ENTITY_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
'### '###
'den Record-Key auslesen 'den Record-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_RECORD_ID idxvalue = CURRENT_RECORD_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical) If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
'den Doctype-Key auslesen 'den Doctype-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
idxvalue = CURRENT_DOKARTSTRING idxvalue = CURRENT_DOKARTSTRING
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical) If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical)
'#### '####
End If End If

14
app/DD-Record-Organiser/frmWD_Import_Doc_Record.vb
View File

@@ -370,7 +370,7 @@ Public Class frmWD_Import_Doc_Record
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_ENTITY_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_ENTITY_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
Dim ENTITY_INDEX As String = ClassDatabase.Execute_Scalar(Sql) Dim ENTITY_INDEX As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(ENTITY_INDEX) Then If Not IsNothing(ENTITY_INDEX) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY) ClassWindream.IndexFile(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY)
End If End If
Try Try
If Not IsNothing(IMP_PARENT_REC_ID) Then If Not IsNothing(IMP_PARENT_REC_ID) Then
@@ -378,7 +378,7 @@ Public Class frmWD_Import_Doc_Record
Sql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" Sql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql) Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(PIDENT) Then If Not IsNothing(PIDENT) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString) ClassWindream.IndexFile(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@@ -391,7 +391,7 @@ Public Class frmWD_Import_Doc_Record
Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim IDXENTITY As String = ClassDatabase.Execute_Scalar(Sql) Dim IDXENTITY As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(IDXENTITY) Then If Not IsNothing(IDXENTITY) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, IDXENTITY, PROFILE_ENTITY.ToString) ClassWindream.IndexFile(CURRENT_FILEIN_WD, IDXENTITY, PROFILE_ENTITY.ToString)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@@ -405,12 +405,12 @@ Public Class frmWD_Import_Doc_Record
Sql = "SELECT IDXNAME_DOCTYPE FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" Sql = "SELECT IDXNAME_DOCTYPE FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim DoctypeIndex As String = ClassDatabase.Execute_Scalar(Sql) Dim DoctypeIndex As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(DoctypeIndex) Then If Not IsNothing(DoctypeIndex) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString) ClassWindream.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString)
Else Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
DoctypeIndex = ClassDatabase.Execute_Scalar(Sql) DoctypeIndex = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(DoctypeIndex) Then If Not IsNothing(DoctypeIndex) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING) ClassWindream.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING)
End If End If
End If End If
'##### '#####
@@ -418,11 +418,11 @@ Public Class frmWD_Import_Doc_Record
Sql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" Sql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim RecordIndex As String = ClassDatabase.Execute_Scalar(Sql) Dim RecordIndex As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(RecordIndex) Then If Not IsNothing(RecordIndex) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID) ClassWindream.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID)
Else Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
RecordIndex = ClassDatabase.Execute_Scalar(Sql) RecordIndex = ClassDatabase.Execute_Scalar(Sql)
If ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID) Then If ClassWindream.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record Index was written", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Record Index was written", False)
End If End If
End If End If

6
app/DD-Record-Organiser/frmWD_Index_Dokart.vb
View File

@@ -44,7 +44,7 @@ Public Class frmWD_Index_Dokart
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
Count += 1 Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
err = True err = True
@@ -64,7 +64,7 @@ Public Class frmWD_Index_Dokart
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID Dim idxvalue = CURRENT_FORM_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
err = True err = True
MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical)
@@ -74,7 +74,7 @@ Public Class frmWD_Index_Dokart
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ENTITY_ID idxvalue = CURRENT_PARENT_ENTITY_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
err = True err = True
MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)