AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DocSearchModul

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-05-08 17:20:20 +02:00
parent 3f5236ad65
commit cff2ec012c
43 changed files with 4012 additions and 1221 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

3
app/DD_PM_WINDREAM/App.config
View File

@ -53,6 +53,9 @@
<setting name="frmValidatorSearchPosition" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmValSearchSplitterDistance" serializeAs="String">
<value>558</value>
</setting>
</DD_PM_WINDREAM.My.MySettings>
</userSettings>
</configuration>

28
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@ -16,10 +16,10 @@ Public Class ClassAllgemeineFunktionen
Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')"
End If
If ClassDatabase.Execute_non_Query(Sql, True) = True Then
LOGGER.Debug(" >> User logged in....", False)
LOGGER.Debug("User logged in....")
Return True
Else
LOGGER.Info(" >> User could not be logged in/out....", False)
LOGGER.Info(" >> User could not be logged in/out....")
Return False
End If
Catch ex As Exception
@ -127,7 +127,7 @@ Public Class ClassAllgemeineFunktionen
Dim xffres As String = Path & "\" & Stammname & ".xffres"
If file_exists(xffres, clsWD) = True Then
System.IO.File.Delete(xffres)
LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht", False)
LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht")
Return True
Else
Return Nothing
@ -135,7 +135,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Delete_xffres", True)
LOGGER.Info(">> Fehlermeldung: " & ex.Message, False)
LOGGER.Info(">> Fehlermeldung: " & ex.Message)
End Try
End Function
'Public Function Delete_File(originFile As String)
@ -151,7 +151,7 @@ Public Class ClassAllgemeineFunktionen
' End If
' Catch ex As Exception
' LOGGER.Info(" Fehler bei Delete_File", True)
' LOGGER.Info(">> Fehlermeldung: " & ex.Message, False)
' LOGGER.Info(">> Fehlermeldung: " & ex.Message)
' End Try
'End Function
@ -159,7 +159,7 @@ Public Class ClassAllgemeineFunktionen
Try
If VIEWER_PDF <> "internal" And vMove_File.EndsWith("pdf") Then
Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File)
LOGGER.Info(">> MoveRename: Datei noch geöffnet - Warten", False)
LOGGER.Info(">> MoveRename: Datei noch geöffnet - Warten")
System.Threading.Thread.Sleep(500)
Loop
End If
@ -179,17 +179,17 @@ Public Class ClassAllgemeineFunktionen
version = version + 1
Loop
My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel, False)
LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel)
Else
LOGGER.Info(">> Ziel und Quellpfad sind identisch!", False)
LOGGER.Info(">> Ziel und Quellpfad sind identisch!")
End If
Return ""
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Move2Folder", True)
LOGGER.Info(">> Fehlermeldung", False)
LOGGER.Info(">>" & ex.Message, False)
LOGGER.Info(">> Fehlermeldung")
LOGGER.Info(">>" & ex.Message)
Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, Environment.UserName)
Return ex.Message
End Try
@ -278,8 +278,8 @@ Public Class ClassAllgemeineFunktionen
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName)
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - SQL: " & vsql_statement, False)
LOGGER.Info(" - Connection: " & vconnectionString, False)
LOGGER.Info(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)
Return 99
End Try
End Function
@ -312,8 +312,8 @@ Public Class ClassAllgemeineFunktionen
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName)
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - SQL: " & vsql_statement, False)
LOGGER.Info(" - Connection: " & vconnectionString, False)
LOGGER.Info(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)
Return 99
End Try
End Function

2
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -422,7 +422,7 @@ Public Class ClassControlCreator
CURRENT_CONTROL_ID = row("GUID")
CURR_CON_ID = IIf(IsDBNull(row("CONNECTION_ID")), 0, row("CONNECTION_ID"))
If CURR_CON_ID = 0 Then
LOGGER.Info(" >> CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID, False)
LOGGER.Info(" >> CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID)
End If
CURR_SELECT_CONTROL = IIf(IsDBNull(row("SQL_UEBERPRUEFUNG")), "", row("SQL_UEBERPRUEFUNG"))

32
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -83,29 +83,29 @@ Public Class ClassDatabase
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_CS(Select_anweisung As String, Conn_ID As Integer, Optional userInput As Boolean = False)
Public Shared Function Return_Datatable_CS(SQLCommand As String, Conn_ID As Integer, Optional userInput As Boolean = False)
Try
Dim ConString As String = Get_ConnectionString(Conn_ID)
LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung, False)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
Dim oConString As String = Get_ConnectionString(Conn_ID)
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand, False)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConString
oSQLconnect.Open()
oSQLcommand = oSQLconnect.CreateCommand
oSQLcommand.CommandText = SQLCommand
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand)
Dim oReturnDatatable As DataTable = New DataTable()
oSQLAdapter.Fill(oReturnDatatable)
oSQLconnect.Close()
Return oReturnDatatable
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei Return_Datatable_CS: " & ex.Message, True)
LOGGER.Info("#SQL: " & Select_anweisung, False)
LOGGER.Info("#SQL: " & SQLCommand, False)
Return Nothing
End Try
End Function

22
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -8,12 +8,12 @@
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
'Jetzt finale Indexe setzen
LOGGER.Debug(" >> working final indices for doc: " & WMObject.aName, False)
LOGGER.Debug("working final indices for doc: " & WMObject.aName)
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
Dim value As String = dr.Item("VALUE").ToString
Dim INDEXNAME = dr.Item("INDEXNAME").ToString
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug(" >> indexing with dynamic sql...", False)
LOGGER.Debug("indexing with dynamic sql...")
'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
'' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@ -25,13 +25,13 @@
'' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Try
' If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value, False)
' If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value)
' Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
' Dim wertWD = WMObject.GetVariableValue(WDINDEXNAME)
' If Not IsNothing(wertWD) Then
' SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD)
' Else
' LOGGER.Info(">>Attention: indexvalue is invalid", False)
' LOGGER.Info(">>Attention: indexvalue is invalid")
' End If
' Catch ex As Exception
' LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
@ -41,7 +41,7 @@
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement, False)
LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
value = dynamic_value
@ -66,11 +66,11 @@
result(0) = value
Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
LOGGER.Debug($" >> oIndexType {oIndexType.ToString}", False)
LOGGER.Debug($"oIndexType {oIndexType.ToString}")
If oIndexType > 4000 And oIndexType < 5000 Then
'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = False Then
LOGGER.Debug(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False)
LOGGER.Debug("FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT")
Else
MsgBox("Unexpected error in finalindexing vektorvalue - check the log", MsgBoxStyle.Critical)
@ -78,9 +78,9 @@
End If
Else
LOGGER.Debug(" >> now indexing..", False)
LOGGER.Debug("now indexing..")
If Indexiere_File(INDEXNAME, result, WMObject) = True Then
LOGGER.Debug(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False)
LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT")
LOGGER.Debug("")
'Nun das Logging
If CURRENT_PROFILE_VEKTOR_LOG <> "" Then
@ -127,7 +127,7 @@
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then
LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@ -135,7 +135,7 @@
anzahl += 1
Next
Else
LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString
End If

16
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -114,7 +114,7 @@ Public Class ClassInit
LICENSE_EXPIRED = True
LICENSE_COUNT = 0
End If
LOGGER.Debug(" >> license initialized....", False)
LOGGER.Debug("license initialized....")
LICENSE_PROFILES = split(2)
Catch ex As Exception
@ -147,7 +147,7 @@ Public Class ClassInit
CLIENT_SELECTED = 1
End Try
LOGGER.Info(">> Username: " & USER_USERNAME, False)
LOGGER.Info(">> Username: " & USER_USERNAME)
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED)
@ -180,10 +180,10 @@ Public Class ClassInit
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
USER_RIGHT_FILE_DELETE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
LOGGER.Debug(" >> User exists....", False)
LOGGER.Debug("User exists....")
'Am System anmelden
Refresh_Licence()
'Check_User_Exists_in_PMGroups()
@ -196,18 +196,18 @@ Public Class ClassInit
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
ClassDatabase.Execute_non_Query(sql, True)
LOGGER.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
If USER_IS_ADMIN = False Then
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE", False)
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE")
ERROR_STATE = "START INCOMPLETE"
End If
End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
LOGGER.Debug(" >> Init Userlogin successfull completed....", False)
LOGGER.Debug("Init Userlogin successfull completed....")
End If
Catch ex As Exception
LOGGER.Error(ex)

