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
Show Stats 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.Text.RegularExpressions
Public Class ClassControlBuilder
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)
' 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
Dim enabled As Boolean = CBool(dt.Rows(0).Item(0))
If dt_result.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(dt_result.Rows(0).Item(0))
dependingControl.Enabled = enabled
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
@ -979,16 +981,42 @@ Public Class ClassControlBuilder
End If
AddHandler control.KeyUp, AddressOf AutoCompleteCombo_KeyUp
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)
Dim control As TextBox = DirectCast(sender, TextBox)
Dim value As Decimal
Dim currencyRegex = New System.Text.RegularExpressions.Regex("[0-9,\.]*")
Dim match = currencyRegex.Match(control.Text)
If Not match.Success Then
hier currency prüfen
If control.Text <> "" Then
Dim controlvalue = control.Text
If controlvalue.Contains(".") Then
controlvalue = controlvalue.Replace(".", ",")
End If
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
'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)
If dt.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(dt.Rows(0).Item(0))
If enableDT.Rows.Count = 1 Then
Dim enabled As Boolean = CBool(enableDT.Rows(0).Item(0))
DependingControl.Enabled = enabled
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
Next

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

@ -39,7 +39,7 @@ Public Class ClassImport_Windream
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
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
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
err = True
@ -58,7 +58,7 @@ Public Class ClassImport_Windream
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID
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
err = True
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
idxvalue = CURRENT_PARENT_ENTITY_ID
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
err = True
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>
''' <returns>Liefert True wenn das Indexieren erfolgreich war, sonst False</returns>
''' <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
If LogErrorsOnly = False Then ClassLogger.Add(" >> DateiIndexieren wurde aufgerufen", 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")
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")
WD_File = WD_File.Substring(2)
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
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
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
Try
@ -811,7 +811,7 @@ Public Class ClassWindream
' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' 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
Try
@ -827,48 +827,42 @@ Public Class ClassWindream
Catch ex As Exception
' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
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
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
Dim indexe As String = ""
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexname: '" & _Indexname & "'", False)
Dim werte = New ArrayList
'Den Typ des Index-Feldes auslesen
'MsgBox(value.GetType.ToString)
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
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)
'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then
Return False
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False)
werte.Add(_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Werte zu Array hinzugefügt!", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for indexing: " & _Value, False)
Else
'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)
'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then
Return False
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False)
werte.Add(_Value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for indexing: " & _Value, False)
End If
'indexe &= indexname & " = " & werte & vbNewLine
@ -887,7 +881,7 @@ Public Class ClassWindream
'MsgBox(arr(0) & vbNewLine & indexe)
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)
' Me.TreeNodeInfos.Add(temp)
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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.5.9")>
<Assembly: AssemblyVersion("2.4.6.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<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
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)

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

@ -420,16 +420,21 @@ Public Class frmMain
End Sub
Private Sub SetBackgroundImage()
Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL)
Try
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)
Me.BackgroundImage = image
Me.BackgroundImageLayout = ImageLayout.Center
Dim image As Bitmap = ByteArrayToBitmap(bimage)
Me.BackgroundImage = image
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
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 idxvalue = CURRENT_FORM_ID
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
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ENTITY_ID
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)
'###
'den Record-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_RECORD_ID
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)
'den Doctype-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
idxvalue = CURRENT_DOKARTSTRING
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)
'####
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
Dim ENTITY_INDEX As String = ClassDatabase.Execute_Scalar(Sql)
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
Try
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 & "'"
Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql)
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
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 & "'"
Dim IDXENTITY As String = ClassDatabase.Execute_Scalar(Sql)
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
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 & "'"
Dim DoctypeIndex As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(DoctypeIndex) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString)
ClassWindream.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString)
Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
DoctypeIndex = ClassDatabase.Execute_Scalar(Sql)
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
'#####
@ -418,11 +418,11 @@ Public Class frmWD_Import_Doc_Record
Sql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim RecordIndex As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(RecordIndex) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID)
ClassWindream.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID)
Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
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)
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
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
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
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
err = True
@ -64,7 +64,7 @@ Public Class frmWD_Index_Dokart
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID
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
err = True
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
idxvalue = CURRENT_PARENT_ENTITY_ID
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
err = True
MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)