diff --git a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache index 671ed4a..715c91b 100644 Binary files a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache and b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache differ diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index b19b3c9..a7c4dc8 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -53,6 +53,9 @@ 0, 0 + + 558 + diff --git a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb index 75cc232..93dd066 100644 --- a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb +++ b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 67448b1..14cd821 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -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")) diff --git a/app/DD_PM_WINDREAM/ClassDatabase.vb b/app/DD_PM_WINDREAM/ClassDatabase.vb index 913555f..906827c 100644 --- a/app/DD_PM_WINDREAM/ClassDatabase.vb +++ b/app/DD_PM_WINDREAM/ClassDatabase.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb index c2ba730..9c437c4 100644 --- a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb +++ b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index f7b9912..27efe14 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -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) diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb index a28cb73..186466b 100644 --- a/app/DD_PM_WINDREAM/ClassPMWindream.vb +++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassUser.vb b/app/DD_PM_WINDREAM/ClassUser.vb index 0e65ab7..0938bed 100644 --- a/app/DD_PM_WINDREAM/ClassUser.vb +++ b/app/DD_PM_WINDREAM/ClassUser.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb index 3588f3d..beeeb79 100644 --- a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb +++ b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb @@ -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") diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index cd21bb4..969dd3b 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -221,6 +221,7 @@ + True True @@ -612,9 +613,6 @@ - - - @@ -741,6 +739,21 @@ + + + + + + + + + + + + + + + diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index 1cc5198..3cc533c 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index fa2e094..7507a9c 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -60,6 +60,16 @@ Namespace My.Resources End Set End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -330,6 +340,46 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -340,6 +390,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -440,6 +510,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -530,6 +610,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -550,6 +640,36 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -630,6 +750,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -730,6 +860,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_PM_WINDREAM/My Project/Resources.resx b/app/DD_PM_WINDREAM/My Project/Resources.resx index f891c1c..a67aed1 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.resx +++ b/app/DD_PM_WINDREAM/My Project/Resources.resx @@ -127,21 +127,33 @@ ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\GoToDeclaration_5576.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\group_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -151,9 +163,15 @@ ..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\computer_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -172,12 +190,15 @@ ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -196,6 +217,18 @@ ..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Properties.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -205,9 +238,6 @@ ..\Resources\world_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -229,6 +259,9 @@ ..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doc_pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -250,12 +283,12 @@ ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -265,11 +298,8 @@ ..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -286,12 +316,21 @@ ..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\OpenFileDialog_692.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -310,6 +349,9 @@ ..\Resources\cmb.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -325,7 +367,7 @@ ..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb index 90cf50c..1f20601 100644 --- a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb @@ -228,6 +228,18 @@ Namespace My Me("frmValidatorSearchPosition") = value End Set End Property + + _ + 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 diff --git a/app/DD_PM_WINDREAM/My Project/Settings.settings b/app/DD_PM_WINDREAM/My Project/Settings.settings index 4cb429d..81bf204 100644 --- a/app/DD_PM_WINDREAM/My Project/Settings.settings +++ b/app/DD_PM_WINDREAM/My Project/Settings.settings @@ -49,5 +49,8 @@ 0, 0 + + 558 + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/Resources/ID_FILE_PAGE_SETUP.png b/app/DD_PM_WINDREAM/Resources/ID_FILE_PAGE_SETUP.png new file mode 100644 index 0000000..aab8a1b Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/ID_FILE_PAGE_SETUP.png differ diff --git a/app/DD_PM_WINDREAM/Resources/OpenFileDialog_692.png b/app/DD_PM_WINDREAM/Resources/OpenFileDialog_692.png new file mode 100644 index 0000000..8b34c6c Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/OpenFileDialog_692.png differ diff --git a/app/DD_PM_WINDREAM/Resources/Properties.png b/app/DD_PM_WINDREAM/Resources/Properties.png new file mode 100644 index 0000000..3fbc7c3 Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/Properties.png differ diff --git a/app/DD_PM_WINDREAM/Resources/_blank.png b/app/DD_PM_WINDREAM/Resources/_blank.png new file mode 100644 index 0000000..65e156a Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/_blank.png differ diff --git a/app/DD_PM_WINDREAM/Resources/doc.png b/app/DD_PM_WINDREAM/Resources/doc.png new file mode 100644 index 0000000..aff8234 Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/doc.png differ diff --git a/app/DD_PM_WINDREAM/Resources/doc_excel_csv.png b/app/DD_PM_WINDREAM/Resources/doc_excel_csv.png new file mode 100644 index 0000000..6bb6cef Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/doc_excel_csv.png differ diff --git a/app/DD_PM_WINDREAM/Resources/doc_pdf.png b/app/DD_PM_WINDREAM/Resources/doc_pdf.png new file mode 100644 index 0000000..7a6dcb4 Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/doc_pdf.png differ diff --git a/app/DD_PM_WINDREAM/Resources/doc_text_image.png b/app/DD_PM_WINDREAM/Resources/doc_text_image.png new file mode 100644 index 0000000..b8f2788 Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/doc_text_image.png differ diff --git a/app/DD_PM_WINDREAM/Resources/dwg.png b/app/DD_PM_WINDREAM/Resources/dwg.png new file mode 100644 index 0000000..345850a Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/dwg.png differ diff --git a/app/DD_PM_WINDREAM/Resources/dxf.png b/app/DD_PM_WINDREAM/Resources/dxf.png new file mode 100644 index 0000000..5ddb55a Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/dxf.png differ diff --git a/app/DD_PM_WINDREAM/Resources/pdf.png b/app/DD_PM_WINDREAM/Resources/pdf.png new file mode 100644 index 0000000..99f0b4e Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/pdf.png differ diff --git a/app/DD_PM_WINDREAM/Resources/ppt.png b/app/DD_PM_WINDREAM/Resources/ppt.png new file mode 100644 index 0000000..617022a Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/ppt.png differ diff --git a/app/DD_PM_WINDREAM/Resources/search_glyph.png b/app/DD_PM_WINDREAM/Resources/search_glyph.png new file mode 100644 index 0000000..7ac33dc Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/search_glyph.png differ diff --git a/app/DD_PM_WINDREAM/Resources/txt.PNG b/app/DD_PM_WINDREAM/Resources/txt.PNG index eb15330..4a0a419 100644 Binary files a/app/DD_PM_WINDREAM/Resources/txt.PNG and b/app/DD_PM_WINDREAM/Resources/txt.PNG differ diff --git a/app/DD_PM_WINDREAM/Resources/xls.png b/app/DD_PM_WINDREAM/Resources/xls.png new file mode 100644 index 0000000..0f9309f Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/xls.png differ diff --git a/app/DD_PM_WINDREAM/clsWMDocGrid.vb b/app/DD_PM_WINDREAM/clsWMDocGrid.vb new file mode 100644 index 0000000..d4061c0 --- /dev/null +++ b/app/DD_PM_WINDREAM/clsWMDocGrid.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 4acbe43..a667315 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -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") diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 8611ea9..9c5466d 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAcQBAwHEAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAcwBAwHMAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -915,7 +915,7 @@ Group - 270, 156 + 270, 134 ContextMenuGrid @@ -1840,6 +1840,12 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + GridView_Docs @@ -1930,12 +1936,6 @@ System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 5534833..90057f5 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmMassValidator.vb b/app/DD_PM_WINDREAM/frmMassValidator.vb index 9dbeb42..a04851d 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb b/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb index 0fbadad..b949cf3 100644 --- a/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb +++ b/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb @@ -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) diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 7404dd6..94fb533 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 847b586..c5098c5 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -184,16 +184,16 @@ 3 - 790, 173 + 272, 173 - 206, 22 + 239, 22 Datei öffnen - 206, 22 + 239, 22 Datei-Info @@ -209,22 +209,25 @@ - 206, 22 + 239, 22 Dateieigenschaften + + 236, 6 + False - 206, 22 + 239, 22 - Refresh AdditionalSearch + Aktualisiere Zusätzliche Suchen - 207, 114 + 240, 98 ContextMenuStrip1 @@ -398,13 +401,13 @@ 534, 95 - 535, 173 + 17, 173 593, 56 - 17, 173 + 698, 134 17, 95 @@ -413,7 +416,7 @@ 1017, 95 - 844, 134 + 229, 134 1060, 17 @@ -434,13 +437,13 @@ 772, 95 - 632, 134 + 17, 134 - 1050, 134 + 435, 134 - 274, 173 + 955, 134 Top, Right @@ -452,7 +455,7 @@ 0, 141 - 1212, 173 + 694, 173 Top @@ -542,7 +545,7 @@ True - 383 + 251 7, 17 @@ -551,7 +554,7 @@ 962, 643 - 282, 212 + 1084, 173 Segoe UI, 9.75pt @@ -653,7 +656,7 @@ 0 - 165, 212 + 967, 173 120, 17 @@ -1845,6 +1848,12 @@ DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + ToolStripSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmValidator @@ -1873,7 +1882,7 @@ 0 - 947, 173 + 429, 173 Segoe UI Semibold, 9pt, style=Bold, Italic @@ -1963,18 +1972,18 @@ 1 - 1064, 173 + 546, 173 - 17, 212 + 819, 173 - 389, 212 + 1191, 173 - 538, 212 + 17, 212 - 848, 212 + 327, 212 \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index bc1bb63..e6795e6 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -25,11 +25,11 @@ Public Class frmValidator 'Private _windreamPM As New ClassPMWindream Private _windream As New ClassWindream_allgemein Private allgFunk As New ClassAllgemeineFunktionen - Dim aktivesDokument As WMObject + 'speichert die DocumentDaten Private navStep As String = Nothing - Public Shared Windream_Document_Path As String + Public Shared myWMDocumentPath As String Public Shared Filesystem_Document_Path As String Dim OLD_Document_Path As String = "" @@ -55,7 +55,7 @@ Public Class frmValidator Private _CURRENT_INDEX_ARRAY(100, 250) As String - Private _ValidatorSearch As frmValidatorSearch 'You need a reference to Form1 + Private _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1 Private _dependingControl_in_action As Boolean = False @@ -95,7 +95,7 @@ Public Class frmValidator LOGGER.Error(ex) LOGGER.Info("Error in Load FormLayout: " & ex.Message) End Try - Select Case Path.GetExtension(Windream_Document_Path).ToLower + Select Case Path.GetExtension(myWMDocumentPath).ToLower Case ".pdf" Select Case VIEWER_PDF Case "internal" @@ -113,6 +113,11 @@ Public Class frmValidator My.Settings.frmValidatorSize = Me.Size End Select My.Settings.Save() + Try + _frmValidatorSearch.Close() + Catch ex As Exception + + End Try Catch ex As Exception LOGGER.Error(ex) @@ -141,7 +146,7 @@ Public Class frmValidator Kill_PDFAcrobat() Else If pdfxchange = True Or sumatra = True Then - Close_PDF_Viewer(Windream_Document_Path) + Close_PDF_Viewer(myWMDocumentPath) End If KillU_Viewer() End If @@ -280,7 +285,7 @@ Public Class frmValidator Try WINDREAM = New ClassPMWindream() WINDREAM.Create_Session() - LOGGER.Debug(" >> Windream initiiert", False) + LOGGER.Debug("Windream initiiert") Return True Catch ex As Exception LOGGER.Error(ex) @@ -311,238 +316,268 @@ Public Class frmValidator Size = My.Settings.frmValidatorSize End If Dim _step = 0 - Try - _step = 1 - TBPM_FILES_USER_NOT_INDEXEDTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING - _step = 2 - VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) - _step = 3 - TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) - _step = 4 - TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE) + 'Try + _step = 1 + TBPM_FILES_USER_NOT_INDEXEDTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING + VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING + _step = 2 + VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) + _step = 3 + TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) + _step = 4 + TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE) - LOGGER.Debug(" >> Profile Data geladen", False) - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING profile-data: " & ex.Message, Environment.UserName) - LOGGER.Info(">> Fehler in LOADING profile-data: " & ex.Message, True) + LOGGER.Debug("Profile Data geladen") + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING profile-data: " & ex.Message, Environment.UserName) + ' LOGGER.Info(">> Fehler in LOADING profile-data: " & ex.Message, True) + ' Me.Close() + 'End Try + + 'Try + Delimiter = TBPM_KONFIGURATIONTableAdapter.cmdGetDelimiter + + + If CURRENT_DT_PROFILE.Rows.Count = 0 Then + LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True) + MsgBox("Achtung: Profildaten konnten nicht übergeben oder geladen werden.", MsgBoxStyle.Critical, "Achtung:") Me.Close() - End Try + End If + If CURRENT_DT_PROFILE.Rows.Count > 1 Then + MsgBox("Es wurde mehr als 1 Profil (" & CURRENT_DT_PROFILE.Rows.Count & ") zurückgegeben!!", MsgBoxStyle.Critical, "Achtung:") + Else + If CURRENT_DT_PROFILE.Rows.Count = 1 Then + For Each dr As DataRow In CURRENT_DT_PROFILE.Rows + PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX") + PROFIL_LOGINDEX = dr.Item("LOG_INDEX") + Me.Text = "Process Manager - " & dr.Item("TITLE") - Try - Delimiter = TBPM_KONFIGURATIONTableAdapter.cmdGetDelimiter + TITLELabel1.Text = dr.Item("TITLE") + DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION")) + If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then + PROFIL_VEKTORINDEX = "" + End If + If PROFIL_LOGINDEX.GetType.ToString.ToLower = "system.dbnull" Then + PROFIL_LOGINDEX = "" + End If + WD_Search = dr.Item("WD_SEARCH") + finalProfile = dr.Item("FINAL_PROFILE") + Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder")) + Try + If finalProfile = True Then - If CURRENT_DT_PROFILE.Rows.Count = 0 Then - LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True) - MsgBox("Achtung: Profildaten konnten nicht übergeben oder geladen werden.", MsgBoxStyle.Critical, "Achtung:") - Me.Close() - End If - If CURRENT_DT_PROFILE.Rows.Count > 1 Then - MsgBox("Es wurde mehr als 1 Profil (" & CURRENT_DT_PROFILE.Rows.Count & ") zurückgegeben!!", MsgBoxStyle.Critical, "Achtung:") - Else - If CURRENT_DT_PROFILE.Rows.Count = 1 Then - For Each dr As DataRow In CURRENT_DT_PROFILE.Rows - PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX") - PROFIL_LOGINDEX = dr.Item("LOG_INDEX") - Me.Text = "Process Manager - " & dr.Item("TITLE") - - TITLELabel1.Text = dr.Item("TITLE") - DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION")) - If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then - PROFIL_VEKTORINDEX = "" - End If - If PROFIL_LOGINDEX.GetType.ToString.ToLower = "system.dbnull" Then - PROFIL_LOGINDEX = "" - End If - - WD_Search = dr.Item("WD_SEARCH") - finalProfile = dr.Item("FINAL_PROFILE") - Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder")) - Try - If finalProfile = True Then - - Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT")) - If text <> "" Then - btnSave.Text = text & " (F1)" - Else - btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)" - End If + Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT")) + If text <> "" Then + btnSave.Text = text & " (F1)" Else btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)" End If - LOGGER.Debug(" >> Final profile Text geladen", False) - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error loading final profile text: " & ex.Message, Environment.UserName) - LOGGER.Info(">> Fehler in loading final profile text: " & ex.Message, True) - End Try - ToolStripButtonJumpFile.Enabled = True - If CURRENT_JUMP_DOC_GUID <> 0 Then - ToolStripButtonJumpFile.Enabled = False - Anzahl_ValDoks = 1 Else - - Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID) + btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)" End If - - Next - If LOG_ERRORS_ONLY = False Then - LOGGER.Info(" >> Profildaten gespeichert", False) - LOGGER.Info(" >> WD_Search: " & WD_Search, False) - LOGGER.Info(" >> finalProfile: " & finalProfile, False) - LOGGER.Info(" >> Move2Folder: " & Move2Folder, False) - LOGGER.Info(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE, False) - End If - - PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST") - LOGGER.Debug(" >> PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString, False) - 'Delete Button anzeigen ja/nein - If USER_RIGHT_FILE_DELETE = True Then - ToolStripButtonDeleteFile.Enabled = True + LOGGER.Debug("Final profile Text geladen") + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error loading final profile text: " & ex.Message, Environment.UserName) + LOGGER.Info(">> Fehler in loading final profile text: " & ex.Message, True) + End Try + ToolStripButtonJumpFile.Enabled = True + If CURRENT_JUMP_DOC_GUID <> 0 Then + ToolStripButtonJumpFile.Enabled = False + Anzahl_ValDoks = 1 Else - ToolStripButtonDeleteFile.Enabled = False + + Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID) End If - LOGGER.Debug(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString, False) - Load_Controls() - - - End If - End If - If Not IsNothing(CURRENT_DT_PROFILE_SEARCHES_RT) Then - If CURRENT_DT_PROFILE_SEARCHES_RT.Rows.Count > 0 Then - For Each _searchRow As DataRow In CURRENT_DT_PROFILE_SEARCHES_RT.Rows - - Next + Next + If LOG_ERRORS_ONLY = False Then + LOGGER.Info(" >> Profildaten gespeichert") + LOGGER.Info(" >> WD_Search: " & WD_Search) + LOGGER.Info(" >> finalProfile: " & finalProfile) + LOGGER.Info(" >> Move2Folder: " & Move2Folder) + LOGGER.Info(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE) End If + PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST") + LOGGER.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) + 'Delete Button anzeigen ja/nein + If USER_RIGHT_FILE_DELETE = True Then + ToolStripButtonDeleteFile.Enabled = True + Else + ToolStripButtonDeleteFile.Enabled = False + End If + + LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) + Load_Controls() + + End If + End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING(2) Profile-Data: " & ex.Message, Environment.UserName) - LOGGER.Info(">> Fehler in LOADING(2) Profile-Data: " & ex.Message, True) - End Try + + + + + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING(2) Profile-Data: " & ex.Message, Environment.UserName) + ' LOGGER.Info(">> Fehler in LOADING(2) Profile-Data: " & ex.Message, True) + 'End Try 'Me.lblerror.Visible = False End Sub + Public Sub Load_Additional_Searches() + If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + frmValidatorSearch.Show() + _frmValidatorSearch = frmValidatorSearch + RefreshAdditionalSearchToolStripMenuItem.Enabled = True + Dim oPnl1Collapsed As Boolean = True + Dim oPnl2Collapsed As Boolean = True + If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + oPnl1Collapsed = False + End If + If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + oPnl2Collapsed = False + End If + _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count, + CURRENT_DT_PROFILE_SEARCHES_SQL, CURRENT_DT_PROFILE_SEARCHES_DOC) + If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + _frmValidatorSearch._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, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) + _frmValidatorSearch.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 + _frmValidatorSearch._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, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) + + _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) + End If + Else + RefreshAdditionalSearchToolStripMenuItem.Enabled = False + End If + End Sub Sub LoadSimpleData(control As Control, controlId As Integer) - Try - If TypeOf control Is Label Then Exit Sub + 'Try + If TypeOf control Is Label Then Exit Sub - Dim sql As String = $"SELECT NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND SQL_UEBERPRUEFUNG NOT LIKE '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%'" - Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + Dim sql As String = $"SELECT NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND SQL_UEBERPRUEFUNG NOT LIKE '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%'" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) - If IsNothing(dt) Then Exit Sub - If dt.Rows.Count = 0 Then Exit Sub + If IsNothing(dt) Then Exit Sub + If dt.Rows.Count = 0 Then Exit Sub - For Each row As DataRow In dt.Rows - Dim name As String = row.Item("NAME") + For Each row As DataRow In dt.Rows + Dim name As String = row.Item("NAME") - If IsDBNull(row.Item("CONNECTION_ID")) Then Continue For - If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For + If IsDBNull(row.Item("CONNECTION_ID")) Then Continue For + If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For - Dim sqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") - Dim connectionId As Integer = row.Item("CONNECTION_ID") + Dim sqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") + Dim connectionId As Integer = row.Item("CONNECTION_ID") - If clsPatterns.HasComplexPatterns(sqlStatement) Then - Continue For - End If + If clsPatterns.HasComplexPatterns(sqlStatement) Then + Continue For + End If - sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) - sql = clsPatterns.ReplaceInternalValues(sql) - LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql, False) - 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) - dt = ClassDatabase.Return_Datatable(sql) + sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) + sql = clsPatterns.ReplaceInternalValues(sql) + LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql) + 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) + dt = ClassDatabase.Return_Datatable(sql) - If IsNothing(dt) Then - MsgBox($"SQL-Query for control {control.Name} is invalid.") - Exit Sub - End If - Dim oValue + If IsNothing(dt) Then + MsgBox($"SQL-Query for control {control.Name} is invalid.") + Exit Sub + End If + Dim oValue - If TypeOf control Is TextBox Then - Try - Dim firstRow As DataRow = dt.Rows(0) - Dim value = firstRow.Item(0) + If TypeOf control Is TextBox Then + Try + Dim firstRow As DataRow = dt.Rows(0) + Dim value = firstRow.Item(0) - control.Text = value - oValue = value - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) - End Try - ElseIf TypeOf control Is ComboBox Then - Try - Dim comboxBox As ComboBox = control - Dim list As New List(Of String) + control.Text = value + oValue = value + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) + End Try + ElseIf TypeOf control Is ComboBox Then + Try + Dim comboxBox As ComboBox = control + Dim list As New List(Of String) - For Each _row As DataRow In dt.Rows - list.Add(_row.Item(0)) + For Each _row As DataRow In dt.Rows + list.Add(_row.Item(0)) + Next + + comboxBox.DataSource = list + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message) + End Try + ElseIf TypeOf control Is LookupControl2 Then + Try + Dim lookup As LookupControl2 = control + + lookup.DataSource = dt + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) + End Try + ElseIf TypeOf control Is GridControl Then + Try + Dim dataGridView As GridControl = control + Dim oDataSource As DataTable = dataGridView.DataSource + + If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then + 'dataGridView.DataSource = dt + + Dim oDatatable As DataTable = dt.Clone() + + For Each oColumn As DataColumn In oDatatable.Columns + If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then + 'oDataSource.Columns.Add(oColumn) + oDataSource.Columns.Add(oColumn.ColumnName, oColumn.DataType) + End If Next - comboxBox.DataSource = list - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message) - End Try - ElseIf TypeOf control Is LookupControl2 Then - Try - Dim lookup As LookupControl2 = control + For Each oRow As DataRow In dt.Rows + oDataSource.ImportRow(oRow) + Next - lookup.DataSource = dt - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) - End Try - ElseIf TypeOf control Is GridControl Then - Try - Dim dataGridView As GridControl = control - Dim oDataSource As DataTable = dataGridView.DataSource - - If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then - 'dataGridView.DataSource = dt - - Dim oDatatable As DataTable = dt.Clone() - - For Each oColumn As DataColumn In oDatatable.Columns - If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then - 'oDataSource.Columns.Add(oColumn) - oDataSource.Columns.Add(oColumn.ColumnName, oColumn.DataType) - End If - Next - - For Each oRow As DataRow In dt.Rows - oDataSource.ImportRow(oRow) - Next - - dataGridView.DataSource = oDataSource - End If - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message) - End Try - End If - Next - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error in LoadSimpleData: " & ex.Message, MsgBoxStyle.Critical) - clsLogger.Add("Error in LoadSimpleData: " & ex.Message) - End Try + dataGridView.DataSource = oDataSource + End If + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message) + End Try + End If + Next + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Error in LoadSimpleData: " & ex.Message, MsgBoxStyle.Critical) + ' clsLogger.Add("Error in LoadSimpleData: " & ex.Message) + 'End Try End Sub @@ -560,9 +595,9 @@ Public Class frmValidator Select Case oControlRow.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(oControlRow, False) - LOGGER.Debug(" >> TXT wurde geladen", False) + LOGGER.Debug("TXT wurde geladen") AddHandler txt.GotFocus, AddressOf OnTextBoxFocus AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus @@ -570,10 +605,10 @@ Public Class frmValidator ctrl = txt Case "LBL" - LOGGER.Debug(" >> Versuch LBL zu laden", False) + LOGGER.Debug("Versuch LBL zu laden") ctrl = ClassControlCreator.CreateExistingLabel(oControlRow, False) Case "CMB" - LOGGER.Debug(" >> Versuch CMB zu laden", False) + LOGGER.Debug("Versuch CMB zu laden") Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False) @@ -582,15 +617,15 @@ Public Class frmValidator #Region "CONTROL LIST" Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name) - LOGGER.Debug(" >> In add_ComboBox - GUID: " & ControlID, False) + LOGGER.Debug("In add_ComboBox - GUID: " & ControlID) If ControlID > 0 Then - LOGGER.Debug(" >>ControlID > 0", False) + LOGGER.Debug(" >>ControlID > 0") Dim ConID = Me.TBPM_PROFILE_CONTROLSTableAdapter.cmdgetConnectionID(ControlID) If ConID Is Nothing = False Then Dim commandsql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) - LOGGER.Debug(" >> ConID Is Nothing = False", False) + LOGGER.Debug("ConID Is Nothing = False") If ConID > 0 And commandsql <> "" Then - LOGGER.Debug(" >> CConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)", False) + LOGGER.Debug("CConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)") Dim connectionString As String TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, ConID) Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION @@ -603,7 +638,7 @@ Public Class frmValidator Else connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" End If - LOGGER.Debug(" >> ConnString Sql-Server: " & connectionString, False) + LOGGER.Debug("ConnString Sql-Server: " & connectionString) Case "oracle" Dim conn As New OracleConnectionStringBuilder Dim connstr As String @@ -621,7 +656,7 @@ Public Class frmValidator connectionString = connstr Case Else - LOGGER.Info(" - ConnectionType nicht integriert", False) + LOGGER.Info(" - ConnectionType nicht integriert") MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") End Select Next @@ -637,13 +672,13 @@ Public Class frmValidator sql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) - 'sql = ClassPatterns.ReplaceAllValues(sql, pnldesigner, aktivesDokument) + 'sql = ClassPatterns.ReplaceAllValues(sql, pnldesigner, CURRENT_WMFILE) 'If ClassPatterns.HasOnlySimplePatterns(sql) Then If clsPatterns.HasOnlySimplePatterns(sql) Then sql = clsPatterns.ReplaceInternalValues(sql) sql = clsPatterns.ReplaceControlValues(sql, pnldesigner) - LOGGER.Debug(">>> sql after HasOnlySimplePatterns: " & sql, False) + LOGGER.Debug(">>> sql after HasOnlySimplePatterns: " & sql) sqlCnn = New SqlClient.SqlConnection(connectionString) ' Try sqlCnn.Open() @@ -665,12 +700,12 @@ Public Class frmValidator End Try End If Else - LOGGER.Debug(" >> Else Row 571", False) + LOGGER.Debug("Else Row 571") End If Else - LOGGER.Debug(" >> AListe Handling", False) + LOGGER.Debug("AListe Handling") Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID) - LOGGER.Debug(" >> In add_ComboBox - AListe: " & AListe, False) + LOGGER.Debug("In add_ComboBox - AListe: " & AListe) If AListe Is Nothing = False Then 'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe) Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe) @@ -708,12 +743,12 @@ Public Class frmValidator 'add_ComboBox(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), Case "DTP" - LOGGER.Debug(" >> Versuch DTP zu laden", False) + LOGGER.Debug("Versuch DTP zu laden") ctrl = ClassControlCreator.CreateExistingDatepicker(oControlRow, False) 'add_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), Case "DGV" - LOGGER.Debug(" >> Versuch DGV zu laden", False) + LOGGER.Debug("Versuch DGV zu laden") Dim dgv = ClassControlCreator.CreateExistingDataGridView(oControlRow, False) AddHandler dgv.RowValidating, AddressOf onDGVRowValidating @@ -721,7 +756,7 @@ Public Class frmValidator ctrl = dgv Case "LOOKUP" - LOGGER.Debug(" >> Versuch LOOKUP zu laden", False) + LOGGER.Debug("Versuch LOOKUP zu laden") Dim lookup As LookupControl2 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False) lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES") @@ -736,12 +771,12 @@ Public Class frmValidator 'add_DGV(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("HEIGHT"), dr.Item("WIDTH"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), Case "CHK" - LOGGER.Debug(" >> Versuch Checkbox zu laden", False) + LOGGER.Debug("Versuch Checkbox zu laden") ctrl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False) 'add_Checkbox(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) Case "TABLE" - LOGGER.Debug(" >> Versuch Tabelle zu laden", False) + LOGGER.Debug("Versuch Tabelle zu laden") Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE Where r.CONTROL_ID = oControlRow.Item("GUID") @@ -750,7 +785,7 @@ Public Class frmValidator ctrl = ClassControlCreator.CreateExistingTable(oControlRow, columns, False) 'add_TABLE(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("WIDTH"), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY")) Case "LINE" - LOGGER.Debug(" >> Versuch Linie zu laden", False) + LOGGER.Debug("Versuch Linie zu laden") ctrl = ClassControlCreator.CreateExistingLine(oControlRow, False) End Select @@ -766,15 +801,15 @@ Public Class frmValidator 'LoadSimpleData(ctrl, oControlRow.Item("GUID")) Next - LOGGER.Debug(" >> Controls geladen", False) - LOGGER.Info("", False) + LOGGER.Debug("Controls geladen") + LOGGER.Info("") Catch ex As Exception LOGGER.Error(ex) If LOG_ERRORS_ONLY = 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 @@ -832,8 +867,8 @@ Public Class frmValidator Dim sql_Statement = ROW.Item(2) - sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) - LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql, False) + sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) + LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql) '' Regulären Ausdruck zum Auslesen der Indexe definieren 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '' einen Regulären Ausdruck laden @@ -844,7 +879,7 @@ Public Class frmValidator '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen 'For Each element As 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 MyPattern = element.Value.Substring(2, element.Value.Length - 3) ' Dim input_value @@ -961,9 +996,9 @@ Public Class frmValidator _Step = 2 Dim sql_Statement = IIf(IsDBNull(ROW.Item("SQL_UEBERPRUEFUNG")), "", ROW.Item("SQL_UEBERPRUEFUNG")) - sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) + sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) _Step = 3 - LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql, False) + LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql) '' Regulären Ausdruck zum Auslesen der Indexe definieren 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '' einen Regulären Ausdruck laden @@ -974,7 +1009,7 @@ Public Class frmValidator '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen 'For Each element As 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 MyPattern = element.Value.Substring(2, element.Value.Length - 3) ' Dim input_value @@ -1077,7 +1112,7 @@ Public Class frmValidator If dr.Item("PROFIL_ID") = CURRENT_ProfilGUID And dr.Item("CTRL_NAME") = control.Name Then Dim check = dr.Item("SQL_UEBERPRUEFUNG") If IsDBNull(check) Then - LOGGER.Debug(" >> SQL Check is not configured!", False) + LOGGER.Debug("SQL Check is not configured!") Return True End If If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then @@ -1166,7 +1201,7 @@ Public Class frmValidator End Try End Sub Sub Open_PDF_withStandard() - If Windream_Document_Path.ToLower.EndsWith(".pdf") = True Then + If myWMDocumentPath.ToLower.EndsWith(".pdf") = True Then Dim Proc As New System.Diagnostics.Process Dim psi As New ProcessStartInfo(Filesystem_Document_Path) psi.WindowStyle = ProcessWindowStyle.Minimized @@ -1202,45 +1237,47 @@ Public Class frmValidator Function Get_Next_GUID() As Integer Try + LOGGER.Debug("Get_Next_GUID...") Dim newGUID As Integer - LOGGER.Debug(" >> Old Document_Path: " & OLD_Document_Path, False) + 'If PROFIL_sortbynewest = True Then ' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdgetNextFile_GUID_Newest(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName) 'Else ' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdGetNextFile_GUID(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName) 'End If - + LOGGER.Debug("Old Document_Path: " & OLD_Document_Path) newGUID = Next_GUID(OLD_Document_Path, CURRENT_ProfilGUID, PROFIL_sortbynewest) - Windream_Document_Path = "" + myWMDocumentPath = "" CURRENT_DOC_PATH = "" If newGUID > 0 Then - LOGGER.Debug(" >> newGUID: " & newGUID.ToString, False) - Windream_Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID) - Windream_Document_Path = Windream_Document_Path.Replace("W:", "\\windream\objects") - Windream_Document_Path = Windream_Document_Path.Replace("K:", "\\windream\objects") + LOGGER.Debug("newGUID: " & newGUID.ToString) + myWMDocumentPath = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID) + LOGGER.Debug($"myWMDocumentPath: {myWMDocumentPath}") + myWMDocumentPath = myWMDocumentPath.Replace("W:", "\\windream\objects") + myWMDocumentPath = myWMDocumentPath.Replace("K:", "\\windream\objects") - Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path) + Filesystem_Document_Path = GetFilesystemDocumentPath(myWMDocumentPath) + LOGGER.Debug("Filesystem_Document_Path: " & Filesystem_Document_Path) + CURRENT_DOC_PATH = myWMDocumentPath + LOGGER.Debug("CURRENT_DOC_PATH: " & CURRENT_DOC_PATH) - CURRENT_DOC_PATH = Windream_Document_Path - LOGGER.Debug(" >> Document_Path: " & Windream_Document_Path, False) - - LOGGER.Debug(" >> Überprüfen ob File existiert?", False) + LOGGER.Debug("Überprüfen ob File existiert?") Dim i As Integer = 0 - Do While allgFunk.file_exists(Windream_Document_Path, _windream) = False And newGUID <> 0 + Do While allgFunk.file_exists(myWMDocumentPath, _windream) = False And newGUID <> 0 i = i + 1 If i > 800 Then allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Get_Next_GUID - Datei nicht vorhanden!", Environment.UserName) - LOGGER.Info(" >> ACHTUNG: Ausnahme in GetNextGUID - Datei nicht vorhanden", False) + LOGGER.Info(" >> ACHTUNG: Ausnahme in GetNextGUID - Datei nicht vorhanden") Dim Del = "DELETE FROM TBPM_PROFILE_FILES where GUID = " & newGUID ClassDatabase.Execute_non_Query(Del, True) oErrorMessage = "Die windream-Datei existiert nicht!" - Windream_Document_Path = "" + myWMDocumentPath = "" CURRENT_DOC_PATH = "" Return 0 End If Loop - OLD_Document_Path = Windream_Document_Path + OLD_Document_Path = myWMDocumentPath 'If PROFIL_sortbynewest Then ' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdgetNextFile_GUID_Newest(PROFIL_ID, Document_Path, Environment.UserName) ' Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID) @@ -1249,7 +1286,7 @@ Public Class frmValidator ' Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID) 'End If Else - LOGGER.Info(" >> ACHTUNG: Ausnahme in GetNextGUID - Es konnte keine GUID abgerufen werden!", False) + LOGGER.Info(" >> ACHTUNG: Ausnahme in GetNextGUID - Es konnte keine GUID abgerufen werden!") newGUID = 0 End If @@ -1278,7 +1315,7 @@ Public Class frmValidator AnzDoks = DT.Rows.Count Else AnzDoks = 1 - Windream_Document_Path = CURRENT_DOC_PATH + myWMDocumentPath = CURRENT_DOC_PATH End If tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID @@ -1294,13 +1331,13 @@ Public Class frmValidator End If End If If pdfxchange = True Or sumatra = True Or VIEWER_PDF = "system" Then - Close_PDF_Viewer(Windream_Document_Path) + Close_PDF_Viewer(myWMDocumentPath) End If - If aktivesDokument Is Nothing = False Then - If aktivesDokument.aLocked Then - aktivesDokument.Save() + If CURRENT_WMFILE Is Nothing = False Then + If CURRENT_WMFILE.aLocked Then + CURRENT_WMFILE.Save() ' unlock the windream object - aktivesDokument.unlock() + CURRENT_WMFILE.unlock() End If End If End Sub @@ -1315,176 +1352,190 @@ Public Class frmValidator End Sub - Function GetFilesystemDocumentPath(WindreamPath As String) - Return Path.Combine(CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH"), Windream_Document_Path) + Function GetFilesystemDocumentPath() + LOGGER.Debug($"in GetFilesystemDocumentPath...'") + If IsDBNull(CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH")) Then + LOGGER.Debug($"WM_REL_PATH is null'") + CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH") = "\\windream\objects" + CURRENT_DT_CONFIG.AcceptChanges() + End If + If myWMDocumentPath.StartsWith(CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH")) Then + Return myWMDocumentPath + Else + Return Path.Combine(CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH"), myWMDocumentPath) + End If + End Function Sub Load_Next_Document(first As Boolean) - aktivesDokument = Nothing - LOGGER.Debug(" >> aktivesDokument nothing gesetzt", False) + CURRENT_WMFILE = Nothing + LOGGER.Debug("CURRENT_WMFILE nothing gesetzt") activate_controls(False) oErrorMessage = "" - Windream_Document_Path = "" + myWMDocumentPath = "" Filesystem_Document_Path = "" CURRENT_HTML_DOC = "" 'Me.lblerror.Visible = False _Indexe_Loaded = False - LOGGER.Debug(" >> In Load_Next_Document", False) - Try - If first = True Then - LOGGER.Debug(" >> First Document", False) - aktivesDokument = Nothing - Else - LOGGER.Debug(" >> Following Document ", False) - docCounter += 1 - End If + LOGGER.Debug("In Load_Next_Document") + 'Try + If first = True Then + LOGGER.Debug("First Document") + CURRENT_WMFILE = Nothing + Else + LOGGER.Debug("Following Document ") + docCounter += 1 + End If - ' Controls nicht beim ersten Laden leeren - If first = False Then - Clear_all_Input() - End If + ' Controls nicht beim ersten Laden leeren + If first = False Then + Clear_all_Input() + End If - 'Select Case navtype - ' Case "next" - ' Case "previous" - ' Case "first" - ' Case "last" - 'End Select - If CURRENT_JUMP_DOC_GUID = 0 Then - CURRENT_DOC_GUID = Get_Next_GUID() - Else - Windream_Document_Path = CURRENT_DOC_PATH - Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path) - End If + 'Select Case navtype + ' Case "next" + ' Case "previous" + ' Case "first" + ' Case "last" + 'End Select + LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") + If CURRENT_JUMP_DOC_GUID = 0 Then + CURRENT_DOC_GUID = Get_Next_GUID() + Else + LOGGER.Debug($"CURRENT_DOC_PATH: {CURRENT_DOC_PATH}' later: myWMDocumentPath") + myWMDocumentPath = CURRENT_DOC_PATH + Filesystem_Document_Path = GetFilesystemDocumentPath() + End If - LOGGER.Debug(" >> Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'", False) - If CURRENT_DOC_GUID > 0 Then - 'Beschriftung des Navigators - 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" - If Windream_Document_Path <> String.Empty Then - ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### - TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_GUID) - ' ############ Infos eintragen ################# - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID - ' txtDateipfad.Text = Document_Path - tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString - LOGGER.Info(">> Validierung für Dokument '" & Windream_Document_Path & "' gestartet", False) + LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") + If CURRENT_DOC_GUID > 0 Then + 'Beschriftung des Navigators + 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" + If myWMDocumentPath <> String.Empty Then + ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### + TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_GUID) + ' ############ Infos eintragen ################# + tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID + ' txtDateipfad.Text = Document_Path + tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString + LOGGER.Info(">> Validierung für Dokument '" & myWMDocumentPath & "' gestartet") - Try - aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, WINDREAM.NormalizePath(Windream_Document_Path)) - Catch ex As Exception - LOGGER.Error(ex) - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) - LOGGER.Info("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message) - LOGGER.Info("Error Number: " & Err.Number.ToString) - Dim _err1 As Boolean = False - 'Nochmaliger Versuch windream zu initialiseren - If Init_windream() = True Then - Try - aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Windream_Document_Path) - Catch ex1 As Exception - LOGGER.Info("Fehler bei 2. Versuch windream-Objekt: " & ex1.Message) - oErrorMessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" - _err1 = True - End Try - Else - oErrorMessage = "2-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" + Try + CURRENT_WMFILE = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, WINDREAM.NormalizePath(myWMDocumentPath)) + + Catch ex As Exception + LOGGER.Error(ex) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) + LOGGER.Info("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message) + LOGGER.Info("Error Number: " & Err.Number.ToString) + Dim _err1 As Boolean = False + 'Nochmaliger Versuch windream zu initialiseren + If Init_windream() = True Then + Try + CURRENT_WMFILE = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, myWMDocumentPath) + Catch ex1 As Exception + LOGGER.Info("Fehler bei 2. Versuch windream-Objekt: " & ex1.Message) + oErrorMessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" _err1 = True - End If - If _err1 = True Then - errormessage = oErrorMessage - frmError.ShowDialog() - Exit Sub - End If - - End Try - - LOGGER.Debug(" >> Windream-Dokument geladen und gelockt", False) - oErrorMessage = Windream_get_Doc_info() - - LOGGER.Debug(" >> Windream-Dok Info geholt", False) - If oErrorMessage = "" Then - Me.grpbxMailBody.Visible = False - Me.grpBetreff.Visible = False - - load_viewer() - - If Windream_Document_Path.ToLower.EndsWith(".pdf") Then - ToolStripButtonAnnotation.Visible = True - Else - ToolStripButtonAnnotation.Visible = False - End If - - LOGGER.Debug(" >> Viewer geladen", False) - - - - FillIndexValues(first) - - For Each oControl As Control In pnldesigner.Controls - LoadSimpleData(oControl, oControl.Tag) - Next - - LOGGER.Debug(" >> Indexmaske geladen", False) - LOGGER.Debug("", False) - - 'Nun im Vektoprindex loggen das das Profil geladen wurde - 'If PROFIL_VEKTORINDEX <> "" Then - ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & Environment.UserName & Delimiter & Now.ToString - ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then - ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben", False) - ' 'Else - ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' ' My.Settings.Save() - ' ' frmError.ShowDialog() - ' ' _error = True - ' End If - 'End If - 'Nun loggen das das Profil geladen wurde - If PROFIL_LOGINDEX <> "" Then - Dim Profilstring = "DD-PMlog" & Delimiter & "In Profil: '" & CURRENT_ProfilName & "' geladen" & Delimiter & Environment.UserName & Delimiter & Now.ToString - If Indexiere_VektorfeldPM(Profilstring, PROFIL_LOGINDEX) = False Then - LOGGER.Debug(" >> Profilname erfolgreich in Vektorfeld LOG geschrieben", False) - 'Else - ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' My.Settings.Save() - ' frmError.ShowDialog() - ' _error = True - End If - End If - activate_controls(True) + End Try Else + oErrorMessage = "2-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" + _err1 = True + End If + If _err1 = True Then errormessage = oErrorMessage frmError.ShowDialog() + Exit Sub End If + + End Try + + LOGGER.Debug("Windream-Dokument geladen und gelockt") + oErrorMessage = Windream_get_Doc_info() + + LOGGER.Debug("Windream-Dok Info geholt") + If oErrorMessage = "" Then + Me.grpbxMailBody.Visible = False + Me.grpBetreff.Visible = False + + load_viewer() + + If myWMDocumentPath.ToLower.EndsWith(".pdf") Then + ToolStripButtonAnnotation.Visible = True + Else + ToolStripButtonAnnotation.Visible = False + End If + + LOGGER.Debug("Viewer geladen") + + + + FillIndexValues(first) + + For Each oControl As Control In pnldesigner.Controls + LoadSimpleData(oControl, oControl.Tag) + Next + + LOGGER.Debug("Indexmaske geladen") + LOGGER.Debug("") + + 'Nun im Vektoprindex loggen das das Profil geladen wurde + 'If PROFIL_VEKTORINDEX <> "" Then + ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & Environment.UserName & Delimiter & Now.ToString + ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then + ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") + ' 'Else + ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' ' My.Settings.Save() + ' ' frmError.ShowDialog() + ' ' _error = True + ' End If + 'End If + 'Nun loggen das das Profil geladen wurde + If PROFIL_LOGINDEX <> "" Then + Dim Profilstring = "DD-PMlog" & Delimiter & "In Profil: '" & CURRENT_ProfilName & "' geladen" & Delimiter & Environment.UserName & Delimiter & Now.ToString + If Indexiere_VektorfeldPM(Profilstring, PROFIL_LOGINDEX) = False Then + LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") + 'Else + ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' My.Settings.Save() + ' frmError.ShowDialog() + ' _error = True + End If + End If + activate_controls(True) Else errormessage = oErrorMessage frmError.ShowDialog() End If Else - If oErrorMessage <> "" Then - errormessage = oErrorMessage - frmError.ShowDialog() - Else - LOGGER.Info(" >> Ende des Profils - Kein weiteres Dokument!", False) - LOGGER.Info("", False) - MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:") - activate_controls(True) - Me.Close() - End If + errormessage = oErrorMessage + frmError.ShowDialog() End If + Else + If oErrorMessage <> "" Then + errormessage = oErrorMessage + frmError.ShowDialog() + Else + LOGGER.Info(" >> Ende des Profils - Kein weiteres Dokument!") + LOGGER.Info("") + MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:") + activate_controls(True) + Me.Close() + End If + End If - Catch ex As Exception - LOGGER.Error(ex) - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) - errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message - My.Settings.Save() - LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message) - frmError.ShowDialog() - End Try + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) + ' errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message + ' My.Settings.Save() + ' LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message) + ' frmError.ShowDialog() + 'End Try End Sub Sub load_viewer() If VIEWER_ALL = "uviewer" Then @@ -1502,7 +1553,7 @@ Public Class frmValidator Case "internal" SplitContainer1.Panel2Collapsed = False PdfViewer1.LoadDocument(Filesystem_Document_Path) - LOGGER.Debug(" >> Internal Viewer Path: " & Filesystem_Document_Path, False) + LOGGER.Debug("Internal Viewer Path: " & Filesystem_Document_Path) PdfControls_visible(True) Me.Size = My.Settings.frmValidation_Size_PDFViewer 'PdfViewer1.ZoomFactor = PDFViewer_ZoomMode @@ -1541,7 +1592,7 @@ Public Class frmValidator DocView = Nothing DocView = CreateObject("WMPViewXNG.Viewer") ' open the viewer - viewer_string = aktivesDokument.aPath.ToString + viewer_string = CURRENT_WMFILE.aPath.ToString DocView.ViewFile(viewer_string) End If Else @@ -1553,7 +1604,7 @@ Public Class frmValidator DocView = Nothing DocView = CreateObject("WMPViewXNG.Viewer") ' open the viewer - viewer_string = aktivesDokument.aPath.ToString + viewer_string = CURRENT_WMFILE.aPath.ToString DocView.ViewFile(viewer_string) End If End Sub @@ -1561,7 +1612,7 @@ Public Class frmValidator Try Me.grpBetreff.Dock = DockStyle.Top Me.grpbxMailBody.Dock = DockStyle.Fill - Dim msg_email As New Msg.Message(Windream_Document_Path) + Dim msg_email As New Msg.Message(myWMDocumentPath) 'Eine tempfile generieren Dim tempFilename = My.Computer.FileSystem.GetTempFileName() Dim name = Path.GetFileNameWithoutExtension(tempFilename) @@ -1621,12 +1672,12 @@ Public Class frmValidator 'End If Try - CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT) + CURRENT_DOC_CREATION_DATE = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT) Catch ex As Exception LOGGER.Error(ex) If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT & " not found!") Then LOGGER.Info("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT & " not found", True) - LOGGER.Info("1. Ausnahme-Fehler: " & ex.Message, False) + LOGGER.Info("1. Ausnahme-Fehler: " & ex.Message) If INDEX_DMS_ERSTELLT = "DMS Created" Then INDEX_DMS_ERSTELLT = "DMS erstellt" @@ -1646,17 +1697,17 @@ Public Class frmValidator 'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time") End If - CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT) + CURRENT_DOC_CREATION_DATE = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT) Else LOGGER.Info("Fehler in Windream_get_Doc_info 1: " & ex.Message) Return "Fehler in Windream_get_Doc_info 1: " & ex.Message End If End Try - LOGGER.Debug(" >> DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE, False) + LOGGER.Debug("DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE) Try - CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT) + CURRENT_DOC_CREATION_TIME = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT) Catch ex As Exception LOGGER.Error(ex) If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found!") Then @@ -1683,14 +1734,14 @@ Public Class frmValidator 'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time") End If - CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT) + CURRENT_DOC_CREATION_TIME = CURRENT_WMFILE.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT) Else LOGGER.Info("Fehler in Windream_get_Doc_info 3: " & ex.Message) Return "Fehler in Windream_get_Doc_info 3: " & ex.Message End If End Try - LOGGER.Debug(" >> DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME, False) + LOGGER.Debug("DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME) If CURRENT_DOC_CREATION_TIME.Length > 11 Then CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME.Substring(10) @@ -1849,7 +1900,7 @@ Public Class frmValidator Dim Sort_Arr() As String Dim i As Integer = 0 'Jetzt im Vektorfeld des Profils nachsehen ob der WErt bereits vorhanden ist - Dim wertWD = aktivesDokument.GetVariableValue(PROFIL_VEKTORINDEX) + Dim wertWD = CURRENT_WMFILE.GetVariableValue(PROFIL_VEKTORINDEX) If wertWD Is Nothing = False Then 'Es wird gegen ein Vektorfeld nachindexiert If wertWD.GetType.ToString.Contains("System.Object") Then @@ -1891,520 +1942,521 @@ Public Class frmValidator Sub FillIndexValues(first As Boolean) Dim oControlType As String Dim oIndexName As String - Try - If DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.Rows.Count > 0 Then - Dim oCount As Integer = 0 - For Each oControl As Control In Me.pnldesigner.Controls - Dim oControlId = oControl.Tag - Dim oControlRow = (From form In DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.AsEnumerable() - Select form - Where form.Item("GUID") = oControlId).Single() + 'Try + If DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.Rows.Count > 0 Then + Dim oCount As Integer = 0 + For Each oControl As Control In Me.pnldesigner.Controls + Dim oControlId = oControl.Tag + Dim oControlRow = (From form In DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.AsEnumerable() + Select form + Where form.Item("GUID") = oControlId).Single() - Dim oType As String = oControl.GetType.ToString - Dim oTyp As String = oControlRow.Item("CTRL_TYPE") - Dim oWMIndexName As String = oControlRow.Item("INDEX_NAME") - ' Wenn kein defaultValue existiert, leeren String setzen - Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty) - oIndexName = oWMIndexName + Dim oType As String = oControl.GetType.ToString + Dim oTyp As String = oControlRow.Item("CTRL_TYPE") + Dim oWMIndexName As String = oControlRow.Item("INDEX_NAME") + ' Wenn kein defaultValue existiert, leeren String setzen + Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty) + oIndexName = oWMIndexName - Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE") - LOGGER.Debug(" >> INDEX: " & oWMIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString, False) + Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE") + LOGGER.Debug("INDEX: " & oWMIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString) - _CURRENT_INDEX_ARRAY(oCount, 0) = oWMIndexName - Select Case oType - Case "System.Windows.Forms.TextBox" - Try - oControlType = "Textbox" - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For + _CURRENT_INDEX_ARRAY(oCount, 0) = oWMIndexName + Select Case oType + Case "System.Windows.Forms.TextBox" + Try + oControlType = "Textbox" + If oWMIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oWMIndexName Is Nothing = False Then + If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then + ' Wenn kein Index exisitiert, defaultValue laden + oControl.Text = oDefaultValue + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Exit Select End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then - ' Wenn kein Index exisitiert, defaultValue laden - oControl.Text = oDefaultValue - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False) - Exit Select - End If - Dim wertWD + Dim wertWD - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - wertWD = ReturnVektor_IndexValue(oWMIndexName) + If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + wertWD = ReturnVektor_IndexValue(oWMIndexName) + Else + wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) + If wertWD Is Nothing Then + wertWD = "" Else - wertWD = aktivesDokument.GetVariableValue(oWMIndexName) - If wertWD Is Nothing Then - wertWD = "" - Else - If wertWD.ToString = "System.Object[]" Then - LOGGER.Debug(" >> TextBox with VektorField: " & oWMIndexName, False) - If wertWD.length = 1 Then - wertWD = wertWD(0) - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0) - Else ' - LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used", False) - wertWD = wertWD(0) - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0) - End If + If wertWD.ToString = "System.Object[]" Then + LOGGER.Debug("TextBox with VektorField: " & oWMIndexName) + If wertWD.length = 1 Then + wertWD = wertWD(0) + _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0) + Else ' + LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used") + wertWD = wertWD(0) + _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0) End If End If - End If - oControl.Text = NotNull(wertWD, oDefaultValue) - _CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(wertWD, oDefaultValue) - End If - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei FillIndexValues TextBox:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" - My.Settings.Save() - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValuesTextBox: " & ex.Message, True) - LOGGER.Info(">> Controltype: " & oControlType, False) - LOGGER.Info(">> Indexname windream: " & oIndexName, False) - Exit Sub - End Try - Case "System.Windows.Forms.ComboBox" - oControlType = "ComboBox" - Dim cmb As ComboBox = oControl - Try - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then - If oDefaultValue = String.Empty Then - cmb.SelectedIndex = -1 - Else - cmb.Text = oDefaultValue - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - End If - LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False) - Exit Select - End If - Dim wertWD - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - wertWD = ReturnVektor_IndexValue(oWMIndexName) - Else - wertWD = aktivesDokument.GetVariableValue(oWMIndexName) - End If + oControl.Text = NotNull(wertWD, oDefaultValue) + _CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(wertWD, oDefaultValue) - If wertWD Is Nothing Then - LOGGER.Debug($" >> Indexwert aus index {oWMIndexName}: Nothing", False) - If oDefaultValue = String.Empty Then - LOGGER.Debug($" >> Indexwert-defaultValue wurde nicht gefunden", False) - cmb.SelectedIndex = -1 - Else - LOGGER.Debug($" >> Indexwert-defaultValue wird geladen", False) - cmb.Text = oDefaultValue - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - 'cmb.SelectedIndex = cmb.FindStringExact(defaultValue) - End If - Else - LOGGER.Debug($" >> Indexwert aus index {oWMIndexName}: {wertWD}", False) - LOGGER.Debug($" >> Items in Combobox: {cmb.Items.Count}", False) + End If + Catch ex As Exception + LOGGER.Error(ex) + errormessage = "Unvorhergesehener Fehler bei FillIndexValues TextBox:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + My.Settings.Save() + frmError.ShowDialog() + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValuesTextBox: " & ex.Message, True) + LOGGER.Info(">> Controltype: " & oControlType) + LOGGER.Info(">> Indexname windream: " & oIndexName) + Exit Sub + End Try - - LOGGER.Debug($" >> Index Wert wurde gesetzt", False) - cmb.Text = wertWD - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD - 'If cmb.Items.Count = 0 Then - ' If LogErrorsOnly = False Then LOGGER.Info($" >> Index Wert wurde gesetzt", False) - ' cmb.Text = wertWD - 'Else - ' If LogErrorsOnly = False Then LOGGER.Info($" >> Index Wert wurde ausgewählt", False) - ' cmb.SelectedIndex = cmb.FindStringExact(wertWD) - 'End If - End If - End If - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & cmb.Name & "): " & ex.Message, True) - LOGGER.Info(">> Controltype: " & oControlType, False) - LOGGER.Info(">> Indexname windream: " & oIndexName, False) - errormessage = "Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & cmb.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" - My.Settings.Save() - frmError.ShowDialog() - - End Try - - Case "System.Windows.Forms.DataGridView" - oControlType = "DataGridView" - Dim dgv As DataGridView = oControl + Case "System.Windows.Forms.ComboBox" + oControlType = "ComboBox" + Dim cmb As ComboBox = oControl + Try If oWMIndexName = "" Then MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) Exit For End If If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Then - LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False) - Exit Select - End If - LOGGER.Debug($" >> getting wmValue for Index {oWMIndexName}...", False) - Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName) - - If wertWD Is Nothing = False Then - 'Es wird gegen ein Vektorfeld nachindexiert - If wertWD.GetType.ToString.Contains("System.Object") Then - Select Case oTyp - 'Tabellendarstellung - Case "TABLE" - - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) - Dim SpaltenWerte As String() - LOGGER.Debug($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False) - If dt.Rows.Count > 1 Then - For Each Zeile As Object In wertWD - LOGGER.Debug($" >> vektorrow Value {Zeile.ToString}...", False) - SpaltenWerte = Split(Zeile, Delimiter) - Select Case dt.Rows.Count - Case 1 - dgv.Rows.Add(New String() {Zeile.ToString}) - Case 2 - If SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) - End If - Case 3 - If SpaltenWerte.Length = 3 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - ElseIf SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - End If - Case 4 - If SpaltenWerte.Length = 4 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - ElseIf SpaltenWerte.Length = 3 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - ElseIf SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - End If - - End Select - Next - End If - - Case Else - 'es handelt sich um ein einfaches Vektorfeld mit einem Wert - For Each obj As Object In wertWD - If obj Is Nothing = False Then - dgv.Rows.Add(New String() {obj.ToString}) - - End If - - Next - End Select - - - End If - End If - End If - Case "DevExpress.XtraGrid.GridControl" - oControlType = "DataGridView" - Dim dgv As GridControl = oControl - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Then - LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False) - Exit Select - End If - LOGGER.Debug($" >> getting wmValue for Index {oWMIndexName}...", False) - Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName) - - If wertWD Is Nothing = False Then - 'Es wird gegen ein Vektorfeld nachindexiert - If wertWD.GetType.ToString.Contains("System.Object") Then - Select Case oTyp - 'Tabellendarstellung - Case "TABLE" - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) - - Dim SpaltenWerte As String() - LOGGER.Debug($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False) - If dt.Rows.Count > 1 Then - Dim oDataSource As DataTable = dgv.DataSource - oDataSource.Rows.Clear() - - For Each Zeile As Object In wertWD - LOGGER.Debug($" >> vektorrow Value {Zeile.ToString}...", False) - SpaltenWerte = Split(Zeile, Delimiter) - - - - Select Case dt.Rows.Count - Case 1 - oDataSource.Rows.Add(New String() {Zeile.ToString}) - 'dgv.Rows.Add(New String() {Zeile.ToString}) - Case 2 - If SpaltenWerte.Length = 2 Then - oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - Else - oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) - End If - Case 3 - If SpaltenWerte.Length = 3 Then - oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - ElseIf SpaltenWerte.Length = 2 Then - oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - Else - oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - End If - Case 4 - If SpaltenWerte.Length = 4 Then - oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - ElseIf SpaltenWerte.Length = 3 Then - oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - ElseIf SpaltenWerte.Length = 2 Then - oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - Else - oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - End If - - End Select - Next - End If - - Case Else - 'es handelt sich um ein einfaches Vektorfeld mit einem Wert - Dim oDataSource As DataTable = dgv.DataSource - For Each obj As Object In wertWD - If obj Is Nothing = False Then - oDataSource.Rows.Add(New String() {obj.ToString}) - 'dgv.Rows.Add(New String() {obj.ToString}) - - End If - - Next - End Select - - - End If - - Else - If first = False Then - Dim oDataSource As DataTable = dgv.DataSource - - If oDataSource.Rows.Count > 0 Then - oDataSource.Rows.Clear() - End If - - End If - End If - End If - Case "System.Windows.Forms.CheckBox" - LOGGER.Debug(" >> Loading checkbox.", False) - oControlType = "CheckBox" - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - - Dim chk As CheckBox = oControl - If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then - LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False) - - If oDefaultValue <> String.Empty Then - Dim result = False - _CURRENT_INDEX_ARRAY(oCount, 1) = "False" - If Boolean.TryParse(oDefaultValue, result) Then - chk.Checked = result - - End If + If oDefaultValue = String.Empty Then + cmb.SelectedIndex = -1 + Else + cmb.Text = oDefaultValue + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue End If - + LOGGER.Debug("Indexwert soll nicht geladen werden.") Exit Select End If - - - LOGGER.Debug(" >> Loading Index value from Windream.", False) Dim wertWD If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then wertWD = ReturnVektor_IndexValue(oWMIndexName) Else - wertWD = aktivesDokument.GetVariableValue(oWMIndexName) + wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) End If - If wertWD Is Nothing Then - LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue", False) - chk.Checked = False - Else - LOGGER.Debug(" >> Index value loaded: " & wertWD.ToString, False) - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString - If wertWD.ToString = "" Then - LOGGER.Info(">> Versuch, default Value zu laden", False) - If oDefaultValue <> String.Empty Then - Dim result = False - If Boolean.TryParse(oDefaultValue, result) Then - LOGGER.Info(">> defaultValue wurde geladen", False) - chk.Checked = result - Else - chk.Checked = False - End If - Else - LOGGER.Info(">> defaultValue war leer", False) - chk.Checked = False - End If + LOGGER.Debug($"Indexwert aus index {oWMIndexName}: Nothing") + If oDefaultValue = String.Empty Then + LOGGER.Debug($"Indexwert-defaultValue wurde nicht gefunden") + cmb.SelectedIndex = -1 Else - Dim _value - If wertWD.ToString = "System.Object[]" Then - LOGGER.Debug(" >> CheckBoxValue with VektorField: " & oWMIndexName, False) - If wertWD.length = 1 Then - _value = wertWD(0) - Else ' - LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used", False) - _value = wertWD(0) + LOGGER.Debug($"Indexwert-defaultValue wird geladen") + cmb.Text = oDefaultValue + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue + 'cmb.SelectedIndex = cmb.FindStringExact(defaultValue) + End If + Else + LOGGER.Debug($"Indexwert aus index {oWMIndexName}: {wertWD}") + LOGGER.Debug($"Items in Combobox: {cmb.Items.Count}") + + + LOGGER.Debug($"Index Wert wurde gesetzt") + cmb.Text = wertWD + _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD + 'If cmb.Items.Count = 0 Then + ' If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde gesetzt") + ' cmb.Text = wertWD + 'Else + ' If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde ausgewählt") + ' cmb.SelectedIndex = cmb.FindStringExact(wertWD) + 'End If + End If + End If + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & cmb.Name & "): " & ex.Message, True) + LOGGER.Info(">> Controltype: " & oControlType) + LOGGER.Info(">> Indexname windream: " & oIndexName) + errormessage = "Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & cmb.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + My.Settings.Save() + frmError.ShowDialog() + + End Try + + Case "System.Windows.Forms.DataGridView" + oControlType = "DataGridView" + Dim dgv As DataGridView = oControl + If oWMIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oWMIndexName Is Nothing = False Then + If oLoadIndex = False Then + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Exit Select + End If + LOGGER.Debug($"getting wmValue for Index {oWMIndexName}...") + Dim wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) + + If wertWD Is Nothing = False Then + 'Es wird gegen ein Vektorfeld nachindexiert + If wertWD.GetType.ToString.Contains("System.Object") Then + Select Case oTyp + 'Tabellendarstellung + Case "TABLE" + + Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) + Dim SpaltenWerte As String() + LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") + If dt.Rows.Count > 1 Then + For Each Zeile As Object In wertWD + LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") + SpaltenWerte = Split(Zeile, Delimiter) + Select Case dt.Rows.Count + Case 1 + dgv.Rows.Add(New String() {Zeile.ToString}) + Case 2 + If SpaltenWerte.Length = 2 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + Else + dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) + End If + Case 3 + If SpaltenWerte.Length = 3 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + ElseIf SpaltenWerte.Length = 2 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) + Else + dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) + End If + Case 4 + If SpaltenWerte.Length = 4 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + ElseIf SpaltenWerte.Length = 3 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) + ElseIf SpaltenWerte.Length = 2 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) + Else + dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) + End If + + End Select + Next End If - Else - _value = wertWD - End If - Try - Select Case CBool(_value) - Case True - LOGGER.Info(">> CBool(_value) = True", False) - chk.Checked = True - Case Else - LOGGER.Info(">> CBool(_value) = False", False) - chk.Checked = False - End Select - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(">> Unvorhergesehener Fehler bei CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString, True) - chk.Checked = False - End Try + + Case Else + 'es handelt sich um ein einfaches Vektorfeld mit einem Wert + For Each obj As Object In wertWD + If obj Is Nothing = False Then + dgv.Rows.Add(New String() {obj.ToString}) + + End If + + Next + End Select + + + End If + End If + End If + Case "DevExpress.XtraGrid.GridControl" + oControlType = "DataGridView" + Dim dgv As GridControl = oControl + If oWMIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oWMIndexName Is Nothing = False Then + If oLoadIndex = False Then + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Exit Select + End If + LOGGER.Debug($"getting wmValue for Index {oWMIndexName}...") + Dim wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) + + If wertWD Is Nothing = False Then + 'Es wird gegen ein Vektorfeld nachindexiert + If wertWD.GetType.ToString.Contains("System.Object") Then + Select Case oTyp + 'Tabellendarstellung + Case "TABLE" + Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) + + Dim SpaltenWerte As String() + LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") + If dt.Rows.Count > 1 Then + Dim oDataSource As DataTable = dgv.DataSource + oDataSource.Rows.Clear() + + For Each Zeile As Object In wertWD + LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") + SpaltenWerte = Split(Zeile, Delimiter) + + + + Select Case dt.Rows.Count + Case 1 + oDataSource.Rows.Add(New String() {Zeile.ToString}) + 'dgv.Rows.Add(New String() {Zeile.ToString}) + Case 2 + If SpaltenWerte.Length = 2 Then + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + Else + oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) + End If + Case 3 + If SpaltenWerte.Length = 3 Then + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + ElseIf SpaltenWerte.Length = 2 Then + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) + Else + oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) + End If + Case 4 + If SpaltenWerte.Length = 4 Then + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + ElseIf SpaltenWerte.Length = 3 Then + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) + ElseIf SpaltenWerte.Length = 2 Then + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) + Else + oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) + 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) + End If + + End Select + Next + End If + + Case Else + 'es handelt sich um ein einfaches Vektorfeld mit einem Wert + Dim oDataSource As DataTable = dgv.DataSource + For Each obj As Object In wertWD + If obj Is Nothing = False Then + oDataSource.Rows.Add(New String() {obj.ToString}) + 'dgv.Rows.Add(New String() {obj.ToString}) + + End If + + Next + End Select + + + End If + + Else + If first = False Then + Dim oDataSource As DataTable = dgv.DataSource + + If oDataSource.Rows.Count > 0 Then + oDataSource.Rows.Clear() + End If + + End If + End If + End If + Case "System.Windows.Forms.CheckBox" + LOGGER.Debug("Loading checkbox.") + oControlType = "CheckBox" + If oWMIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oWMIndexName Is Nothing = False Then + + Dim chk As CheckBox = oControl + + If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then + LOGGER.Debug("Indexwert soll nicht geladen werden.") + + If oDefaultValue <> String.Empty Then + Dim result = False + _CURRENT_INDEX_ARRAY(oCount, 1) = "False" + If Boolean.TryParse(oDefaultValue, result) Then + chk.Checked = result + End If End If + Exit Select End If - Case "DigitalData.Controls.LookupGrid.LookupControl2" + + + LOGGER.Debug("Loading Index value from Windream.") + Dim wertWD + If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + wertWD = ReturnVektor_IndexValue(oWMIndexName) + Else + wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) + End If + + + If wertWD Is Nothing Then + LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue") + chk.Checked = False + Else + LOGGER.Debug("Index value loaded: " & wertWD.ToString) + _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString + If wertWD.ToString = "" Then + LOGGER.Info(">> Versuch, default Value zu laden") + If oDefaultValue <> String.Empty Then + Dim result = False + If Boolean.TryParse(oDefaultValue, result) Then + LOGGER.Info(">> defaultValue wurde geladen") + chk.Checked = result + Else + chk.Checked = False + End If + Else + LOGGER.Info(">> defaultValue war leer") + chk.Checked = False + End If + Else + Dim _value + If wertWD.ToString = "System.Object[]" Then + LOGGER.Debug("CheckBoxValue with VektorField: " & oWMIndexName) + If wertWD.length = 1 Then + _value = wertWD(0) + Else ' + LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used") + _value = wertWD(0) + End If + Else + _value = wertWD + End If + Try + Select Case CBool(_value) + Case True + LOGGER.Info(">> CBool(_value) = True") + chk.Checked = True + Case Else + LOGGER.Info(">> CBool(_value) = False") + chk.Checked = False + End Select + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info(">> Unvorhergesehener Fehler bei CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString, True) + chk.Checked = False + End Try + End If + End If + + End If + Case "DigitalData.Controls.LookupGrid.LookupControl2" + Try + Dim oLookup As LookupControl2 = oControl + Dim oWindreamValue = CURRENT_WMFILE.GetVariableValue(oWMIndexName) + + If IsNothing(oWindreamValue) Then + oLookup.SelectedValues = New List(Of String) + _CURRENT_INDEX_ARRAY(oCount, 1) = String.Empty + ElseIf oWindreamValue.GetType.ToString.Contains("System.Object") Then + Dim oArrlist As New List(Of String) + For Each oVectorRow As Object In oWindreamValue + + oArrlist.Add(oVectorRow.ToString) + Next + oLookup.SelectedValues = oArrlist + _CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString + End If + + If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then + Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() + + oLookup.SelectedValues = oValues + End If + + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl2:") + End Try + + Case "System.Windows.Forms.DateTimePicker" + oControlType = "DateTimePicker" + Dim DTP As DateTimePicker = oControl + If oWMIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oWMIndexName Is Nothing = False Then + Dim wertWD Try - Dim oLookup As LookupControl2 = oControl - Dim oWindreamValue = aktivesDokument.GetVariableValue(oWMIndexName) - - If IsNothing(oWindreamValue) Then - oLookup.SelectedValues = New List(Of String) - _CURRENT_INDEX_ARRAY(oCount, 1) = String.Empty - ElseIf oWindreamValue.GetType.ToString.Contains("System.Object") Then - Dim oArrlist As New List(Of String) - For Each oVectorRow As Object In oWindreamValue - - oArrlist.Add(oVectorRow.ToString) - Next - oLookup.SelectedValues = oArrlist - _CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString + If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + LOGGER.Debug("DATE über PM-Vektor holen") + wertWD = ReturnVektor_IndexValue(oWMIndexName) + LOGGER.Info(">> DTP is """) + Else + wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) End If - If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then - Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() - - oLookup.SelectedValues = oValues + If wertWD Is Nothing Then wertWD = "" + Dim tempdate As Date = CDate("01.01.0001 00:00:00") + If wertWD.ToString.Length > 0 Then + Try + tempdate = CDate(wertWD) + LOGGER.Debug("DATE konnte umgewandelt werden") + Catch ex As Exception + LOGGER.Error(ex) + ValueDTP = tempdate + LOGGER.Debug("DATE wurde auf heute gesetzt") + End Try + DTP.Text = tempdate + Else + LOGGER.Debug("DATE ist leer") + ValueDTP = tempdate + DTP.Text = tempdate End If + _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString + Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl2:") + errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message + + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString & vbNewLine & "Indexname: " & oWMIndexName, True) + frmError.ShowDialog() + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message, True) End Try - Case "System.Windows.Forms.DateTimePicker" - oControlType = "DateTimePicker" - Dim DTP As DateTimePicker = oControl - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - Dim wertWD - Try - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - LOGGER.Debug(" >> DATE über PM-Vektor holen", False) - wertWD = ReturnVektor_IndexValue(oWMIndexName) - LOGGER.Info(">> DTP is """, False) - Else - wertWD = aktivesDokument.GetVariableValue(oWMIndexName) - End If - - If wertWD Is Nothing Then wertWD = "" - Dim tempdate As Date = CDate("01.01.0001 00:00:00") - If wertWD.ToString.Length > 0 Then - Try - tempdate = CDate(wertWD) - LOGGER.Debug(" >> DATE konnte umgewandelt werden", False) - Catch ex As Exception - LOGGER.Error(ex) - ValueDTP = tempdate - LOGGER.Debug(" >> DATE wurde auf heute gesetzt", False) - End Try - DTP.Text = tempdate - Else - LOGGER.Debug(" >> DATE ist leer", False) - ValueDTP = tempdate - DTP.Text = tempdate - End If - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString - - - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message - - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString & vbNewLine & "Indexname: " & oWMIndexName, True) - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message, True) - End Try + End If + 'Case Else + ' MsgBox(Type) + End Select + oCount += 1 + Next + set_foreground() + If first_control Is Nothing = False Then first_control.Focus() + 'Flag setzen das Indexe geladen sind + _Indexe_Loaded = True + Load_Additional_Searches() + Else + MsgBox("Für dieses Profil wurde noch keine Eingabemaske definiert!" & vbNewLine & "Informieren Sie Ihren PM-Administrator!" & vbNewLine & "Das Fenster wird geschlossen!", MsgBoxStyle.Exclamation, "Achtung:") + Me.Close() + End If - End If - 'Case Else - ' MsgBox(Type) - End Select - oCount += 1 - Next - set_foreground() - If first_control Is Nothing = False Then first_control.Focus() - 'Flag setzen das Indexe geladen sind - _Indexe_Loaded = True - Else - MsgBox("Für dieses Profil wurde noch keine Eingabemaske definiert!" & vbNewLine & "Informieren Sie Ihren PM-Administrator!" & vbNewLine & "Das Fenster wird geschlossen!", MsgBoxStyle.Exclamation, "Achtung:") - Me.Close() - End If - - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" - My.Settings.Save() - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True) - LOGGER.Info(">> Controltype: " & oControlType, False) - LOGGER.Info(">> Indexname windream: " & oIndexName, False) - LOGGER.Info(">> Stacktrace: " & ex.StackTrace, False) + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + ' My.Settings.Save() + ' frmError.ShowDialog() + ' LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True) + ' LOGGER.Info(">> Controltype: " & oControlType) + ' LOGGER.Info(">> Indexname windream: " & oIndexName) + ' LOGGER.Info(">> Stacktrace: " & ex.StackTrace) - End Try + 'End Try End Sub @@ -2419,7 +2471,7 @@ Public Class frmValidator End Sub Sub CloseWDDocview() Try - Dim oFileName = New FileInfo(aktivesDokument.aPath) + Dim oFileName = New FileInfo(CURRENT_WMFILE.aPath) Dim oProcesses As Process() = Process.GetProcesses() Dim oViewerNames As New List(Of String) From { "WMPViewX", @@ -2439,7 +2491,7 @@ Public Class frmValidator 'Try ' If VIEWER_ALL = "docview" Then - ' DocView.CloseView(aktivesDokument.aPath, 0) + ' DocView.CloseView(CURRENT_WMFILE.aPath, 0) ' End If 'Catch ex As Exception ' LOGGER.Error(ex) @@ -2449,7 +2501,7 @@ Public Class frmValidator End Sub Sub Abschluss() btnSave.Enabled = False - LOGGER.Debug(" >> Abschluss für Dok: " & aktivesDokument.aName & " gestartet", False) + LOGGER.Debug("Abschluss für Dok: " & CURRENT_WMFILE.aName & " gestartet") 'Eingaben auf Form überprüfen If Check_UpdateIndexe() = False Then 'lblerror.Visible = False @@ -2460,23 +2512,23 @@ Public Class frmValidator Dim dtfinal As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING If dtfinal.Rows.Count > 0 Then 'Jetzt finale Indexe setzen - LOGGER.Debug(" >> Finale(r) Index(e) für Dok: " & aktivesDokument.aName & " soll gesetzt werden", False) + LOGGER.Debug("Finale(r) Index(e) für Dok: " & CURRENT_WMFILE.aName & " soll gesetzt werden") For Each dr As DataRow In dtfinal.Rows Dim oValue As String = dr.Item("VALUE").ToString Dim oIndexType = WINDREAM.GetTypeOfIndex(dr.Item("INDEXNAME")) If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### - LOGGER.Debug(" >> Indexierung mit dynamischem SQL!", False) + LOGGER.Debug("Indexierung mit dynamischem SQL!") Dim oSQLCommand = dr.Item("SQL_COMMAND") - LOGGER.Debug(" >> SQL_COMMAND before ReplaceAllValues: " & oSQLCommand, False) - oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) - LOGGER.Debug(" >> SQL_COMMAND after ReplaceAllValues: " & oSQLCommand, False) + LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand) + oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) + LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand) Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) If Not IsNothing(dynamic_value) Then - LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString, False) + LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString) oValue = dynamic_value Else LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") @@ -2498,13 +2550,13 @@ Public Class frmValidator ReDim Preserve oResult(0) oResult(0) = oValue - LOGGER.Debug($" >> oIndexType {oIndexType.ToString}", False) + LOGGER.Debug($"oIndexType {oIndexType.ToString}") If oIndexType > 4000 And oIndexType < 5000 Then 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) 'Hier muss nun separat als Vektorfeld indexiert werden If Indexiere_VektorfeldPM(oValue, dr.Item("INDEXNAME"), dr.Item("PREVENT_DUPLICATES"), dr.Item("ALLOW_NEW_VALUES")) = False Then - LOGGER.Debug(" >> FINALER INDEX '" & dr.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT", False) + LOGGER.Debug("FINALER INDEX '" & dr.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT") Else errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message My.Settings.Save() @@ -2512,9 +2564,9 @@ Public Class frmValidator oHasError = True End If Else - LOGGER.Debug(" >> Jetzt das indexieren", False) - If Indexiere_File(aktivesDokument, dr.Item("INDEXNAME"), oResult) = True Then - LOGGER.Debug(" >> FINALER INDEX '" & dr.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT", False) + LOGGER.Debug("Jetzt das indexieren") + If Indexiere_File(CURRENT_WMFILE, dr.Item("INDEXNAME"), oResult) = True Then + LOGGER.Debug("FINALER INDEX '" & dr.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") 'Nun das Logging If PROFIL_LOGINDEX <> "" Then @@ -2536,7 +2588,7 @@ Public Class frmValidator ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde If oHasError = False Then - LOGGER.Debug(" >> Tabelle updaten und co", False) + LOGGER.Debug("Tabelle updaten und co") 'Das Dokument freigeben und als editiert markieren Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID) ClassDatabase.Execute_non_Query(sql) @@ -2567,7 +2619,7 @@ Public Class frmValidator ' 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 @@ -2638,7 +2690,7 @@ Public Class frmValidator ClassDatabase.Execute_non_Query(ins) Close_document_viewer() - If Windream_Document_Path.ToLower.EndsWith(".pdf") Then + If myWMDocumentPath.ToLower.EndsWith(".pdf") Then If Not IsNothing(WORK_HISTORY_ENTRY) Then If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID) @@ -2669,7 +2721,7 @@ Public Class frmValidator 'wenn Move2Folder aktiviert wurde If Move2Folder <> "" Then - idxerr_message = allgFunk.Move2Folder(Windream_Document_Path, Move2Folder, CURRENT_ProfilGUID, _windream) + idxerr_message = allgFunk.Move2Folder(myWMDocumentPath, Move2Folder, CURRENT_ProfilGUID, _windream) If idxerr_message <> "" Then errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message My.Settings.Save() @@ -2678,14 +2730,14 @@ Public Class frmValidator End If End If 'Validierungsfile löschen wenn vorhanden - allgFunk.Delete_xffres(Windream_Document_Path, _windream) - LOGGER.Debug(" >> Delete_xffres ausgeführt", False) - LOGGER.Debug(" >> All Input clear", False) + allgFunk.Delete_xffres(myWMDocumentPath, _windream) + LOGGER.Debug("Delete_xffres ausgeführt") + LOGGER.Debug("All Input clear") Anzahl_validierte_Dok += 1 'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID) - LOGGER.Debug(" >> Anzahl hochgesetzt", False) - LOGGER.Debug(" >> Validierung erfolgreich abgeschlossen", False) - LOGGER.Info("", False) + LOGGER.Debug("Anzahl hochgesetzt") + LOGGER.Debug("Validierung erfolgreich abgeschlossen") + LOGGER.Info("") If CURRENT_JUMP_DOC_GUID <> 0 Then Me.Close() Else @@ -2753,7 +2805,7 @@ Public Class frmValidator End Function Private Function Indexiere_VektorfeldPM(input As String, NameVKTIndex As String, Optional PreventDuplicates As Boolean = False, Optional AllowAddNewValues As Boolean = True) - Dim oOldValue As Object = aktivesDokument.GetVariableValue(NameVKTIndex) + Dim oOldValue As Object = CURRENT_WMFILE.GetVariableValue(NameVKTIndex) Dim oValueList As New List(Of Object) Dim oNewValue As Object() Dim oMissing As Boolean = False @@ -2781,7 +2833,7 @@ Public Class frmValidator If oNewValue.Length > 0 Then 'Jetzt die Datei indexieren - If Indexiere_File(aktivesDokument, NameVKTIndex, oNewValue) = False Then + If Indexiere_File(CURRENT_WMFILE, NameVKTIndex, oNewValue) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message End If @@ -2816,9 +2868,9 @@ Public Class frmValidator 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then - LOGGER.Debug(" >> Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'", False) + LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") If oIndexName = "" Then - LOGGER.Info(" >> Indexname is unexpected empty.", False) + LOGGER.Info(" >> Indexname is unexpected empty.") Continue For End If Dim Type As String = oControl.GetType.ToString @@ -2853,14 +2905,14 @@ Public Class frmValidator Next 'Jetzt die Datei indexieren - If Indexiere_File(aktivesDokument, oIndexName, myVektorArr) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message Exit For End If Else Dim oValues As New List(Of Object) From {String.Empty} - If Indexiere_File(aktivesDokument, oIndexName, oValues.ToArray) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, oValues.ToArray) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message Exit For @@ -2878,13 +2930,13 @@ Public Class frmValidator If oIndexName.StartsWith("[%VKT") Then wertWD = ReturnVektor_IndexValue(oIndexName) Else - wertWD = aktivesDokument.GetVariableValue(oIndexName) + wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) If Not IsNothing(wertWD) Then If wertWD.ToString = "System.Object[]" Then If wertWD.Length = 1 Then wertWD = wertWD(0) Else ' - LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used", False) + LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") wertWD = wertWD(0) End If End If @@ -2907,7 +2959,7 @@ Public Class frmValidator Dim result() As String ReDim Preserve result(0) result(0) = input - If Indexiere_File(aktivesDokument, oIndexName, result) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message Exit For @@ -2957,13 +3009,13 @@ Public Class frmValidator If oIndexName.StartsWith("[%VKT") Then wertWD = ReturnVektor_IndexValue(oIndexName) Else - wertWD = aktivesDokument.GetVariableValue(oIndexName) + wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) If Not IsNothing(wertWD) Then If wertWD.ToString = "System.Object[]" Then If wertWD.Length = 1 Then wertWD = wertWD(0) Else ' - LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used", False) + LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") wertWD = wertWD(0) End If End If @@ -2986,7 +3038,7 @@ Public Class frmValidator Dim result() As String ReDim Preserve result(0) result(0) = input - If Indexiere_File(aktivesDokument, oIndexName, result) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message Exit For @@ -3027,7 +3079,7 @@ Public Class frmValidator If oIndexName.StartsWith("[%VKT") Then wertWD = ReturnVektor_IndexValue(oIndexName) Else - wertWD = aktivesDokument.GetVariableValue(oIndexName) + wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) End If 'wenn Wert in Windream <> der Eingabe darf indexiert werden @@ -3045,7 +3097,7 @@ Public Class frmValidator Dim result() As String ReDim Preserve result(0) result(0) = input - If Indexiere_File(aktivesDokument, oIndexName, result) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then cmb.DroppedDown = True oMissing = True oErrorMessage = "Fehler beim Indexieren Combobox - ERROR: " & idxerr_message @@ -3070,12 +3122,12 @@ Public Class frmValidator ElseIf dtp.Value.ToString <> "01.01.0001 00:00:00" Then input = CDate(dtp.Value) 'den aktuellen Wert in windream auslesen - ' Dim wertWD As String = aktivesDokument.GetVariableValue(_IDXName) + ' Dim wertWD As String = CURRENT_WMFILE.GetVariableValue(_IDXName) Dim wertWD As String If oIndexName.StartsWith("[%VKT") Then wertWD = ReturnVektor_IndexValue(oIndexName) Else - wertWD = aktivesDokument.GetVariableValue(oIndexName) + wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) End If If IsNothing(wertWD) Then wertWD = CDate("01.01.1900") @@ -3097,7 +3149,7 @@ Public Class frmValidator ReDim Preserve result(0) result(0) = CDate(input) 'MsgBox(_IDXName) - If Indexiere_File(aktivesDokument, oIndexName, result) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren DatePicker- ERROR: " & idxerr_message Exit For @@ -3110,11 +3162,11 @@ Public Class frmValidator End If End If Else - LOGGER.Debug(" >> Value WD ('" & wertWD.ToString & "') = Input-value ('" & input.ToString & "')", False) + LOGGER.Debug("Value WD ('" & wertWD.ToString & "') = Input-value ('" & input.ToString & "')") 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 = oControl @@ -3138,7 +3190,7 @@ Public Class frmValidator End If Else Dim _Value - Dim ValueWD = aktivesDokument.GetVariableValue(oIndexName) + Dim ValueWD = CURRENT_WMFILE.GetVariableValue(oIndexName) If IsNothing(ValueWD) Then Bool_WD = False Else @@ -3146,7 +3198,7 @@ Public Class frmValidator If ValueWD.Length = 1 Then _Value = ValueWD(0) Else ' - LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used", False) + LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") _Value = ValueWD(0) End If Else @@ -3159,7 +3211,7 @@ Public Class frmValidator - ' Dim Bool_WD = CBool(aktivesDokument.GetVariableValue(_IDXName)) + ' Dim Bool_WD = CBool(CURRENT_WMFILE.GetVariableValue(_IDXName)) 'wenn Wert in Windream <> der Eingabe darf indexiert werden If Bool_WD <> chk.Checked Then Dim result() As String @@ -3180,7 +3232,7 @@ Public Class frmValidator Exit For End If Else - If Indexiere_File(aktivesDokument, oIndexName, result) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren Checkbox - ERROR: " & idxerr_message Exit For @@ -3252,7 +3304,7 @@ Public Class frmValidator Next 'Jetzt die Datei indexieren - If Indexiere_File(aktivesDokument, oIndexName, myVektorArr) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message Exit For @@ -3313,7 +3365,7 @@ Public Class frmValidator Next 'Jetzt die Datei indexieren - If Indexiere_File(aktivesDokument, oIndexName, myVektorArr) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message Exit For @@ -3322,7 +3374,7 @@ Public Class frmValidator Dim oValue As New List(Of Object) From {String.Empty} 'Jetzt die Datei indexieren - If Indexiere_File(aktivesDokument, oIndexName, oValue.ToArray) = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then oMissing = True oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message Exit For @@ -3365,7 +3417,7 @@ Public Class frmValidator '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) @@ -3373,7 +3425,7 @@ Public Class frmValidator 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 @@ -3414,7 +3466,7 @@ Public Class frmValidator connectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;" ' connectionString = "%ORData Source=" & drConnection.Item("SERVER") & ";Persist Security Info=True;User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";Unicode=True" Case Else - LOGGER.Info(" - ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert", False) + LOGGER.Info(" - ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert") MsgBox("ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") End Select @@ -3465,7 +3517,7 @@ Public Class frmValidator Proc.EnableRaisingEvents = True Proc.StartInfo = psi Proc.Start() - LOGGER.Info(" - Datei wurde geöffnet!", False) + LOGGER.Info(" - Datei wurde geöffnet!") Catch ex As Exception LOGGER.Error(ex) MsgBox("Fehler bei Datei öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -3476,18 +3528,18 @@ Public Class frmValidator End Sub Sub Datei_ueberspringen() Try - LOGGER.Debug(" >> Dokument überspringen", False) + LOGGER.Debug("Dokument überspringen") Close_document_viewer() - LOGGER.Debug(" >> Doc Viewer geschlossen", False) + LOGGER.Debug("Doc Viewer geschlossen") 'Das Dokument freigeben TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID) - If TBPM_FILES_USER_NOT_INDEXEDTableAdapter.FileExists(Environment.UserName, CURRENT_ProfilGUID, Windream_Document_Path) = 0 Then - TBPM_FILES_USER_NOT_INDEXEDTableAdapter.cmdInsert(Environment.UserName, CURRENT_ProfilGUID, Windream_Document_Path) + If TBPM_FILES_USER_NOT_INDEXEDTableAdapter.FileExists(Environment.UserName, CURRENT_ProfilGUID, myWMDocumentPath) = 0 Then + TBPM_FILES_USER_NOT_INDEXEDTableAdapter.cmdInsert(Environment.UserName, CURRENT_ProfilGUID, myWMDocumentPath) End If - LOGGER.Debug(" >> Dokument freigegeben", False) - LOGGER.Info("", False) + LOGGER.Debug("Dokument freigegeben") + LOGGER.Info("") Load_Next_Document(False) Catch ex As Exception LOGGER.Error(ex) @@ -3519,16 +3571,16 @@ Public Class frmValidator End Sub Private Function Delete_File() Try - If aktivesDokument Is Nothing = False Then + If CURRENT_WMFILE Is Nothing = False Then Close_document_viewer() Me.PdfViewer1.DocumentFilePath = "" Try - If aktivesDokument.aLocked Then + If CURRENT_WMFILE.aLocked Then ' unlock the windream object - aktivesDokument.unlock() + CURRENT_WMFILE.unlock() End If - aktivesDokument.Delete() - LOGGER.Info(">> Manuelles Löschen: Datei " & aktivesDokument.aName & " erfolgreich gelöscht", False) + CURRENT_WMFILE.Delete() + LOGGER.Info(">> Manuelles Löschen: Datei " & CURRENT_WMFILE.aName & " erfolgreich gelöscht") Return True Catch ex As Exception LOGGER.Error(ex) @@ -3540,7 +3592,7 @@ Public Class frmValidator Catch ex As Exception LOGGER.Error(ex) LOGGER.Info(" Fehler bei Delete_File", True) - LOGGER.Info(">> Fehlermeldung: " & ex.Message, False) + LOGGER.Info(">> Fehlermeldung: " & ex.Message) Return False End Try End Function @@ -3548,6 +3600,15 @@ Public Class frmValidator Private Const SEE_MASK_NOCLOSEPROCESS = &H40 Private Const SEE_MASK_FLAG_NO_UI = &H400 Public Const SW_SHOW As Short = 5 + + Public Sub New() + MyBase.New + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + _frmValidatorSearch = frmValidatorSearch + End Sub + Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean End Function @@ -3570,7 +3631,7 @@ Public Class frmValidator End Structure Private Sub DateieigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateieigenschaftenToolStripMenuItem.Click - If Windream_Document_Path <> "" Then + If myWMDocumentPath <> "" Then Cursor = Cursors.WaitCursor Dim oShellExecuteInfo As New SHELLEXECUTEINFO oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo) @@ -3587,8 +3648,8 @@ Public Class frmValidator End Sub Private Sub frmValidation_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd - If Windream_Document_Path Is Nothing = False Then - Select Case Path.GetExtension(Windream_Document_Path).ToLower + If myWMDocumentPath Is Nothing = False Then + Select Case Path.GetExtension(myWMDocumentPath).ToLower Case ".pdf" Select Case VIEWER_PDF Case "internal" @@ -3662,7 +3723,7 @@ Public Class frmValidator Private Sub ToolStripButtonAnnotation_Click(sender As Object, e As EventArgs) Handles ToolStripButtonAnnotation.Click PdfViewer1.CloseDocument() - Close_PDF_Viewer(Windream_Document_Path) + Close_PDF_Viewer(myWMDocumentPath) Application.DoEvents() frmAnnotations.ShowDialog() @@ -3683,6 +3744,6 @@ Public Class frmValidator End Sub Private Sub RefreshAdditionalSearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RefreshAdditionalSearchToolStripMenuItem.Click - _ValidatorSearch.RefreshTab1() + Load_Additional_Searches() End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb index d592215..ce6089d 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmValidatorSearch Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + 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. - _ + 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 diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.resx b/app/DD_PM_WINDREAM/frmValidatorSearch.resx index 2b7c922..962e00c 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.resx +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.resx @@ -120,7 +120,1048 @@ 17, 17 + + + 148, 22 + + + Öffnen + + + 148, 22 + + + Eigenschaften + + + Magenta + + + 63, 22 + + + Datei + + + Magenta + + + 131, 22 + + + Aktualisiere Ansicht + + + 0, 0 + + + 1203, 25 + + + + 0 + + + ToolStrip1 + + + ToolStrip1 + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + + Fill + + + 0, 0 + + + Aqua + + + Lime + + + 635, 372 + + + 0 + + + GridControlDocSearch1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc1 + + + 0 + + + Fill + + + 0, 25 + + + Fill + + + 0, 0 + + + Fill + + + 0, 0 + + + LightBlue + + + Lime + + + 552, 375 + + + 1 + + + GridControlSearch1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch1 + + + 0 + + + 552, 375 + + + Search1 + + + XtraTabPageSearch1 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlSQL + + + 0 + + + 558, 403 + + + 4 + + + Fill + + + 0, 0 + + + LightBlue + + + Lime + + + 552, 375 + + + 2 + + + GridControlSearch2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch2 + + + 0 + + + 552, 375 + + + Search2 + + + XtraTabPageSearch2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlSQL + + + 1 + + + Fill + + + 0, 0 + + + LightBlue + + + Lime + + + 552, 375 + + + 2 + + + GridControlSearch3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch3 + + + 0 + + + 552, 375 + + + XtraTabPage1 + + + XtraTabPageSearch3 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlSQL + + + 2 + + + Fill + + + 0, 0 + + + LightBlue + + + Lime + + + 552, 375 + + + 2 + + + GridControlSearch4 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch4 + + + 0 + + + 552, 375 + + + XtraTabPage2 + + + XtraTabPageSearch4 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlSQL + + + 3 + + + Fill + + + 0, 0 + + + LightBlue + + + Lime + + + 552, 375 + + + 2 + + + GridControlSearch5 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch5 + + + 0 + + + 552, 375 + + + XtraTabPage3 + + + XtraTabPageSearch5 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlSQL + + + 4 + + + XtraTabControlSQL + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerSearches.Panel1 + + + 0 + - 124, 17 + 712, 17 + + 91, 17 + + + No action so far + + + 0, 403 + + + 558, 22 + + + 5 + + + StatusStrip1 + + + StatusStrip1 + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerSearches.Panel1 + + + 1 + + + SplitContainerSearches.Panel1 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerSearches + + + 0 + + + Fill + + + 0, 0 + + + 635, 372 + + + XtraTabPage1 + + + XtraTabPageDoc1 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 0 + + + 641, 400 + + + 4 + + + Fill + + + 0, 0 + + + Aqua + + + Lime + + + 635, 372 + + + 1 + + + GridControlDocSearch2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc2 + + + 0 + + + 635, 372 + + + XtraTabPage2 + + + XtraTabPageDoc2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 1 + + + Fill + + + 0, 0 + + + Aqua + + + Lime + + + 635, 372 + + + 1 + + + GridControlDocSearch3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc3 + + + 0 + + + 635, 372 + + + XtraTabPage1 + + + XtraTabPageDoc3 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 2 + + + Fill + + + 0, 0 + + + Aqua + + + Lime + + + 635, 372 + + + 1 + + + GridControlDocSearch4 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc4 + + + 0 + + + 635, 372 + + + XtraTabPage2 + + + XtraTabPageDoc4 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 3 + + + Fill + + + 0, 0 + + + Aqua + + + Lime + + + 635, 372 + + + 1 + + + GridControlDocSearch5 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc5 + + + 0 + + + 635, 372 + + + XtraTabPage3 + + + XtraTabPageDoc5 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 4 + + + XtraTabControlDocs + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerSearches.Panel2 + + + 0 + + + 433, 17 + + + Bottom + + + 61, 22 + + + tslblDocID + + + 91, 22 + + + No action so far + + + 0, 400 + + + 641, 25 + + + 3 + + + ToolStrip2 + + + ToolStrip2 + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerSearches.Panel2 + + + 1 + + + SplitContainerSearches.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerSearches + + + 1 + + + 1203, 425 + + + 3 + + + SplitContainerSearches + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + 241, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAZCAYAAABQDyyRAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 + JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACkUlE + QVRIS8XQXUhTYRwGcAkiqBuDhKAi6ia8kZp3QeS6iGjqnBtT0UqDNAtSJoKNokFuIUpG0kxKCVtWY5lE + IFmBmuG0D20jQ/Nrs0UzV2Yy9/307uSpA/317pwO/HjPeQ7v/33OSQDwX5GhlMhQSmQoJTKUEhmupMNq + XmtraRh71m6aNlaVHHp8xxC53WjALbMBTfV6NBgrYCjPj5lr9Xq1TX6J6abmCJHhajqtrW1L06a209oD + E/h6BryQW4fFDyUYf65BrU6FmpulML42si30HB4ZrsZyw5RaliN3wXcS7ddzucODLh2WJk5hYUgLX78C + oa6daGs9BvYH2BZ6Do8Mhc43T4Fn7RqDzVKP4MwFXKtWI15CuXc3/B9L8dORC9+LNMw+3YO5extRdyUL + 8hYZG0HP5ZGhUPxgy0vgyYCHO9zvuojyIgXcb/QoKczmSmTtk2PqkQz2pm3oa0jC5eOboCpOw/7GZDaC + nssjQ6F4gc7BH9zhHqeJO7zm6l22HsZkTxHyMnKA4e1I3ZWE9esSkbJjDU5olcivyoOsbjMbQc/lkaFQ + j/0dWwCv143qyqPwfJrint8O9nIlRu6nYEviBhQWHIG52RJ/xe1LLt56lvnzvBIyFOILIBr+bfmKxGKw + PeiArkAO5+gMZnzAwUxN/BU5ZyVkKNTd/2+BKDs8EI5hwR/Fl/kIZ9wrUoHeASdbgNaHfZyY4F5oxCNS + gR67gy3sWv4DEdYgEIri+2IYn7+FMekNweEOYNgtcgH+S4Osh/DLea8mo+IUsA+NsoVdy3/Az255c0HA + NQ+8nwUcjCgFKirPQaHIRIZS85dKi/QsNRTKbKQz8VWRqRKngNjIUEpkKCUylBIZSokMpYOEXxgRTAe1 + DBDPAAAAAElFTkSuQmCC + + + + 181, 22 + + + Eigenschaften Datei + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAAZRJREFUOE+VkO0vQmEY + xvsn/Cn8Az4x1gd8s7GxUeYbG4sNy5BqpZeZkkoyNQ2NNpppGH0wNrJ5X1MtpSWV3rs8p5a0jtNc2/Xc + 57l337+d52IBoPW03NA4KTViZE6HGYUJPKF2jG6uqlFy95ACbRxRJ/U9OKqpmyKwYf5KR9eQnLTKcxVL + TObyFlvbB0RgcyTkWu4XDqVhD3RWrO7CYHXOUzNtXDHY/VK09MnIlQZApwXtDhqae38gdC4cfwHEagv2 + T29KECFp/Q8gWNwoLJdMRA+Q662kVCuXz2N58wRq8zEzQKLZIqVSZBeJVAahyBcsR3eob+qh2vQA4ZKZ + lEol01mEowl4Ap8w213MgFnFOillpTNZRGIp+N6juH8NwWi7ZAbwpXpSisrkcojGU/CHYnj0hHH18Abd + 9jkzYEKkIYWElssjnkgjEI7jxfeB66cgzm68UJkczIBxgYqElkciWQzN7Y/g9jkIp8uLwws3lGv22gAq + NCptKjDqzVry2yqzA0rjAWR6W+0nUAO1/HuxaLC+AebHD8Ec7JqWAAAAAElFTkSuQmCC + + + + 181, 22 + + + Datei öffnen + + + 178, 6 + + + 181, 22 + + + Aktualisieren + + + 181, 22 + + + Layout zurücksetzen + + + 182, 120 + + + ContextMenuStripWMFile + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 540, 17 + + + 139, 6 + + + 142, 22 + + + Aktualisieren + + + 143, 32 + + + ContextMenuStripSQL + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 167 + + + 6, 13 + + + 1203, 450 + + + Tahoma, 8.25pt + + + + AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/ + AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAD/////////8Pd3d3d3d3fw9//3//f/9/D3//f/9/ + /38Pd3d3d3d3fw9//3//f/9/D3//f/9//38Pd3d3d3d3fw9//3//f/9/D3//f/9//38Pd3d3d3d3fw93 + d3d3d3d/D3d3d3d3d38P/////////wAAAAAAAAAA//8AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAA + AACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAA//8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA + AAAAAAAAAAEAAAABAAAAAAAAQkJCAPHv8AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwMDAwMDAwMAAwEBAQEBAQEB + AQEBAQEDAAMBAgICAQICAgECAgIBAwADAQICAgECAgIBAgICAQMAAwEBAQEBAQEBAQEBAQEDAAMBAgIC + AQICAgECAgIBAwADAQICAgECAgIBAgICAQMAAwEBAQEBAQEBAQEBAQEDAAMBAgICAQICAgECAgIBAwAD + AQICAgECAgIBAgICAQMAAwEBAQEBAQEBAQEBAQEDAAMBAQEBAQEBAQEBAQEBAwADAQEBAQEBAQEBAQEB + AQMAAwMDAwMDAwMDAwMDAwMDAAAAAAAAAAAAAAAAAAAAAP//AACAAAAAgAAAAIAAAACAAAAAgAAAAIAA + AACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAP//AAA= + + + + Zusätzliche Suchen + + + ToolStripDropDownButtonFile + + + System.Windows.Forms.ToolStripDropDownButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + DateiÖffnenToolStripMenuItem1 + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + EigenschaftenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButtonRefreshSearches + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridViewDocSearch1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewSearch1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewSearch2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewSearch3 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewSearch4 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewSearch5 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + tsslblSQL + + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridViewDocSearch2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch3 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch4 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch5 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + tslblDocID + + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + tslblState + + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + EigenschaftenDateiToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + DateiÖffnenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripMenuItem1 + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + LayoutZurücksetzenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripSeparator2 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripMenuItem4 + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + frmValidatorSearch + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.vb index a6def90..a7f7a59 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.vb @@ -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 + + 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 + Public lpVerb As String + Public lpFile As String + Public lpParameters As String + Public lpDirectory As String + Dim nShow As Integer + Dim hInstApp As IntPtr + Dim lpIDList As IntPtr + 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 \ No newline at end of file