54
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -126,7 +126,7 @@ Public Class ClassPMWindream
Dim i As Integer = 0
Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then
LOGGER.Debug(" >> Indexwert ist leer/Nothing - Keine Indexierung", False)
LOGGER.Debug("Indexwert ist leer/Nothing - Keine Indexierung", False)
End If
'Jetzt jeden Indexwert durchlaufen
For Each aName As String In Indizes
@ -155,13 +155,13 @@ Public Class ClassPMWindream
Select Case vType
'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
If IsNumeric(value) = False Then
frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
LOGGER.Debug(" >> Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!", False)
LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!", False)
oDocument.Save()
oDocument.unlock()
Return False
@ -169,7 +169,7 @@ Public Class ClassPMWindream
convertValue = CInt(value)
_int = True
Case WMObjectVariableValueTypeFloat
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
Try
convertValue = CDbl(value)
Catch ex As Exception
@ -181,7 +181,7 @@ Public Class ClassPMWindream
End Try
Case WMObjectVariableValueTypeFixedPoint
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
Try
convertValue = CDbl(value)
Catch ex As Exception
@ -194,16 +194,16 @@ Public Class ClassPMWindream
_dbl = True
Case WMObjectVariableValueTypeBoolean
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
convertValue = CBool(value)
_bool = True
Case WMObjectVariableValueTypeDate
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
_date = True
'Dim _date As Date = value
convertValue = value
Case WMObjectVariableValueTypeTimeStamp
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
convertValue = CInt(value)
Case WMObjectVariableValueTypeCurrency
LOGGER.Info(" >> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
@ -211,7 +211,7 @@ Public Class ClassPMWindream
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
convertValue = aValueWrapper
Case WMObjectVariableValueTypeTime
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
'If ((value)) Then
' convertValue = CDate(value)
'Else
@ -220,44 +220,44 @@ Public Class ClassPMWindream
'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString
Case WMObjectVariableValueTypeFloat
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext
LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
convertValue = CStr(value)
Case 4100
LOGGER.Debug(" >> Typ des windream-Indexes: 4100 Vektor Boolean", False)
LOGGER.Debug("Typ des windream-Indexes: 4100 Vektor Boolean", False)
vektor = True
Case 4101
LOGGER.Debug(" >> Typ des windream-Indexes: 4101 Vektor Date", False)
LOGGER.Debug("Typ des windream-Indexes: 4101 Vektor Date", False)
vektor = True
Case 4104
LOGGER.Debug(" >> Typ des windream-Indexes: 4104 Vektor Currency", False)
LOGGER.Debug("Typ des windream-Indexes: 4104 Vektor Currency", False)
vektor = True
Case 4097
LOGGER.Debug(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
LOGGER.Debug("Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
vektor = True
Case 4098
LOGGER.Debug(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False)
LOGGER.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch", False)
vektor = True
Case 4099
LOGGER.Debug(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
LOGGER.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
vektor = True
Case 36865
LOGGER.Debug(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
LOGGER.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
vektor = True
Case Else
LOGGER.Debug(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False)
LOGGER.Debug(" >> Versuch des Auslesens (vType): " & vType)
LOGGER.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!", False)
LOGGER.Debug("Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = ""
End Select
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
LOGGER.Debug(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False)
LOGGER.Debug("Konvertierter Wert: '" & convertValue.ToString & "'", False)
End If
End If
'############################################################################################
@ -266,7 +266,7 @@ Public Class ClassPMWindream
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
Try
LOGGER.Debug(" >> Jetzt indexieren: oDocument.SetVariableValue(" & aName & ", " & convertValue.ToString & ")", False)
LOGGER.Debug("Jetzt indexieren: oDocument.SetVariableValue(" & aName & ", " & convertValue.ToString & ")", False)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
@ -290,13 +290,13 @@ Public Class ClassPMWindream
Else
oDocument.SetVariableValue(aName, convertValue)
End If
LOGGER.Debug(" >> Index '" & aName & "' wurde geschrieben", False)
LOGGER.Debug("Index '" & aName & "' wurde geschrieben", False)
Else
LOGGER.Info(" >> Kein Indexwert vorhanden", False)
End If
Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
LOGGER.Debug(" >> VEKTORFELD: Vorbereiten des Arrays", False)
LOGGER.Debug("VEKTORFELD: Vorbereiten des Arrays", False)
Dim myArray()
'Dim anz As Integer = 0
'For Each obj In aValues
@ -403,7 +403,7 @@ Public Class ClassPMWindream
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray)
LOGGER.Debug(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
LOGGER.Debug("'SetVariableValue' für VEKTOR erfolgreich", False)
End If
End If
i += 1

2
app/DD_PM_WINDREAM/ClassUser.vb
View File

@ -5,7 +5,7 @@
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then
LOGGER.Debug(" >> User is in UM_ADMINS-Group....", False)
LOGGER.Debug("User is in UM_ADMINS-Group....")
Return True
Else
Return False

10
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -51,13 +51,13 @@ Public Class ClassWindream_allgemein
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
LOGGER.Debug(" >> windream-Server: '" & Me.GetCurrentServer & "'", False)
LOGGER.Debug("windream-Server: '" & Me.GetCurrentServer & "'")
' Connection-Objekt instanziieren
Me.oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed")
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}", False)
LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}")
Return False
End Try
@ -86,7 +86,7 @@ LOGGER.Error(ex)
End If
If LOG_ERRORS_ONLY = False Then
LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'")
End If
' AUSGABE VON SYSTEMINFORMATIONEN
@ -117,7 +117,7 @@ LOGGER.Error(ex)
End If
LOGGER.Debug($" >> windream login successful", False)
LOGGER.Debug($"windream login successful")
Return True
Catch ex As Exception
@ -142,7 +142,7 @@ LOGGER.Error(ex)
If WMSESSION_STARTSTOP_STARTUP = True Then
'And userExistsInServerUserGroup Is Nothing
LOGGER.Info(">> WINDREAM-Start on ApplicationStart is active!", False)
LOGGER.Info(">> WINDREAM-Start on ApplicationStart is active!")
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")

19
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -221,6 +221,7 @@
<Compile Include="ClassUser.vb" />
<Compile Include="ClassWorkDoc.vb" />
<Compile Include="clsPatterns.vb" />
<Compile Include="clsWMDocGrid.vb" />
<Compile Include="FinalIndexDataSet.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@ -612,9 +613,6 @@
<ItemGroup>
<None Include="Resources\lbl.PNG" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\txt.PNG" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\key_go.png" />
</ItemGroup>
@ -741,6 +739,21 @@
<ItemGroup>
<Content Include="DD_Icons_ICO_PMANAGER_48px.ico" />
<Content Include="PM_ohne_slogan_128px.ico" />
<None Include="Resources\search_glyph.png" />
<None Include="Resources\ID_FILE_PAGE_SETUP.png" />
<None Include="Resources\Properties.png" />
<None Include="Resources\OpenFileDialog_692.png" />
<None Include="Resources\txt.png" />
<None Include="Resources\_blank.png" />
<None Include="Resources\pdf.png" />
<None Include="Resources\dxf.png" />
<None Include="Resources\dwg.png" />
<None Include="Resources\ppt.png" />
<None Include="Resources\xls.png" />
<None Include="Resources\doc.png" />
<None Include="Resources\doc_pdf.png" />
<None Include="Resources\doc_text_image.png" />
<None Include="Resources\doc_excel_csv.png" />
<None Include="Resources\Symbols_Information_16xLG.png" />
<None Include="Resources\action_add_16xLG.png" />
<None Include="Resources\cancel.png" />

4
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -31,6 +31,7 @@ Module ModuleRuntimeVariables
Public USER_SHORTNAME
Public USER_EMAIL
Public USER_LANGUAGE As String = "de-DE"
Public USER_DATE_FORMAT As String
Public USER_EXISTS = False
Public USER_IN_MODULE = False
Public USER_RIGHT_FILE_DELETE As Boolean = False
@ -65,7 +66,8 @@ Module ModuleRuntimeVariables
Public CURRENT_DT_FINAL_INDEXING As DataTable
Public CURRENT_DT_PROFILE As DataTable
Public CURRENT_DT_PROFILE_SEARCHES_RT As DataTable
Public CURRENT_DT_PROFILE_SEARCHES_DOC As DataTable
Public CURRENT_DT_PROFILE_SEARCHES_SQL As DataTable
Public CURRENT_INDEX_ARRAY(100, 250) As String
Public CURRENT_DT_VW_PROFILE_USER As DataTable

140
app/DD_PM_WINDREAM/My Project/Resources.Designer.vb generated
View File

@ -60,6 +60,16 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _blank() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_blank", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -330,6 +340,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property doc() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("doc", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property doc_excel_csv() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("doc_excel_csv", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property doc_pdf() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("doc_pdf", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property doc_text_image() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("doc_text_image", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -340,6 +390,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property dwg() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("dwg", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property dxf() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("dxf", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -440,6 +510,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ID_FILE_PAGE_SETUP() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ID_FILE_PAGE_SETUP", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -530,6 +610,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property OpenFileDialog_692() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("OpenFileDialog_692", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -550,6 +640,36 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property pdf() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pdf", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ppt() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ppt", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Properties() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Properties", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -630,6 +750,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property search_glyph() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("search_glyph", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -730,6 +860,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property xls() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("xls", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

76
app/DD_PM_WINDREAM/My Project/Resources.resx
View File

@ -127,21 +127,33 @@
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ComboBox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GoToDeclaration_5576" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GoToDeclaration_5576.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="group_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\group_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -151,9 +163,15 @@
<data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Symbols_Information_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="computer_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\computer_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoom_in" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -172,12 +190,15 @@
<data name="table_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -196,6 +217,18 @@
<data name="TextBox_708" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Properties.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_pink" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -205,9 +238,6 @@
<data name="world_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\world_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -229,6 +259,9 @@
<data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc_pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="book_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -250,12 +283,12 @@
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -265,11 +298,8 @@
<data name="lbl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ComboBox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -286,12 +316,21 @@
<data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="OpenFileDialog_692" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\OpenFileDialog_692.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc_text_image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-gelb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -310,6 +349,9 @@
<data name="cmb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cmb.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -325,7 +367,7 @@
<data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Symbols_Information_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="search_glyph" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

12
app/DD_PM_WINDREAM/My Project/Settings.Designer.vb generated
View File

@ -228,6 +228,18 @@ Namespace My
Me("frmValidatorSearchPosition") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("558")> _
Public Property frmValSearchSplitterDistance() As Integer
Get
Return CType(Me("frmValSearchSplitterDistance"),Integer)
End Get
Set
Me("frmValSearchSplitterDistance") = value
End Set
End Property
End Class
End Namespace

3
app/DD_PM_WINDREAM/My Project/Settings.settings
View File

@ -49,5 +49,8 @@
<Setting Name="frmValidatorSearchPosition" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmValSearchSplitterDistance" Type="System.Int32" Scope="User">
<Value Profile="(Default)">558</Value>
</Setting>
</Settings>
</SettingsFile>

BIN
app/DD_PM_WINDREAM/Resources/ID_FILE_PAGE_SETUP.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 269 B

BIN
app/DD_PM_WINDREAM/Resources/OpenFileDialog_692.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 360 B

BIN
app/DD_PM_WINDREAM/Resources/Properties.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 787 B

BIN
app/DD_PM_WINDREAM/Resources/_blank.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 446 B

BIN
app/DD_PM_WINDREAM/Resources/doc.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

BIN
app/DD_PM_WINDREAM/Resources/doc_excel_csv.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 601 B

BIN
app/DD_PM_WINDREAM/Resources/doc_pdf.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 500 B

BIN
app/DD_PM_WINDREAM/Resources/doc_text_image.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 507 B

BIN
app/DD_PM_WINDREAM/Resources/dwg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 735 B

BIN
app/DD_PM_WINDREAM/Resources/dxf.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 748 B

BIN
app/DD_PM_WINDREAM/Resources/pdf.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 710 B

BIN
app/DD_PM_WINDREAM/Resources/ppt.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 678 B

BIN
app/DD_PM_WINDREAM/Resources/search_glyph.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 660 B

BIN
app/DD_PM_WINDREAM/Resources/txt.PNG
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 531 B

After

Width:  |  Height:  |  Size: 576 B

BIN
app/DD_PM_WINDREAM/Resources/xls.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 714 B

232
app/DD_PM_WINDREAM/clsWMDocGrid.vb Normal file
View File

@ -0,0 +1,232 @@
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls
Public Class clsWMDocGrid
' Private Shared _Helper As ClassHelper
Public Shared SELECTED_DOC_PATH As String
'Public Shared RESULT_OBJECTTYPE As String
Public Shared SELECTED_INWORK As Boolean
Public Shared SELECTED_DOC_ID As Integer
Public Shared SELECTED_DOC_RIGHT As Integer
'Public Shared RESULT_DISPLAYNAME As String
Public Shared RESULT_CONFIG_IDS As Hashtable
Private Shared DATE_COLUMNS As New List(Of String)
Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
Public Shared ActiveDocGrid As GridView
Public Shared DTDocuments As DataTable
Private Shared DT_DROPDOWN_ITEMS As DataTable
Private Shared _dropdownValueChangedHandler As EventHandler
Private Shared _datepickerValueChangedHandler As EventHandler
Private Shared _textValueChangedHandler As EventHandler
Private Shared _checkValueChangedHandler As EventHandler
Private Shared Function Init_Table()
Try
Dim oNewDataTable As New DataTable
oNewDataTable.TableName = "TBSELECTED_FILES"
' Create two columns, ID and Name.
oNewDataTable.Columns.Add("DOC_ID", GetType(Integer))
oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
oNewDataTable.Columns.Add("DISPLAYNAME", GetType(System.String))
oNewDataTable.Columns.Add("ACCESS_RIGHT", GetType(Integer))
DTDocuments = oNewDataTable
Return True
Catch ex As Exception
LOGGER.Error(ex)
DTDocuments = Nothing
Return False
End Try
End Function
Public Shared Sub GetDocItems()
'_Helper = New ClassHelper
SELECTED_DOC_ID = 0
If Init_Table() = True Then
SELECTED_DOC_ID = 0
LOGGER.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
If ActiveDocGrid.SelectedRowsCount >= 1 Then
DTDocuments.Clear()
For Each row In ActiveDocGrid.GetSelectedRows
Dim newRow As DataRow = DTDocuments.NewRow()
Try
Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID")
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
Catch ex As Exception
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
End Try
Try
SELECTED_DOC_RIGHT = ActiveDocGrid.GetRowCellValue(row, "ACCESS_RIGHT")
newRow("ACCESS_RIGHT") = ActiveDocGrid.GetRowCellValue(row, SELECTED_DOC_RIGHT)
Catch ex As Exception
newRow("ACCESS_RIGHT") = 1
End Try
Try
SELECTED_DOC_PATH = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
newRow("DOC_PATH") = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
Catch ex As Exception
newRow("DOC_PATH") = ""
End Try
Try
newRow("OBJECTTYPE") = ActiveDocGrid.GetRowCellValue(row, "OBJECTTYPE")
Catch ex As Exception
newRow("OBJECTTYPE") = ""
End Try
Try
newRow("INWORK") = ActiveDocGrid.GetRowCellValue(row, "in work?")
SELECTED_INWORK = ActiveDocGrid.GetRowCellValue(row, "in work?")
Catch ex As Exception
newRow("INWORK") = False
SELECTED_INWORK = False
End Try
Try
Dim dpn = ActiveDocGrid.GetRowCellValue(row, "Displayname")
If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = ""
End If
newRow("DISPLAYNAME") = dpn
Catch ex As Exception
newRow("DISPLAYNAME") = ""
End Try
DTDocuments.Rows.Add(newRow)
DTDocuments.AcceptChanges()
Next
Else
Dim newRow As DataRow = DTDocuments.NewRow()
Try
Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
Catch ex As Exception
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
End Try
Try
SELECTED_DOC_PATH = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
newRow("DOC_PATH") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
Catch ex As Exception
newRow("DOC_PATH") = ""
End Try
Try
newRow("OBJECTTYPE") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("OBJECTTYPE"))
Catch ex As Exception
newRow("OBJECTTYPE") = ""
End Try
Try
newRow("INWORK") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
SELECTED_INWORK = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
Catch ex As Exception
newRow("INWORK") = False
SELECTED_INWORK = False
End Try
Try
Dim dpn = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("Displayname"))
If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = ""
End If
newRow("DISPLAYNAME") = dpn
Catch ex As Exception
newRow("DISPLAYNAME") = ""
End Try
DTDocuments.Rows.Add(newRow)
DTDocuments.AcceptChanges()
End If
End If
End Sub
Public Class WindreamDocGridComboboxItem
Implements IConvertible
Public ConfigID As Integer
Public Value As String
Public Overrides Function ToString() As String
Return Me.Value
End Function
Public Function ToString1(provider As IFormatProvider) As String Implements IConvertible.ToString
Return Me.Value
End Function
Public Function GetTypeCode() As TypeCode Implements IConvertible.GetTypeCode
Throw New NotImplementedException
End Function
Public Function ToBoolean(provider As IFormatProvider) As Boolean Implements IConvertible.ToBoolean
Throw New NotImplementedException
End Function
Public Function ToByte(provider As IFormatProvider) As Byte Implements IConvertible.ToByte
Throw New NotImplementedException
End Function
Public Function ToChar(provider As IFormatProvider) As Char Implements IConvertible.ToChar
Throw New NotImplementedException
End Function
Public Function ToDateTime(provider As IFormatProvider) As Date Implements IConvertible.ToDateTime
Throw New NotImplementedException
End Function
Public Function ToDecimal(provider As IFormatProvider) As Decimal Implements IConvertible.ToDecimal
Throw New NotImplementedException
End Function
Public Function ToDouble(provider As IFormatProvider) As Double Implements IConvertible.ToDouble
Throw New NotImplementedException
End Function
Public Function ToInt16(provider As IFormatProvider) As Short Implements IConvertible.ToInt16
Throw New NotImplementedException
End Function
Public Function ToInt32(provider As IFormatProvider) As Integer Implements IConvertible.ToInt32
Throw New NotImplementedException
End Function
Public Function ToInt64(provider As IFormatProvider) As Long Implements IConvertible.ToInt64
Throw New NotImplementedException
End Function
Public Function ToSByte(provider As IFormatProvider) As SByte Implements IConvertible.ToSByte
Throw New NotImplementedException
End Function
Public Function ToSingle(provider As IFormatProvider) As Single Implements IConvertible.ToSingle
Throw New NotImplementedException
End Function
Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object Implements IConvertible.ToType
Throw New NotImplementedException
End Function
Public Function ToUInt16(provider As IFormatProvider) As UShort Implements IConvertible.ToUInt16
Throw New NotImplementedException
End Function
Public Function ToUInt32(provider As IFormatProvider) As UInteger Implements IConvertible.ToUInt32
Throw New NotImplementedException
End Function
Public Function ToUInt64(provider As IFormatProvider) As ULong Implements IConvertible.ToUInt64
Throw New NotImplementedException
End Function
End Class
End Class

12
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -74,6 +74,7 @@ Partial Class frmMain
Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem()
Me.TabellenlayoutZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiMarkedFilesFinish = New System.Windows.Forms.ToolStripMenuItem()
Me.GroupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridView_Docs = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.lblViewType = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
@ -92,7 +93,6 @@ Partial Class frmMain
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.GroupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -492,6 +492,11 @@ Partial Class frmMain
resources.ApplyResources(Me.tsmiMarkedFilesFinish, "tsmiMarkedFilesFinish")
Me.tsmiMarkedFilesFinish.Name = "tsmiMarkedFilesFinish"
'
'GroupToolStripMenuItem
'
Me.GroupToolStripMenuItem.Name = "GroupToolStripMenuItem"
resources.ApplyResources(Me.GroupToolStripMenuItem, "GroupToolStripMenuItem")
'
'GridView_Docs
'
Me.GridView_Docs.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView_Docs.Appearance.EvenRow.BackColor"), System.Drawing.Color)
@ -607,11 +612,6 @@ Partial Class frmMain
'TimerReminder
'
'
'GroupToolStripMenuItem
'
Me.GroupToolStripMenuItem.Name = "GroupToolStripMenuItem"
resources.ApplyResources(Me.GroupToolStripMenuItem, "GroupToolStripMenuItem")
'
'frmMain
'
resources.ApplyResources(Me, "$this")

16
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -488,7 +488,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAcQBAwHEAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAcwBAwHMAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -915,7 +915,7 @@
<value>Group</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 156</value>
<value>270, 134</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
@ -1840,6 +1840,12 @@
<data name="&gt;&gt;tsmiMarkedFilesFinish.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupToolStripMenuItem.Name" xml:space="preserve">
<value>GroupToolStripMenuItem</value>
</data>
<data name="&gt;&gt;GroupToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GridView_Docs.Name" xml:space="preserve">
<value>GridView_Docs</value>
</data>
@ -1930,12 +1936,6 @@
<data name="&gt;&gt;TimerReminder.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupToolStripMenuItem.Name" xml:space="preserve">
<value>GroupToolStripMenuItem</value>
</data>
<data name="&gt;&gt;GroupToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>

39
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -62,7 +62,7 @@ Public Class frmMain
End Sub
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
LOGGER.Debug(" >> Initializing MainForm....", False)
LOGGER.Debug("Initializing MainForm....", False)
Try
UserLookAndFeel.Default.SetSkinStyle("VS2010")
Catch ex As Exception
@ -89,7 +89,7 @@ Public Class frmMain
If Refresh_ConnectionString() = True Then
Try
tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
LOGGER.Debug(" >> Initializing MainForm....", False)
LOGGER.Debug("Initializing MainForm....", False)
If ERROR_STATE = "NO USER" Then
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
@ -162,7 +162,7 @@ Public Class frmMain
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
LOGGER.Debug(" >> MainForm initialized!", False)
LOGGER.Debug("MainForm initialized!", False)
End If
End Sub
@ -850,12 +850,13 @@ Public Class frmMain
End Sub
Sub Load_Profil_from_Grid(ID As Integer)
Try
Me.Visible = False
'Try
Me.Visible = False
CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_RT = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
My.Settings.Save()
If TimerRefresh.Enabled Then
@ -863,10 +864,10 @@ Public Class frmMain
End If
frmValidator.ShowDialog()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
'End Try
Me.Visible = True
Decide_Load()
@ -899,8 +900,8 @@ Public Class frmMain
Item_Scope()
End Sub
Private Sub Item_Scope()
Try
CURRENT_JUMP_DOC_GUID = 0
'Try
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim groupRowText
Dim PROFIL_ID
@ -973,10 +974,10 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
End Try
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
'End Try
End Sub
Private Function Init_windream()
Try
@ -987,7 +988,7 @@ Public Class frmMain
WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session()
LOGGER.Debug(" >> windream initialized", False)
LOGGER.Debug("windream initialized", False)
Return True
Catch ex As Exception
LOGGER.Error(ex)
@ -1187,7 +1188,7 @@ Public Class frmMain
Dim oindex As Integer = 0
If Not IsNothing(DTGRID_GROUPS) Then
For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
LOGGER.Debug($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
LOGGER.Debug($"Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
oindex += 1
Next
@ -1201,7 +1202,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For index = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(index).ToString
LOGGER.Debug($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next

92
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -35,7 +35,7 @@ Public Class frmMassValidator
'_windreamPM.Create_Session()
LOGGER.Debug("windream initialized frmMassValidator", False)
LOGGER.Debug("windream initialized frmMassValidator")
Catch ex As Exception
LOGGER.Error(ex)
@ -54,7 +54,7 @@ Public Class frmMassValidator
End If
Try
DT_PROFILE_CONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE CTRL_TYPE <> 'TABLE' AND SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID)
LOGGER.Debug(" >> Profile Data geladen", False)
LOGGER.Debug("Profile Data geladen")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error LOADING profile-data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@ -97,10 +97,10 @@ Public Class frmMassValidator
Next
If LOG_ERRORS_ONLY = False Then
LOGGER.Info(" >> Profildaten gespeichert", False)
LOGGER.Info(" >> WD_Search: " & WM_SEARCH, False)
LOGGER.Info(" >> finalProfile: " & FINAL_PROFILE, False)
LOGGER.Info(" >> Move2Folder: " & MOVE2Folder, False)
LOGGER.Info(" >> Profildaten gespeichert")
LOGGER.Info(" >> WD_Search: " & WM_SEARCH)
LOGGER.Info(" >> finalProfile: " & FINAL_PROFILE)
LOGGER.Info(" >> Move2Folder: " & MOVE2Folder)
End If
@ -135,7 +135,7 @@ Public Class frmMassValidator
Select Case dr.Item("CTRL_TYPE").ToString.ToUpper
Case "TXT"
LOGGER.Debug(" >> Versuch TXT zu laden", False)
LOGGER.Debug("Versuch TXT zu laden")
Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(dr, False)
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
@ -144,10 +144,10 @@ Public Class frmMassValidator
ctrl = txt
Case "LBL"
LOGGER.Debug(" >> Versuch LBL zu laden", False)
LOGGER.Debug("Versuch LBL zu laden")
ctrl = ClassControlCreator.CreateExistingLabel(dr, False)
Case "CMB"
LOGGER.Debug(" >> Versuch CMB zu laden", False)
LOGGER.Debug("Versuch CMB zu laden")
Dim cmb = ClassControlCreator.CreateExistingCombobox(dr, False)
@ -162,7 +162,7 @@ Public Class frmMassValidator
If CURR_CON_ID > 0 Then
Dim commandsql = CURR_SELECT_CONTROL
If commandsql <> "" Then
LOGGER.Debug(" >> ConID > 0 And commandsql <> ''", False)
LOGGER.Debug("ConID > 0 And commandsql <> ''")
Dim connectionString As String
Dim ConRow As DataRow() = ClassControlCreator.GET_CONNECTION_INFO(CURR_CON_ID)
@ -180,7 +180,7 @@ Public Class frmMassValidator
Else
connectionString = "Data Source=" & row("SERVER") & ";Initial Catalog= " & row("DATENBANK") & ";User Id=" & row("USERNAME") & ";Password=" & row("PASSWORD") & ";"
End If
LOGGER.Debug(" >> ConnString Sql-Server: " & connectionString)
LOGGER.Debug("ConnString Sql-Server: " & connectionString)
Case "oracle"
CURR_SQL_PROVIDER = "oracle"
Dim conn As New OracleConnectionStringBuilder
@ -199,7 +199,7 @@ Public Class frmMassValidator
connectionString = connstr
Case Else
LOGGER.Info("ConnectionString-Type not integrated", False)
LOGGER.Info("ConnectionString-Type not integrated")
MsgBox("ConnectionString-Type not integrated", MsgBoxStyle.Critical)
Exit Sub
End Select
@ -243,11 +243,11 @@ Public Class frmMassValidator
End Try
End If
Else
LOGGER.Debug(" >> Else Row 571", False)
LOGGER.Debug("Else Row 571")
End If
Else
If CURR_CHOICE_LIST <> "" Then
LOGGER.Debug(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False)
LOGGER.Debug("In add_ComboBox - AListe: " & CURR_CHOICE_LIST)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
If liste IsNot Nothing Then
cmb.Items.Add("")
@ -277,21 +277,21 @@ Public Class frmMassValidator
ctrl = cmb
Case "DTP"
LOGGER.Debug(" >> Versuch DTP zu laden", False)
LOGGER.Debug("Versuch DTP zu laden")
ctrl = ClassControlCreator.CreateExistingDatepicker(dr, False)
Case "DGV"
LOGGER.Debug(" >> Versuch DGV zu laden", False)
LOGGER.Debug("Versuch DGV zu laden")
Dim dgv = ClassControlCreator.CreateExistingDataGridView(dr, False)
AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
ctrl = dgv
Case "CHK"
LOGGER.Debug(" >> Versuch Checkbox zu laden", False)
LOGGER.Debug("Versuch Checkbox zu laden")
ctrl = ClassControlCreator.CreateExisingCheckbox(dr, False)
'Case "TABLE"
' If LogErrorsOnly = False Then LOGGER.Info(" >> Versuch Tabelle zu laden", False)
' If LogErrorsOnly = False Then LOGGER.Info(" >> Versuch Tabelle zu laden")
' For Each c As DataColumn In DT_PROFILE_CONTROLS.Columns
' '... = c.ColumnName
@ -301,10 +301,10 @@ Public Class frmMassValidator
' Where r.CONTROL_ID = dr.Item("GUID")
' Select r).ToList()
' ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False)
' ctrl = ClassControlCreator.CreateExistingTable(dr, columns)
Case "LINE"
LOGGER.Debug(" >> Versuch Linie zu laden", False)
LOGGER.Debug("Versuch Linie zu laden")
ctrl = ClassControlCreator.CreateExistingLine(dr, False)
End Select
@ -320,15 +320,15 @@ Public Class frmMassValidator
LoadSimpleData(ctrl, dr.Item("GUID"))
Next
LOGGER.Debug(" >> Controls geladen", False)
LOGGER.Info("", False)
LOGGER.Debug("Controls geladen")
LOGGER.Info("")
CTRLS_Loaded = True
FillIndexValues()
'Catch ex As Exception
' If LogErrorsOnly = False Then MsgBox("Error Load_Controls: " & ex.Message, MsgBoxStyle.Critical, "Attention error:")
' ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Load_Controls: " & ex.Message, Environment.UserName)
' LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
' LOGGER.Info("", False)
' LOGGER.Info("")
'End Try
@ -357,7 +357,7 @@ Public Class frmMassValidator
Dim defaultValue As String = NotNull(controlRow.Item("DEFAULT_VALUE"), String.Empty)
indexname = idxname
Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE")
LOGGER.Debug(" >> INDEX: " & idxname & " - CONTROLNAME: " & inctrl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString, False)
LOGGER.Debug("INDEX: " & idxname & " - CONTROLNAME: " & inctrl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString)
Dim wertWD
Select Case Type
Case "System.Windows.Forms.TextBox"
@ -371,7 +371,7 @@ Public Class frmMassValidator
If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then
' Wenn kein Index exisitiert, defaultValue laden
inctrl.Text = defaultValue
LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
LOGGER.Debug("Indexwert soll nicht geladen werden.")
Exit Select
End If
@ -389,8 +389,8 @@ Public Class frmMassValidator
My.Settings.Save()
frmError.ShowDialog()
LOGGER.Info(">> Unexpected error in FillIndexValues TextBox(MI): " & ex.Message, True)
LOGGER.Info(">> Controltype: " & controltype, False)
LOGGER.Info(">> Indexname windream: " & indexname, False)
LOGGER.Info(">> Controltype: " & controltype)
LOGGER.Info(">> Indexname windream: " & indexname)
Exit Sub
End Try
@ -408,7 +408,7 @@ Public Class frmMassValidator
Else
cmb.Text = defaultValue
End If
LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
LOGGER.Debug("Indexwert soll nicht geladen werden.")
Exit Select
End If
wertWD = GetWM_Value_Multiple_Docs(idxname)
@ -432,7 +432,7 @@ Public Class frmMassValidator
End If
If idxname Is Nothing = False Then
If LoadIDX = False Then
LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
LOGGER.Debug("Indexwert soll nicht geladen werden.")
Exit Select
End If
@ -505,7 +505,7 @@ Public Class frmMassValidator
Dim chk As CheckBox = inctrl
If LoadIDX = False Then
LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
LOGGER.Debug("Indexwert soll nicht geladen werden.")
If defaultValue <> String.Empty Then
Dim result
@ -519,7 +519,7 @@ Public Class frmMassValidator
wertWD = GetWM_Value_Multiple_Docs(idxname)
If wertWD Is Nothing Then
LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & indexname & "' ist nothing. Check defaultvalue", False)
LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & indexname & "' ist nothing. Check defaultvalue")
chk.Checked = False
Else
If wertWD.ToString = "" Then
@ -535,11 +535,11 @@ Public Class frmMassValidator
Else
Dim _value
If wertWD.ToString = "System.Object[]" Then
LOGGER.Debug(" >> CheckBoxValue with VektorField: " & idxname, False)
LOGGER.Debug("CheckBoxValue with VektorField: " & idxname)
If wertWD.length = 1 Then
_value = wertWD(0)
Else '
LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used", False)
LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used")
_value = wertWD(0)
End If
Else
@ -576,8 +576,8 @@ Public Class frmMassValidator
My.Settings.Save()
frmError.ShowDialog()
LOGGER.Info(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True)
LOGGER.Info(">> Controltype: " & controltype, False)
LOGGER.Info(">> Indexname windream: " & indexname, False)
LOGGER.Info(">> Controltype: " & controltype)
LOGGER.Info(">> Indexname windream: " & indexname)
End Try
@ -606,11 +606,11 @@ Public Class frmMassValidator
tempIndexValue = WMDOC.GetVariableValue(idxname)
If IsNothing(tempIndexValue) Then tempIndexValue = ""
If tempIndexValue.ToString = "System.Object[]" Then
LOGGER.Debug(" >> TextBox with VektorField: " & idxname, False)
LOGGER.Debug("TextBox with VektorField: " & idxname)
If tempIndexValue.Length = 1 Then
tempIndexValue = tempIndexValue(0)
Else '
LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used", False)
LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used")
tempIndexValue = tempIndexValue(0)
End If
End If
@ -758,7 +758,7 @@ Public Class frmMassValidator
pnldesigner.Controls(displayboxname).Text = resultDT.Rows(0).Item(0).ToString
Else
pnldesigner.Controls(displayboxname).Text = "RESULT = resultDT.Rows.Count <> 1"
LOGGER.Info(">> Datatable-SQL: " & sqlCommand, False)
LOGGER.Info(">> Datatable-SQL: " & sqlCommand)
End If
End If
End If
@ -970,7 +970,7 @@ Public Class frmMassValidator
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Try
LOGGER.Debug(" >> element in RegeX WORK_HISTORY_ENTRY: " & element.Value, False)
LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
@ -1138,9 +1138,9 @@ Public Class frmMassValidator
Dim ctrl = dr.Item("NAME")
'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
If dr.Item("NAME") = inctrl.Name And (_READ_ONLY = False Or dr.Item("SQL_UEBERPRUEFUNG") <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then
LOGGER.Debug(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False)
LOGGER.Debug("Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'")
If _IDXName = "" Then
LOGGER.Info(" >> Indexname is unexpected empty.", False)
LOGGER.Info(" >> Indexname is unexpected empty.")
Continue For
End If
Dim Type As String = inctrl.GetType.ToString
@ -1267,7 +1267,7 @@ Public Class frmMassValidator
End If
Else
LOGGER.Debug(" >> DateValue is 01.01.0001 00:00:00", False)
LOGGER.Debug("DateValue is 01.01.0001 00:00:00")
End If
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = inctrl
@ -1425,7 +1425,7 @@ Public Class frmMassValidator
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then
LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@ -1433,7 +1433,7 @@ Public Class frmMassValidator
anzahl += 1
Next
Else
LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString
End If
@ -1521,7 +1521,7 @@ Public Class frmMassValidator
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then
LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@ -1529,7 +1529,7 @@ Public Class frmMassValidator
anzahl += 1
Next
Else
LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString
End If

2
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb
View File

@ -174,7 +174,7 @@ Public Class frmUserKonfig_AddUsers
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING)
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
LOGGER.Info(msg, False)
LOGGER.Info(msg)
SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))", ID)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
MsgBox("Attention: could not add user to module! - Please check the log.", MsgBoxStyle.Exclamation)

10
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -135,6 +135,7 @@ Partial Class frmValidator
Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -218,7 +219,7 @@ Partial Class frmValidator
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.DateiInfoToolStripMenuItem, Me.DateieigenschaftenToolStripMenuItem, Me.RefreshAdditionalSearchToolStripMenuItem})
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.DateiInfoToolStripMenuItem, Me.DateieigenschaftenToolStripMenuItem, Me.ToolStripSeparator1, Me.RefreshAdditionalSearchToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
@ -242,6 +243,7 @@ Partial Class frmValidator
'RefreshAdditionalSearchToolStripMenuItem
'
resources.ApplyResources(Me.RefreshAdditionalSearchToolStripMenuItem, "RefreshAdditionalSearchToolStripMenuItem")
Me.RefreshAdditionalSearchToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.search_glyph
Me.RefreshAdditionalSearchToolStripMenuItem.Name = "RefreshAdditionalSearchToolStripMenuItem"
'
'TITLELabel1
@ -842,6 +844,11 @@ Partial Class frmValidator
'
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'frmValidator
'
resources.ApplyResources(Me, "$this")
@ -1008,4 +1015,5 @@ Partial Class frmValidator
Friend WithEvents FinalIndexDataSet As FinalIndexDataSet
Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource
Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
End Class

