From cff2ec012c67ce2fa6b6d345c32d6da34114ace8 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 8 May 2019 17:20:20 +0200 Subject: [PATCH] DocSearchModul --- .../DD_PM_WINDREAM/DesignTimeBuild/.dtbcache | Bin 218 -> 218 bytes app/DD_PM_WINDREAM/App.config | 3 + .../ClassAllgemeineFunktionen.vb | 28 +- app/DD_PM_WINDREAM/ClassControlCreator.vb | 2 +- app/DD_PM_WINDREAM/ClassDatabase.vb | 32 +- app/DD_PM_WINDREAM/ClassFinalizeDoc.vb | 22 +- app/DD_PM_WINDREAM/ClassInit.vb | 16 +- app/DD_PM_WINDREAM/ClassPMWindream.vb | 54 +- app/DD_PM_WINDREAM/ClassUser.vb | 2 +- app/DD_PM_WINDREAM/ClassWindream_allgemein.vb | 10 +- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 19 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 4 +- .../My Project/Resources.Designer.vb | 140 ++ app/DD_PM_WINDREAM/My Project/Resources.resx | 76 +- .../My Project/Settings.Designer.vb | 12 + .../My Project/Settings.settings | 3 + .../Resources/ID_FILE_PAGE_SETUP.png | Bin 0 -> 269 bytes .../Resources/OpenFileDialog_692.png | Bin 0 -> 360 bytes app/DD_PM_WINDREAM/Resources/Properties.png | Bin 0 -> 787 bytes app/DD_PM_WINDREAM/Resources/_blank.png | Bin 0 -> 446 bytes app/DD_PM_WINDREAM/Resources/doc.png | Bin 0 -> 20397 bytes .../Resources/doc_excel_csv.png | Bin 0 -> 601 bytes app/DD_PM_WINDREAM/Resources/doc_pdf.png | Bin 0 -> 500 bytes .../Resources/doc_text_image.png | Bin 0 -> 507 bytes app/DD_PM_WINDREAM/Resources/dwg.png | Bin 0 -> 735 bytes app/DD_PM_WINDREAM/Resources/dxf.png | Bin 0 -> 748 bytes app/DD_PM_WINDREAM/Resources/pdf.png | Bin 0 -> 710 bytes app/DD_PM_WINDREAM/Resources/ppt.png | Bin 0 -> 678 bytes app/DD_PM_WINDREAM/Resources/search_glyph.png | Bin 0 -> 660 bytes app/DD_PM_WINDREAM/Resources/txt.PNG | Bin 531 -> 576 bytes app/DD_PM_WINDREAM/Resources/xls.png | Bin 0 -> 714 bytes app/DD_PM_WINDREAM/clsWMDocGrid.vb | 232 +++ app/DD_PM_WINDREAM/frmMain.Designer.vb | 12 +- app/DD_PM_WINDREAM/frmMain.resx | 16 +- app/DD_PM_WINDREAM/frmMain.vb | 39 +- app/DD_PM_WINDREAM/frmMassValidator.vb | 92 +- app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb | 2 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 10 +- app/DD_PM_WINDREAM/frmValidator.resx | 55 +- app/DD_PM_WINDREAM/frmValidator.vb | 1855 +++++++++-------- .../frmValidatorSearch.Designer.vb | 703 ++++++- app/DD_PM_WINDREAM/frmValidatorSearch.resx | 1043 ++++++++- app/DD_PM_WINDREAM/frmValidatorSearch.vb | 657 +++++- 43 files changed, 3965 insertions(+), 1174 deletions(-) create mode 100644 app/DD_PM_WINDREAM/Resources/ID_FILE_PAGE_SETUP.png create mode 100644 app/DD_PM_WINDREAM/Resources/OpenFileDialog_692.png create mode 100644 app/DD_PM_WINDREAM/Resources/Properties.png create mode 100644 app/DD_PM_WINDREAM/Resources/_blank.png create mode 100644 app/DD_PM_WINDREAM/Resources/doc.png create mode 100644 app/DD_PM_WINDREAM/Resources/doc_excel_csv.png create mode 100644 app/DD_PM_WINDREAM/Resources/doc_pdf.png create mode 100644 app/DD_PM_WINDREAM/Resources/doc_text_image.png create mode 100644 app/DD_PM_WINDREAM/Resources/dwg.png create mode 100644 app/DD_PM_WINDREAM/Resources/dxf.png create mode 100644 app/DD_PM_WINDREAM/Resources/pdf.png create mode 100644 app/DD_PM_WINDREAM/Resources/ppt.png create mode 100644 app/DD_PM_WINDREAM/Resources/search_glyph.png create mode 100644 app/DD_PM_WINDREAM/Resources/xls.png create mode 100644 app/DD_PM_WINDREAM/clsWMDocGrid.vb diff --git a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache index 671ed4a1339e1ed6980c0b51ee8bfb3acd087d30..715c91bb439b5d68c69962a8f4a3c4d0343f04fc 100644 GIT binary patch delta 48 zcmcb`c#Cm@h-@4K1A{Ar6+;X|Fhep!215};Dnlki5|Aun@SUhB&+5+L$q+KpwG{vb C=nAp` delta 51 zcmcb`c#Cm@h-erC1A{Ar6+;Yz7egvT9uTH7cuh2vpBT|3P{2^ckk63Ca7Vr_5QG6f C`wfNw 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 0000000000000000000000000000000000000000..aab8a1be9366e8e483b5b95e0b248dd7a3292ca0 GIT binary patch literal 269 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5he4R}c>anMpx}N_ z7srr_xTTX1@*Y;;akchxf5CI+&|KY3&Q&i3d=8qJtZYoyivA^ZNYO)Ok}Aia=lRV2 z-%eY~iwkzXxawhYK%!Xc^d=rfhBFQ(52UwSty5e&CEe@g;Rb;wmcK7bP0l+XkKW-Vp- literal 0 HcmV?d00001 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 0000000000000000000000000000000000000000..8b34c6c3e5408ffd7ebb597f8e2606fadaabe19c GIT binary patch literal 360 zcmV-u0hj)XP)~;&oB55N5_Z%oPb*#LRgq)JW62r%|8jUG($S6=G`k~`w3p} z9d=ECF=iGxjssy^;G7}8ZDFIah=+k93C+zXY@J+Sxf9|`k1!2MNOr!vh9pU6C%Aqb zVt;c5AKe4!{wXf^)X1^@s6P!BAT00009a7bBm000XU z000XU0RWnu7ytkO1ZP1_K>z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ;iAh93RCwC#R$WMwVHAG$$I5+1#?|C1d^StMMB}9bzG%4oUVgTkHfP6N|ovlrAK}L9!m^i8E z>mRAkNKd-&@<1jK5D0MKd;vJVj?=Q_RdtWo^eh6PZQJ`Kccz+>+1`Q&t;XiuEE|rW z?8&5t(117Toal;A(H>ps&rB*VhEpWJP7f;nZ(ls=#Q=8iD007P> zhrs(G`dwI@z~b=kL8K^r7_fHzdkgBXS*IvUPvNm3J|5>U>_B7FYaBYb6vg^(+`g`b zz`DRQb_jkqJWdzJoNhRS?zs_R>iX5lNmD>-H=|%XgPQsm(C4S3`j{OZ_qL(zz!1J! zhw0mDN!+;}L%Gs|~~0d{UgxFpVl$>A1gGg#D~=|$3J11>cfQB%1bWfd-%E`LO3 zsSj_hJl3xCAbYDG3F-ulc!wevC!!hsY40Er5lu{drgJCu(-+$(A|e{-@1`S_1!TFi zk&+V^QiY+M8n51@@IFnI>a?axMUm?NH2@O$kpHxxC{kN{2OTx+q*w1oY1BcKS5y-5 zz&~9cnW5=1kqAKn$jjFwXICKrfC)rt5J{yWof_}<0RRleI^61fJ}oaZOBWpg;Xzei zlnnq72-vqr3zieXa)6&FFaZ&q5am%EW}viChZb|sv~^8}HaY;5O66}1uu`C;I7GLP z1H3H2aDWi4$Eda0h_iJsA(bnB6$Xd|5D_E*XiBZJSp$&7zGN`~|2=>o0{};rplmDS RF2w)<002ovPDHLkV1f~GO_2Zq literal 0 HcmV?d00001 diff --git a/app/DD_PM_WINDREAM/Resources/_blank.png b/app/DD_PM_WINDREAM/Resources/_blank.png new file mode 100644 index 0000000000000000000000000000000000000000..65e156ae3b18d42c4cfdc9deb369a56e691abe13 GIT binary patch literal 446 zcmV;v0YUzWP)+iyg~H;c|O%JB|Wy;B!0<=6p=9 z9|!xM)Fk3JC(8q|B3JP^BUos)U~i`vZbaRLmFn3dB{aaa#EPLE%)@Rk4p%x$Nk+6; z=Fxs=pe%Z$)JG3yd>`%x!y>j7Mf`D(!5<R9Eqo}hM3X*K_QU?p8JXflLoD=;PzbFu0P#8jJ> z2RWofkWoE>nFKo(Xz6K61xXWZm1qaQ(oBEdtieR>6|u7gWKF^iCQ8BPUton`_%?dK oxP2HkPQjD#{Q5B}@81Fp04=b<{907*qoM6N<$g8YWOg#Z8m literal 0 HcmV?d00001 diff --git a/app/DD_PM_WINDREAM/Resources/doc.png b/app/DD_PM_WINDREAM/Resources/doc.png new file mode 100644 index 0000000000000000000000000000000000000000..aff823471b26fe6a843addb305e4aa4ea75172b0 GIT binary patch literal 20397 zcmZU4Wmr^E*XTLJ5F;QsD3UV504fav(u0b0NH>Utw6ydAY(a(wK^P^KloXIs=~ARy z=~lYu9`t?h^L_WukC_vD@3r>owf354S{jPfrPHXrov z!#|9k3WlCKuC|^&cie3Nd23fI8;r8^9XlIsn>*INZml-b0HCRSeGs=HRt7`OO(y&wvdhM>Un!SKkVadmv@`J1;Y7Y=>%DX`{bHY+0n-Zla(O z^4?itXq93~O?py!8l=Egz_vB;-atH zxygVg6o0b900;tzI)3zs4}QLv1TR3Kt^xpzDjMhWm#RvCzab=mftUYZH(5fWLLq;j z<3$UqH)sC6G`joN@E`mZrcBcdC;$hq=6Lp$#9!2)4irRpIKnw;{O^{E0w+6g5sV@I zck4ufQ$?f{W=f+02;RnG>zw-%8ow3~C0qmn3INCuA;GV4fC^r${|1~Q#n^4dL8yPT zH-C}^{ksZB;dp+NNF_B#FXoQCkx7u2r41ggV1=#V=B}M zZkRiWZ&Z^U$~c&SC$~xBCFM9aUBtT5Up}C^fob;}s{egU$_T9d7ZE{KfVUI+ z6JL~Zr~lHR{%LZO4K*LQXL_(Ejji{wwERb#`fw`fTrG0?OC0nMRS55Di{7M;h58di zu3zIJ`^UpgYk(>iy1pTyfCZ@1ac2PB6=M;N`-O8EdNDd)b9JU>5=8IN!i{Rng?&tPMQe}Ja*gxFo+DcZy0tbSnBV23xX>!P z(WOrMx(cLW1c3!+vz;mG(%5>C-ci#W9)bqT)i0I?+g?HdN+j`RwN&?)4#roZS#-li zZ}REDY7%!xf2z`2Zy$0&sS|QTA4C9sUNn9u?!O{+l@Xf%OY-Tcza;mx2Hr+NhfmR3 zu(rYSNb$$E|IA@?EI|2BV$K*knt)F*;NDNp6TyaU1?>~yE6;y;3tdCjUq}399>xO} zwN-mOg!oJRdRj&(iW8^64OYsdE%R5{pZ=SC6Sx%*nPSm+R}G*%Uxjv4CSpF$M9q^SGtPFt#KMFFXMYZ^=){7?m6NRgxfdH!L zsxmGJiMkYi5v0`lC*qw80b!h&^YB_^%Fv^~I1ofhERDXa;)3wVX^tq!QJ|9L?_TlH zH*CGiV`PV>`d_)j>4()tB6Eaba)lzN_myy6nuxsboR}wnS4pCWQeY;XQN3L*?lI(A)Ym@Hhr)s(TUxnSO;K=^wJu(5!*Qd^vj}p)tt8PK?V)IWu9baJBn2!D(QOTSCsA6Zfv_z^B}~(qn&V zHFCNCg{N5DX!dYdMVFkrmtJAD`S-)&-K=pZ?U`xj9mTDtHRR5-&hs&A8~NJ?HMxBK z$7{xE-mjzuCIU3ZC5n$990fH$R$m=RW0k!29+|T!F1y26Abn!(n&u~-F4v+hML$pSe&6G2xBT9R`@X}x#uwS0>H7Vt)k)6x@vvLygDj|ckvK5L;ZB_?`d zTQm}AFNZ3UL4tpoMmTpIfd}@u^M zP6Qc?u|*XHV(Ty5M(|1*O0a_`hCMVi*hDK*8_{3ODvw}#LAtAg8+TQMkn4vOcM*>n zxF943o~neCLm37S-$zf@nwzCcW+1P=i?{^d`1f*_Jh<;wSpqHU{tw`f3J!k({EGk% z@i-cAbpBrFjcO??q@#U=92`drc2NC$D|l_cg4BltOYoSnm}m^8YC&R7@Bz?xQWQht zLB(I50w@gK35?0RZDNgp<*iXg1ep>P@lWbwp{?I(Mkqtk8wd?4^lzejA3Hq%yAp&9 zVnzwxM5Ov)Cl5@^{@~Lo089k>+Yyc9N}9_ zNNXFpb|G+&Id`u@|DgL7jjwsZUddKrcbyr;Q)w|~(^k!w^QNYxM!rTPs+(q>7byg|G zcUh!!f2b7^E|bp{V0`h=9Zt+ZG&DNg%@G5eMhJd}0Ugnn3YS3_pyI>e=D!TVgcePlnM{uda{uf^DM7DkQAPh@6on>&NmI-W;Uo;R@n&-+ zN%wZp{-^yFr|RzJzBL2yG`SB_!S`s~{ENsBM|Qp~gN1Wmyt3W5$Jgw=4om+K->DYf z-g{U1)q-b>a<1>!5C6cniB%o)a^lW~8Cl;MN4+~6r?HqfXj=U>E|^G=t$sq+-bCq> zD4=?xdj&*K9x-{>O)@JXLRkuTDox5+)eugwt_*a$l)ZZHnCZSrc%LfWqgQ@mW^$+c z0<1)ft@@QDB~g^H{R!f-Ow_N7Kw`=05h|?l%@y%GtUYV4`9X3O0pneZ2TbvE-F#~U zza>|3%}ar+-g6FuBrnr9M3=kLclg_p#qRTVE4hQa31Jg!!|kIRdl6}R=KGI|bK@S! zqT;*f-cB@QN*hC&auHtq^w#-&^w!iL4Do$FA23E3B~nA)oHEnjzh97+(IXs=oae0M zBO1f{^(mbA>3fe$-tu0UmWI{R+4=(p2@4BW6<7ShfaksUs;*s#0Oz zY|Zvt#<@y3#6oSV-Oc^f5E2;+&31*>o_pQZ zG?SoyCqRb)ss;8ZaG(M&SHDQXqJ+EJKqLfD4qO8DNRR+Z@CM?P66~#&a8{g{2Hi;3 zWwu?#IH1o0aYdkpu(*0v4_l8#72U$arXJ?2@7b)`lxC-JG(npiES}fAWtMa*gc?_HRxg=EKGOEnSGM;z@BU#Tx3im^y7N1T+DGVI`?l{`!T;rNF~6#t zZCG0zx9&LV_amddAmKj^waI-tip-RZW%@;bu1FQG4FvU@r;d5KTrSfOHlHwYn5p-0 z_+>M|$O+E!(p!t#5XuPJMUA2T@w-eXHD5xy&nbnz@UWI&B4ow)zNOd$()ywUesT@@%!Am>?rb??`Bv(+7=Oz-2;_W}Z5abBC~qQe(~ zO(+0O;HI0bcw(sK4JQ~U%x6--_56JCBzV>POolpQ)_jjCE-j@sK*r!@-5@VrA3Z)j z0a!rfyq0;h?vZ?5uDQ;CzxnP_pk4iXq-lA#OSJb0(W$Vr$SHEJtcEbQRZ;F-cvQXh zscLN3p-`r9&wtOT=8xa%jttG*96M-6EKe@9A91eB9dVo(Sj-O|V74%sXrBkhNO45|jlLzA9!zz$czDb$b;Ty6;N9M;|B*s=5y3=C?rTt+mHVP zdL)=-uhZ!`H|TGv;MQmYQ(g9m>PQ`=4W8{<{_2c^o{97iy(ju>ugGOyTv$kAHTD_I*&s`A%(rRffz= zIs@nle!sNRc$Gh)wPcFrzDcN=Z?!9(IOb2lV zBn3{=W{hoCMV;Cg{!l+oLiwk}Ka;N1aWDZ;fQa>qdq!;cOt=CxRI?1UXQw9pMWww z$Nb5pidvJn!XW3_f{hYQ>5d3S@F}H9MA?)AdkIkD;I&|Cg(djiLR#u%6{r~PX=VZ2 zNOKO(Nm9M>z2_a{@{9RySH@H?<*o)-$Rbu|hIhSOycId#-<0Ds)?UQw{0ow)uJ2lzgW{O!@E`^x zuqkH?NQgTt7y4K9bhaUTd0^{*=k^SDmWYnx(n4@re}#M!ROSL*zZ_G6A8t)Qp6QK2 z-5d9;5(Z~@EN)D(wE(!QXU8JE^S)Xm^fg#pHE>4KQ%c>Wk?Z2(bb=jDP_GSOzTN^* zMWHTPY&qD(aeurFB7ieCpe=o@;-;uR;tJz%K-RFNLARw-7LvE_cX~J(@#wfgj)08i zuY1Le#sIW7WR~(ql>soB%#FG_UI9GKr>Q8KW|eU(qnCXW>hnGfw*`b>0`+~h1pbUNg*d^^B4#u4;^IN=c{GPdx6s5m<;XD_MhL)*@^|51TX z@q<02T7~@CRT}zZ$H6>NXndIq;3JZ;EzF>eaQ9%=z4OD{YWz8}qpB!|$X#o#Bi8R-&NSQl<8x%oASmnUBW`(nLG@=|4nbZC`hp|~3hY*dCa z?w0p?>blq33NyB7V7*k?ss>*Pq~ZNg$Ju7 zm^Vg{!x*K(!txLvTn%1f7uEMM!s;M0m@P$T9L01`A7>b`d{M7~|^2+CPm z?zsqVJ8+hvC;NzSZ75^QHEwW^h87SEFB<|-QBbKTi4w7H?9B0xi(uc~1rxe@?~D?^ zWr7_=ndZxShBiuix;L}omL4c`{^ z?;|YE_;@CPh!$spQI}qyQI6w@M{|Jo^JF>Ys%kh?;$V<3yD;b?UjM<&@$)4S9D*N^yAXtjVMf9!rh|k8EuAcUK>0t@!d} zN4|Teex9>9k8{hS`hHi*q0@+aVSAJ2Ks&db=$fsA3Uj&W&gr6&=Ve<=X#C1n@p4Xe z|IUid`0?Rt)$bgV9sj<)3yy0;zMUT#p}uoA=TurIs95iNzi$#R#>vKEQ zV}MqmWxZZGtJYH^KUHF!d74BC=i;YvPRwbh2|)p1C*LkEkO`U~9C%unU?ICj^e5AB zMO|{O{ixF`=CrhE5_uib+k(bhzjr?j@;D?{0>X%}1-kkD!wpLWmf+5BGzR3(X&j`a z*CEf&if!9Ein&BQ_<(W5q6{StU)&77a3#Nn8jeucX9nDFfP8|KmTFFoA5FU{9sSHN zC%v^Dk!={t8v=W%wZ;=uh5$!Kpxa}aHBR6iakSS-^AEk4lS!J&NBy8Bfh;?3$l~ar z`!wxOBQtZ|y=My#Pt^#b3chVd96I+Vc$qA?|)Ltk8% za|CtfVv9^DaXruiQ0#7$0!oD)q%p7p5> zJ)oSg*3>}~Ui2(CZ6&|vw)G;{rGpWTYOsDUq4;S{q9D6h)$EA)8eJ54^J@U&kXHT0mnc5uERs3G9rNswWlMN1Yi&5QH9DSU!rr zqSnR01s)fgn21#{Df}34`;DWxo z5|IP}ydz{Y*WX78mN65CS&r7q?z~JxBF_O8spY1l)ggGBRHW{hyw_}r-{JkVM?nEt z!k)}RFih%mSF6ChuS(FnF@T5LVx1=T0@`wh^QeyVfy^`B2P^FN5|M+sdWwh+HcBnu zg}w2O(-`nkzSI~g1bBYAj=N}i8+p{uo#4YssCsbAmp^&B64K1I_7b4)J@CnQfj-H< zK=e80u2MlSNmk6Y>{bjS($3k6pZ0QYQv;%)#f9|M&vN=Yq|4il!Mq~$lmjaipMGZ_Cg;<$Uy&QvHFf$DnE8T#E)_w6bD#Vn`Sfl0 zJ=xha_o?HcIFV*u-!Ebw$jN0lqWhmHsONC@O=0ItArdlG$dg3(WnGR+vJb=PzCq2L zEDoV^-YhH6>Y4wkn~1vr=9SvB5o*DKbDv@>kh{~y(rF_1)NplaTa0v;J#TT|&U$)X zsT4&84f|`HyX_3no2APZ^Krn9W~A=RPnIrZlPy6+k2Mi4!pA9h7kXHT_Aj+s;vBUI zr;QL~H5P2BoK*3r7r&P*yA-kL~SC|HY|b9ZD*FU^-Yj@C*Ukq(j(9Y6}2A*{t9 z9|^^3#3%I6FbP0GZ=z8|0IPxA2V2z@Fh zI1u@xJs?3A1Fdr!M4wFRQBP;KlodLeg_~JcUW4X6KJB$Ka^Kf{$l-VrM?63ox+#t_ zvjd7Wo~iygSVuiCi<845e-t~q0O?y{E%mlNB14AP-*T|Ehh;aGRbX$JRueugut!3$ zy7YFX-QJqvxM{ODh4XUsQ$W%%AF`66b|F?jFPq|@rShxP;LI=Q%e6Fkvs-aK6(;&Y|)Nz zs%_!GZ;@G^D?ug-o+b>}>}tXYyKo=DA(!=2?K(YBJr;UeK@smp-a|SWoL7U^dNp!3 zNXB{iyNN8UvCX_-S>rD3M6+LRrnUp9dl|$tz*F*V1Vy@n>KQ6F!>rj}ZT^Y=;_cyY zw|t2OGJ+4weCnZ{T>e!38QLF9Bw^30H(ht`c(OS*TWz=yg9it!YOlUok12WY{nONL z&$Do-&{%b^aD|EX=QtRV#>ck*?p4rGu2p5K%|_1tBZbJaW0|g+l|;^??jsU73ny~-5vYctPy!N_%DR1McC(O>-ds(<%6z1+$pVnpEXG7cVo zc*}X(3)v`J#Qrk zyzhv89@&9De4A1}#za_CXE`k`C&g|e-Y&v%90~{5C{K~<^^Pv`6+{HXQNk7O^t984 z65d5iA4B21c8=#G2q1tVg(~n+NC&ZL2Wa@FRMjD4XT=uJmp$SOYi|ZnIRX|>1Jt4S zc>|LrHH8yGb6K`}Zd2Ya01U1iKG>2?V?ccyqt-G?cDY9y5B207yP=A!Ern2MjLie# zss^a|%2!ejuE~+{!FU~y#i6_GE(B!ULOcjRyrj{!9WgVjTyO7e z^PK_si@17P=~Wd?x^vlOoqA9-qt( z3ZEvdA|2K)hu=lUq;9bBf~47_Z$BMdi`73LX?9`e1LI;8d#4@rj2^u$FV2x{uxJ82 zS#H3teC2_}4wWFH3aF<76H`_qD&D6dcaKC~tpcoJpwvFGMr>?BCFH!Fc-7@SrKQ$0 zK$7>MB&|+030BZRl!gor(Z3%sE&X7{ED#Tu$z*@y$S~A~E(fG(YzaNRP6OkBtsP>t z2E5J^U|?dTz2(q2SM*5)8rlmh;q|)!$`!N!EwTHN8xOiDkVv3(8 zg$i};Z6=kzx!)T*#|e2fZXXW1feEU5r;&Qe4NhD?l7d9}NcB9}(u=Yi;0pWiL7u3aZeU6G>;W#V2l2hWto>k;s z5lzH@THv3OqQqTD`*Fn93#Vlur@HErxttr7p=Di`(xa7oHl9P?Xr{M*5tL2qwK^Jkz zn)alU&yre!j6E;LeA{3qVkDq#gcpvyx2huhK5Ynw;68_Fxck6A z;AAeYOeT&+3-MgUmI~`(aHI6Ft(OIr!}ppxpBZO+uD8Ef77j;CXRKrg;dxX}Mj8U) zw1ZP|&~2j$^J|I7MEtQuwQnpJ3!~9*!?kf~6osQ${jmNQl5$R$1b}f*^Mt?3Mk0J&0*A!}jT zD;BA?&4O^sM;m)Q2FT{`Fo=NBqzsaTQrAnp8|F293q2j7Nkgy7@}oMtV6kOoU6RhV z(|C|#LR7=~j@Sew!pSy+WD(UenILSwZgi35g@^BT{5eH;XDn>(XtsHG0Hchfc#$YFM0af4ww{Ao1X zL7h9%tY~#sVDPp9bNPP42YI+4Dw6`_@k?46>%Uzo>c!HEg;Wub&CcDQ8EhEexqtyPJJ0|5NeZ{`l=9*b zSW7K&DC5}CajAzq2C}-2BnS%SyJr^vL0b+yULrF*|9BFuHT)Frl9DYs+wj0J%!)Ex z0MOZRSm^ju?q4{;E;A-d*KH*aXAEt!%-fr*%-;f5WY-2R;<5(%mbu^qf{SUz_HqLc z&QrcmdGI~E{cTKN|E=pQ&4b6|t2?jf*c;>&_u(=k5Ux31nMD7b&P=EtcKn%|;<&BP zzo34%xo#EIspHQ#4?g*XiGXoB&AK(^k{`E%i!GKWr06h5M8FylhLD+(jRaQI!`$qI zG7qH`YCC8*6#^(?GNk_*rT+JrS>cFdO=pkeevfHdT$>nHzk}5 zmZ#jxQ!)sd(5{06l3z_LqjYe@fV+nfl=yMcEXxk@{z3^T8D#qojz6qE3j^0H%Wg~( z)F4Gl*)}ztO}!Hw*$o(b%~mXE4(x;=7bbMtF2hP?m^T~zgH@XXQYShEl$z#sb?Q}tRtXTME~bB`r?MWR`J*p2eP=P+p1!nR|?crer2$Xdaf1*^NbIUZj&WLZR)D-OC z%nsHN z#6NZ5;E6C9VX^ekhBd6KGq}nk7w&Pgci{gs5J!QV8Es9K4}9;+svsw*RRwaD7r2gc z@Q~_jvMx!g<*twv`jL^T{GOAAMF;RSFY+}yn={(o9Nvc16-d$Jd67->segY*S(8}U zI{ca5X68j|{(~4{uncBf71*CmZfy2sAq`eQ0$d=)iRl2e&h75?qYq-RxF+zU6!P?- zLeY_7jO6}=6lGBZ$30l9+ZA^TRYw-?rfyAfgDyVg2mtkvAJRGtpq`f6NQh>~cd;xb z{}RuX!odKtNcJx%+WFwVOVpK`>L@4z`lD5g<_q8QRsq!hc9(&e*eNtPKP*Mq5;q?M z(TA1f00Mt|km}N}^{yFRd#hV|@!j0l5q`$ifmpbv@TljepLORMs4-w1l_#3ciK_xK zcyP9)c}J22WJ|2#Du};1kAQA!ze+KuVG1k}F>CNS`hO zTCRw@&vBGykhzy1a2x__?#=n+l$KX_OX+D$e(ZLI4Hqik=Ek3XWCiy*`V&q~4WPThO+V zT+@D0A3j%(hD?36XR>YgfRm-pH$Ia!ndMSKJZGffYD}U&p1}*EF7XNO(nQmQ0nJUe z=ZY9Uxa)fePQI-}GRO*kYn#z?bLZL`xLsiAuFyQj`P~t+&Lbf?niz0|Wf_LPda{er zkLhymA4z-Oj^lDmG~x+-$0a{6Ja%wNwft2p_k# zX;~D*)#}=i{;Q}WX->j5IN<03&ES)ANi0D+U7tUNl@}!QCO^wZehV!~yk4;s?ZBZ@fxrGysEn>=&9u>TWYjx{7A};3voUtXXC52%)g>dNl*H~ju z#Cx+s8g5XCnu=Gm+h%+Ca%V?%@i%hHoia;S^RCW-e;HTwAywp zg?-ea)VI&2=m-HKps@EzSFoTSz;$c%wty83xBW_jfUPMYcDaz+?^hhqu7g;Q`EgRC z0|dXJ~xr`xB0P+kZbl15$X z6gq+r6@aPBk=11d@UG51Ptqh-BpMDb(k0%A1?nVGmq6dvD{*bQ^e}C*bnYJvG^b3y zy^XkcR51oU=Zsq$q*4w;?)GcKvg3+9qPbjSppCrS^bA^|etL~^vUHfAHaaHXM zuV$xPXX!xSC|8;1^7UkWFUp918J*VWNEqN@L z?MDrSEeO{DHgnz!*^!q9vsrrM>}^T5NMWZCokse5(LYj*PRo+J5_h!;+;x6?^%htC zdfTa8I|Rc?#D`-tj$>8rY~lbniR5`aMx5W(Ynox>zJC(Wz#;my#q{1Sahxd{(=buI zn?sr@UGk=6Le>g}-;{%E0{D1Bj}OU(8uVmZ2+&>St~g=xK?y27Y~OG?qJ&p>U|@N; zr3@?(f3_rWjb^4y;eq|*i>mPP!016u@fbP71>JSu$RWTSO}n}b7`?n^_h_@q2wncp zs4QUnp)uQ^3BAX6I!@1g zP=0zvLL6hDAI}~I486dK#r)i7xIJhqo|8%UL?*QC0$fMz&@sSYhMkMrZC;v~XtqKr z0Fiq5;o;*4<{LV0;Q}!h|NCVySV;VQR49kE5@Jpw*(myxCKcmzAXl3 zS}&4XK0w{eJL>il@-|cNeBVeH)X4S{IsH6yR{v}7c^LA$^U$xBHpA~i~K zwQ~8f?*xow%PwQQ?(Rr8j%DBRdl?F^ilLKlYxsifudf5&fH2qwz!6#f zw|wQ1(~c|G062rhz>fF=0)VXL&%?Jcqu~!sUAP+`-2{ZAs$rdky|p}VW+Lg|HxeiB zHttZJ{QN(IDdDqh0FFZ84<2j*;$g1Cm+)~104u=B2ZnwEap>Ct4FD)Vl!xwGRsI0J z!w=!)3;z6ti#fT1PQGxPf)w|i3{kLoY5}ZIzhH--Ax~aJ17^S-9J~e$=j0v^Uhf^p zoL~c6Qg|L2=17nZzGykQ`-kPM{Q3GpLHGi^Qvj4F zlm2cULxSH%LRR9I|J|iE&_hEB8|(j%GB+%#a12GK;feoa?eH*uNa)T*%n1PDr+oqN zTPzCx568(y7?^C~UmW5MCEQYSLYrGpkDuRx;Q3eQPpAP?6$}3W;NLB0p#M&TiGnk( zT!@nzE%b=7@fvGPCYL4Fx0ZBGr5qgnAlJ+(Ij?`|E5(xiK$Fp&(7;ZmU5ez;&M&t` z3R>s^feuik#GKD{6d0eD7RxnDp6yjH96U4Zs9Gd(|5wU^*P15HyBay)CMn=v;WLtzeQ96olRTPjrP6>9Hv$Zzzus%bzg zx%>v=k`34n%e5Wz^}&@-6Ee=)MRQN;v?8TwLe+yaM!ktWGcJ<}-MRE&tRrDX5}yY> ztxpYh>OEtGxOZoW*J?_6A%2JaN@8Vup?>3n#9iZ{$ir1vuG-}pvaQV*+@=?=%~OOZ zef~in=`pn!T~j?CP{XX{Ng92dHiVAx!Ms#AJBgXR1(q+I{`lj^tqq^3hd(S=}DUtx^OB4zjawx%^t{{=zYvTFtkPLZs=1X~C|>4V?T*m4e1fSAYOQ0av= zA4FY7)Q`savE6}4UGLa;~Qo~&~u2wI`?J2bS@O=aWHKSTs~sK<}4 zGTR5*px&k3qV!W_UsS%3KbhE1rCvS#RB7U1dw|iL8v?#QS;wvK}&tSQ zlDqBwa-&=~GwKQT)yQje!LXExRi#c}9MJCXnc5lM=UF`7sqGt-1d%|!_{V^mo$>V5 z2VeST$?9mvZUyItm5QwiJuro&TKeDR@_KfAa)_|V?$uVf-;jrG52LAf-J%UL_=idI zOCXWq-c1Z!*S+7a36Q_G;C(t;h*l_Dpd(8zuMYWXjZdR!EF*kjgL`+!-nmvG>Bn4M zE9){jwS4sywZY{k*s9bwV{TtH9<9iIojhxmpFK3|MtcbN^7pyqO09PHifXVbo7q&( zOmsGnZ*f(aeq6f<#~v||=ET-ZL)UpW|D9xtV|ih*wZPmek){vKt7YyxQWVD*X55MX z#LJ{103c!&{RC-Y-}v>moKMXjnNO({($%?b`-@v|9Fl0pJePw^>;6{b8Z5K(>7fpR z0`o$t-MyP8xM2HmaxSVSJDfeCKRBg@zP%V(xZLYwYu~tcoY+kr^x{?8m1-%qw(Bz0 zVvTeZCi%ZBjtkQwJ?)46C;sdYX4$A5Nw4(2aC*dN(apb=x}$Ee?AaWpB-7}X;xiUd z<2OGd=U#Xj2e-I49DJWJIum}_0KGsxmrC&hRW>w zsjpUBY`K>m?BBD~c^dHaTHvlgEmKmCg3Pel;{2PnL#36#RZGIshnk@2Vf0135&v!P zq^Bv$5(;_(5Ww)nW~5D+i{{+1Tfm{}#BH|VWvRP$FEiZcvf7-*hhBHa&)V*g3GgLd zGfoKJT($6Uv9x%Wp}=UvV{F_`6LfT-LAkergt^HQ5+axr~%J{XLqP$?0jc0Mk}8z|B{trGKt-v`am$mW;vOs4vLx`@6VFFt{eY_?SgireV%!xblqbY^mk6kldcS z0phKLD3NC_ur~8HAp58G-YvDYqgMH?H{F4p#j-~4O60skJLg_oZX^Z&VID5I=F&Fw zE;my8P@S((VBnQYQWQiC(G0wud;gTcwSjtP4XxUdGo_I=2Lq+G2}(_k8bd<#7+*n3 zOh$YKDzY>sZ4{eHy1~P?S6a2EI`Q2+xQF$ky$vdasUwUs#=WgZU15ns?mfuVA-mQDvK<_KV_pCGE|`aqs!Enp#u14;KQg^ZJ~Ve~=Pv1m7~wadW($*n0M) zOr>7Nl|~>!Vr`Umt!H#UVf{hVWg4A=y8bE30_0)YHZRVwndimPyu(rZ)_yl}nJDts zJY(r6%vSN?#hV2_RRAsIbVr<|5Twa30jM6dgkDQ^yYg--lD3KTR`md?B zU|&-#zm)a<#YE*y->sUL=Y@+@5qS$OZf&E1&glDhujOw`x%U3pC;ql04!1=8kt`9Z zULb?RlmtL)Vf<8msmGy7Hfg%!*UHiQCYjm_iNZII({&lKYX`q7B68{KnxCX#a(M1? z7(s54n%L`#S+~f>Wma1vpLrEeL`6Tjikcp|zI#}74i;5GQYa@1lfzN;@WYiiUHbUV zpG^{pPO;$;1wnT2a^2dE4a^pn9cf5dOK#oN@apalxqs&(L01`iy}sc{!`tpckJERd zWL8E6ZwjO_?5(-h$ZKjv>5q)hoyM;I`1391V6@+Fu!Pqb4Ctl_lI)pKX}5R+C{;Aq zhABoA#E@`zeQcKK+Eb06YE5JDEL0w&WCjtq!^o*?R9z)9zss^mAKm$^@v}|+Pr3zz zI^aD)aFyL`uG_V?qSJ6+7C*`*a%~Qr8`}SEr+8?ho=+ryy(Em2aHv-L+`PP`+?0<|6)LkFxlx$VaSNVpYqVadS=}7bJ zwlSgFm7=a-nkA-(X?)`-jrv+7$!d6r{umszD?6~;;Sd)N_jTS-LKu04(A7)9**85&pQBVMz+>|eFCk6y{ zvs}x{w7D$aC_r@?$nOYwsXr6br7p2BV3b}c8vuS>cy4whp);auVt)Sp-uh1Ps~o?5 zHo5BN60dHA)DUC@Tr4C0kR<(9>apn;E=iHcHn2J@x#^~)^*wGzsjajwC{jctS6kI= zW%TWAR@)8M7cXIf)lRZX$dFVX{v%9H3j*^v#k8eMI-qNB?6Kyrmf#8A`kgIaD$kX! z{2QmtcTLVO;h6zs{q9*vzP-pnLUClid7N!+z^Y8YXX0P;9hA8z&cEs{Pi+0V6SwUQuBBhx5$5)HMfyk&w$C8ScN@{(Z|9xG#j4jo+h64!+C{x2 zgVUJr>37H14|RVN3LMFBOh4MlMXeo;(XqD_>`uj3&N5;~7UM;E>rN|uNi02`vzQ3 zivG)`QO~EZ{AHI@$^Vw05gE=MQPxHXPb%J$yVAi@@;0trTN8DkN;8P>xN!glaT@rg zK!$iM!(^eKIHEe_k*}?Zzdnyp>KoJi;(Y10Px)^e?}4nn!LHd3?dOW|BSJNoa<@P{ zC@A~eJ?NPPF}dK=&GwPik>H2j`q~A0UlIQ@NJfatvXTd6`f>Pu{nb#aIm7hfR_U>| zKQLL~xGJ<%&FF=ry-9(dEC*b7AVk(UciBpmXAN|$b8*Xe z5!q;1o~_iNe!T9b4zz%?;mitQoo#TyjU^sFfC_op@W3u1{;pK8??maUkZa>6<2Suj z`Y_;P2%NkUXu`h^d>OTt(3|sEDR9=kazgib6(WFnA^DO!$F!KQ>@F}p`YVUWY)W)? zEI%EDy~D+KaynIjc2LlVID2R#p&+yp8u?Ck`bv*V79~bdQ}*C<{rYePG1IV+4u~O8 zV$}Jge|k)m`O5YS2O58IxnI@Q`jiUFQun>a2B+6iWM(5d>8)9Y%e`lLcT{qPv$Uf< zRC0SCz2-Y(y)ccL@tWLC`ZlA|^<*0^m6X;<)KR5YQ_+7~Xj8orIJYz!Vza<=kX%ru z+rG5wk$v|xe<2CC2K=W0YES_#bGDp~AA67?p<#mhSonxFz=W@nFjsK*ep2ZbfuXBw z7ZhK8D{JT(YMjAsd3n1jv`ZL$4OU_Z2bE&NwUBSzfA20#=4+~lwR=XyYbNK3E@B2_ zI|G^MU3%jB;Osg4@n#*PJm;YTlzPF68ZgV>WG+;*u>5{e^h@3VLA5_x@}5XUG^zon zfr5Nbzc34n9cz);p$#I}0cxV3DM`B57>l&cQM}nt6`N`+m#-U8S;>Km|LcTi}`h+mH`v_Eqj2V4)ygw*dfn$qt(wneO_I3cfEli|pH zYXA6c&0VGi>}?j?fR-!Jm%ct#*pswOeDZjy>>xzGw_IvHd6&3SSUs?NV`4vqhlD&T zYPy#3CRHt$$80W#q%!Mqr(x@c0`hpZc0zB$ z?LzQ;KsV+(T(J@o|A1L$y@*rl#~D1|O!YZ7{7C24zeQrQ6dcjvCr!w>1qsnFtm) z_j*?z|7%K9Mr!jpWsPpY#Z@GRB(b2zy86uJ8G8S#8p+Z0`sikalFWkfW!KTF z9z9J-F{x8q3=`XAQ;Q_DfHrVzu_&oCQEGhi3ZLDcq-- z?i-0)zb6ywWY#~hUJFubM`)lA*MdftBJ$~?gv_pst=c^~3kOc02D|qZUX~uN1x!)D zsVhJ}bPM|&X3;NhqiOuZ=V+f9?Xjm+@u(p0QSz~PX@Oc-f538DP3Pb~Y?yq{^oUKr zv1cF%%?)gS^P=-G5xje0r1t!2$C@*3mDMJsBjw*|7-_S4`ry+?whe}z!!MDg|EG&{ zkB4gC0{F(9GAA8*Rq{+8DGm`M@5(c;N`>(liaJvv!%$>qJfbI!M^qviGCJfHW5kR) zC+QsT@dz`B3^N`TGscXWxtn`F_ukL_>-YJr^;>)G{n>l%&tB`h*NXY(Gr8MyN|CggE21UG{n`5;z~$*82hxF=9g)S^v=%iQiuub)*H!Zc1UXDfUd zz%QQq7BZOY?%(g{lLc+!nECt(H$usfPm7P0Sm}nX+JNN*8G=%&Y4z-HHFhNC=!n1L zP!KsVaaBR%+)yCdhHII1;kFi!U4GDK|KT5VvJ|}rcd&#WN8ug_e{F;=ex>r$4q(a~ zcyu(g8hJHVaeOVH_6B470n7fpckLQNr`dK)>|C;dOva<|Ch^@*t1>GKLq|q^#5}}h zSyA7rxL3@(KHHA{#?xO=R%uETa~2{qe)pVt`Dqbd>~9@&Gxp0{W*9V9O4VxpY4)vJ z?-)#9ZHpir=G1pNOGS+FFywSwy%t(^-I$FiZZ7FsYVAbM1y)g2yr4h*r!{2nQ6>6;9KEg>kz%P}XK_x56xB!ueQ zN0CCrOd=xSu)xHoQAB*WgMK*j6ys%6uBcbMLh6?nEVy(zOXlZHNg*(O3&}l720AW` zH-haf#%M&wJpZ8%7Co37u&wWja5y1y0P_sH;3Y~hL~Bck8KdAeHcz%nn*`v1d^Jsv z$M-5Gji=M(XL6dkk6u9VSBzT9*USoS=eKgLiNB~?m2zyjw#(a?PGW+Bape8!g0V!Y z0;+*>PI~K_4XlU6u1m*-noL_qBrXi#jp78wTh#|de%b7!wfo7Yd+6vDFdPfx`L}w9 zGKSxjD)A6%#D^U<$CFj6&9~`a-++ZzOIUw zTo`WJ&Me(ud-2h9K?#DC@+P$S#q-LpM+7>5UtT> zq5sAG^2Jbr-wiuF&cggI9*7FB<1l_U&suv}9~bwRH+&6szq#S6@%bbEa(M!EVSG%| zuzp_VdV4!f7&opycZ2NDvgGs^>R+aHPZm-&U|GFc@e&Zt(c+@vA{W~qyE4&Zz9sey zFUG0}8A7r;3lE_Ah1jSn=m&iB28K|9>nk*UYF zNaK1dvEJlUvt3Y3G&Z=K;mZ&#kKe2~^gd+O7yg3&zm7yL&mAV42*6*KByg z!+R<%+;Ojj@DuaY%bSIFg%)r>Y3=9uBZ7Ws7vVmjI)e^3?7qMC`o0t*W)#`k;p5F> z9j}5|JARG%UTl}(kl3cb%bPWK)mxGq<}1lHGrgosXOox@WG?{6jDZUu0ArQ5#;-=i z0Q$1f`SP4)o9E>P8wz*NfeJr$-4png8{=GOY?Zq3<5D?WX7?=(4wD(n9P{{CAfXKO z%LBx58RHHYZ0Q(j)v9gW{P$M4EHvKFtMbG(u0>V|Yu)P8V!GEb&n|KLN|khIO|H&Sr(~==|8ps3`bpN6gA3N8)oxN-(Iaep zG1#UvjQ?bUunP>(8j?;C_4?${O8+5mm?kwInQJAt(Yv z79*}jXCRA!nz!w`AzqQl77ku_3QKg#J5P-yKClpq%rN$U=PZXWC6~nMgwgk5cPd!q;YOn*1;J8j~Z_WL*6Dy|1pHBQXE-qCFps)t<*6vy6 zawbr|pUB{-)V=MYZ}sUvMD{$Zc(^mTIoLa|_#RuqZhsI>gNb3AbFSXw}vg)R=&g+_)7BC5= zChr4uOd-LT%clbq{7lL+-$+`g`mDl^NbZ-FYh!DXe{tx6e}3HZ5v~bG)A$uS6L#2P zwc}cxT4r;%1?mxlE&yqSrny9Zkg=W=(31h#ZXgr4zXvKAr$w5tZ3DhQe7o_x$Qi+jrnjg~(7zTmC#| zAG|-IXzeqV8hyuWd_@E(@7Z}9nx4|`NzSwxPqZW?$b*R@koa6>i{@zcCc0DxcJEX^ z-ev*Ljr$**n7=g;m^wcg0oIxUY5V$};DQ5oh$O(DVABo(sUYD4HvQ2V7Io8_R!b<%YL^km~;nql5QqVhf*x)~DYi?>^5KBXAOceLIl`xz*&c OVdd)R=}>hnIQd_HAq!3b literal 0 HcmV?d00001 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 0000000000000000000000000000000000000000..6bb6cefd91d0a2b9a6d5a35aae0447233add1868 GIT binary patch literal 601 zcmV-f0;c_mP)vF%VLzRLl%v+>Ll35SX}eLJts=$t0^* zt9Oz#CS&3bQ5FvwhQVV#pNFcdoVi>M*=&}R;PH4!7fvJ+F>%j&pi-&uC`r-{%CgKO zLDzM7yI+s6q`9pp(P)&}49&pY z`(+%Lf8gx$1Urj6JmbjH7|t)w(aBoT{=`6`P=J^iMTf(|OOo|J1{U7Vz&$vCrWOT5 z(@*hob{K`9XRzOA__VSH($w~YB0ue!SmT6sAUz~ha2c~ zcH?1>6W{i~;@zux%KBJ*qoK(v(UiRxB1d{eC|mqq!H?V|0i5>;6c>K`0c0%jL34u$IE-^YLu;7D|vn ncWgDw6gU6#F#ZqmzXA*Zhmoj+0zUpb00000NkvXXu0mjf>m3)W literal 0 HcmV?d00001 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 0000000000000000000000000000000000000000..7a6dcb42d0ff62fa47544d3b122e2dc998d66774 GIT binary patch literal 500 zcmVvl)`fBvPpq zMx&AF$wLCy=ytm>0=c0}l9HB4;AOjom&*aG)#;3Lxm-d`jBJkksU*W!iBc$CEJEW~ z^f_6~mytc8WYv?y;Q)O{3(mb{rq#lFI7Ft=z%F)v-CWgFot!&Kqg)0J)9v-}WSU6V zYEXVPjkv)12E-_z$D89Ipt=eLtfy1Fb~lTKaD6R5XUV6QNjmf!c(u;*?2rg6h-&E qE71%3KSt~`+5DZGcntQh00RJAd+!;_Gf~t40000JNRCwBylRs<1Kp4iKBz6!i6$Cd2 z{~|)^Xor3U2Ny>>N09c5IJm??NWpK=57DjAMUaXZ-PG8rrEUJ0^xlJ$90_7ycye6w zzQ23!&7Bg4AtsZF0YJy;7xx4wFIoQKagP1%7s2haC6(h(P9qtS>t5H->krqe0T334E9 xf$oB;s{F$_LAm1o2*8M)a~=PS5k39{7y!FZB+Lj|9{pwmvF4~o!- z#h`2?u#l)57iuuNHiC%@7si$T52Ge-)x@xHieWIB(} z^A%8=;Y)62=DYWvd+xb+6d?rU8GH8g-Q=;@h~xWkeLzuYyyq)szE-T&vV9Yp@&TEhi26({;lq^QddgGT$LK1c>ykjl$}d~0~fm@4WN zF=y(yNR&QKnp5G_*8T8s?@@bY#4okmV3^5S!WEiAPPA*?T7*FYl(zj@N zNQc#SRk;J{u!5??WF~$m)3S4b1|_meQT@412Zv)Sj>c8wyJf{@lo|7J2}Hdt83Lux+(hQmVE0f3(lu=iNeW*XMcGe%c=a1^@xqCV(zv R*>eB@002ovPDHLkV1m()P&EJm literal 0 HcmV?d00001 diff --git a/app/DD_PM_WINDREAM/Resources/dxf.png b/app/DD_PM_WINDREAM/Resources/dxf.png new file mode 100644 index 0000000000000000000000000000000000000000..5ddb55a66ca6011fefd6ce1feca85ade71a3aa00 GIT binary patch literal 748 zcmVuQ zz!p?9@hyk3-XNxan}~;0EEOz_#RIq+^~WCriRpEc$cH5I{)a-z;{y>~?)2l?TmgfI zhVR8)1at)oPn~U7F)`d8zt|HmTjFfIrvp|@M^J& zWZuH9-cWq7)Bm!m1kX5g*Tqm+#iwi?ldC3vRBR}!jBBwVe3Ewo&5kNqt=f?$1vDR? z2Wg(_Xj8CMwGpC;H@kg!k*Z?8D&XhoI&Wf#CIu2)tn3IRvKGc;K6L9cEUNNA28pIJ zb^Hu#812%j)@|-WnI^o+SQt5`A;dQ3JiT6?(L=I(RPuh?!scI~WFHb7l<=i2c&mb5 zO+uQ+73fEv;q4jz-XUm|o$6kEKz@>W+0#v#hv^($K;CAVvtk< zy)qu0(xGyWKW~V?0+=CaZXzZ zY7L)~ra(@#AlM{0Srdp6aHCseDZr_)jBR>wrBlUhN#N0ZH!Q?iLdtY-!B8+;sAH+OC0 zHmNkFhHeTr7D0Th1VQSy=w9m|&|l%ot(4+Q#j5BkNEfaHBKSx|L9)@>(jwqFJ}>6$bu}v7_;O+nYh< zy@gT65^1iPlay($o8yd|n~gn_Tedkjm(8Bb&%W}7xF-L{{|7+ho}k)G$M?~49N4Y{ zJ)Ob%TQ|lQ^D_$MYCj0a(2xje8qAP^5UrMxIE;l0$S+?XJG(IR#FzeJZ>5eCLP<3k zhaL{2^QnxF5B7j=8(GdjwI9K0}Nze zs%Uh(m>!J>K74N;U?LiY6ao?W5S)vl5=bpL(LQu+Sj0f%)Hq@jCmH)z7j;TU3Z%>= zhB6RDxoLIKvMr=yQG|)EMznQGpXR1K7lOLe;C!$PKILxv5Y;~oghL@jjBwzEx>z=C zaw%13Vl>Wrx2d0jI$a5i86)IALzh?t%t$vQKuG{(Aj4Xai| zZ&~1^eZNw{kBtqqs5>4TVxmRzwrW)r zS6A`j&1+OjWw4oPbVg%%zrK!Ap@2%cj5pka(Q`5z^eRJIN+#n>76l z)}~ksMSUoOiVFS%5q-?7Z~hzK{0SoXQ6lP#_#)MZJZP|p6$+tBs!c*jnq+q~voqe^ zBsJ}3;Ic4t?z!jQbC(%o5S-mdo1f-#=Cby2>IAQ~-&Xaw;TO2z<>RA@a2zpo(X&*Q>_LVoem z#iCYnYn(vf?4hLkFTit%lr!{u2Fa^QENxuJ+TDKMm(Plg{mOkpeu)xL!;Cad&jCjz zhC~Kf-mp>qSwi`71KF&Dg`Ag{P5y+?H%}8#vKdA!3B==!!XUk1p>}YH!*2&zy3Me( zD&Q={(i2+<4Kah>EmC3>L%jmH#{w(s0yA?4z8~WJ2!YXq;e`MS#zGUoEnsDn<}j=o z3^~9?3C#cLkCbp>Fg0&Z-a=>D@ck@-){NL$SixxwfXZd))Brnu#wg7&u?3%&NOiiQ zm6=tWmdJyV464Tm+Jk;lsmU#9MUzo6*f$;`8BfC7-+{e;3#RYF?=~P7H=s$5w_7Bv zA0_amfz;DTp1VfCI^tUeFe?T~mntTJnLOOR5>!{wJgn#{2MVQQz!J0Y8g;ZwZ@{y8 zIMoVTpSPi12VU(jyq*cMQ3Z+%udC7g_>vM{L1dPJ4^PqBc@Ac$(AoP6x9t)U4~8uw z1XA*5`>5M$9loV4nxcQWgZ7_ygqS5;fbRR(bT7yq3sRvu%KIn40D&4I-Ddjxod5s; M07*qoM6N<$f;780F#rGn literal 0 HcmV?d00001 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 0000000000000000000000000000000000000000..7ac33dc56608edc8f219856d7bac36aa1d96030e GIT binary patch literal 660 zcmV;F0&D$=P)GL<9)A8MfGnXc#PPbtT;hT-2TLW8dlu$Q6leea_rIiR_apr$4?YX1{%3rjt0H(Y zO_BeK%&-5SZ`}SU+PLSj9#EY(vOkf5&891FB_2HgDyYE4@_tr;(uq)A;i4D=(TbS? zO2>ql7`|P8@Jam2^RF&IwF=k_P`mNuivYuqKMbzQ{7;yf7$*S5_JRD(%g(&aN`~hd zNbb_3&jQfE#W3Ix%fEmB7=HX_`1b8LGmtNcB**dn+iw<-94o{Be;~Ek3^;3{#Q&P% z=Wm8BC!Q+3`uH;iD3%Yz#W$aRi8^xWr7ZLBKmV*$1>OS1E@F#DLp~0sKPv@iMinf3NwsAHP|RwIpBkmpGn( z_3kU%~`L(ela zGl3GzBOq3S2G|`S{)#Or8}B)IR`l(Q2dw6Xs>qrz!U7g=ZUVZ18;G-}%v^Zx%a^a) ufNXtGxDbnx0}+(-jsWpLQnE8ZfB^tFHxzB+VbwAxk7RCwBaQoBwYQ4l@*GF~jR1`CKK zEP{oQK@d=iq@l~Br=X-t&7Z)BfPWy7k|Iqa7cLS&SSTc*$PqCpkp&{Q_dYWB;x%{i z!mL*JF*E0$IWv}&63TWyeE#%&VRnHFfygZSmG@osORIkR>y7I=@2#G1dvimtZWNpk zvZId+;{g(Eai$o!wpBSeX{-}?NtT*@&iw`jW@2e<=d z-Yu1iP~uutykpzA{MT^@7@(JE0z}5|_yp%-06_HexR4KO;ySmn$r>1QaIdfi%NPJ7 zW(K>y21eU;j0wW7;{=<46fR3?7sboYg$*zvj}O3 zBz@_j6!wmOKuzGG8T+r*!K|ibSNM8>CkKdm)lj3c3q(hV8YfyGDTXf!YM%O3UZ=h-WlB?Oer1EZhQL7*8*eLJ600RJ!zwTVX%?Ypo O0000XP)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0jNntK~z{r?U+xl zf-n%qxrZ0 zd4vZ6qdQI4s%y6mZ#A2P$$8yUCkMXZa@c{6klPtHhw{G<#?9&8JfQ;=`%!y$n7YlF zHaw#6TCmuTu+=Y4Eff((23zsa=CjUZg012yq|GPHalh2?rA3gyh;ZT6{fL(yX8+1mjF!p(Pgmd;7~5l zm%;5)_P1=@i0E-J#fcjcYKM_ABKQkop&~~SQCmgsQI$=RYYUOyQ|lsUX0Wpbw2G(t z&n|MNHkZw)ZQ77%`Xa}j!n*qf0n4|DbT3W5rln&UR1&}fI5UCF^5S3toS8so`8QTb VbmOUHouvQ(002ovPDHLkV1g(v=}`ax diff --git a/app/DD_PM_WINDREAM/Resources/xls.png b/app/DD_PM_WINDREAM/Resources/xls.png new file mode 100644 index 0000000000000000000000000000000000000000..0f9309f2a4e30c8b9c751baadf6923d76f129e5c GIT binary patch literal 714 zcmV;*0yX`KP)gcJ!h14UUiu|#PAfw96QUO#*1 zEzK^kamnuw20$l>bA_fKquJoNuE%Hxg6tON#+UKx@f&YpYH>{nx!R3my=aDEq**Ud z+PF9lkT2Qr77N(=v5DGs6`3KRJZX8Q!2L+>kNyXs>`E#)j*00zMMR-Q)D~#g1w!K* zezpR}EI6Y!N`9u;CqXYo*>w#JvQEzz2-LvoK?^er!^pZ>ScXkDQ%jWtirBLWM4!0= zOPSR!!W3M|&Q5w7bt6G(SdyTq1z}sFaTQ_0%L9i^oF2B|WGoC7h=KM=5)5RZD04_v zub+i!LFt2=WpG^!7bgLAho?S+8Bpdp5{N|vw@e)&?(Hx{zMMg}Xd>by!-yebEA{OI z5JJE)O7KSKAyf>LDk+q}?)fHel^1Yt?kSFHKe2bU1u0a&1oB1Izr^C$6Rb`>C#??V zM;@TssKP6*V5Yo+5!VBc6!gUQ0SGci^wWe*^lb>5NM^Xmvk5d>J`S(;aC>+OiEzkQ z_Di5g!wSs9_OA`Jc?(%PhgJ~aq4xr3{sG2v5w=gi(1^D*1J++eZq^Qt{`kN5cRSQf wJuvIAOa>uie5-7v?Q>X0&q=Kt_g8=c05pb2r;yY0Pyhe`07*qoM6N<$f(HaWZU6uP literal 0 HcmV?d00001 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) - - 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) - Me.Close() - End Try + '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") + '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 + '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 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 + 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 + 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 + 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 - 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) + Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID) 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 - Else - ToolStripButtonDeleteFile.Enabled = False - End If + 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 - LOGGER.Debug(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString, False) - Load_Controls() + 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 - 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 + End If - Next - 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)) - Next + 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 + 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 + 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 + If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then + 'dataGridView.DataSource = dt - Dim oDatatable As DataTable = dt.Clone() + 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 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 + 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") - - Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_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("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(myWMDocumentPath) + LOGGER.Debug("Filesystem_Document_Path: " & Filesystem_Document_Path) + CURRENT_DOC_PATH = myWMDocumentPath + LOGGER.Debug("CURRENT_DOC_PATH: " & CURRENT_DOC_PATH) + + 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 + 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 + End Try - LOGGER.Debug(" >> Windream-Dokument geladen und gelockt", False) - oErrorMessage = Windream_get_Doc_info() + LOGGER.Debug("Windream-Dokument geladen und gelockt") + oErrorMessage = Windream_get_Doc_info() - LOGGER.Debug(" >> Windream-Dok Info geholt", False) - If oErrorMessage = "" Then - Me.grpbxMailBody.Visible = False - Me.grpBetreff.Visible = False + LOGGER.Debug("Windream-Dok Info geholt") + If oErrorMessage = "" Then + Me.grpbxMailBody.Visible = False + Me.grpBetreff.Visible = False - load_viewer() + load_viewer() - If Windream_Document_Path.ToLower.EndsWith(".pdf") Then - ToolStripButtonAnnotation.Visible = True - Else - ToolStripButtonAnnotation.Visible = False - End If + If myWMDocumentPath.ToLower.EndsWith(".pdf") Then + ToolStripButtonAnnotation.Visible = True + Else + ToolStripButtonAnnotation.Visible = False + End If - LOGGER.Debug(" >> Viewer geladen", False) + LOGGER.Debug("Viewer geladen") - FillIndexValues(first) + FillIndexValues(first) - For Each oControl As Control In pnldesigner.Controls - LoadSimpleData(oControl, oControl.Tag) - Next + 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 + 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 - activate_controls(True) - Else - errormessage = oErrorMessage - frmError.ShowDialog() 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() - - 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) - - _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 + '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 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 + 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 - 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) - - - 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() + oControl.Text = NotNull(wertWD, oDefaultValue) + _CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(wertWD, oDefaultValue) - End Try + 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 - 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) + 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.") 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 wertWD + If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + wertWD = ReturnVektor_IndexValue(oWMIndexName) + Else + wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) + End If - 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 + If wertWD Is Nothing Then + LOGGER.Debug($"Indexwert aus index {oWMIndexName}: Nothing") + If oDefaultValue = String.Empty Then + LOGGER.Debug($"Indexwert-defaultValue wurde nicht gefunden") + cmb.SelectedIndex = -1 + Else + 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 Select - Next - End If + 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}) + 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) - End If + 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 Select + 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 + 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 - 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) + 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 + 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) + 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() + 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}...", False) - SpaltenWerte = Split(Zeile, Delimiter) + 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}) + 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 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 - 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 Select + Next + End If - 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}) - Next - End Select + End If + Next + End Select - End If - Else - If first = False Then - Dim oDataSource As DataTable = dgv.DataSource + End If - If oDataSource.Rows.Count > 0 Then - oDataSource.Rows.Clear() - 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 - 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 + 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 + 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 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 + 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 + 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) - End If + 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", 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 + + 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 - LOGGER.Info(">> defaultValue war leer", False) chk.Checked = False End If 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) - End If - Else - _value = wertWD + 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 - 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 + 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 - Case "DigitalData.Controls.LookupGrid.LookupControl2" - 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 - End If + End If + Case "DigitalData.Controls.LookupGrid.LookupControl2" + Try + Dim oLookup As LookupControl2 = oControl + Dim oWindreamValue = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then - Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() + 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 - oLookup.SelectedValues = oValues - End If + oArrlist.Add(oVectorRow.ToString) + Next + oLookup.SelectedValues = oArrlist + _CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString + 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 + If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then + Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() - 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 + oLookup.SelectedValues = oValues 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) + 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 + 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 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 - DTP.Text = tempdate - End If - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString + 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) - errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message + 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 + 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 - 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 + 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 - 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.tsslblSQL.Name = "tsslblSQL" + resources.ApplyResources(Me.tsslblSQL, "tsslblSQL") + ' + 'XtraTabControlDocs + ' + 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}) + ' + 'XtraTabPageDoc1 + ' + Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1) + Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1" + resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1") + ' + 'XtraTabPageDoc2 + ' + Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2) + Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2" + resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2") + ' + 'GridControlDocSearch2 + ' + 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.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.ToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1") ' - 'XtraTabPage1 + 'LayoutZurücksetzenToolStripMenuItem ' - Me.XtraTabPage1.Controls.Add(Me.GridControl1) - Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1197, 375) - Me.XtraTabPage1.Text = "Search Result1" + Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem" + resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem") ' - 'GridControl1 + 'ContextMenuStripSQL ' - 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.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4}) + Me.ContextMenuStripSQL.Name = "ContextMenuStrip1" + resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL") ' - 'GridView1 + 'ToolStripSeparator2 ' - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") ' - 'XtraTabPage2 + 'ToolStripMenuItem4 ' - Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(1197, 375) - Me.XtraTabPage2.Text = "XtraTabPage2" + 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