55
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -184,16 +184,16 @@
<value>3</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>790, 173</value>
<value>272, 173</value>
</metadata>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 22</value>
<value>239, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Datei öffnen</value>
</data>
<data name="DateiInfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 22</value>
<value>239, 22</value>
</data>
<data name="DateiInfoToolStripMenuItem.Text" xml:space="preserve">
<value>Datei-Info</value>
@ -209,22 +209,25 @@
</value>
</data>
<data name="DateieigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 22</value>
<value>239, 22</value>
</data>
<data name="DateieigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Dateieigenschaften</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>236, 6</value>
</data>
<data name="RefreshAdditionalSearchToolStripMenuItem.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RefreshAdditionalSearchToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 22</value>
<value>239, 22</value>
</data>
<data name="RefreshAdditionalSearchToolStripMenuItem.Text" xml:space="preserve">
<value>Refresh AdditionalSearch</value>
<value>Aktualisiere Zusätzliche Suchen</value>
</data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>207, 114</value>
<value>240, 98</value>
</data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value>
@ -398,13 +401,13 @@
<value>534, 95</value>
</metadata>
<metadata name="TBPM_CONTROL_TABLETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>535, 173</value>
<value>17, 173</value>
</metadata>
<metadata name="TBPM_FILES_USER_NOT_INDEXEDTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>593, 56</value>
</metadata>
<metadata name="TBPM_KONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
<value>698, 134</value>
</metadata>
<metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
@ -413,7 +416,7 @@
<value>1017, 95</value>
</metadata>
<metadata name="TBPM_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>844, 134</value>
<value>229, 134</value>
</metadata>
<metadata name="VWPM_CONTROL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1060, 17</value>
@ -434,13 +437,13 @@
<value>772, 95</value>
</metadata>
<metadata name="TBPM_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>632, 134</value>
<value>17, 134</value>
</metadata>
<metadata name="TBPM_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1050, 134</value>
<value>435, 134</value>
</metadata>
<metadata name="TBPM_CONTROL_TABLEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>274, 173</value>
<value>955, 134</value>
</metadata>
<data name="pnlpdf.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
@ -452,7 +455,7 @@
<value>0, 141</value>
</data>
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value>
<value>694, 173</value>
</metadata>
<data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
@ -542,7 +545,7 @@
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>383</value>
<value>251</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 17</value>
@ -551,7 +554,7 @@
<value>962, 643</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>282, 212</value>
<value>1084, 173</value>
</metadata>
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
@ -653,7 +656,7 @@
<value>0</value>
</data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>165, 212</value>
<value>967, 173</value>
</metadata>
<data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 17</value>
@ -1845,6 +1848,12 @@
<data name="&gt;&gt;TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Type" xml:space="preserve">
<value>DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
<value>ToolStripSeparator1</value>
</data>
<data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmValidator</value>
</data>
@ -1873,7 +1882,7 @@
<value>0</value>
</data>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>947, 173</value>
<value>429, 173</value>
</metadata>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
@ -1963,18 +1972,18 @@
<value>1</value>
</data>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1064, 173</value>
<value>546, 173</value>
</metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
<value>819, 173</value>
</metadata>
<metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>389, 212</value>
<value>1191, 173</value>
</metadata>
<metadata name="TBPM_PROFILE_FINAL_INDEXINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>538, 212</value>
<value>17, 212</value>
</metadata>
<metadata name="TBPM_PROFILE_FINAL_INDEXINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>848, 212</value>
<value>327, 212</value>
</metadata>
</root>

1949
app/DD_PM_WINDREAM/frmValidator.vb
View File

File diff suppressed because it is too large Load Diff

703
app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb generated
View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmValidatorSearch
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,104 +20,677 @@ Partial Class frmValidatorSearch
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidatorSearch))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButtonRefreshSearches = New System.Windows.Forms.ToolStripButton()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.SplitContainerSearches = New System.Windows.Forms.SplitContainer()
Me.XtraTabControlSQL = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageSearch1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageSearch2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageSearch3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageSearch4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageSearch5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tsslblSQL = New System.Windows.Forms.ToolStripStatusLabel()
Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripLabel()
Me.tslblState = New System.Windows.Forms.ToolStripLabel()
Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.LayoutZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStripSQL = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1.SuspendLayout()
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerSearches.Panel1.SuspendLayout()
Me.SplitContainerSearches.Panel2.SuspendLayout()
Me.SplitContainerSearches.SuspendLayout()
CType(Me.XtraTabControlSQL, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlSQL.SuspendLayout()
Me.XtraTabPageSearch1.SuspendLayout()
CType(Me.GridControlSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageSearch2.SuspendLayout()
CType(Me.GridControlSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageSearch3.SuspendLayout()
CType(Me.GridControlSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageSearch4.SuspendLayout()
CType(Me.GridControlSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageSearch5.SuspendLayout()
CType(Me.GridControlSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlDocs.SuspendLayout()
Me.XtraTabPageDoc1.SuspendLayout()
Me.XtraTabPageDoc2.SuspendLayout()
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc3.SuspendLayout()
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc4.SuspendLayout()
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout()
Me.ContextMenuStripWMFile.SuspendLayout()
Me.ContextMenuStripSQL.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1203, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripDropDownButtonFile
'
Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.EigenschaftenToolStripMenuItem})
Me.ToolStripDropDownButtonFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ID_FILE_PAGE_SETUP
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
'
'DateiÖffnenToolStripMenuItem1
'
Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.OpenFileDialog_692
Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
'
'EigenschaftenToolStripMenuItem
'
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Properties
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
'
'ToolStripButtonRefreshSearches
'
Me.ToolStripButtonRefreshSearches.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
'
'GridControlDocSearch1
'
resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
'
'GridViewDocSearch1
'
Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
'
'SplitContainerSearches
'
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_PM_WINDREAM.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
Me.SplitContainerSearches.Name = "SplitContainerSearches"
'
'SplitContainerSearches.Panel1
'
Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL)
Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1)
'
'SplitContainerSearches.Panel2
'
Me.SplitContainerSearches.Panel2.Controls.Add(Me.XtraTabControlDocs)
Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainerSearches.SplitterDistance = Global.DD_PM_WINDREAM.My.MySettings.Default.frmValSearchSplitterDistance
'
'XtraTabControlSQL
'
resources.ApplyResources(Me.XtraTabControlSQL, "XtraTabControlSQL")
Me.XtraTabControlSQL.Name = "XtraTabControlSQL"
Me.XtraTabControlSQL.SelectedTabPage = Me.XtraTabPageSearch1
Me.XtraTabControlSQL.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSearch1, Me.XtraTabPageSearch2, Me.XtraTabPageSearch3, Me.XtraTabPageSearch4, Me.XtraTabPageSearch5})
'
'XtraTabPageSearch1
'
Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1)
Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1"
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
'
'GridControlSearch1
'
resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
GridLevelNode2.RelationName = "Level1"
Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridControlSearch1.MainView = Me.GridViewSearch1
Me.GridControlSearch1.Name = "GridControlSearch1"
Me.GridControlSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch1})
'
'GridViewSearch1
'
Me.GridViewSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch1.GridControl = Me.GridControlSearch1
Me.GridViewSearch1.Name = "GridViewSearch1"
Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewSearch1.OptionsSelection.MultiSelect = True
Me.GridViewSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewSearch1.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageSearch2
'
Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2)
Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2"
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
'
'GridControlSearch2
'
resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
GridLevelNode3.RelationName = "Level1"
Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
Me.GridControlSearch2.MainView = Me.GridViewSearch2
Me.GridControlSearch2.Name = "GridControlSearch2"
Me.GridControlSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch2})
'
'GridViewSearch2
'
Me.GridViewSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch2.GridControl = Me.GridControlSearch2
Me.GridViewSearch2.Name = "GridViewSearch2"
Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewSearch2.OptionsSelection.MultiSelect = True
Me.GridViewSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageSearch3
'
Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3)
Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3"
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
'
'GridControlSearch3
'
resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
GridLevelNode4.RelationName = "Level1"
Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
Me.GridControlSearch3.MainView = Me.GridViewSearch3
Me.GridControlSearch3.Name = "GridControlSearch3"
Me.GridControlSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch3})
'
'GridViewSearch3
'
Me.GridViewSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch3.GridControl = Me.GridControlSearch3
Me.GridViewSearch3.Name = "GridViewSearch3"
Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewSearch3.OptionsSelection.MultiSelect = True
Me.GridViewSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageSearch4
'
Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4)
Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4"
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
'
'GridControlSearch4
'
resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
GridLevelNode5.RelationName = "Level1"
Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
Me.GridControlSearch4.MainView = Me.GridViewSearch4
Me.GridControlSearch4.Name = "GridControlSearch4"
Me.GridControlSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch4})
'
'GridViewSearch4
'
Me.GridViewSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch4.GridControl = Me.GridControlSearch4
Me.GridViewSearch4.Name = "GridViewSearch4"
Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewSearch4.OptionsSelection.MultiSelect = True
Me.GridViewSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageSearch5
'
Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5)
Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5"
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
'
'GridControlSearch5
'
resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
GridLevelNode6.RelationName = "Level1"
Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
Me.GridControlSearch5.MainView = Me.GridViewSearch5
Me.GridControlSearch5.Name = "GridControlSearch5"
Me.GridControlSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch5})
'
'GridViewSearch5
'
Me.GridViewSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch5.GridControl = Me.GridControlSearch5
Me.GridViewSearch5.Name = "GridViewSearch5"
Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewSearch5.OptionsSelection.MultiSelect = True
Me.GridViewSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewSearch5.OptionsView.ShowAutoFilterRow = True
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 428)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1203, 22)
Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1"
'
'XtraTabControl1
'tsslblSQL
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 25)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(1203, 403)
Me.XtraTabControl1.TabIndex = 2
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
Me.tsslblSQL.Name = "tsslblSQL"
resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
'
'XtraTabPage1
'XtraTabControlDocs
'
Me.XtraTabPage1.Controls.Add(Me.GridControl1)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1197, 375)
Me.XtraTabPage1.Text = "Search Result1"
resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs")
Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
'
'GridControl1
'XtraTabPageDoc1
'
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(1197, 375)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
'
'GridView1
'XtraTabPageDoc2
'
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
'
'XtraTabPage2
'GridControlDocSearch2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1197, 375)
Me.XtraTabPage2.Text = "XtraTabPage2"
resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
'
'GridViewDocSearch2
'
Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc3
'
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
'
'GridControlDocSearch3
'
resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
'
'GridViewDocSearch3
'
Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc4
'
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
'
'GridControlDocSearch4
'
resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
'
'GridViewDocSearch4
'
Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc5
'
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
'
'GridControlDocSearch5
'
resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
'
'GridViewDocSearch5
'
Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
'
'ToolStrip2
'
resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
Me.ToolStrip2.Name = "ToolStrip2"
'
'tslblDocID
'
Me.tslblDocID.Name = "tslblDocID"
resources.ApplyResources(Me.tslblDocID, "tslblDocID")
'
'tslblState
'
Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tslblState.Name = "tslblState"
resources.ApplyResources(Me.tslblState, "tslblState")
'
'ContextMenuStripWMFile
'
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.LayoutZurücksetzenToolStripMenuItem})
Me.ContextMenuStripWMFile.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
'
'EigenschaftenDateiToolStripMenuItem
'
resources.ApplyResources(Me.EigenschaftenDateiToolStripMenuItem, "EigenschaftenDateiToolStripMenuItem")
Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
'
'DateiÖffnenToolStripMenuItem
'
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
'
'LayoutZurücksetzenToolStripMenuItem
'
Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
'
'ContextMenuStripSQL
'
Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4})
Me.ContextMenuStripSQL.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
'
'frmValidatorSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1203, 450)
Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.SplitContainerSearches)
Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmValidatorSearch"
Me.Text = "Zusätzliche Suchen"
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerSearches.Panel1.ResumeLayout(False)
Me.SplitContainerSearches.Panel1.PerformLayout()
Me.SplitContainerSearches.Panel2.ResumeLayout(False)
Me.SplitContainerSearches.Panel2.PerformLayout()
CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerSearches.ResumeLayout(False)
CType(Me.XtraTabControlSQL, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlSQL.ResumeLayout(False)
Me.XtraTabPageSearch1.ResumeLayout(False)
CType(Me.GridControlSearch1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageSearch2.ResumeLayout(False)
CType(Me.GridControlSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageSearch3.ResumeLayout(False)
CType(Me.GridControlSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageSearch4.ResumeLayout(False)
CType(Me.GridControlSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageSearch5.ResumeLayout(False)
CType(Me.GridControlSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlDocs.ResumeLayout(False)
Me.XtraTabPageDoc1.ResumeLayout(False)
Me.XtraTabPageDoc2.ResumeLayout(False)
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc3.ResumeLayout(False)
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc4.ResumeLayout(False)
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ContextMenuStripWMFile.ResumeLayout(False)
Me.ContextMenuStripSQL.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents SplitContainerSearches As SplitContainer
Friend WithEvents XtraTabControlSQL As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageSearch1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageSearch2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageSearch3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageSearch4 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageSearch5 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents XtraTabControlDocs As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDocSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents tslblDocID As ToolStripLabel
Friend WithEvents ToolStripDropDownButtonFile As ToolStripDropDownButton
Friend WithEvents DateiÖffnenToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButtonRefreshSearches As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents LayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblState As ToolStripLabel
Friend WithEvents GridControlSearch1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlSearch2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlSearch3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlSearch4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlSearch5 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ContextMenuStripSQL As ContextMenuStrip
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents tsslblSQL As ToolStripStatusLabel
End Class

1043
app/DD_PM_WINDREAM/frmValidatorSearch.resx
View File

File diff suppressed because it is too large Load Diff

657
app/DD_PM_WINDREAM/frmValidatorSearch.vb
View File

@ -1,17 +1,374 @@
Public Class frmValidatorSearch
Public Sub RefreshTab1()
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.InteropServices
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraTab
Public Class frmValidatorSearch
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
#Region "Laufzeitvariablen & Konstanten"
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
#End Region
Public formLoaded As Boolean = False
Public _DTDocSearches As DataTable
Public _DTSQLSearches As DataTable
Private _frmValidator As frmValidator 'You need a reference to Form1
Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer
Public Sub TabPreload(Panel1Collapsed As Boolean, Panel2Collapsed As Boolean, TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable)
Try
If Me.InvokeRequired() Then
Me.Invoke(Sub() TabPreload(Panel1Collapsed, Panel2Collapsed, TabCountSQL, TabCountDoc, DTSQL, DTDOC))
Else
'#### SQL Tabs Design Laden
SplitContainerSearches.Panel1Collapsed = Panel1Collapsed
SplitContainerSearches.Panel2Collapsed = Panel2Collapsed
If DTSQL.Rows.Count > 0 Then
For p As Integer = 0 To XtraTabControlSQL.TabPages.Count - 1
If XtraTabControlSQL.TabPages(p).TabIndex >= TabCountSQL Then
XtraTabControlSQL.TabPages(p).PageVisible = False
End If
Next
For p As Integer = 0 To XtraTabControlSQL.TabPages.Count - 1
If XtraTabControlSQL.TabPages(p).TabIndex >= TabCountSQL Then
Exit For
End If
XtraTabControlSQL.TabPages(p).Text = DTSQL.Rows(p).Item("TAB_TITLE")
Next
End If
If DTDOC.Rows.Count > 0 Then
'#### Doc Tabs Design Laden
For p As Integer = 0 To XtraTabControlDocs.TabPages.Count - 1
If XtraTabControlDocs.TabPages(p).TabIndex >= TabCountDoc Then
XtraTabControlDocs.TabPages(p).PageVisible = False
End If
Next
For p As Integer = 0 To XtraTabControlDocs.TabPages.Count - 1
If XtraTabControlDocs.TabPages(p).TabIndex >= TabCountDoc Then
Exit For
End If
XtraTabControlDocs.TabPages(p).Text = DTDOC.Rows(p).Item("TAB_TITLE")
Next
End If
End If
Catch ex As Exception
End Try
End Sub
Public Sub RefreshTabSQL(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
If Me.InvokeRequired() Then
Me.Invoke(Sub() RefreshTab1())
Me.Invoke(Sub() RefreshTabSQL(ConID, SQLCommand, TabIndex, TabCaption))
Else
'Code to refresh your textbox here
Refresh_Load_GridSQL(ConID, SQLCommand, TabIndex, TabCaption)
End If
End Sub
Public Sub RefreshTabDoc(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
If Me.InvokeRequired() Then
Me.Invoke(Sub() RefreshTabDoc(ConID, SQLCommand, TabIndex, TabCaption))
Else
'Code to refresh your textbox here
Refresh_Load_GridDoc(ConID, SQLCommand, TabIndex, TabCaption)
End If
End Sub
Sub Refresh_Load_GridSQL(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
'Try
Dim myGridControl As DevExpress.XtraGrid.GridControl
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
Select Case TabIndex
Case 0
GridControlSearch1.DataSource = Nothing
GridViewSearch1.Columns.Clear()
myGridview = GridViewSearch1
myGridControl = GridControlSearch1
Case 1
GridControlSearch2.DataSource = Nothing
GridViewSearch2.Columns.Clear()
myGridview = GridViewSearch2
myGridControl = GridControlSearch2
Case 2
GridControlSearch3.DataSource = Nothing
GridViewSearch3.Columns.Clear()
myGridview = GridViewSearch3
myGridControl = GridControlSearch3
Case 3
GridControlSearch4.DataSource = Nothing
GridViewSearch4.Columns.Clear()
myGridview = GridViewSearch4
myGridControl = GridControlSearch4
Case 4
GridControlSearch5.DataSource = Nothing
GridViewSearch5.Columns.Clear()
myGridview = GridViewSearch5
myGridControl = GridControlSearch5
End Select
myGridControl.ContextMenuStrip = ContextMenuStripSQL
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
If Not IsNothing(oDatatable) Then
XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
Select Case TabIndex
Case 0
GridControlSearch1.DataSource = oDatatable
GridViewSearch1.BestFitColumns(True)
Case 1
GridControlSearch2.DataSource = oDatatable
GridViewSearch2.BestFitColumns(True)
Case 2
GridControlSearch3.DataSource = oDatatable
GridViewSearch3.BestFitColumns(True)
Case 3
GridControlSearch4.DataSource = oDatatable
GridViewSearch4.BestFitColumns(True)
Case 4
GridControlSearch5.DataSource = oDatatable
GridViewSearch5.BestFitColumns(True)
End Select
tsslblSQL.Text = $"Tab {TabCaption} refreshed - {Now}"
End If
' Catch ex As Exception
'End Try
End Sub
Sub Refresh_Load_GridDoc(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
'Try
Dim myGridControl As DevExpress.XtraGrid.GridControl
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
Select Case TabIndex
Case 0
GridControlDocSearch1.DataSource = Nothing
GridViewDocSearch1.Columns.Clear()
myGridview = GridViewDocSearch1
myGridControl = GridControlDocSearch1
Case 1
GridControlDocSearch2.DataSource = Nothing
GridViewDocSearch2.Columns.Clear()
myGridview = GridViewDocSearch2
myGridControl = GridControlDocSearch2
Case 2
GridControlDocSearch3.DataSource = Nothing
GridViewDocSearch3.Columns.Clear()
myGridview = GridViewDocSearch3
myGridControl = GridControlDocSearch3
Case 3
GridControlDocSearch4.DataSource = Nothing
GridViewDocSearch4.Columns.Clear()
myGridControl = GridControlDocSearch4
myGridview = GridViewDocSearch4
Case 4
GridControlDocSearch5.DataSource = Nothing
GridViewDocSearch5.Columns.Clear()
myGridControl = GridControlDocSearch5
myGridview = GridViewDocSearch5
End Select
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
If Not IsNothing(oDatatable) Then
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
clsWMDocGrid.DTDocuments = oDatatable
'Select Case TabIndex
' Case 0
' GridControlDocSearch1.DataSource = oDatatable
' Case 1
' GridControlDocSearch2.DataSource = oDatatable
' Case 2
' GridControlDocSearch3.DataSource = oDatatable
' Case 3
' GridControlDocSearch4.DataSource = oDatatable
' Case 4
' GridControlDocSearch5.DataSource = oDatatable
'End Select
Create_GridControl(myGridview, oDatatable)
Dim oxmlPath As String = ""
oxmlPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
If File.Exists(oxmlPath) Then
myGridview.RestoreLayoutFromXml(oxmlPath)
myGridview.GuessAutoFilterRowValuesFromFilter()
End If
tslblState.Text = $"Tab {TabCaption} refreshed - {Now}"
Else
clsWMDocGrid.DTDocuments = Nothing
End If
'Catch ex As Exception
'End Try
End Sub
Private Function Create_GridControl(MyGridView As GridView, _datatable As DataTable) As GridView
Dim oMyDocDatatable As New DataTable
' Try
'Die Icon Colum erstellen und konfigurieren
Dim oColIcon As New System.Data.DataColumn()
oColIcon.DataType = GetType(Image)
oColIcon.ColumnName = "ICON"
oColIcon.Caption = ""
oMyDocDatatable.Columns.Add(oColIcon)
Dim oColPath As New System.Data.DataColumn()
oColPath.DataType = GetType(String)
oColPath.ColumnName = "FULL_FILENAME"
oColPath.Caption = "Fullpath"
oMyDocDatatable.Columns.Add(oColPath)
Dim oColDocID As New System.Data.DataColumn()
oColDocID.DataType = GetType(Int32)
oColDocID.ColumnName = "DocID"
oColDocID.Caption = "DocID"
oMyDocDatatable.Columns.Add(oColDocID)
Dim oRestColArray As New List(Of String)
For Each oCol As DataColumn In _datatable.Columns
Dim onewColumn As New System.Data.DataColumn()
If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
onewColumn.DataType = GetType(String)
onewColumn.ColumnName = oCol.ColumnName
onewColumn.Caption = oCol.Caption
oMyDocDatatable.Columns.Add(onewColumn)
oRestColArray.Add(onewColumn.ColumnName)
End If
Next
For Each FILE_ROW As DataRow In _datatable.Rows
Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
Dim oDocID = FILE_ROW.Item("DocID")
'Dim Folderpath = Path.GetDirectoryName(fullpath)
Dim oFilename = Path.GetFileName(oFullpath)
Dim oFileextension = Path.GetExtension(oFullpath)
Dim oNewRow As DataRow
oNewRow = oMyDocDatatable.NewRow()
'Icon zuweisen
Select Case oFileextension.ToUpper
Case ".csv".ToUpper
oNewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt".ToUpper
oNewRow.Item(0) = My.Resources.txt
Case ".pdf".ToUpper
oNewRow.Item(0) = My.Resources.pdf
Case ".doc".ToUpper
oNewRow.Item(0) = My.Resources.doc
Case ".docx".ToUpper
oNewRow.Item(0) = My.Resources.doc
Case ".xls".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".xlsx".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".xlsm".ToUpper
oNewRow.Item(0) = My.Resources.xls
Case ".ppt".ToUpper
oNewRow.Item(0) = My.Resources.ppt
Case ".pptx".ToUpper
oNewRow.Item(0) = My.Resources.ppt
Case ".dwg".ToUpper
oNewRow.Item(0) = My.Resources.dwg
Case ".dxf".ToUpper
oNewRow.Item(0) = My.Resources.dxf
Case ".msg".ToUpper
oNewRow.Item(0) = My.Resources.email_go
Case ".msg".ToUpper
oNewRow.Item(0) = My.Resources.email_go
Case Else
oNewRow.Item(0) = My.Resources._blank
End Select
'Den Filepath mitgeben
oNewRow.Item(1) = oFullpath
oNewRow.Item(2) = oDocID
Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
For Each Colname As String In oRestColArray
Dim oRowValue
oRowValue = FILE_ROW.Item(Colname)
oNewRow.Item(i) = oRowValue.ToString
i += 1
Next
oMyDocDatatable.Rows.Add(oNewRow)
Next
Dim sdsd As String = ""
Dim oGridControl As GridControl = MyGridView.GridControl
oGridControl.DataSource = oMyDocDatatable
oGridControl.ForceInitialize()
Try
MyGridView.Columns.Item("DocID").Visible = False
Catch ex As Exception
End Try
Try
MyGridView.Columns.Item("FULL_FILENAME").Visible = False
Catch ex As Exception
End Try
Dim created, changed As String
If USER_LANGUAGE <> "de-DE" Then
changed = "Changed"
created = "Created"
Else
changed = "Geändert"
created = "Erstellt"
End If
Dim createdColumn = MyGridView.Columns(created)
If Not IsNothing(createdColumn) Then
createdColumn.DisplayFormat.FormatType = FormatType.DateTime
createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
End If
Dim changedColumn = MyGridView.Columns(changed)
If Not IsNothing(changedColumn) Then
changedColumn.DisplayFormat.FormatType = FormatType.DateTime
changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
End If
' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
For Each column As GridColumn In MyGridView.Columns
column.OptionsColumn.AllowEdit = False
Next
MyGridView.Columns.Item("ICON").MaxWidth = 24
MyGridView.Columns.Item("ICON").MinWidth = 24
MyGridView.OptionsView.BestFitMaxRowCount = -1
MyGridView.BestFitColumns(True)
Return MyGridView
End Function
Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
' Position und Größe speichern
My.Settings.frmValidatorSearchSize = Me.Size
My.Settings.frmValidatorSearchPosition = Me.Location
My.Settings.frmValSearchSplitterDistance = SplitContainerSearches.SplitterDistance
My.Settings.Save()
Catch ex As Exception
LOGGER.Error(ex)
@ -20,6 +377,7 @@
End Sub
Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
SplitContainerSearches.Panel1Collapsed = True
If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then
If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then
Location = My.Settings.frmValidatorSearchPosition
@ -28,5 +386,298 @@
If My.Settings.frmValidatorSearchSize.IsEmpty = False Then
Size = My.Settings.frmValidatorSearchSize
End If
SplitContainerSearches.SplitterDistance = My.Settings.frmValSearchSplitterDistance
_frmValidator = frmValidator
ToolStripDropDownButtonFile.Visible = False
End Sub
Private Sub frmValidatorSearch_Shown(sender As Object, e As EventArgs) Handles Me.Shown
formLoaded = True
End Sub
Private Sub XtraTabControlSQL_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlSQL.SelectedPageChanged
If IsNothing(_DTSQLSearches) Then Exit Sub
Dim oConID = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("CONN_ID")
Dim oCommand = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
Dim oTabIndex = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("TAB_INDEX")
Dim oTabCaption = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("TAB_TITLE")
RefreshTabSQL(oConID, oCommand, oTabIndex, oTabCaption)
End Sub
Private Sub XtraTabControlDocs_SelectedPageChanged_1(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlDocs.SelectedPageChanged
If IsNothing(_DTDocSearches) Then Exit Sub
Dim oConID = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("CONN_ID")
Dim oCommand = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
Dim oTabIndex = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_INDEX")
Dim oTabCaption = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
RefreshTabDoc(oConID, oCommand, oTabIndex, oTabCaption)
End Sub
Private Sub EigenschaftenDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenDateiToolStripMenuItem.Click
Show_File_Properties()
End Sub
Sub Show_File_Properties()
If IsNothing(clsWMDocGrid.DTDocuments) Then
MsgBox("Could not read file Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each oRow As DataRow In clsWMDocGrid.DTDocuments.Rows
If oRow.Item("DOC_PATH") <> "" Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = oRow.Item("DOC_PATH")
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("Error in Open file propertys: " & ex.Message, MsgBoxStyle.Critical)
LOGGER.Error(ex)
End If
End If
Cursor = Cursors.Default
Next
End Sub
Sub Refresh_DocID(myGrid As GridView)
clsWMDocGrid.ActiveDocGrid = myGrid
clsWMDocGrid.ActiveDocGrid.EndSelection()
clsWMDocGrid.GetDocItems()
If ToolStripDropDownButtonFile.Visible = False Then
ToolStripDropDownButtonFile.Visible = True
End If
If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
End Sub
Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
Refresh_DocID(GridViewDocSearch1)
End Sub
Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged
Refresh_DocID(GridViewDocSearch2)
End Sub
Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged
Refresh_DocID(GridViewDocSearch3)
End Sub
Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged
Refresh_DocID(GridViewDocSearch4)
End Sub
Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged
Refresh_DocID(GridViewDocSearch5)
End Sub
Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch1)
End Sub
Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch2)
End Sub
Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch3)
End Sub
Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch4)
End Sub
Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged
Refresh_DocID(GridViewDocSearch5)
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
FileShow()
End Sub
Sub FileShow()
Try
If IsNothing(clsWMDocGrid.DTDocuments) Then
MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Catch ex As Exception
End Try
End Sub
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
Try
If RESULT_DOC_PATH <> Nothing Then
BW_DocPath = RESULT_DOC_PATH
BW_DocID = DocID
Dim BWFileHandler As New BackgroundWorker
AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
BWFileHandler.RunWorkerAsync()
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
LOGGER.Error(ex)
End Try
End Sub
Private Shared Sub BWFileHandler_DoWork()
Try
Dim oMyProcess = New Process()
Dim oExtension
Dim oSql
Try
'Dim oPSI As New ProcessStartInfo(BW_DocPath)
oMyProcess.StartInfo.FileName = BW_DocPath
oMyProcess.StartInfo.UseShellExecute = True
oMyProcess.StartInfo.RedirectStandardOutput = False
oMyProcess.Start()
'oMyProcess.WaitForExit()
Catch ex As Exception
LOGGER.Error(ex)
Exit Sub
End Try
Catch ex As Exception
LOGGER.Error(ex)
Try
Process.Start(BW_DocPath)
Catch ex1 As Exception
LOGGER.Error(ex)
End Try
End Try
End Sub
Private Sub DateiÖffnenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem1.Click
FileShow()
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
Show_File_Properties()
End Sub
Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CURRENT_ProfilGUID)
Dim oPath = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
Return oPath
End Function
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
SaveDocGridLayout()
End Sub
Sub SaveDocGridLayout()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
End Sub
Private Sub ToolStripButtonRefreshSearches_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRefreshSearches.Click
If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
_DTSQLSearches = CURRENT_DT_PROFILE_SEARCHES_SQL
Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
XtraTabControlSQL.SelectedTabPageIndex = 0
Refresh_Load_GridSQL(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
End If
If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
_DTDocSearches = CURRENT_DT_PROFILE_SEARCHES_DOC
Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
XtraTabControlDocs.SelectedTabPageIndex = 0
RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
End If
End Sub
Private Sub GridViewDocSearch_ColumnWidthChanged(sender As Object, e As ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged, GridViewDocSearch2.ColumnWidthChanged, GridViewDocSearch3.ColumnWidthChanged, GridViewDocSearch4.ColumnWidthChanged, GridViewDocSearch5.ColumnWidthChanged
SaveDocGridLayout()
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
ReLoad_Active_DocTab()
End Sub
Sub ReLoad_Active_DocTab()
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
RefreshTabDoc(oConID, oCommand, oTabIndex, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE"))
End Sub
Private Sub LayoutZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutZurücksetzenToolStripMenuItem.Click
Set_DoclayoutBack()
End Sub
Sub Set_DoclayoutBack()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
Try
If File.Exists(oXMLPath) Then
File.Delete(oXMLPath)
ReLoad_Active_DocTab()
tslblState.Text = "Layout has been set back!"
Else
tslblState.Text = ""
End If
Catch ex As Exception
tslblState.Text = ""
End Try
End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
ReLoad_Active_SQLTab()
End Sub
Sub ReLoad_Active_SQLTab()
Dim oTabIndex = XtraTabControlSQL.SelectedTabPageIndex
Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("SQL_COMMAND")
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
RefreshTabSQL(oConID, oCommand, oTabIndex, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("TAB_TITLE"))
End Sub
Private Sub GridControlDocSearch1_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch1.DoubleClick
Refresh_DocID(GridViewDocSearch1)
FileShow()
End Sub
Private Sub GridControlDocSearch2_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch2.DoubleClick
Refresh_DocID(GridViewDocSearch2)
FileShow()
End Sub
Private Sub GridControlDocSearch3_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch3.DoubleClick
Refresh_DocID(GridViewDocSearch3)
FileShow()
End Sub
Private Sub GridControlDocSearch4_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch4.DoubleClick
Refresh_DocID(GridViewDocSearch4)
FileShow()
End Sub
Private Sub GridControlDocSearch5_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch5.DoubleClick
Refresh_DocID(GridViewDocSearch5)
FileShow()
End Sub
Private Sub GridControlDocSearch1_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Click
Refresh_DocID(GridViewDocSearch1)
End Sub
Private Sub GridControlDocSearch2_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch2.Click
Refresh_DocID(GridViewDocSearch2)
End Sub
Private Sub GridControlDocSearch3_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch3.Click
Refresh_DocID(GridViewDocSearch3)
End Sub
Private Sub GridControlDocSearch4_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch4.Click
Refresh_DocID(GridViewDocSearch4)
End Sub
Private Sub GridControlDocSearch5_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch5.Click
Refresh_DocID(GridViewDocSearch5)
End Sub
End Class