This commit is contained in:
SchreiberM 2021-09-07 16:35:17 +02:00
parent d5aeb55704
commit 1f392ca41b
51 changed files with 6881 additions and 1404 deletions

View File

@ -16,13 +16,13 @@ Namespace My
LOGGER.Error(e.Exception) LOGGER.Error(e.Exception)
Try Try
If USER_DEBUG_LOG = True Then If DEBUG = True Then
Dim oLogMessage = LOGCONFIG.Logs.Last() Dim oLogMessage = LOGCONFIG.Logs.Last()
Dim oLogSplit As String() = oLogMessage.Split("|") Dim oLogSplit As String() = oLogMessage.Split("|")
Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {Environment.MachineName}]" Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {Environment.MachineName}]"
Dim oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID], [LOGMSG], [ADDED_WHEN], DATE_STR) VALUES({USER_ID},'{oDBMessage}',GETDATE(),'{Now}')" Dim oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID], [LOGMSG], [ADDED_WHEN], DATE_STR) VALUES({USER_ID},'{oDBMessage}',GETDATE(),'{Now}')"
ClassDatabase.Execute_non_Query(oSQL) Database_ECM.ExecuteNonQuery(oSQL)
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)

View File

@ -45,14 +45,14 @@ Public Class ClassAllgemeineFunktionen
Else Else
If INACTIVITYRecognized = True Then If INACTIVITYRecognized = True Then
oSql = $"UPDATE TBDD_USER_LOGIN_OUT SET COMMENT = 'Inactivity Detected',LOGOUT = GETDATE() WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager') AND LOGOUT IS NULL" oSql = $"UPDATE TBDD_USER_LOGIN_OUT SET COMMENT = 'Inactivity Detected',LOGOUT = GETDATE() WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager') AND LOGOUT IS NULL"
If ClassDatabase.Execute_non_Query(oSql, "Inactivity insert") = True Then If Database_ECM.ExecuteNonQuery(oSql, "Inactivity insert") = True Then
End If End If
End If End If
oSql = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager')" oSql = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager')"
End If End If
If ClassDatabase.Execute_non_Query(oSql, "LOGIN/OUT") = True Then If Database_ECM.ExecuteNonQuery(oSql) = True Then
LOGGER.Debug($"{LoginorOut} of User successfully!") LOGGER.Debug($"{LoginorOut} of User successfully!")
Return True Return True
Else Else
@ -70,7 +70,7 @@ Public Class ClassAllgemeineFunktionen
Try Try
ERR_MSG = ERR_MSG.Replace("'", "''") ERR_MSG = ERR_MSG.Replace("'", "''")
Dim insert As String = $"INSERT INTO TBPM_LOG_DEBUG (USERID, LOGMSG) VALUES ({USER_ID},'{ERR_MSG}')" Dim insert As String = $"INSERT INTO TBPM_LOG_DEBUG (USERID, LOGMSG) VALUES ({USER_ID},'{ERR_MSG}')"
If ExecuteonMSSQL(insert, CONNECTION_STRING) <> "" Then If ExecuteonMSSQL(insert, CONNECTION_STRING_ECM) <> "" Then
LOGGER.Warn("...Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True) LOGGER.Warn("...Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
End If End If
Catch ex As Exception Catch ex As Exception

View File

@ -27,7 +27,7 @@ Public Class ClassConfig
Public Property FileDelimiter As String = "_" Public Property FileDelimiter As String = "_"
' Misc Settings ' Misc Settings
Public Property LogErrorsOnly As Boolean = True Public Property DEBUG As Boolean = False
Public Property ReminderTimer As Integer = 5 Public Property ReminderTimer As Integer = 5
Public Property MonitorSplitter1_Distance As Integer = 510 Public Property MonitorSplitter1_Distance As Integer = 510
Public Property MonitorSplitter2_Distance As Integer = 270 Public Property MonitorSplitter2_Distance As Integer = 270

View File

@ -23,9 +23,9 @@ Public Class ClassDataASorDB
End Try End Try
Else Else
If pDB = "DD_ECM" Then If pDB = "DD_ECM" Then
oReturnDT = ClassDatabase.Return_Datatable_ConStr(pSQL, CONNECTION_STRING) oReturnDT = Database_ECM.GetDatatable(pSQL)
ElseIf pDB = "IDB" Then ElseIf pDB = "IDB" Then
oReturnDT = ClassDatabase.Return_Datatable_ConStr(pSQL, CONNECTION_STRING_IDB) oReturnDT = Database_IDB.GetDatatable(pSQL)
End If End If
End If End If

View File

@ -9,7 +9,7 @@ Public Class ClassDatabase
Dim connectionString As String = "" Dim connectionString As String = ""
Try Try
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id, "Get_ConnectionString") Dim DTConnection As DataTable = Database_ECM.GetDatatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
If DTConnection.Rows.Count = 1 Then If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Case "MS-SQL" Case "MS-SQL"
@ -47,7 +47,7 @@ Public Class ClassDatabase
Public Shared Function Init(Optional ConString As String = "") Public Shared Function Init(Optional ConString As String = "")
Try Try
If ConString = String.Empty Then If ConString = String.Empty Then
SQLSERVERConnectionString = CONNECTION_STRING SQLSERVERConnectionString = CONNECTION_STRING_ECM
End If End If
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
@ -65,7 +65,7 @@ Public Class ClassDatabase
If ConString <> String.Empty Then If ConString <> String.Empty Then
LOGGER.Info($"Error initializing Database [{ConString}] " & ex.Message, True) LOGGER.Info($"Error initializing Database [{ConString}] " & ex.Message, True)
Else Else
LOGGER.Info($"Error initializing Database [{CONNECTION_STRING}] " & ex.Message, True) LOGGER.Info($"Error initializing Database [{CONNECTION_STRING_ECM}] " & ex.Message, True)
End If End If
Return False Return False

View File

@ -3,7 +3,7 @@
Try Try
Dim _error As Boolean = False Dim _error As Boolean = False
If CURRENT_DT_FINAL_INDEXING Is Nothing Then If CURRENT_DT_FINAL_INDEXING Is Nothing Then
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID), "Write_Final_Metadata") CURRENT_DT_FINAL_INDEXING = Database_ECM.GetDatatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) ', "Write_Final_Metadata")
End If End If
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
@ -42,7 +42,7 @@
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement) sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True) sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement) LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
Dim oDynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, "Write_Final_Metadata/dynamic_value") Dim oDynamic_value = Database_ECM.GetScalarValue(sql_Statement) ', CONNECTION_STRING_ECM, "Write_Final_Metadata/dynamic_value")
If Not IsNothing(oDynamic_value) Then If Not IsNothing(oDynamic_value) Then
value = oDynamic_value value = oDynamic_value
Else Else

View File

@ -9,7 +9,7 @@
''' '''
Public Function Init() Public Function Init()
Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE" Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ) DTVWIDB_BE_ATTRIBUTE = Database_IDB.GetDatatable(oSQL)
End Function End Function
Public IDBSystemIndices As List(Of String) Public IDBSystemIndices As List(Of String)
Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String() Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
@ -113,7 +113,7 @@
LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ") LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
End If End If
Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))" Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
oAttributeValue = ClassDatabase.Return_Datatable_ConStr(oFNSQL, CONNECTION_STRING_IDB_READ) oAttributeValue = Database_IDB.GetDatatable(oFNSQL)
Dim odt As DataTable = oAttributeValue Dim odt As DataTable = oAttributeValue
If odt.Rows.Count = 1 Then If odt.Rows.Count = 1 Then
oAttributeValue = odt.Rows(0).Item(0) oAttributeValue = odt.Rows(0).Item(0)
@ -134,7 +134,7 @@
oID_IS_FOREIGN = 1 oID_IS_FOREIGN = 1
End If End If
Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}" Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB_WRITE) Database_IDB.ExecuteNonQuery(oDELSQL)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -145,7 +145,7 @@
Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object
Try Try
Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'" Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'"
ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB_WRITE) Database_IDB.ExecuteNonQuery(oDELSQL)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -227,7 +227,7 @@
For Each oNewValueRow As DataRow In oDTMyNewValues.Rows For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
Dim oSuccess As Boolean = False Dim oSuccess As Boolean = False
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT" Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB_WRITE) oSuccess = Database_IDB.ExecuteNonQuery(oFNSQL)
If oSuccess = False Then If oSuccess = False Then
Return False Return False
End If End If
@ -235,7 +235,7 @@
Return True Return True
Else Else
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT" Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB_WRITE) Return Database_IDB.ExecuteNonQuery(oFNSQL)
End If End If
Catch ex As Exception Catch ex As Exception

View File

@ -6,6 +6,7 @@ Imports DigitalData.Modules.Config
Imports System.Threading Imports System.Threading
Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Database
Public Class ClassInit Public Class ClassInit
Public _lizenzManager As ClassLicenseManager Public _lizenzManager As ClassLicenseManager
@ -74,19 +75,19 @@ Public Class ClassInit
If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
LOGGER.Debug("Test Connection String loaded") LOGGER.Debug("Test Connection String loaded")
CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionStringTest) CONNECTION_STRING_ECM = DecryptConnectionString(CONFIG.Config.ConnectionStringTest)
Else Else
LOGGER.Debug("Connection String loaded") LOGGER.Debug("Connection String loaded")
CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionString) CONNECTION_STRING_ECM = DecryptConnectionString(CONFIG.Config.ConnectionString)
End If End If
If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then 'If CONFIG.Config.ConnectionStringAppServer <> String.Empty Then
LOGGER.Debug("ConnectionStringAppServer will be used") ' LOGGER.Debug("ConnectionStringAppServer will be used")
CONNECTION_STRING_APP_SERVER = DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer) ' CONNECTION_STRING_APP_SERVER = DecryptConnectionString(CONFIG.Config.ConnectionStringAppServer)
CONNECTION_STRING_READ = CONNECTION_STRING_APP_SERVER ' CONNECTION_STRING_READ = CONNECTION_STRING_APP_SERVER
Else 'Else
CONNECTION_STRING_READ = CONNECTION_STRING ' CONNECTION_STRING_READ = CONNECTION_STRING_ECM
End If 'End If
If CONFIG.Config.EDMIAppServer <> String.Empty Then If CONFIG.Config.EDMIAppServer <> String.Empty Then
@ -116,8 +117,12 @@ Public Class ClassInit
USER_MANAGER_PATH = CONFIG.Config.UserManagerPath USER_MANAGER_PATH = CONFIG.Config.UserManagerPath
LOG_ERRORS_ONLY = CONFIG.Config.LogErrorsOnly USER_CONFIG_DEBUG = CONFIG.Config.DEBUG
LOGCONFIG.Debug = Not LOG_ERRORS_ONLY If USER_CONFIG_DEBUG = True Then
DEBUG = True
LOGCONFIG.Debug = True
End If
TEST_MODE = CONFIG.Config.TestMode TEST_MODE = CONFIG.Config.TestMode
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -153,22 +158,36 @@ Public Class ClassInit
Public Function InitDatabase() Public Function InitDatabase()
Dim dbResult As Boolean Dim dbResult As Boolean
If CONNECTION_STRING <> String.Empty Then If CONNECTION_STRING_ECM = String.Empty Then
dbResult = ClassDatabase.Init()
Else
MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information) MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
ERROR_STATE = "NO DB-CONNECTION" ERROR_STATE = "NO DB-CONNECTION"
frmKonfig.ShowDialog() frmKonfig.ShowDialog()
dbResult = ClassDatabase.Init()
End If
If CONNECTION_STRING_APP_SERVER <> String.Empty Then
If ClassDatabase.Init(CONNECTION_STRING_APP_SERVER) = False Then
MsgBox("ApplicationServer can not be reached! Check Your configuration.", MsgBoxStyle.Information)
If dbResult = True Then
CONNECTION_STRING_READ = CONNECTION_STRING
End If End If
Database_ECM = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_ECM)
If Database_ECM.DBInitialized = True Then
ClassDatabase.Init(CONNECTION_STRING_ECM)
dbResult = True
Else
dbResult = False
End If
If CONNECTION_STRING_IDB <> String.Empty Then
Database_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_ECM)
If Database_IDB.DBInitialized = True Then
IDB_ACTIVE = True
LOGGER.Info("IDB is active via Config")
End If End If
End If End If
'If CONNECTION_STRING_APP_SERVER <> String.Empty Then
' Database_APPSERVER = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_APP_SERVER)
' If Database_APPSERVER.DBInitialized = False Then
' MsgBox("ApplicationServer can not be reached! Check Your configuration.", MsgBoxStyle.Information)
' If dbResult = True Then
' CONNECTION_STRING_READ = CONNECTION_STRING_ECM
' End If
' End If
'End If

View File

@ -1,9 +1,11 @@
Public Class ClassParamRefresh Imports DigitalData.Modules.Database
Public Class ClassParamRefresh
Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable) Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
Dim oStopwatch As New RefreshHelper.SW("Refresh_Params") Dim oStopwatch As New RefreshHelper.SW("Refresh_Params")
FORCE_LAYOUT_OVERVIEW = False FORCE_LAYOUT_OVERVIEW = False
SHOW_CHARTS = True SHOW_CHARTS = True
USER_DEBUG_LOG = False
If DT_CHECKUSER.Rows.Count = 1 Then If DT_CHECKUSER.Rows.Count = 1 Then
@ -30,54 +32,66 @@
LOGGER.Debug($"oWorkingMode Parameter: {oMode}") LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then
FORCE_LAYOUT_OVERVIEW = True FORCE_LAYOUT_OVERVIEW = True
LOGGER.Info($"FORCE_LAYOUT_OVERVIEW [{FORCE_LAYOUT_OVERVIEW}]") LOGGER.Debug($"FORCE_LAYOUT_OVERVIEW [{FORCE_LAYOUT_OVERVIEW}]")
ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
SHOW_MASS_VALIDATOR = False SHOW_MASS_VALIDATOR = False
LOGGER.Info($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]") LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
ElseIf oMode = "PM.NO_CHARTS" Then ElseIf oMode = "PM.NO_CHARTS" Then
SHOW_CHARTS = False SHOW_CHARTS = False
LOGGER.Info($"SHOW_CHARTS [{SHOW_CHARTS}]") LOGGER.Debug($"SHOW_CHARTS [{SHOW_CHARTS}]")
ElseIf oMode = "PM.DEBUG_LOG" Then ElseIf oMode = "PM.DEBUG_LOG" Then
USER_DEBUG_LOG = True DEBUG = True
LOGCONFIG.Debug = True LOGCONFIG.Debug = True
ElseIf oMode = "PM.IDBWITHWMFS" Then ElseIf oMode = "PM.IDBWITHWMFS" Then
IDB_USES_WMFILESTORE = True IDB_USES_WMFILESTORE = True
ElseIf oMode = "PM.NO_BASICCONF" Then ElseIf oMode = "PM.NO_BASICCONF" Then
BASIC_CONF_VISIBLE = False BASIC_CONF_VISIBLE = False
LOGGER.Info($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]") LOGGER.Debug($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
ElseIf oMode.StartsWith("PM.IDB_CONID!") Then ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
If CONNECTION_STRING_IDB <> "" And Not IsNothing(Database_IDB) Then
If Database_IDB.DBInitialized = True Then
IDB_ACTIVE = True
Continue For
End If
Else
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "") Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID) Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString CONNECTION_STRING_IDB = oConString
If ClassDatabase.Init(CONNECTION_STRING_IDB) = False Then Database_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)
IDB_ACTIVE = False If Database_IDB.DBInitialized = True Then
Else
IDB_ACTIVE = True IDB_ACTIVE = True
LOGGER.Info($"Got an IDB-Connection [{CON_ID}]!") LOGGER.Info($"IDB is active - IDB-Connection [{CON_ID}]!")
Else
IDB_ACTIVE = False
End If End If
ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB_APP_SERVER = oConString
If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!")
End If End If
'ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
' Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
' Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
' CONNECTION_STRING_IDB_APP_SERVER = oConString
' If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
' LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!")
' End If
ElseIf oMode = "PM.MONITORING" Then ElseIf oMode = "PM.MONITORING" Then
MONITORING_ACTIVE = True MONITORING_ACTIVE = True
LOGGER.Info($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]") LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
ElseIf oMode = "PM.GHOSTMODE" Then ElseIf oMode = "PM.GHOSTMODE" Then
GHOSTMODE_ACTIVE = True GHOSTMODE_ACTIVE = True
LOGGER.Info($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]") LOGGER.Debug($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
ElseIf oMode.StartsWith("PM.COLORSCHEME") Then ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "") Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
RIBBON_COLOR_SCHEME = oColorScheme.ToUpper RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
LOGGER.Info($"RIBBON_COLOR_SCHEME [{RIBBON_COLOR_SCHEME}]") LOGGER.Debug($"RIBBON_COLOR_SCHEME [{RIBBON_COLOR_SCHEME}]")
ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then
NO_DETAIL_PROFILES = True NO_DETAIL_PROFILES = True
LOGGER.Info($"NO_DETAIL_PROFILES [{NO_DETAIL_PROFILES}]") LOGGER.Debug($"NO_DETAIL_PROFILES [{NO_DETAIL_PROFILES}]")
ElseIf oMode = "PM.NO_POPUP" Then ElseIf oMode = "PM.NO_POPUP" Then
POPUP_REMINDER_ACTIVE = False POPUP_REMINDER_ACTIVE = False
LOGGER.Info($"POPUP_REMINDER_ACTIVE [{POPUP_REMINDER_ACTIVE}]") LOGGER.Debug($"POPUP_REMINDER_ACTIVE [{POPUP_REMINDER_ACTIVE}]")
ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "") Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
CONV_IDENTIFICATION = oIdent CONV_IDENTIFICATION = oIdent
@ -86,15 +100,16 @@
Try Try
INACTIVITY_DURATION = CInt(oInactivityDuration) INACTIVITY_DURATION = CInt(oInactivityDuration)
LOGGER.Info($"InactivityDuration [{INACTIVITY_DURATION}]") LOGGER.Debug($"InactivityDuration [{INACTIVITY_DURATION}]")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"INACTIVITY_DURATION = 0 - {ex.Message}")
INACTIVITY_DURATION = 0 INACTIVITY_DURATION = 0
End Try End Try
ElseIf oMode.StartsWith("PM.COL_LAST_EDITED") Then ElseIf oMode.StartsWith("PM.COL_LAST_EDITED") Then
Dim oLEDITEDCOL = oMode.Replace("PM.COL_LAST_EDITED=", "") Dim oLEDITEDCOL = oMode.Replace("PM.COL_LAST_EDITED=", "")
Try Try
LAST_EDITED_COLUMN = oLEDITEDCOL LAST_EDITED_COLUMN = oLEDITEDCOL
LOGGER.Info($"LAST_EDITED_COLUMN: {oLEDITEDCOL}") LOGGER.Debug($"LAST_EDITED_COLUMN: {oLEDITEDCOL}")
Catch ex As Exception Catch ex As Exception
LAST_EDITED_COLUMN = "" LAST_EDITED_COLUMN = ""
@ -103,7 +118,7 @@
Dim oLEDITEDCOL = oMode.Replace("PM.COL_LAST_ADDED=", "") Dim oLEDITEDCOL = oMode.Replace("PM.COL_LAST_ADDED=", "")
Try Try
LAST_ADDED_COLUMN = oLEDITEDCOL LAST_ADDED_COLUMN = oLEDITEDCOL
LOGGER.Info($"LAST_ADDED_COLUMN: {oLEDITEDCOL}") LOGGER.Debug($"LAST_ADDED_COLUMN: {oLEDITEDCOL}")
Catch ex As Exception Catch ex As Exception
LAST_ADDED_COLUMN = "" LAST_ADDED_COLUMN = ""
@ -162,23 +177,30 @@
ElseIf oMode.StartsWith("PM.RibbonPageCustItm1") Then ElseIf oMode.StartsWith("PM.RibbonPageCustItm1") Then
Dim oAfterReplace = oMode.Replace("PM.RibbonPageCustItm1=", "") Dim oAfterReplace = oMode.Replace("PM.RibbonPageCustItm1=", "")
RibbonPageCustItm1 = oAfterReplace RibbonPageCustItm1 = oAfterReplace
ElseIf oMode.StartsWith("PM.ButtonExport2FolderCaption") Then
Dim oAfterReplace = oMode.Replace("PM.ButtonExport2FolderCaption=", "")
ButtonExport2Folder_Caption = oAfterReplace
ElseIf oMode.StartsWith("PM.ButtonExport2Folder_RootFolder") Then
Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_RootFolder=", "")
ButtonExport2Folder_RootFolder = oAfterReplace
Else Else
LOGGER.Info($"Wrong oMode: {oMode}") LOGGER.Info($"Wrong oMode: {oMode}")
End If End If
Next Next
If IDB_ACTIVE Then 'If IDB_ACTIVE Then
If CONNECTION_STRING_APP_SERVER <> String.Empty Then ' If CONNECTION_STRING_APP_SERVER <> String.Empty Then
If USE_APPSERVER = True Then ' If USE_APPSERVER = True Then
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_APP_SERVER ' CONNECTION_STRING_IDB_READ = CONNECTION_STRING_APP_SERVER
Else ' Else
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB ' CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
End If ' End If
Else ' Else
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB ' CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
End If ' End If
CONNECTION_STRING_IDB_WRITE = CONNECTION_STRING_IDB ' CONNECTION_STRING_IDB_WRITE = CONNECTION_STRING_IDB
End If 'End If
End If End If
oStopwatch.Done() oStopwatch.Done()
End Sub End Sub

View File

@ -85,7 +85,7 @@ Public Class ClassWindream_allgemein
Return False Return False
End If End If
If LOG_ERRORS_ONLY = False Then If ModuleMySettings.DEBUG = False Then
LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'") LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'")
End If End If
@ -136,7 +136,7 @@ LOGGER.Error(ex)
Try Try
' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist ' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, "StartWMCC-userExistsInServerUserGroup") Dim userExistsInServerUserGroup = Database_ECM.GetScalarValue(sql) ', CONNECTION_STRING_ECM, "StartWMCC-userExistsInServerUserGroup")
If WMSESSION_STARTSTOP_STARTUP = True Then If WMSESSION_STARTSTOP_STARTUP = True Then
'And userExistsInServerUserGroup Is Nothing 'And userExistsInServerUserGroup Is Nothing
@ -159,7 +159,7 @@ LOGGER.Error(ex)
Try Try
' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist ' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, "StopWMCC-userExistsInServerUserGroup") Dim userExistsInServerUserGroup = Database_ECM.GetScalarValue(sql) ', CONNECTION_STRING_ECM, "StopWMCC-userExistsInServerUserGroup")
If WMSESSION_STARTSTOP_STARTUP = True Then 'And userExistsInServerUserGroup Is Nothing If WMSESSION_STARTSTOP_STARTUP = True Then 'And userExistsInServerUserGroup Is Nothing
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter") Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")

View File

@ -162,7 +162,8 @@
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Database"> <Reference Include="DigitalData.Modules.Database, Version=2.1.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.EDMI.API"> <Reference Include="DigitalData.Modules.EDMI.API">
@ -171,7 +172,8 @@
<Reference Include="DigitalData.Modules.Language"> <Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Logging"> <Reference Include="DigitalData.Modules.Logging, Version=2.4.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference> </Reference>
<Reference Include="DLLLicenseManager"> <Reference Include="DLLLicenseManager">
@ -202,7 +204,7 @@
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" /> <Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL"> <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath> <HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
</Reference> </Reference>
<Reference Include="Oracle.ManagedDataAccess"> <Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@ -590,6 +592,12 @@
<DependentUpon>frmFormDesigner.vb</DependentUpon> <DependentUpon>frmFormDesigner.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmGhostMode.en-US.resx">
<DependentUpon>frmGhostMode.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGhostMode.fr-FR.resx">
<DependentUpon>frmGhostMode.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGhostMode.resx"> <EmbeddedResource Include="frmGhostMode.resx">
<DependentUpon>frmGhostMode.vb</DependentUpon> <DependentUpon>frmGhostMode.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -605,6 +613,9 @@
<EmbeddedResource Include="frmMain.en-US.resx"> <EmbeddedResource Include="frmMain.en-US.resx">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmMain.fr-FR.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.fr.resx"> <EmbeddedResource Include="frmMain.fr.resx">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -651,10 +662,19 @@
<EmbeddedResource Include="frmValidator.en-US.resx"> <EmbeddedResource Include="frmValidator.en-US.resx">
<DependentUpon>frmValidator.vb</DependentUpon> <DependentUpon>frmValidator.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmValidator.fr-FR.resx">
<DependentUpon>frmValidator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidator.resx"> <EmbeddedResource Include="frmValidator.resx">
<DependentUpon>frmValidator.vb</DependentUpon> <DependentUpon>frmValidator.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.en-US.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.fr-FR.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.resx"> <EmbeddedResource Include="frmValidatorSearch.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon> <DependentUpon>frmValidatorSearch.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>
@ -707,8 +727,6 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="packages.config" /> <None Include="packages.config" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\syncreon.png" /> <None Include="Resources\syncreon.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>

View File

@ -1,13 +1,8 @@
Module ModuleMySettings Module ModuleMySettings
' Connection String ' Connection String
Public SOURCE_INIT As Boolean = False Public SOURCE_INIT As Boolean = False
Public CONNECTION_STRING As String = "" Public CONNECTION_STRING_ECM As String = ""
Public CONNECTION_STRING_APP_SERVER As String = ""
Public CONNECTION_STRING_READ As String
Public CONNECTION_STRING_IDB As String = "" Public CONNECTION_STRING_IDB As String = ""
Public CONNECTION_STRING_IDB_APP_SERVER As String = ""
Public CONNECTION_STRING_IDB_READ As String = ""
Public CONNECTION_STRING_IDB_WRITE As String = ""
Public IDB_ACTIVE As Boolean = False Public IDB_ACTIVE As Boolean = False
Public EDMIAppServerActive As Boolean = False Public EDMIAppServerActive As Boolean = False
@ -19,7 +14,7 @@
Public NO_DETAIL_PROFILES As Boolean = False Public NO_DETAIL_PROFILES As Boolean = False
Public DT_CONNECTIONS As DataTable Public DT_CONNECTIONS As DataTable
' Debug Settings ' Debug Settings
Public LOG_ERRORS_ONLY As Boolean = True Public DEBUG As Boolean = False
' Viewer Settings ' Viewer Settings
'Public VIEWER_UNIVERSAL As String = "" 'Public VIEWER_UNIVERSAL As String = ""

View File

@ -2,6 +2,8 @@
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.Database
Module ModuleRuntimeVariables Module ModuleRuntimeVariables
' Diese Werte müssen später zur Laufzeit geladen werden ' Diese Werte müssen später zur Laufzeit geladen werden
@ -57,7 +59,7 @@ Module ModuleRuntimeVariables
Public USER_RIGHT2 As Boolean = False Public USER_RIGHT2 As Boolean = False
Public USER_RIGHT3 As Boolean = False Public USER_RIGHT3 As Boolean = False
Public USER_RIGHT4 As Boolean = False Public USER_RIGHT4 As Boolean = False
Public USER_DEBUG_LOG As Boolean = False Public USER_CONFIG_DEBUG As Boolean = False
Public USER_GHOST_MODE_ACTIVE As Boolean = False Public USER_GHOST_MODE_ACTIVE As Boolean = False
Public USER_GHOST_MODE_USRNAME As String = "" Public USER_GHOST_MODE_USRNAME As String = ""
@ -86,6 +88,9 @@ Module ModuleRuntimeVariables
Public START_CW_LOC_VARIANT As String = 0 Public START_CW_LOC_VARIANT As String = 0
Public RibbonPageCustTitle As String = "" Public RibbonPageCustTitle As String = ""
Public RibbonPageCustItm1 As String = "" Public RibbonPageCustItm1 As String = ""
Public ButtonExport2Folder_Caption As String = ""
Public ButtonExport2Folder_RootFolder As String = ""
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0
Public LICENSE_EXPIRED As Boolean = False Public LICENSE_EXPIRED As Boolean = False
@ -146,4 +151,11 @@ Module ModuleRuntimeVariables
Public MyIndicies_Types As List(Of Integer) Public MyIndicies_Types As List(Of Integer)
Public _Client As Client Public _Client As Client
Public Database_ECM As MSSQLServer
Public Database_IDB As MSSQLServer
Public Database_APPSERVER As MSSQLServer
Public Timer5Mins_running As Boolean = False
Public TimerRefresh_running As Boolean = False
End Module End Module

View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.15.0")> <Assembly: AssemblyVersion("2.2.18.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@ -44,10 +44,12 @@ Partial Class frmAdmin2
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.GridControlWK3 = New DevExpress.XtraGrid.GridControl() Me.GridControlWK3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewWK3 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewWK3 = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -159,8 +161,6 @@ Partial Class frmAdmin2
Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter()
Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components)
Me.XtraSaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.XtraSaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.spcontwKonfMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.spcontwKonfMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.spcontwKonfMain.SuspendLayout() Me.spcontwKonfMain.SuspendLayout()
CType(Me.spcontwKonfleft, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.spcontwKonfleft, System.ComponentModel.ISupportInitialize).BeginInit()
@ -431,6 +431,13 @@ Partial Class frmAdmin2
Me.BarStaticItem1.Id = 15 Me.BarStaticItem1.Id = 15
Me.BarStaticItem1.Name = "BarStaticItem1" Me.BarStaticItem1.Name = "BarStaticItem1"
' '
'BarButtonItem11
'
resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11")
Me.BarButtonItem11.Id = 16
Me.BarButtonItem11.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem11.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem11.Name = "BarButtonItem11"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
@ -465,6 +472,13 @@ Partial Class frmAdmin2
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
' '
'RibbonPageGroup4
'
Me.RibbonPageGroup4.AllowTextClipping = False
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem11)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
@ -1431,20 +1445,6 @@ Partial Class frmAdmin2
' '
resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1") resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1")
' '
'RibbonPageGroup4
'
Me.RibbonPageGroup4.AllowTextClipping = False
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem11)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'BarButtonItem11
'
resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11")
Me.BarButtonItem11.Id = 16
Me.BarButtonItem11.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem11.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem11.Name = "BarButtonItem11"
'
'frmAdmin2 'frmAdmin2
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")

View File

@ -2091,7 +2091,7 @@
<value>619, 56</value> <value>619, 56</value>
</metadata> </metadata>
<metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1075, 56</value> <value>17, 95</value>
</metadata> </metadata>
<data name="XtraSaveFileDialog1.Filter" xml:space="preserve"> <data name="XtraSaveFileDialog1.Filter" xml:space="preserve">
<value>"xlsx-Dateien|*.xlsx"</value> <value>"xlsx-Dateien|*.xlsx"</value>
@ -2218,6 +2218,12 @@
<data name="&gt;&gt;BarStaticItem1.Type" xml:space="preserve"> <data name="&gt;&gt;BarStaticItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem11.Name" xml:space="preserve">
<value>BarButtonItem11</value>
</data>
<data name="&gt;&gt;BarButtonItem11.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value> <value>RibbonPage1</value>
</data> </data>
@ -2242,6 +2248,12 @@
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup4.Name" xml:space="preserve">
<value>RibbonPageGroup4</value>
</data>
<data name="&gt;&gt;RibbonPageGroup4.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridViewWK3.Name" xml:space="preserve"> <data name="&gt;&gt;GridViewWK3.Name" xml:space="preserve">
<value>GridViewWK3</value> <value>GridViewWK3</value>
</data> </data>
@ -2656,18 +2668,6 @@
<data name="&gt;&gt;XtraSaveFileDialog1.Type" xml:space="preserve"> <data name="&gt;&gt;XtraSaveFileDialog1.Type" xml:space="preserve">
<value>System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;RibbonPageGroup4.Name" xml:space="preserve">
<value>RibbonPageGroup4</value>
</data>
<data name="&gt;&gt;RibbonPageGroup4.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem11.Name" xml:space="preserve">
<value>BarButtonItem11</value>
</data>
<data name="&gt;&gt;BarButtonItem11.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmAdmin2</value> <value>frmAdmin2</value>
</data> </data>

View File

@ -57,7 +57,7 @@ Public Class frmAdmin2
End Sub End Sub
Sub Load_Email_template() Sub Load_Email_template()
Try Try
TBDD_EMAIL_TEMPLATETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_EMAIL_TEMPLATETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.TBDD_EMAIL_TEMPLATETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE) Me.TBDD_EMAIL_TEMPLATETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading EmailTemplates:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading EmailTemplates:")
@ -65,7 +65,7 @@ Public Class frmAdmin2
End Sub End Sub
Sub Load_Gui_Phrases() Sub Load_Gui_Phrases()
Try Try
TBDD_GUI_LANGUAGE_PHRASETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_GUI_LANGUAGE_PHRASETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE) Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading GUIPhrases:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading GUIPhrases:")
@ -101,7 +101,7 @@ Public Class frmAdmin2
'wenn Speichern ja 'wenn Speichern ja
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextEdit.Text}" Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextEdit.Text}"
If ClassDatabase.Execute_non_Query(oSQL) = True Then If Database_ECM.ExecuteNonQuery(oSQL) = True Then
Load_Email_template() Load_Email_template()
Status_Changed("Vorlage gelöscht!") Status_Changed("Vorlage gelöscht!")
End If End If
@ -128,10 +128,11 @@ Public Class frmAdmin2
End Sub End Sub
Private Sub SET_GRID_DESCRIPTION(pGridView As Views.Grid.GridView, pDT As DataTable) Private Sub SET_GRID_DESCRIPTION(pGridView As Views.Grid.GridView, pDT As DataTable)
Dim objectCount_Descr = $"{pGridView.Tag} [{pDT.Rows.Count}] " Dim objectCount_Descr = $"{pGridView.Tag} [{pDT.Rows.Count}] "
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE = "de-DE" Then
objectCount_Descr &= " records"
Else
objectCount_Descr &= " Datensätze" objectCount_Descr &= " Datensätze"
ElseIf USER_LANGUAGE = "en-US" Then
objectCount_Descr &= " records"
ElseIf USER_LANGUAGE = "fr-FR" Then
End If End If
pGridView.ViewCaption = objectCount_Descr pGridView.ViewCaption = objectCount_Descr
End Sub End Sub
@ -139,12 +140,12 @@ Public Class frmAdmin2
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Try Try
Dim oSQL = "SELECT * FROM TBPM_FURTHER_KONFIG_VIEW" Dim oSQL = "SELECT * FROM TBPM_FURTHER_KONFIG_VIEW"
DT_FURTHER_KONFIG_VIEW = ClassDatabase.Return_Datatable(oSQL, "Monitor-Load_Grid_Data1") DT_FURTHER_KONFIG_VIEW = Database_ECM.GetDatatable(oSQL) ', "Monitor-Load_Grid_Data1")
If Not IsNothing(DT_FURTHER_KONFIG_VIEW) Then If Not IsNothing(DT_FURTHER_KONFIG_VIEW) Then
If DT_FURTHER_KONFIG_VIEW.Rows.Count >= 1 Then If DT_FURTHER_KONFIG_VIEW.Rows.Count >= 1 Then
oSQL = DT_FURTHER_KONFIG_VIEW.Rows(0).Item("GRID_SQL") oSQL = DT_FURTHER_KONFIG_VIEW.Rows(0).Item("GRID_SQL")
GridViewWK1.Columns.Clear() GridViewWK1.Columns.Clear()
Dim oDTGRID1 As DataTable = ClassDatabase.Return_Datatable(oSQL, "FurtherConfig-Load_Grid_Data1") Dim oDTGRID1 As DataTable = Database_ECM.GetDatatable(oSQL) ', "FurtherConfig-Load_Grid_Data1")
GridControlWK1.DataSource = oDTGRID1 GridControlWK1.DataSource = oDTGRID1
GRID1_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(0).Item("GRID_TITLE") GRID1_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(0).Item("GRID_TITLE")
GridViewWK1.Tag = GRID1_TITLE GridViewWK1.Tag = GRID1_TITLE
@ -166,7 +167,7 @@ Public Class frmAdmin2
GridViewWK2.Tag = GRID2_TITLE GridViewWK2.Tag = GRID2_TITLE
GridViewWK2.Columns.Clear() GridViewWK2.Columns.Clear()
Dim oDTGRID2 As DataTable = ClassDatabase.Return_Datatable(GRID2_SQL, "FurtherConfig-Load_Grid_Data2") Dim oDTGRID2 As DataTable = Database_ECM.GetDatatable(GRID2_SQL) ', "FurtherConfig-Load_Grid_Data2")
GridControlWK2.DataSource = oDTGRID2 GridControlWK2.DataSource = oDTGRID2
SET_GRID_DESCRIPTION(GridViewWK2, oDTGRID2) SET_GRID_DESCRIPTION(GridViewWK2, oDTGRID2)
Select Case DT_FURTHER_KONFIG_VIEW.Rows.Count Select Case DT_FURTHER_KONFIG_VIEW.Rows.Count
@ -177,7 +178,7 @@ Public Class frmAdmin2
GridViewWK3.Tag = GRID3_TITLE GridViewWK3.Tag = GRID3_TITLE
GridViewWK3.Columns.Clear() GridViewWK3.Columns.Clear()
Dim oDTGRID3 As DataTable = ClassDatabase.Return_Datatable(GRID3_SQL, "FurtherConfig-Load_Grid_Data3") Dim oDTGRID3 As DataTable = Database_ECM.GetDatatable(GRID3_SQL) ', "FurtherConfig-Load_Grid_Data3")
GridControlWK3.DataSource = oDTGRID3 GridControlWK3.DataSource = oDTGRID3
SET_GRID_DESCRIPTION(GridViewWK3, oDTGRID3) SET_GRID_DESCRIPTION(GridViewWK3, oDTGRID3)
Case 4 Case 4
@ -185,14 +186,14 @@ Public Class frmAdmin2
GRID3_SQL = DT_FURTHER_KONFIG_VIEW.Rows(2).Item("GRID_SQL") GRID3_SQL = DT_FURTHER_KONFIG_VIEW.Rows(2).Item("GRID_SQL")
GridViewWK3.Tag = GRID3_TITLE GridViewWK3.Tag = GRID3_TITLE
GridViewWK3.Columns.Clear() GridViewWK3.Columns.Clear()
Dim oDTGRID3 As DataTable = ClassDatabase.Return_Datatable(GRID3_SQL, "FurtherConfig-Load_Grid_Data3") Dim oDTGRID3 As DataTable = Database_ECM.GetDatatable(GRID3_SQL) ', "FurtherConfig-Load_Grid_Data3")
GridControlWK3.DataSource = oDTGRID3 GridControlWK3.DataSource = oDTGRID3
SET_GRID_DESCRIPTION(GridViewWK3, oDTGRID3) SET_GRID_DESCRIPTION(GridViewWK3, oDTGRID3)
GRID4_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(3).Item("GRID_TITLE") GRID4_TITLE = DT_FURTHER_KONFIG_VIEW.Rows(3).Item("GRID_TITLE")
GRID4_SQL = DT_FURTHER_KONFIG_VIEW.Rows(3).Item("GRID_SQL") GRID4_SQL = DT_FURTHER_KONFIG_VIEW.Rows(3).Item("GRID_SQL")
GridViewWK4.Tag = GRID4_TITLE GridViewWK4.Tag = GRID4_TITLE
GridViewWK4.Columns.Clear() GridViewWK4.Columns.Clear()
Dim oDTGRID4 As DataTable = ClassDatabase.Return_Datatable(GRID4_SQL, "FurtherConfig-Load_Grid_Data4") Dim oDTGRID4 As DataTable = Database_ECM.GetDatatable(GRID4_SQL) ', "FurtherConfig-Load_Grid_Data4")
GridControlWK4.DataSource = oDTGRID4 GridControlWK4.DataSource = oDTGRID4
SET_GRID_DESCRIPTION(GridViewWK4, oDTGRID4) SET_GRID_DESCRIPTION(GridViewWK4, oDTGRID4)
End Select End Select

View File

@ -5,7 +5,7 @@ Public Class frmAdminPasswort
Private Sub frmAdminPasswort_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAdminPasswort_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)

View File

@ -27,20 +27,20 @@ Public Class frmAdministration
formloaded = False formloaded = False
UNSAVED_CHANGES_PROFILE = False UNSAVED_CHANGES_PROFILE = False
Try Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
PROF_ORIGIN = DD_DMSLiteDataSet.TBPM_PROFILE PROF_ORIGIN = DD_DMSLiteDataSet.TBPM_PROFILE
TBPM_TYPETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_TYPETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_GROUPSTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_GROUPSTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Refresh_Profildaten() Refresh_Profildaten()
@ -212,7 +212,7 @@ Public Class frmAdministration
End Try End Try
Else Else
Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY" Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY"
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) Dim oDT As DataTable = Database_IDB.GetDatatable(oSQL)
For Each oROW As DataRow In oDT.Rows For Each oROW As DataRow In oDT.Rows
Me.cmbObjekttypen.Items.Add(oROW.Item(1)) Me.cmbObjekttypen.Items.Add(oROW.Item(1))
Next Next
@ -484,7 +484,7 @@ Public Class frmAdministration
Series4Sequence.Value = 1 Series4Sequence.Value = 1
Dim oSQLChart As String = "SELECT * FROM TBPM_CHART ORDER BY GROUP_ID" Dim oSQLChart As String = "SELECT * FROM TBPM_CHART ORDER BY GROUP_ID"
DT_CHART_CONFIG = ClassDatabase.Return_Datatable(oSQLChart, "Adm_Chart") DT_CHART_CONFIG = Database_ECM.GetDatatable(oSQLChart) ', "Adm_Chart")
For Each oROW As DataRow In DT_CHART_CONFIG.Rows For Each oROW As DataRow In DT_CHART_CONFIG.Rows
If oROW.Item("GROUP_ID") = 1 Then If oROW.Item("GROUP_ID") = 1 Then
Series1GUID.Text = oROW.Item("GUID") Series1GUID.Text = oROW.Item("GUID")
@ -685,7 +685,7 @@ Public Class frmAdministration
End Sub End Sub
Private Function Execute_SQL(SQL As String) Private Function Execute_SQL(SQL As String)
Try Try
Dim SQLconnection As New SqlClient.SqlConnection(CONNECTION_STRING) Dim SQLconnection As New SqlClient.SqlConnection(CONNECTION_STRING_ECM)
Dim SQLcommand As New SqlCommand(SQL, SQLconnection) Dim SQLcommand As New SqlCommand(SQL, SQLconnection)
SQLconnection.Open() SQLconnection.Open()
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
@ -1082,7 +1082,7 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try Try
Dim oEXECSQL As String = $"EXEC PRPM_COPY_PROFILE {PROFILGUIDTextBox.Text},'{USER_USERNAME}'" Dim oEXECSQL As String = $"EXEC PRPM_COPY_PROFILE {PROFILGUIDTextBox.Text},'{USER_USERNAME}'"
If ClassDatabase.Execute_non_Query(oEXECSQL) = True Then If Database_ECM.ExecuteNonQuery(oEXECSQL) = True Then
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten() Refresh_Profildaten()
Else Else
@ -1106,7 +1106,7 @@ Public Class frmAdministration
Try Try
Dim profileID = PROFILGUIDTextBox.Text Dim profileID = PROFILGUIDTextBox.Text
Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}" Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}"
If ClassDatabase.Execute_non_Query(del) = True Then If Database_ECM.ExecuteNonQuery(del) = True Then
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten() Refresh_Profildaten()
End If End If
@ -1123,7 +1123,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja 'wenn Speichern ja
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & PROFILGUIDTextBox.Text) = True Then If Database_ECM.ExecuteNonQuery("DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & PROFILGUIDTextBox.Text) = True Then
MsgBox("Die Dateien zum Profil wurden erfolgreich gelöscht!", MsgBoxStyle.Information) MsgBox("Die Dateien zum Profil wurden erfolgreich gelöscht!", MsgBoxStyle.Information)
End If End If
End If End If
@ -1180,7 +1180,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Do You really want to delete all workflow-Jobs?" & vbNewLine & "If yes You have to wait for the next Sync-Job for the jobs.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") Dim result As MsgBoxResult = MsgBox("Do You really want to delete all workflow-Jobs?" & vbNewLine & "If yes You have to wait for the next Sync-Job for the jobs.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja 'wenn Speichern ja
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES") = True Then If Database_ECM.ExecuteNonQuery("DELETE FROM TBPM_PROFILE_FILES") = True Then
MsgBox("All workflow-jobs have been erased!", MsgBoxStyle.Information) MsgBox("All workflow-jobs have been erased!", MsgBoxStyle.Information)
End If End If
End If End If
@ -1201,7 +1201,7 @@ Public Class frmAdministration
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
ClassDatabase.Execute_non_Query(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''"))) Database_ECM.ExecuteNonQuery(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''")))
BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand
End If End If
Catch ex As Exception Catch ex As Exception
@ -1295,7 +1295,7 @@ Public Class frmAdministration
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION,SEQUENCE,CONTINUE_INDETERMINED) Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION,SEQUENCE,CONTINUE_INDETERMINED)
VALUES ({oProfileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}',{pSequence},{oContinueOIdS})" VALUES ({oProfileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}',{pSequence},{oContinueOIdS})"
If ClassDatabase.Execute_non_Query(sql, True) Then If Database_ECM.ExecuteNonQuery(sql) Then
tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}" tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
INSERT_ACTIVE = False INSERT_ACTIVE = False
End If End If
@ -1305,7 +1305,7 @@ Public Class frmAdministration
VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}', [SEQUENCE] = {oSequence}, CONTINUE_INDETERMINED = {oContinueOIdS} VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}', [SEQUENCE] = {oSequence}, CONTINUE_INDETERMINED = {oContinueOIdS}
WHERE GUID = {guid}" WHERE GUID = {guid}"
If ClassDatabase.Execute_non_Query(sql, True) Then If Database_ECM.ExecuteNonQuery(sql) Then
tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString} - RESTART NECESSARY" tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString} - RESTART NECESSARY"
End If End If
End If End If
@ -1344,7 +1344,7 @@ Public Class frmAdministration
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
ClassDatabase.Execute_non_Query(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''"))) Database_ECM.ExecuteNonQuery(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''")))
BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand
End If End If
Catch ex As Exception Catch ex As Exception
@ -1359,14 +1359,14 @@ Public Class frmAdministration
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
CURRENT_DESIGN_TYPE = "SQL_PROFILE" CURRENT_DESIGN_TYPE = "SQL_PROFILE"
Dim oSQL = $"SELECT [SQL_VIEW] FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}" Dim oSQL = $"SELECT [SQL_VIEW] FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}"
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) Dim oldSQL = Database_ECM.GetScalarValue(oSQL)
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
If ClassDatabase.Execute_non_Query(oUpdate) = True Then If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}" tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}"
CHANGES_FORM_DESIGN = True CHANGES_FORM_DESIGN = True
End If End If
@ -1384,14 +1384,14 @@ Public Class frmAdministration
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}" Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}"
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "bbtnItemFinishSQL_ItemClick-get SQL_BTN_FINISH") Dim oldSQL = Database_ECM.GetScalarValue(oSQL) ', CONNECTION_STRING_ECM, "bbtnItemFinishSQL_ItemClick-get SQL_BTN_FINISH")
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
If ClassDatabase.Execute_non_Query(oUpdate) = True Then If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
tsbStaticInfo.Caption = $"Profile SQLFinish saved - {Now.ToLongTimeString}" tsbStaticInfo.Caption = $"Profile SQLFinish saved - {Now.ToLongTimeString}"
CHANGES_FORM_DESIGN = True CHANGES_FORM_DESIGN = True
End If End If
@ -1528,7 +1528,7 @@ Public Class frmAdministration
,[CHANGED_WHO] = '{USER_USERNAME}' ,[CHANGED_WHO] = '{USER_USERNAME}'
,[GROUP_ID] = '{pSequence}' ,[GROUP_ID] = '{pSequence}'
WHERE GUID = {pGUID}" WHERE GUID = {pGUID}"
Return ClassDatabase.Execute_non_Query(oUpdate) Return Database_ECM.ExecuteNonQuery(oUpdate)
End Function End Function
Private Function Insert_ChartRow(pTitle As String, pArgument As String, pColumn As String, pType As String, pSQL As String, pSequence As String) Private Function Insert_ChartRow(pTitle As String, pArgument As String, pColumn As String, pType As String, pSQL As String, pSequence As String)
pSQL = pSQL.Replace("'", "''") pSQL = pSQL.Replace("'", "''")
@ -1548,7 +1548,7 @@ Public Class frmAdministration
,'{pTitle}' ,'{pTitle}'
,'{USER_USERNAME}' ,'{USER_USERNAME}'
,'{pSequence}')" ,'{pSequence}')"
Return ClassDatabase.Execute_non_Query(oInsert) Return Database_ECM.ExecuteNonQuery(oInsert)
End Function End Function
Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
@ -1667,7 +1667,7 @@ Public Class frmAdministration
End Sub End Sub
Private Function DELETE_ChartRow(pGUID As String) Private Function DELETE_ChartRow(pGUID As String)
Dim oDelete = $"DELETE FROM [dbo].[TBPM_CHART] WHERE GUID = {pGUID}" Dim oDelete = $"DELETE FROM [dbo].[TBPM_CHART] WHERE GUID = {pGUID}"
Return ClassDatabase.Execute_non_Query(oDelete) Return Database_ECM.ExecuteNonQuery(oDelete)
End Function End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

View File

@ -168,7 +168,7 @@ Public Class frmConnection
End Sub End Sub
Sub load_connections() Sub load_connections()
Try Try
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION) Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION)
TBDD_CONNECTIONDataGridView.AutoResizeColumns() TBDD_CONNECTIONDataGridView.AutoResizeColumns()
Catch ex As Exception Catch ex As Exception

View File

@ -9,7 +9,7 @@ Public Class frmControl_Detail
Public Function FillData(ID As Integer) Public Function FillData(ID As Integer)
Try Try
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_CONTROL_TABLETableAdapter.FillByGUID(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE, ID) TBPM_CONTROL_TABLETableAdapter.FillByGUID(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE, ID)
Return True Return True
Catch ex As System.Exception Catch ex As System.Exception
@ -57,7 +57,7 @@ Public Class frmControl_Detail
Private Sub frmControl_Detail_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmControl_Detail_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
If My.Settings.frmTableColumns_Position.IsEmpty = False Then If My.Settings.frmTableColumns_Position.IsEmpty = False Then
If My.Settings.frmTableColumns_Position.X > 0 And My.Settings.frmTableColumns_Position.Y > 0 Then If My.Settings.frmTableColumns_Position.X > 0 And My.Settings.frmTableColumns_Position.Y > 0 Then
Me.Location = My.Settings.frmTableColumns_Position Me.Location = My.Settings.frmTableColumns_Position
@ -93,7 +93,7 @@ Public Class frmControl_Detail
If oldSQL <> oForm.SQLCommand Then If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}' Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}" , CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
If ClassDatabase.Execute_non_Query(oUpdate) = True Then If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
tslblAenderungen.Caption = "Changes saved - " & Now tslblAenderungen.Caption = "Changes saved - " & Now
End If End If
@ -141,7 +141,7 @@ Public Class frmControl_Detail
If oldSQL <> oForm.SQLCommand Then If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}' Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}" , CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
If ClassDatabase.Execute_non_Query(oUpdate) = True Then If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
tslblAenderungen.Caption = "Changes saved - " & Now tslblAenderungen.Caption = "Changes saved - " & Now
End If End If

View File

@ -105,7 +105,7 @@ Public Class frmDesignerLayout
_LayoutSerializer = New LayoutControlSerializer(LOGCONFIG) _LayoutSerializer = New LayoutControlSerializer(LOGCONFIG)
Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG" Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG"
FormsDatatable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_WRITE) FormsDatatable = Database_IDB.GetDatatable(oSQL)
If Not IsNothing(FormsDatatable) Then If Not IsNothing(FormsDatatable) Then
For Each oRow As DataRow In FormsDatatable.Rows For Each oRow As DataRow In FormsDatatable.Rows
Dim oItem As New BarButtonItem(RibbonControl1.Manager, oRow.Item("TITLE")) Dim oItem As New BarButtonItem(RibbonControl1.Manager, oRow.Item("TITLE"))
@ -149,7 +149,7 @@ Public Class frmDesignerLayout
Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oControls}', XML_LAYOUT = '{oLayout}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {SelectedLayoutId}" Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oControls}', XML_LAYOUT = '{oLayout}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {SelectedLayoutId}"
ClassDatabase.Execute_non_Query_ConStr(oSql, CONNECTION_STRING_IDB_WRITE) Database_IDB.ExecuteNonQuery(oSql)
End Using End Using
End Using End Using
End Sub End Sub

View File

@ -96,10 +96,10 @@ Public Class frmFormDesigner
'End Try 'End Try
Try Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -116,7 +116,7 @@ Public Class frmFormDesigner
Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If ProfileId > 0 Then If ProfileId > 0 Then
Dim sql As String = $"SELECT NAME, INDEX_NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {ProfileId} AND CTRL_TYPE NOT IN ('BUTTON','LBL','LINE')" Dim sql As String = $"SELECT NAME, INDEX_NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {ProfileId} AND CTRL_TYPE NOT IN ('BUTTON','LBL','LINE')"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, "frmFormDesigner_FormClosing") Dim dt As DataTable = Database_ECM.GetDatatable(sql) ', "frmFormDesigner_FormClosing")
Dim missingIndexControls As New List(Of String) Dim missingIndexControls As New List(Of String)
@ -264,7 +264,7 @@ Public Class frmFormDesigner
SetMovementHandlers(dgv) SetMovementHandlers(dgv)
Case "TABLE" Case "TABLE"
Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]", "FDesignLaodControls") Dim oDTColumnsPerDevExGrid As DataTable = Database_ECM.GetDatatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]") ', "FDesignLaodControls")
Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True) Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True)
@ -514,7 +514,7 @@ Public Class frmFormDesigner
Private Function GetLastID() Private Function GetLastID()
Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId) Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId)
Return ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, "GetLastID") Return Database_ECM.GetScalarValue(sql)
End Function End Function
Sub SetActiveControlColor() Sub SetActiveControlColor()
@ -1062,7 +1062,7 @@ Public Class frmFormDesigner
Dim bimage() As Byte = BitmapToByteArray(image) Dim bimage() As Byte = BitmapToByteArray(image)
'UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG, WHERE GUID = @GUID" 'UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG, WHERE GUID = @GUID"
Dim SQL As String = "UPDATE TBPM_PROFILE_CONTROLS SET IMAGE_CONTROL = @MENU_IMG WHERE GUID = @GUID" Dim SQL As String = "UPDATE TBPM_PROFILE_CONTROLS SET IMAGE_CONTROL = @MENU_IMG WHERE GUID = @GUID"
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(CONNECTION_STRING) Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(CONNECTION_STRING_ECM)
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn) Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn)
cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = bimage cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = bimage
@ -1098,12 +1098,12 @@ Public Class frmFormDesigner
End If End If
Try Try
If ClassDatabase.Execute_non_Query($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue}, CHANGED_WHO = '{USER_USERNAME}' WHERE GUID = {guid}", True) = True Then If Database_ECM.ExecuteNonQuery($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue}, CHANGED_WHO = '{USER_USERNAME}' WHERE GUID = {guid}") = True Then
tslblAenderungen.Visible = True tslblAenderungen.Visible = True
tslblAenderungen.Text = "Änderungen gespeichert - " & Now tslblAenderungen.Text = "Änderungen gespeichert - " & Now
If columnName.ToUpper = "CTRL_TEXT" Then If columnName.ToUpper = "CTRL_TEXT" Then
Dim oSQL = $"EXEC PRPM_CHANGE_CONTROL_CAPTION {guid},{escapedValue},'{USER_USERNAME}','{USER_LANGUAGE}'" Dim oSQL = $"EXEC PRPM_CHANGE_CONTROL_CAPTION {guid},{escapedValue},'{USER_USERNAME}','{USER_LANGUAGE}'"
ClassDatabase.Execute_non_Query(oSQL) Database_ECM.ExecuteNonQuery(oSQL)
End If End If
CHANGES_FORM_DESIGN = True CHANGES_FORM_DESIGN = True
Return True Return True
@ -1125,7 +1125,7 @@ Public Class frmFormDesigner
Dim oGuid = clsTools.ShortGuid() Dim oGuid = clsTools.ShortGuid()
Dim oColumnName As String = "colNew" & oGuid Dim oColumnName As String = "colNew" & oGuid
Dim oColumnCaption As String = "New Column " & oGuid Dim oColumnCaption As String = "New Column " & oGuid
If ClassDatabase.Execute_non_Query($"INSERT INTO TBPM_CONTROL_TABLE (CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE) VALUES({CURRENT_CONTROL_ID}, '{oColumnName}', '{oColumnCaption}', 95)", True) = True Then If Database_ECM.ExecuteNonQuery($"INSERT INTO TBPM_CONTROL_TABLE (CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE) VALUES({CURRENT_CONTROL_ID}, '{oColumnName}', '{oColumnCaption}', 95)") = True Then
tslblAenderungen.Visible = True tslblAenderungen.Visible = True
tslblAenderungen.Text = "Änderungen gespeichert - " & Now tslblAenderungen.Text = "Änderungen gespeichert - " & Now
@ -1142,14 +1142,14 @@ Public Class frmFormDesigner
Try Try
CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}" Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}"
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "bbtnItemFinishSQL_ItemClick") Dim oldSQL = Database_ECM.GetScalarValue(oSQL)
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
If ClassDatabase.Execute_non_Query(oUpdate) = True Then If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
tslblAenderungen.Text = $"Profile SQLFinish saved - {Now.ToLongTimeString}" tslblAenderungen.Text = $"Profile SQLFinish saved - {Now.ToLongTimeString}"
tslblAenderungen.Visible = True tslblAenderungen.Visible = True
CHANGES_FORM_DESIGN = True CHANGES_FORM_DESIGN = True

View File

@ -24,10 +24,10 @@ Partial Class frmGhostMode
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGhostMode)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGhostMode))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -37,56 +37,70 @@ Partial Class frmGhostMode
' '
'RibbonControl1 'RibbonControl1
' '
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 2 Me.RibbonControl1.MaxItemId = 2
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(965, 139)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItem1
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start" resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Aktionen" resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 487) resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(965, 22)
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Ghost-Modus aktivieren"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
' '
'GridControl1 'GridControl1
' '
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.Location = New System.Drawing.Point(0, 139) Me.GridControl1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleDescription")
Me.GridControl1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleName")
Me.GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControl1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControl1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControl1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControl1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControl1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControl1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControl1.EmbeddedNavigator.ToolTip = resources.GetString("GridControl1.EmbeddedNavigator.ToolTip")
Me.GridControl1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControl1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl1.EmbeddedNavigator.ToolTipTitle")
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(965, 348)
Me.GridControl1.TabIndex = 9
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
' '
'GridView1 'GridView1
' '
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridView1, "GridView1")
Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1" Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@ -100,17 +114,14 @@ Partial Class frmGhostMode
Me.GridView1.OptionsView.ShowAutoFilterRow = True Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True] Me.GridView1.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView1.OptionsView.ShowViewCaption = True Me.GridView1.OptionsView.ShowViewCaption = True
Me.GridView1.ViewCaption = "Bitte wählen Sie einen Ghost User"
' '
'frmGhostMode 'frmGhostMode
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(965, 509)
Me.Controls.Add(Me.GridControl1) Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
Me.Name = "frmGhostMode" Me.Name = "frmGhostMode"
Me.TopMost = True Me.TopMost = True

View File

@ -0,0 +1,149 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Enable Ghost Mode</value>
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAIEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJSb2xlIj4NCiAgICA8
cGF0aCBkPSJNNCwydjE2YzAsNi42LDUuNCwxMiwxMiwxMnMxMi01LjQsMTItMTJWMkg0eiBNMTEsOWMx
LjcsMCwzLDEuMywzLDNIOEM4LDEwLjMsOS4zLDksMTEsOXogTTE2LDI0ICAgYy0zLjMsMC02LTIuNy02
LTZjMCwxLjEsMi43LDIsNiwyczYtMC45LDYtMkMyMiwyMS4zLDE5LjMsMjQsMTYsMjR6IE0xOCwxMmMw
LTEuNywxLjMtMywzLTNzMywxLjMsMywzSDE4eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0KPC9z
dmc+Cw==
</value>
</data>
</root>

View File

@ -0,0 +1,149 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Activer le mode fantôme</value>
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAIEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJSb2xlIj4NCiAgICA8
cGF0aCBkPSJNNCwydjE2YzAsNi42LDUuNCwxMiwxMiwxMnMxMi01LjQsMTItMTJWMkg0eiBNMTEsOWMx
LjcsMCwzLDEuMywzLDNIOEM4LDEwLjMsOS4zLDksMTEsOXogTTE2LDI0ICAgYy0zLjMsMC02LTIuNy02
LTZjMCwxLjEsMi43LDIsNiwyczYtMC45LDYtMkMyMiwyMS4zLDE5LjMsMjQsMTYsMjR6IE0xOCwxMmMw
LTEuNywxLjMtMywzLTNzMywxLjMsMywzSDE4eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0KPC9z
dmc+Cw==
</value>
</data>
</root>

View File

@ -117,7 +117,119 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>965, 139</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControl1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
<value>GridControl1</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="BarButtonItem1.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="GridView1.ViewCaption" xml:space="preserve">
<value>Bitte wählen Sie einen Ghost User</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>965, 348</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmGhostMode</value>
</data>
<data name="&gt;&gt;RibbonControl1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="&gt;&gt;GridView1.Name" xml:space="preserve">
<value>GridView1</value>
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Ghost-Modus aktivieren</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>965, 22</value>
</data>
<data name="&gt;&gt;BarButtonItem1.Name" xml:space="preserve">
<value>BarButtonItem1</value>
</data>
<data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 139</value>
</data>
<data name="BarButtonItem1.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="GridControl1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;RibbonControl1.Name" xml:space="preserve">
<value>RibbonControl1</value>
</data>
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
@ -143,4 +255,68 @@
dmc+Cw== dmc+Cw==
</value> </value>
</data> </data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="GridControl1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControl1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="&gt;&gt;RibbonControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="&gt;&gt;GridView1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 487</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>965, 509</value>
</data>
<data name="RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="GridControl1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Calibri, 8.25pt</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
</data>
<data name="RibbonControl1.ExpandCollapseItem.SearchTags" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>en-US</value>
</metadata>
</root> </root>

View File

@ -1,13 +1,13 @@
Public Class frmGhostMode Public Class frmGhostMode
Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'" Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'"
oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB, "frmGhostMode_Load") oSQL = Database_IDB.GetScalarValue(oSQL) ',CONNECTION_STRING_IDB, "frmGhostMode_Load")
Dim DT_USER = ClassDatabase.Return_Datatable(oSQL, "frmGhostMode_LoadDT") Dim DT_USER = Database_ECM.GetDatatable(oSQL) ', "frmGhostMode_LoadDT")
If IsNothing(DT_USER) Then If IsNothing(DT_USER) Then
oSQL = "SELECT [SQL_COMMAND] FROM TBDD_SQL_COMMANDS where TITLE = 'GHOST_SELECT'" oSQL = "SELECT [SQL_COMMAND] FROM TBDD_SQL_COMMANDS where TITLE = 'GHOST_SELECT'"
If Not IsNothing(oSQL) Then If Not IsNothing(oSQL) Then
oSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) oSQL = Database_IDB.GetScalarValue(oSQL) ', CONNECTION_STRING_ECM)
DT_USER = ClassDatabase.Return_Datatable(oSQL, "frmGhostMode_LoadDT2") DT_USER = Database_ECM.GetDatatable(oSQL) '(oSQL, "frmGhostMode_LoadDT2")
Else Else
MsgBox("No SQL for Ghostmode via DD_ECM. Check Your configuration.", MsgBoxStyle.Exclamation) MsgBox("No SQL for Ghostmode via DD_ECM. Check Your configuration.", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub

View File

@ -8,13 +8,13 @@ Public Class frmInvDashboard
Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Try Try
VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES) Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)
Catch ex As Exception Catch ex As Exception
MsgBox("Error loading form1 - " & ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) MsgBox("Error loading form1 - " & ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End Try End Try
VWPM_CHART_TOP5TableAdapter.Connection.ConnectionString = CONNECTION_STRING VWPM_CHART_TOP5TableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.VWPM_CHART_TOP5TableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_TOP5) Me.VWPM_CHART_TOP5TableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_TOP5)
Layout_Dashboard() Layout_Dashboard()
Catch ex As Exception Catch ex As Exception
@ -63,7 +63,7 @@ Public Class frmInvDashboard
Dim oChartArgument = cRow.Item("ARGUMENT") Dim oChartArgument = cRow.Item("ARGUMENT")
Dim oSqlchart = cRow.Item("SQL_COMMAND") Dim oSqlchart = cRow.Item("SQL_COMMAND")
oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME) oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME)
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart, "layputDashboard1") Dim DATA_DT As DataTable = Database_ECM.GetDatatable(oSqlchart) ', "layputDashboard1")
Dim series As Series = Create_Series(oChartTitle, oChartType.ToString.ToUpper) Dim series As Series = Create_Series(oChartTitle, oChartType.ToString.ToUpper)
@ -111,7 +111,7 @@ Public Class frmInvDashboard
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID)
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart, "layputDashboard2") Dim DATA_DT As DataTable = Database_ECM.GetDatatable(oSqlchart) ', "layputDashboard2")
' Create Series based on type ' Create Series based on type
Dim series As Series = Create_Series(oChartTitle, oChartType) Dim series As Series = Create_Series(oChartTitle, oChartType)

View File

@ -646,13 +646,13 @@
<value>438, 29</value> <value>438, 29</value>
</data> </data>
<data name="chkLogErrorsOnly.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkLogErrorsOnly.Size" type="System.Drawing.Size, System.Drawing">
<value>117, 21</value> <value>68, 21</value>
</data> </data>
<data name="chkLogErrorsOnly.TabIndex" type="System.Int32, mscorlib"> <data name="chkLogErrorsOnly.TabIndex" type="System.Int32, mscorlib">
<value>41</value> <value>41</value>
</data> </data>
<data name="chkLogErrorsOnly.Text" xml:space="preserve"> <data name="chkLogErrorsOnly.Text" xml:space="preserve">
<value>Log Errors only</value> <value>DEBUG</value>
</data> </data>
<data name="&gt;&gt;chkLogErrorsOnly.Name" xml:space="preserve"> <data name="&gt;&gt;chkLogErrorsOnly.Name" xml:space="preserve">
<value>chkLogErrorsOnly</value> <value>chkLogErrorsOnly</value>

View File

@ -1,4 +1,5 @@
Imports System.Globalization Imports System.Globalization
Imports DigitalData.Modules.Database
Public Class frmKonfig Public Class frmKonfig
Private email As New ClassEmail Private email As New ClassEmail
@ -12,16 +13,16 @@ Public Class frmKonfig
gvLogs.Columns.First().Caption = "Log Nachricht" gvLogs.Columns.First().Caption = "Log Nachricht"
If CONNECTION_STRING = String.Empty Then If CONNECTION_STRING_ECM = String.Empty Then
Me.TabControl1.SelectedIndex = 1 Me.TabControl1.SelectedIndex = 1
Load_ConString("") Load_ConString("")
Else Else
Load_ConString(CONNECTION_STRING) Load_ConString(CONNECTION_STRING_ECM)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION) Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
End If End If
chkLogErrorsOnly.Checked = CBool(LOG_ERRORS_ONLY) chkLogErrorsOnly.Checked = CBool(DEBUG)
txtIntervall.Text = CONFIG.Config.ReminderTimer txtIntervall.Text = CONFIG.Config.ReminderTimer
Catch ex As Exception Catch ex As Exception
@ -86,8 +87,9 @@ Public Class frmKonfig
result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
'ConnectionString in Anwendung speichern 'ConnectionString in Anwendung speichern
CONNECTION_STRING = oPlainConnectionString CONNECTION_STRING_ECM = oPlainConnectionString
ClassDatabase.Init() ClassDatabase.Init()
Database_ECM = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_ECM)
'Das Passwort verschlüsseln 'Das Passwort verschlüsseln
If chkbxUserAut.Checked = False Then If chkbxUserAut.Checked = False Then
Dim wrapper As New ClassEncryption("!35452didalog=") Dim wrapper As New ClassEncryption("!35452didalog=")
@ -100,18 +102,18 @@ Public Class frmKonfig
If RadioDefaultConnection.Checked Then If RadioDefaultConnection.Checked Then
LOGGER.Debug("ConnectionString saved") LOGGER.Debug("ConnectionString saved")
CONNECTION_STRING = oPlainConnectionString CONNECTION_STRING_ECM = oPlainConnectionString
CONFIG.Config.ConnectionString = oEncryptedConnectionString CONFIG.Config.ConnectionString = oEncryptedConnectionString
CONFIG.Save(ForceAll:=True) CONFIG.Save(ForceAll:=True)
Else Else
LOGGER.Debug("ConnectionStringTest saved") LOGGER.Debug("ConnectionStringTest saved")
CONNECTION_STRING = oPlainConnectionString CONNECTION_STRING_ECM = oPlainConnectionString
CONFIG.Config.ConnectionStringTest = oEncryptedConnectionString CONFIG.Config.ConnectionStringTest = oEncryptedConnectionString
CONFIG.Save(ForceAll:=True) CONFIG.Save(ForceAll:=True)
End If End If
Load_ConString(CONNECTION_STRING) Load_ConString(CONNECTION_STRING_ECM)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION) Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
End If End If
Catch ex As Exception Catch ex As Exception
@ -195,9 +197,9 @@ Public Class frmKonfig
End Sub End Sub
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LOG_ERRORS_ONLY = chkLogErrorsOnly.Checked DEBUG = chkLogErrorsOnly.Checked
LOGCONFIG.Debug = Not LOG_ERRORS_ONLY LOGCONFIG.Debug = DEBUG
CONFIG.Config.LogErrorsOnly = LOG_ERRORS_ONLY CONFIG.Config.DEBUG = DEBUG
CONFIG.Save() CONFIG.Save()
'SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked) 'SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
End Sub End Sub

View File

@ -84,7 +84,7 @@ Public Class frmLicense
Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")

View File

@ -4,7 +4,7 @@ Public Class frmLoginAdmin
Dim akt_pw As String Dim akt_pw As String
Private Sub frmLoginAdmin_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmLoginAdmin_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW
Me.txtPW.Focus() Me.txtPW.Focus()
Me.txtPW.Text = "" Me.txtPW.Text = ""

View File

@ -92,6 +92,7 @@ Partial Class frmMain
Me.SearchItem2 = New DevExpress.XtraBars.BarButtonItem() Me.SearchItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarStaticItemAppServer = New DevExpress.XtraBars.BarStaticItem() Me.BarStaticItemAppServer = New DevExpress.XtraBars.BarStaticItem()
Me.bbtniCW = New DevExpress.XtraBars.BarButtonItem() Me.bbtniCW = New DevExpress.XtraBars.BarButtonItem()
Me.bsiInactivityCheck = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -235,6 +236,12 @@ Partial Class frmMain
' '
Me.GridControl_Docs.ContextMenuStrip = Me.ContextMenuGrid Me.GridControl_Docs.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControl_Docs, "GridControl_Docs") resources.ApplyResources(Me.GridControl_Docs, "GridControl_Docs")
Me.GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControl_Docs.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControl_Docs.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControl_Docs.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControl_Docs.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControl_Docs.MainView = Me.GridView_Docs Me.GridControl_Docs.MainView = Me.GridView_Docs
Me.GridControl_Docs.Name = "GridControl_Docs" Me.GridControl_Docs.Name = "GridControl_Docs"
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs}) Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs})
@ -464,9 +471,9 @@ Partial Class frmMain
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 26 Me.RibbonControl1.MaxItemId = 27
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
@ -571,7 +578,6 @@ Partial Class frmMain
Me.bsilastsync.ImageOptions.Image = CType(resources.GetObject("bsilastsync.ImageOptions.Image"), System.Drawing.Image) Me.bsilastsync.ImageOptions.Image = CType(resources.GetObject("bsilastsync.ImageOptions.Image"), System.Drawing.Image)
Me.bsilastsync.ImageOptions.LargeImage = CType(resources.GetObject("bsilastsync.ImageOptions.LargeImage"), System.Drawing.Image) Me.bsilastsync.ImageOptions.LargeImage = CType(resources.GetObject("bsilastsync.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsilastsync.Name = "bsilastsync" Me.bsilastsync.Name = "bsilastsync"
Me.bsilastsync.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
' '
'bsiDebug 'bsiDebug
' '
@ -693,6 +699,14 @@ Partial Class frmMain
Me.bbtniCW.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Me.bbtniCW.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
Me.bbtniCW.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Me.bbtniCW.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
' '
'bsiInactivityCheck
'
resources.ApplyResources(Me.bsiInactivityCheck, "bsiInactivityCheck")
Me.bsiInactivityCheck.Id = 26
Me.bsiInactivityCheck.ImageOptions.SvgImage = CType(resources.GetObject("bsiInactivityCheck.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bsiInactivityCheck.Name = "bsiInactivityCheck"
Me.bsiInactivityCheck.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup4}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup4})
@ -746,6 +760,7 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemAppServer) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemAppServer)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInactivityCheck)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiGeneralInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiGeneralInfo)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync)
@ -1552,4 +1567,5 @@ Partial Class frmMain
Friend WithEvents SearchItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents SearchItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarStaticItemAppServer As DevExpress.XtraBars.BarStaticItem Friend WithEvents BarStaticItemAppServer As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bbtniCW As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtniCW As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bsiInactivityCheck As DevExpress.XtraBars.BarStaticItem
End Class End Class

File diff suppressed because it is too large Load Diff

View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAYgBBwGIAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAaQBBwGkAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -291,6 +291,27 @@
<data name="GridControl_Docs.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="GridControl_Docs.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
</data> </data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>True</value>
</data>
<data name="GridControl_Docs.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>None</value>
</data>
<data name="GridControl_Docs.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl_Docs.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>None</value>
</data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl_Docs.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>Application</value>
</data>
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing"> <data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>233, 25</value> <value>233, 25</value>
</data> </data>
@ -1117,7 +1138,6 @@
<data name="bbtnitDashboardInv.Caption" xml:space="preserve"> <data name="bbtnitDashboardInv.Caption" xml:space="preserve">
<value>Dashboard Invoice</value> <value>Dashboard Invoice</value>
</data> </data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="bbtnitDashboardInv.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bbtnitDashboardInv.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
@ -1374,6 +1394,34 @@
<data name="bbtniCW.Caption" xml:space="preserve"> <data name="bbtniCW.Caption" xml:space="preserve">
<value>BarButtonItem3</value> <value>BarButtonItem3</value>
</data> </data>
<data name="bsiInactivityCheck.Caption" xml:space="preserve">
<value>BarStaticItem1</value>
</data>
<data name="bsiInactivityCheck.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABoEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTY2hlZHVsZXIiPg0K
ICAgIDxwb2x5Z29uIHBvaW50cz0iMTYsMTYgMTYsOCAxNCw4IDE0LDE4IDI0LDE4IDI0LDE2ICAiIGNs
YXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwx
NCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0xNiwyNmMtNS41LDAtMTAtNC41LTEwLTEwICAg
YzAtNS41LDQuNS0xMCwxMC0xMHMxMCw0LjUsMTAsMTBDMjYsMjEuNSwyMS41LDI2LDE2LDI2eiIgY2xh
c3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -2050,6 +2098,12 @@
<data name="&gt;&gt;bbtniCW.Type" xml:space="preserve"> <data name="&gt;&gt;bbtniCW.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bsiInactivityCheck.Name" xml:space="preserve">
<value>bsiInactivityCheck</value>
</data>
<data name="&gt;&gt;bsiInactivityCheck.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value> <value>RibbonPage1</value>
</data> </data>
@ -2512,7 +2566,6 @@
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="DocumentViewerBarManager1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="DocumentViewerBarManager1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu

View File

@ -89,7 +89,7 @@ Public Class frmMain
Private Function Free_File() Private Function Free_File()
Try Try
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}" Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}"
Return ClassDatabase.Execute_non_Query(sql) Return Database_ECM.ExecuteNonQuery(sql)
Catch ex As Exception Catch ex As Exception
allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}") allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}")
LOGGER.Error(ex) LOGGER.Error(ex)
@ -317,7 +317,7 @@ Public Class frmMain
bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If End If
Check_Timer_Notification() Check_Timer_Notification()
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("FormLoad")
Restore_Form_Position() Restore_Form_Position()
@ -381,15 +381,31 @@ Public Class frmMain
End Try End Try
End Sub End Sub
Public Sub Timer_Inactivity_Reset_Disable() Public Sub Timer_Inactivity_Reset_Disable(pTrigger As String)
Try Try
If Timer5Mins_running = True Or TimerRefresh_running = True Then
Exit Sub
End If
If INACTIVITY_DURATION <> 0 Then If INACTIVITY_DURATION <> 0 Then
TimerInactivity.Stop() TimerInactivity.Stop()
TimerInactivity.Interval = INACTIVITY_DURATION * 60000 TimerInactivity.Interval = INACTIVITY_DURATION * 60000
TimerInactivity.Start() TimerInactivity.Start()
bsiInactivityCheck.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Dim StartTime As DateTime = #12:00:00 AM#
'load combo box
Dim oStarttime As DateTime = Now
oStarttime = oStarttime.AddMinutes(INACTIVITY_DURATION)
If LOGCONFIG.Debug = False Then
pTrigger = ""
Else
pTrigger = $"({pTrigger})"
End If
bsiInactivityCheck.Caption = $"Next Inactivity-Check: {oStarttime.ToShortTimeString} {pTrigger}"
Else Else
TimerInactivity.Enabled = False TimerInactivity.Enabled = False
TimerInactivity.Stop() TimerInactivity.Stop()
bsiInactivityCheck.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -686,7 +702,7 @@ Public Class frmMain
FRONTEND_ACTION = "NAVBAR LINK CLICKED" FRONTEND_ACTION = "NAVBAR LINK CLICKED"
Dim _tag = e.Link.Item.Tag Dim _tag = e.Link.Item.Tag
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("navBar_LinkClicked")
If Not IsNothing(_tag) Then If Not IsNothing(_tag) Then
If _tag.ToString.Contains("itmProfile#") Then If _tag.ToString.Contains("itmProfile#") Then
@ -781,7 +797,7 @@ Public Class frmMain
oSQL = oSQL.Replace("@DATE", Now.ToShortDateString) oSQL = oSQL.Replace("@DATE", Now.ToShortDateString)
oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
CURR_DT_OVERVIEW = Await ClassDatabase.Return_DatatableAsync(oSQL, "Load_single_Profile") CURR_DT_OVERVIEW = Await Database_ECM.GetDatatableAsync(oSQL)
If ForceReload = True Then If ForceReload = True Then
LOGGER.Info("ForceReload is true!") LOGGER.Info("ForceReload is true!")
End If End If
@ -1070,7 +1086,7 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
TimerRefresh_running = True
'If Application.OpenForms().OfType(Of frmValidator).Any Then 'If Application.OpenForms().OfType(Of frmValidator).Any Then
' Exit Sub ' Exit Sub
'End If 'End If
@ -1090,7 +1106,7 @@ Public Class frmMain
' Dim oUpdate = "Not Defined" ' Dim oUpdate = "Not Defined"
' Try ' Try
' oUpdate = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = NULL, IN_WORK_WHEN = NULL where UPPER(WORK_USER) = UPPER('{USER_USERNAME}')" ' oUpdate = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = NULL, IN_WORK_WHEN = NULL where UPPER(WORK_USER) = UPPER('{USER_USERNAME}')"
' ClassDatabase.Execute_non_Query(oUpdate) ' Database_ECM.ExecuteNonQuery(oUpdate)
' Catch ex As Exception ' Catch ex As Exception
' LOGGER.Warn($"Unexpected Error in freefileforUser [{oUpdate}] - {ex.Message}") ' LOGGER.Warn($"Unexpected Error in freefileforUser [{oUpdate}] - {ex.Message}")
' End Try ' End Try
@ -1099,6 +1115,7 @@ Public Class frmMain
If bwSync.IsBusy Then If bwSync.IsBusy Then
Exit Sub Exit Sub
TimerRefresh_running = False
End If End If
Try Try
' SaveGridLayout() ' SaveGridLayout()
@ -1119,7 +1136,7 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
TimerRefresh_running = False
'BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always 'BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
'' call this method to start your asynchronous Task. '' call this method to start your asynchronous Task.
'bwSync.RunWorkerAsync() 'bwSync.RunWorkerAsync()
@ -1462,8 +1479,21 @@ Public Class frmMain
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...") LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim oFocusedDocGUID
Dim oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) Try
oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Catch ex As Exception
MsgBox("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", MsgBoxStyle.Critical)
End Try
Dim oFocusedDocID
Try
oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
Catch ex As Exception
MsgBox("Could not get DocID. Inform Your admin-team: Check Your View-Config", MsgBoxStyle.Critical)
End Try
If IsNothing(oFocusedDocID) Then If IsNothing(oFocusedDocID) Then
LOGGER.Warn("In hitInfo.InDataRow: DocID is nothing!!!") LOGGER.Warn("In hitInfo.InDataRow: DocID is nothing!!!")
bsiMessage.Caption = "Error getting DocID!" bsiMessage.Caption = "Error getting DocID!"
@ -1499,7 +1529,7 @@ Public Class frmMain
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
CURRENT_DOC_PATH = DOC_PATH CURRENT_DOC_PATH = DOC_PATH
Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})" Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})"
Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, $"Item_Scope-FNPM_CHECK_DocGUID_Valid") Dim oResult = Database_ECM.GetScalarValue(oSQL)
Try Try
If CBool(oResult) = True Then If CBool(oResult) = True Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID) Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
@ -1700,7 +1730,7 @@ Public Class frmMain
oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString) oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString)
oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
CURR_DT_OVERVIEW = Await ClassDatabase.Return_DatatableAsync(oSQLOverview, "Load_Grid_Overview") CURR_DT_OVERVIEW = Await Database_ECM.GetDatatableAsync(oSQLOverview)
oStopWatch2.Done() oStopWatch2.Done()
If Not IsNothing(CURR_DT_OVERVIEW) Then If Not IsNothing(CURR_DT_OVERVIEW) Then
@ -1978,7 +2008,7 @@ Public Class frmMain
Private Async Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click Private Async Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
FRONTEND_ACTION = "RESET_LAYOUT" FRONTEND_ACTION = "RESET_LAYOUT"
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("TabellenlayoutZurücksetzenToolStripMenuItem")
Await Reset_GridLayout(False) Await Reset_GridLayout(False)
Await Decide_Load(False, True) Await Decide_Load(False, True)
SaveGridLayout() SaveGridLayout()
@ -2140,7 +2170,7 @@ Public Class frmMain
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL, "GetBaseData2") CURR_DT_VWPM_PROFILE_ACTIVE = Database_ECM.GetDatatable(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
LoadCURRENT_DT_PROFILES() LoadCURRENT_DT_PROFILES()
@ -2203,7 +2233,7 @@ Public Class frmMain
End Sub End Sub
Sub Handling_DEBUG_USER() Sub Handling_DEBUG_USER()
If USER_DEBUG_LOG = True Then If DEBUG = True Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!" bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!"
Else Else
@ -2223,7 +2253,7 @@ Public Class frmMain
Dim oMessage = PrepareLogMessage(oSLogstring) Dim oMessage = PrepareLogMessage(oSLogstring)
Dim oDateTime As Date = CDate(oLogSplit(0)) Dim oDateTime As Date = CDate(oLogSplit(0))
oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN],DATE_STR) VALUES({USER_ID},'{oMessage}',GetDate(),'{oDateTime}')" oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN],DATE_STR) VALUES({USER_ID},'{oMessage}',GetDate(),'{oDateTime}')"
ClassDatabase.Execute_non_Query(oSQL) Database_ECM.ExecuteNonQuery(oSQL)
Next Next
LOGCONFIG.ClearLogs() LOGCONFIG.ClearLogs()
Catch ex As Exception Catch ex As Exception
@ -2243,7 +2273,7 @@ Public Class frmMain
End Sub End Sub
Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem")
Try Try
GridView_Docs.ClearFindFilter() GridView_Docs.ClearFindFilter()
@ -2356,18 +2386,19 @@ Public Class frmMain
Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick
Try Try
Timer5Mins_running = True
If Not bwBasicData.IsBusy Then If Not bwBasicData.IsBusy Then
BarEditItem1.Caption = "Get BasicData" BarEditItem1.Caption = "Get BasicData"
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
bwBasicData.RunWorkerAsync() bwBasicData.RunWorkerAsync()
End If End If
If USER_DEBUG_LOG = True Then If DEBUG = True Then
' 'Jetzt de rinsert der Inhalte ' 'Jetzt de rinsert der Inhalte
If Not IsNothing(LOGCONFIG.Logs) Then If Not IsNothing(LOGCONFIG.Logs) Then
If LOGCONFIG.Logs.Count > 0 Then If LOGCONFIG.Logs.Count > 0 Then
' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}"
' ClassDatabase.Execute_non_Query(odel) ' Database_ECM.ExecuteNonQuery(odel)
Dim thread As New Thread(AddressOf DebuglogBackgroundthread) Dim thread As New Thread(AddressOf DebuglogBackgroundthread)
thread.Start() thread.Start()
@ -2379,6 +2410,7 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Timer5Mins Error: {ex.Message}") LOGGER.Warn($"Timer5Mins Error: {ex.Message}")
End Try End Try
Timer5Mins_running = False
End Sub End Sub
Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork
GetBaseData("bwBasicData") GetBaseData("bwBasicData")
@ -2491,7 +2523,7 @@ Public Class frmMain
Dim oReceipiant = "" Dim oReceipiant = ""
Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)" Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, $"DateiAlsLinkVersendenToolStripMenuItem_Click") Dim oFilePath = Database_ECM.GetScalarValue(oSQL)
Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>" Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>"
Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>" Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>"
@ -2519,7 +2551,7 @@ Public Class frmMain
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
End If End If
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged")
Dim objectCount_Descr = GridView_Docs.RowCount.ToString Dim objectCount_Descr = GridView_Docs.RowCount.ToString
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
objectCount_Descr &= " objects (filtered)" objectCount_Descr &= " objects (filtered)"
@ -2547,36 +2579,37 @@ Public Class frmMain
End Sub End Sub
Private Sub TimerInactivity_Tick(sender As Object, e As EventArgs) Handles TimerInactivity.Tick Private Sub TimerInactivity_Tick(sender As Object, e As EventArgs) Handles TimerInactivity.Tick
Try Try
If Application.OpenForms().OfType(Of frmValidator).Any Then If Application.OpenForms().OfType(Of frmValidator).Any Then
bsiMessage.Caption = "Validation Active - no Inactivity-Logout" bsiMessage.Caption = "Validation Active - no Inactivity-Logout"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("frmValidator")
Exit Sub Exit Sub
End If End If
If Application.OpenForms().OfType(Of frmAdministration).Any Then If Application.OpenForms().OfType(Of frmAdministration).Any Then
bsiMessage.Caption = "Administration Active - no Inactivity-Logout" bsiMessage.Caption = "Administration Active - no Inactivity-Logout"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("frmAdministration")
Exit Sub Exit Sub
End If End If
If Application.OpenForms().OfType(Of frmAdmin2).Any Then If Application.OpenForms().OfType(Of frmAdmin2).Any Then
bsiMessage.Caption = "Administration2 Active - no Inactivity-Logout" bsiMessage.Caption = "Administration2 Active - no Inactivity-Logout"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("frmAdmin2")
Exit Sub Exit Sub
End If End If
If Application.OpenForms().OfType(Of frmMonitor).Any Then If Application.OpenForms().OfType(Of frmMonitor).Any Then
bsiMessage.Caption = "Monitoring open - no Inactivity-Logout" bsiMessage.Caption = "Monitoring open - no Inactivity-Logout"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("frmMonitor")
Exit Sub Exit Sub
End If End If
If GHOSTMODE_ACTIVE And USER_GHOST_MODE_ACTIVE Then If GHOSTMODE_ACTIVE And USER_GHOST_MODE_ACTIVE Then
bsiMessage.Caption = "GhostMode Active - no Inactivity-Logout" bsiMessage.Caption = "GhostMode Active - no Inactivity-Logout"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("USER_GHOST_MODE_ACTIVE")
Exit Sub Exit Sub
End If End If
INACTIVITYRecognized = True INACTIVITYRecognized = True
@ -2643,7 +2676,7 @@ Public Class frmMain
If FRONTEND_ACTION <> "NONE" Then If FRONTEND_ACTION <> "NONE" Then
Exit Sub Exit Sub
End If End If
Timer_Inactivity_Reset_Disable() Timer_Inactivity_Reset_Disable("GridLayout_Changed")
SaveGridLayout() SaveGridLayout()
End Sub End Sub
@ -2651,4 +2684,8 @@ Public Class frmMain
Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridView_Docs.EndGrouping Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridView_Docs.EndGrouping
GridLayout_Changed() GridLayout_Changed()
End Sub End Sub
Private Sub bsilastsync_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bsilastsync.ItemClick
End Sub
End Class End Class

View File

@ -58,7 +58,7 @@ Public Class frmMassValidator
Size = My.Settings.frmMassValidatorSize Size = My.Settings.frmMassValidatorSize
End If End If
Try Try
DTCONTROLS = ClassDatabase.Return_Datatable($"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,{USER_LANGUAGE},CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG,* FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC", "MV_Load1") DTCONTROLS = Database_ECM.GetDatatable($"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,{USER_LANGUAGE},CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG,* FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC") ', "MV_Load1")
LOGGER.Debug("Profile Data geladen") LOGGER.Debug("Profile Data geladen")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -102,7 +102,7 @@ Public Class frmMassValidator
tslblCountDocs.Text = "#Documents for MassChange: " & CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count tslblCountDocs.Text = "#Documents for MassChange: " & CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count
Next Next
If LOG_ERRORS_ONLY = False Then If DEBUG = False Then
LOGGER.Info(" >> Profildaten gespeichert") LOGGER.Info(" >> Profildaten gespeichert")
LOGGER.Info(" >> WD_Search: " & WM_SEARCH) LOGGER.Info(" >> WD_Search: " & WM_SEARCH)
LOGGER.Info(" >> finalProfile: " & FINAL_PROFILE) LOGGER.Info(" >> finalProfile: " & FINAL_PROFILE)
@ -367,7 +367,7 @@ Public Class frmMassValidator
Case "TABLE" Case "TABLE"
LOGGER.Debug("Versuch Tabelle zu laden") LOGGER.Debug("Versuch Tabelle zu laden")
Dim oDTMyColumns As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE", "MV_LoadControls1") Dim oDTMyColumns As DataTable = Database_ECM.GetDatatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE") ', "MV_LoadControls1")
oControl = ClassControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False) oControl = ClassControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False)
End Select End Select
@ -417,7 +417,7 @@ Public Class frmMassValidator
oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, True) oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, True)
LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand) LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
_dependingControl_in_action = True _dependingControl_in_action = True
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand, "MV_OnLookUp1") Dim oDTDEPENDING_RESULT As DataTable = Database_ECM.GetDatatable(oSqlCommand) ', "MV_OnLookUp1")
Try Try
Dim oDependingLookup As LookupControl3 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault() Dim oDependingLookup As LookupControl3 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
For Each oControl As Control In pnldesigner.Controls For Each oControl As Control In pnldesigner.Controls
@ -554,7 +554,7 @@ Public Class frmMassValidator
Select Case Typ Select Case Typ
'Tabellendarstellung 'Tabellendarstellung
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {CONTROL_ID} ORDER BY SEQUENCE", "MV_FillIndexValues") Dim dt As DataTable = Database_ECM.GetDatatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {CONTROL_ID} ORDER BY SEQUENCE") ', "MV_FillIndexValues")
Dim SpaltenWerte As String() Dim SpaltenWerte As String()
If dt.Rows.Count > 1 Then If dt.Rows.Count > 1 Then
For Each Zeile As Object In wertWD For Each Zeile As Object In wertWD
@ -1026,7 +1026,7 @@ Public Class frmMassValidator
If TypeOf control Is Label Then Exit Sub 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 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, "MV_LoadSimpleData") Dim dt As DataTable = Database_ECM.GetDatatable(sql) ', "MV_LoadSimpleData")
If IsNothing(dt) Then Exit Sub If IsNothing(dt) Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub If dt.Rows.Count = 0 Then Exit Sub
@ -1048,7 +1048,7 @@ Public Class frmMassValidator
sql = clsPatterns.ReplaceInternalValues(sql) sql = clsPatterns.ReplaceInternalValues(sql)
LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql) LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql)
'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement)
dt = ClassDatabase.Return_Datatable(sql, "MV_LoadSimpleData1") dt = Database_ECM.GetDatatable(sql) ', "MV_LoadSimpleData1")
If IsNothing(dt) Then If IsNothing(dt) Then
MsgBox($"SQL-Query for control {control.Name} is invalid.") MsgBox($"SQL-Query for control {control.Name} is invalid.")
@ -1144,7 +1144,7 @@ Public Class frmMassValidator
If CreateWMObject() = True Then If CreateWMObject() = True Then
If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID) Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
If ClassDatabase.Execute_non_Query(sql) = True Then If Database_ECM.ExecuteNonQuery(sql) = True Then
workedFiles += 1 workedFiles += 1
End If End If
End If End If
@ -1237,14 +1237,14 @@ Public Class frmMassValidator
WORK_HISTORY_ENTRY = "" WORK_HISTORY_ENTRY = ""
End If End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY) Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins) Database_ECM.ExecuteNonQuery(ins)
'####### ANNOTIEREN WENN KONFIGURIERT ####### '####### ANNOTIEREN WENN KONFIGURIERT #######
If docrow.Item("FULL_PATH").ToString.ToLower.EndsWith(".pdf") Then If docrow.Item("FULL_PATH").ToString.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
Dim 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) Dim 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)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(Sql, "MV_Finish1") Dim DT_ENTRY As DataTable = Database_ECM.GetDatatable(Sql) ', "MV_Finish1")
If Not IsNothing(DT_ENTRY) Then If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT") Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
@ -1255,7 +1255,7 @@ Public Class frmMassValidator
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES") Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then If CBool(value) = True Then
Dim Sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID) Dim Sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(Sql, "MV_Finish2") Dim DT_ENTRIES As DataTable = Database_ECM.GetDatatable(Sql) ', "MV_Finish2")
If Not IsNothing(DT_ENTRIES) Then If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = "" Dim AnnotationString As String = ""
@ -1318,12 +1318,12 @@ Public Class frmMassValidator
Private Function GetWMDocPathWindows(_CheckStandard As Integer) Private Function GetWMDocPathWindows(_CheckStandard As Integer)
Dim oResult As String Dim oResult As String
Dim oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},{_CheckStandard})" Dim oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},{_CheckStandard})"
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "MVGetWMDocPathWindows1") oResult = Database_ECM.GetScalarValue(oSQL)
LOGGER.Debug($"Checking file 0 GDP [{oResult}] exists?...") LOGGER.Debug($"Checking file 0 GDP [{oResult}] exists?...")
If File.Exists(oResult) = False Then If File.Exists(oResult) = False Then
LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)" oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)"
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "MVGetWMDocPathWindows1") oResult = Database_ECM.GetScalarValue(oSQL)
LOGGER.Debug($"Checking file 1 GDP [{oResult}] exists?...") LOGGER.Debug($"Checking file 1 GDP [{oResult}] exists?...")
If File.Exists(oResult) = False Then If File.Exists(oResult) = False Then
Return False Return False

View File

@ -55,7 +55,7 @@ Public Class frmMonitor
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail1") Dim oDT2 As DataTable = Database_ECM.GetDatatable(oDetailSQL) ', "Monitor_Detail1")
If Not IsNothing(oDT2) Then If Not IsNothing(oDT2) Then
LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2") LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
GridView2.Columns.Clear() GridView2.Columns.Clear()
@ -76,7 +76,7 @@ Public Class frmMonitor
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail2") Dim oDT3 As DataTable = Database_ECM.GetDatatable(oDetailSQL) ', "Monitor_Detail2")
LOGGER.Debug($"oDetailSQL for Grid 3: {oDetailSQL}") LOGGER.Debug($"oDetailSQL for Grid 3: {oDetailSQL}")
If Not IsNothing(oDT3) Then If Not IsNothing(oDT3) Then
LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3") LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
@ -91,7 +91,7 @@ Public Class frmMonitor
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
LOGGER.Debug($"oDetailSQL for Grid 4: {oDetailSQL}") LOGGER.Debug($"oDetailSQL for Grid 4: {oDetailSQL}")
Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail3") Dim oDT4 As DataTable = Database_ECM.GetDatatable(oDetailSQL) ', "Monitor_Detail3")
If Not IsNothing(oDT4) Then If Not IsNothing(oDT4) Then
LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4") LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4")
GridView4.Columns.Clear() GridView4.Columns.Clear()
@ -186,12 +186,12 @@ Public Class frmMonitor
Try Try
FormShown = False FormShown = False
Dim oSQL = "SELECT * FROM TBPM_MONITOR_KONFIG" Dim oSQL = "SELECT * FROM TBPM_MONITOR_KONFIG"
DT_MONITOR_KONFIG = ClassDatabase.Return_Datatable(oSQL, "Monitor-Load_Grid_Data1") DT_MONITOR_KONFIG = Database_ECM.GetDatatable(oSQL) ', "Monitor-Load_Grid_Data1")
If Not IsNothing(DT_MONITOR_KONFIG) Then If Not IsNothing(DT_MONITOR_KONFIG) Then
If DT_MONITOR_KONFIG.Rows.Count >= 1 Then If DT_MONITOR_KONFIG.Rows.Count >= 1 Then
oSQL = DT_MONITOR_KONFIG.Rows(0).Item("GRID_SQL") oSQL = DT_MONITOR_KONFIG.Rows(0).Item("GRID_SQL")
GridView1.Columns.Clear() GridView1.Columns.Clear()
Dim oDTGRID1 As DataTable = Await ClassDatabase.Return_DatatableAsync(oSQL, "Monitor-Load_Grid_Data2") Dim oDTGRID1 As DataTable = Await Database_ECM.GetDatatableAsync(oSQL) ', "Monitor-Load_Grid_Data2")
GridControl1.DataSource = oDTGRID1 GridControl1.DataSource = oDTGRID1
GRID1_TITLE = DT_MONITOR_KONFIG.Rows(0).Item("GRID_TITLE") GRID1_TITLE = DT_MONITOR_KONFIG.Rows(0).Item("GRID_TITLE")

View File

@ -7,7 +7,7 @@ Public Class frmSQL_Admin
Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click
If txtSQL.Text <> "" Then If txtSQL.Text <> "" Then
If txtSQL.Text.ToLower.StartsWith("select") Then If txtSQL.Text.ToLower.StartsWith("select") Then
Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, "btnrunSQL_Click") Dim dt As DataTable = Database_ECM.GetDatatable(txtSQL.Text) ', "btnrunSQL_Click")
If Not dt Is Nothing Then If Not dt Is Nothing Then
XtraTabControl1.SelectedTabPageIndex = 1 XtraTabControl1.SelectedTabPageIndex = 1
BindingSource1.DataSource = dt BindingSource1.DataSource = dt
@ -19,7 +19,7 @@ Public Class frmSQL_Admin
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim connection As New SqlClient.SqlConnection(CONNECTION_STRING) 'csb.ConnectionString) Dim connection As New SqlClient.SqlConnection(CONNECTION_STRING_ECM) 'csb.ConnectionString)
connection.Open() connection.Open()
Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection) Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
@ -39,7 +39,7 @@ Public Class frmSQL_Admin
End Sub End Sub
Sub Load_ConString(constr As String) Sub Load_ConString(constr As String)
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = CONNECTION_STRING csb.ConnectionString = CONNECTION_STRING_ECM
If csb.Password.Length > 0 Then If csb.Password.Length > 0 Then
constr = constr.Replace(csb.Password, "XXXXX") constr = constr.Replace(csb.Password, "XXXXX")
End If End If
@ -68,7 +68,7 @@ Public Class frmSQL_Admin
End Sub End Sub
Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load
Load_ConString(CONNECTION_STRING) Load_ConString(CONNECTION_STRING_ECM)
End Sub End Sub
Private Sub txtSQL_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress Private Sub txtSQL_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress

View File

@ -32,14 +32,14 @@ Public Class frmSQL_DESIGNER
Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
lblSaveFinalIndex.Visible = False lblSaveFinalIndex.Visible = False
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), "frmSQL_FINAL_INDICES_Load1") CURRENT_DT_SQL_CONFIG_TABLE = Database_ECM.GetDatatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID)) ', "frmSQL_FINAL_INDICES_Load1")
ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0} ORDER BY T.SEQUENCE", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2") CURRENT_DT_SQL_CONFIG_TABLE = Database_ECM.GetDatatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0} ORDER BY T.SEQUENCE", CURRENT_INDEX_ID)) ', "frmSQL_FINAL_INDICES_Load2")
ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2") CURRENT_DT_SQL_CONFIG_TABLE = Database_ECM.GetDatatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID)) ', "frmSQL_FINAL_INDICES_Load2")
End If End If
If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then
cmbConnection.Enabled = False cmbConnection.Enabled = False
@ -60,7 +60,7 @@ Public Class frmSQL_DESIGNER
End If End If
If CURRENT_DESIGN_TYPE <> "SQL_SOURCE_TABLE_COLUMN" Then If CURRENT_DESIGN_TYPE <> "SQL_SOURCE_TABLE_COLUMN" Then
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID) Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3") Dim oDatatable As DataTable = Database_ECM.GetDatatable(oSQL) ', "frmSQL_FINAL_INDICES_Load3")
cmbControls.DataSource = oDatatable cmbControls.DataSource = oDatatable
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
cmbControls.Visible = True cmbControls.Visible = True
@ -205,7 +205,7 @@ Public Class frmSQL_DESIGNER
Return dataset Return dataset
Else Else
If LOG_ERRORS_ONLY = True Then LOGGER.Info(" >> It's an Oracle-Connection (ExecuteWithConnection)", False) If DEBUG = True Then LOGGER.Info(" >> It's an Oracle-Connection (ExecuteWithConnection)", False)
Dim sqlConnection As OracleConnection Dim sqlConnection As OracleConnection
Dim sqlCommand As OracleCommand Dim sqlCommand As OracleCommand
Dim sqlAdapter As New OracleDataAdapter Dim sqlAdapter As New OracleDataAdapter

View File

@ -171,19 +171,19 @@ Public Class frmUserKonfig_AddUsers
Dim SQL Dim SQL
If Not UserExists(USERNAME) Then If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')" SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(SQL, False) = True Then If Database_ECM.ExecuteNonQuery(SQL) = True Then
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING, "btnAddUsers_Click") Dim ID = Database_ECM.GetScalarValue("SELECT MAX(GUID) FROM TBDD_USER")
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME) Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
LOGGER.Info(msg) 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) 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 If Database_ECM.ExecuteNonQuery(SQL) = False Then
MsgBox("Attention: could not add user to module! - Please check the log.", MsgBoxStyle.Exclamation) MsgBox("Attention: could not add user to module! - Please check the log.", MsgBoxStyle.Exclamation)
End If End If
usersAdded = usersAdded + 1 usersAdded = usersAdded + 1
End If End If
Else Else
SQL = String.Format("UPDATE TBDD_USER SET PRENAME = '{0}', NAME = '{1}', EMAIL = '{2}' WHERE UPPER(USERNAME) = UPPER('{3}')", PRENAME, NAME, email, USERNAME) SQL = String.Format("UPDATE TBDD_USER SET PRENAME = '{0}', NAME = '{1}', EMAIL = '{2}' WHERE UPPER(USERNAME) = UPPER('{3}')", PRENAME, NAME, email, USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = True Then If Database_ECM.ExecuteNonQuery(SQL) = True Then
usersAdded = usersAdded + 1 usersAdded = usersAdded + 1
End If End If
End If End If
@ -207,7 +207,7 @@ Public Class frmUserKonfig_AddUsers
Private Function UserExists(username As String) As Boolean Private Function UserExists(username As String) As Boolean
Try Try
Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')" Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
If ClassDatabase.Execute_Scalar(SQL, CONNECTION_STRING, "UserExists") = Nothing Then If Database_ECM.GetScalarValue(SQL) = Nothing Then
Return False Return False
Else Else
Return True Return True

View File

@ -82,7 +82,7 @@ Partial Class frmValidator
Me.bbtniAnnotation = New DevExpress.XtraBars.BarButtonItem() Me.bbtniAnnotation = New DevExpress.XtraBars.BarButtonItem()
Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem()
Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem()
Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem() Me.BbtnitmSave = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem() Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.btnitemConversationEnd = New DevExpress.XtraBars.BarButtonItem() Me.btnitemConversationEnd = New DevExpress.XtraBars.BarButtonItem()
@ -97,6 +97,7 @@ Partial Class frmValidator
Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem() Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem()
Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -108,6 +109,7 @@ Partial Class frmValidator
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2_DV_Chat.SuspendLayout() Me.SplitContainer2_DV_Chat.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -450,9 +452,9 @@ Partial Class frmValidator
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnItm, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.BarButtonItemAttmt}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.BarButtonItemAttmt, Me.barbtnitmExport})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 28 Me.RibbonControl1.MaxItemId = 29
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageConversations}) Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageConversations})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
@ -579,13 +581,13 @@ Partial Class frmValidator
Me.bsiInfo2.Name = "bsiInfo2" Me.bsiInfo2.Name = "bsiInfo2"
Me.bsiInfo2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.bsiInfo2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
' '
'BbtnItm 'BbtnitmSave
' '
resources.ApplyResources(Me.BbtnItm, "BbtnItm") resources.ApplyResources(Me.BbtnitmSave, "BbtnitmSave")
Me.BbtnItm.Id = 16 Me.BbtnitmSave.Id = 16
Me.BbtnItm.ImageOptions.Image = CType(resources.GetObject("BbtnItm.ImageOptions.Image"), System.Drawing.Image) Me.BbtnitmSave.ImageOptions.Image = CType(resources.GetObject("BbtnitmSave.ImageOptions.Image"), System.Drawing.Image)
Me.BbtnItm.ImageOptions.LargeImage = CType(resources.GetObject("BbtnItm.ImageOptions.LargeImage"), System.Drawing.Image) Me.BbtnitmSave.ImageOptions.LargeImage = CType(resources.GetObject("BbtnitmSave.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BbtnItm.Name = "BbtnItm" Me.BbtnitmSave.Name = "BbtnitmSave"
' '
'BarButtonItem2 'BarButtonItem2
' '
@ -679,6 +681,14 @@ Partial Class frmValidator
Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemAttmt.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemAttmt.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt" Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt"
' '
'barbtnitmExport
'
resources.ApplyResources(Me.barbtnitmExport, "barbtnitmExport")
Me.barbtnitmExport.Id = 28
Me.barbtnitmExport.ImageOptions.SvgImage = CType(resources.GetObject("barbtnitmExport.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.barbtnitmExport.Name = "barbtnitmExport"
Me.barbtnitmExport.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'RibbonPageConversations 'RibbonPageConversations
' '
Me.RibbonPageConversations.Name = "RibbonPageConversations" Me.RibbonPageConversations.Name = "RibbonPageConversations"
@ -722,7 +732,7 @@ Partial Class frmValidator
'RibbonPageGroup3 'RibbonPageGroup3
' '
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BbtnItm) Me.RibbonPageGroup3.ItemLinks.Add(Me.BbtnitmSave)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete)
@ -733,6 +743,7 @@ Partial Class frmValidator
'RibbonPageCust 'RibbonPageCust
' '
Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt) Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
Me.RibbonPageCust.ItemLinks.Add(Me.barbtnitmExport)
Me.RibbonPageCust.Name = "RibbonPageCust" Me.RibbonPageCust.Name = "RibbonPageCust"
Me.RibbonPageCust.Visible = False Me.RibbonPageCust.Visible = False
' '
@ -860,7 +871,7 @@ Partial Class frmValidator
Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents BbtnItm As DevExpress.XtraBars.BarButtonItem Friend WithEvents BbtnitmSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents SplitContainer2_DV_Chat As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainer2_DV_Chat As DevExpress.XtraEditors.SplitContainerControl
@ -883,4 +894,6 @@ Partial Class frmValidator
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItemAttmt As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItemAttmt As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageCust As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageCust As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents barbtnitmExport As DevExpress.XtraBars.BarButtonItem
Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
End Class End Class

File diff suppressed because it is too large Load Diff

View File

@ -319,7 +319,7 @@
<value>DocumentViewerValidator</value> <value>DocumentViewerValidator</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.4.4.0, Culture=neutral, PublicKeyToken=null</value> <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.3.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value> <value>SplitContainer1.Panel2</value>
@ -870,10 +870,10 @@
<data name="bsiInfo2.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing"> <data name="bsiInfo2.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Tahoma, 9.75pt</value>
</data> </data>
<data name="BbtnItm.Caption" xml:space="preserve"> <data name="BbtnitmSave.Caption" xml:space="preserve">
<value>Speichern</value> <value>Speichern</value>
</data> </data>
<data name="BbtnItm.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BbtnitmSave.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFNhdmUgVG87U2F2ZdSrmXIAAACI dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFNhdmUgVG87U2F2ZdSrmXIAAACI
@ -882,7 +882,7 @@
kYTKSPXLFg4VWCLlkKI7AOsCiV3t5qKnAAAAAElFTkSuQmCC kYTKSPXLFg4VWCLlkKI7AOsCiV3t5qKnAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="BbtnItm.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BbtnitmSave.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFNhdmUgVG87U2F2ZdSrmXIAAAEG dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFNhdmUgVG87U2F2ZdSrmXIAAAEG
@ -1038,6 +1038,29 @@
LDAuNi0wLjQsMS0xLDFzLTEtMC40LTEtMVYxMGgtMnYxMyAgIGMwLDEuNywxLjMsMywzLDNzMy0xLjMs LDAuNi0wLjQsMS0xLDFzLTEtMC40LTEtMVYxMGgtMnYxMyAgIGMwLDEuNywxLjMsMywzLDNzMy0xLjMs
My0zVjdjMC0yLjgtMi4yLTUtNS01UzgsNC4yLDgsN3YxNmMwLDMuOSwzLjEsNyw3LDdzNy0zLjEsNy03 My0zVjdjMC0yLjgtMi4yLTUtNS01UzgsNC4yLDgsN3YxNmMwLDMuOSwzLjEsNyw3LDdzNy0zLjEsNy03
VjEwSDIweiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L VjEwSDIweiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="barbtnitmExport.Caption" xml:space="preserve">
<value>BarButtonItem6</value>
</data>
<data name="barbtnitmExport.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2
djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho
MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln
b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
@ -1599,10 +1622,10 @@
<data name="&gt;&gt;bsiInfo2.Type" xml:space="preserve"> <data name="&gt;&gt;bsiInfo2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BbtnItm.Name" xml:space="preserve"> <data name="&gt;&gt;BbtnitmSave.Name" xml:space="preserve">
<value>BbtnItm</value> <value>BbtnitmSave</value>
</data> </data>
<data name="&gt;&gt;BbtnItm.Type" xml:space="preserve"> <data name="&gt;&gt;BbtnitmSave.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve"> <data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
@ -1689,6 +1712,12 @@
<data name="&gt;&gt;BarButtonItemAttmt.Type" xml:space="preserve"> <data name="&gt;&gt;BarButtonItemAttmt.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;barbtnitmExport.Name" xml:space="preserve">
<value>barbtnitmExport</value>
</data>
<data name="&gt;&gt;barbtnitmExport.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve">
<value>RibbonPageConversations</value> <value>RibbonPageConversations</value>
</data> </data>
@ -1749,6 +1778,12 @@
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;FolderBrowserDialog1.Name" xml:space="preserve">
<value>FolderBrowserDialog1</value>
</data>
<data name="&gt;&gt;FolderBrowserDialog1.Type" xml:space="preserve">
<value>System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmValidator</value> <value>frmValidator</value>
</data> </data>
@ -2070,4 +2105,7 @@
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1128, 17</value>
</metadata>
</root> </root>

View File

@ -44,7 +44,7 @@ Public Class frmValidator
Dim AnzDoks As Integer Dim AnzDoks As Integer
Dim docCounter As Integer = 1 Dim docCounter As Integer = 1
'Anzahl der Validierungsdokumente 'Anzahl der Validierungsdokumente
Dim Anzahl_ValDoks As Integer Dim Amount_Docs2Validate As Integer
'Anzahl der validierten Dokumente 'Anzahl der validierten Dokumente
Dim Anzahl_validierte_Dok As Integer = 0 Dim Anzahl_validierte_Dok As Integer = 0
Dim me_closing As Boolean = False Dim me_closing As Boolean = False
@ -66,6 +66,8 @@ Public Class frmValidator
Private DTConversations As DataTable Private DTConversations As DataTable
Private DTDYNAMIC_RIGHTS As DataTable Private DTDYNAMIC_RIGHTS As DataTable
Private DT_AdditionalSearches_Resultset_Docs As DataTable
Private Right_Conversation_Add As Boolean = False Private Right_Conversation_Add As Boolean = False
Private Right_Conversation_Stop As Boolean = False Private Right_Conversation_Stop As Boolean = False
Private Right_Conversation_Message As Boolean = False Private Right_Conversation_Message As Boolean = False
@ -121,14 +123,24 @@ Public Class frmValidator
If My.Settings.frmValidatorPosition.IsEmpty = False Then If My.Settings.frmValidatorPosition.IsEmpty = False Then
If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then
Location = My.Settings.frmValidatorPosition Location = My.Settings.frmValidatorPosition
Else
Try
LOGGER.Debug($"!! Invalid PositionData X({My.Settings.frmValidatorPosition.X.ToString}), Y({My.Settings.frmValidatorPosition.Y})")
Catch ex As Exception
End Try
End If End If
End If End If
If My.Settings.frmValidatorSize.IsEmpty = False Then If My.Settings.frmValidatorSize.IsEmpty = False Then
If My.Settings.frmValidatorSize.Width > 0 And My.Settings.frmValidatorSize.Height > 0 Then
If My.Settings.frmValidatorWindowState = "Normal" Then If My.Settings.frmValidatorWindowState = "Normal" Then
Size = My.Settings.frmValidatorSize Size = My.Settings.frmValidatorSize
Else Else
Me.WindowState = FormWindowState.Maximized Me.WindowState = FormWindowState.Maximized
End If End If
End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -137,15 +149,12 @@ Public Class frmValidator
Dim _step = 0 Dim _step = 0
Try Try
DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE) DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
Try Try
_step = 1 _step = 1
_step = 2 _step = 2
DTVWCONTROL_INDEX.Clear() DTVWCONTROL_INDEX.Clear()
@ -225,14 +234,14 @@ Public Class frmValidator
bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If CURRENT_JUMP_DOC_GUID <> 0 Then If CURRENT_JUMP_DOC_GUID <> 0 Then
bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Anzahl_ValDoks = 1 Amount_Docs2Validate = 1
Else Else
Anzahl_ValDoks = 0 Amount_Docs2Validate = 0
End If End If
Next Next
If LOG_ERRORS_ONLY = False Then If DEBUG = False Then
LOGGER.Info(" >> profiledata saved:") LOGGER.Info(" >> profiledata saved:")
LOGGER.Info(" >> WD_Search: " & WD_Search) LOGGER.Info(" >> WD_Search: " & WD_Search)
LOGGER.Info(" >> finalProfile: " & finalProfile) LOGGER.Info(" >> finalProfile: " & finalProfile)
@ -265,12 +274,11 @@ Public Class frmValidator
RibbonPageConversations.Visible = False RibbonPageConversations.Visible = False
If IDB_ACTIVE Then If IDB_ACTIVE Then
Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})" Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ, "FNIDB_OBJECT_DYNAMIC_CONFIG") DTDYNAMIC_RIGHTS = Database_IDB.GetDatatable(oSQL) ', CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG")
RibbonPageGroupConv1.Enabled = False RibbonPageGroupConv1.Enabled = False
Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS) Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS)
Debug.WriteLine(oView.Count, "oView before")
oView.RowFilter = "CONF_TITLE like '%CONVERSATION_RIGHT%'" oView.RowFilter = "CONF_TITLE like '%CONVERSATION_RIGHT%'"
Debug.WriteLine(oView.Count, "oView after") Console.WriteLine(oView.Count, "oView after")
If oView.Count > 0 Then If oView.Count > 0 Then
LOGGER.Debug("CONVERSATION-RIGHTS EXISTING") LOGGER.Debug("CONVERSATION-RIGHTS EXISTING")
RibbonPageConversations.Visible = True RibbonPageConversations.Visible = True
@ -324,9 +332,11 @@ Public Class frmValidator
Else Else
SplitContainer2_DV_Chat.Collapsed = True SplitContainer2_DV_Chat.Collapsed = True
End If End If
LOGGER.Debug("frmValidation_Load finished!") LOGGER.Debug("frmValidation_Load finished!")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@ -411,14 +421,14 @@ Public Class frmValidator
End Try End Try
My.Settings.frmValidatorSize = Me.Size My.Settings.frmValidatorSize = Me.Size
My.Settings.Save() My.Settings.Save()
If INACTIVITY_DURATION <> 0 Then frmMain.Timer_Inactivity_Reset_Disable() If INACTIVITY_DURATION <> 0 Then frmMain.Timer_Inactivity_Reset_Disable("FormClosing")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
Try Try
Dim oDel = $"DELETE FROM TBPM_FILES_USER_NOT_INDEXED WHERE UPPER(USR_NAME) = UPPER('{USER_USERNAME}')" Dim oDel = $"DELETE FROM TBPM_DOCWALKOVER WHERE UserID = {USER_ID}"
ClassDatabase.Execute_non_Query(oDel) Database_ECM.ExecuteNonQuery(oDel)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error in delete jumped files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in delete jumped files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -483,23 +493,18 @@ Public Class frmValidator
If Not IsNothing(oDatatableDocResult) Then If Not IsNothing(oDatatableDocResult) Then
If oDatatableDocResult.Rows.Count > 0 Then If oDatatableDocResult.Rows.Count > 0 Then
oDocResultsExist = True oDocResultsExist = True
DT_AdditionalSearches_Resultset_Docs = oDatatableDocResult
End If End If
End If End If
End If End If
If oDataResultsExist = True Or oDocResultsExist = True Then If oDataResultsExist = True Or oDocResultsExist = True Then
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If RibbonPageCustTitle <> "" Then
RibbonPageCust.Text = RibbonPageCustTitle
RibbonPageCust.Visible = True
If RibbonPageCustItm1 <> "" Then If RibbonPageCustItm1 <> "" Then
BarButtonItemAttmt.Caption = RibbonPageCustItm1 BarButtonItemAttmt.Caption = RibbonPageCustItm1
BarButtonItemAttmt.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarButtonItemAttmt.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If End If
Else
RibbonPageCust.Visible = False
End If
Try Try
_frmValidatorSearch.Show() _frmValidatorSearch.Show()
@ -1027,7 +1032,7 @@ Public Class frmValidator
'LOGGER.Error(ex) 'LOGGER.Error(ex)
Dim omsg = $"Unexpected Error in Create_Controls (Select Case) [{oControlInfo}] - ERROR: {ex.Message}" Dim omsg = $"Unexpected Error in Create_Controls (Select Case) [{oControlInfo}] - ERROR: {ex.Message}"
LOGGER.Warn(omsg) LOGGER.Warn(omsg)
If LOG_ERRORS_ONLY = False Then MsgBox(omsg, MsgBoxStyle.Critical, "Attention:") If DEBUG = False Then MsgBox(omsg, MsgBoxStyle.Critical, "Attention:")
End Try End Try
@ -1043,7 +1048,7 @@ Public Class frmValidator
'LOGGER.Error(ex) 'LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Create_Controls") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Create_Controls")
LOGGER.Warn($"Unexpected Error in Create_Controls [{oControlInfo}] Line: {st.GetFrame(0).GetFileLineNumber().ToString} - {ex.Message}") LOGGER.Warn($"Unexpected Error in Create_Controls [{oControlInfo}] Line: {st.GetFrame(0).GetFileLineNumber().ToString} - {ex.Message}")
If LOG_ERRORS_ONLY = False Then MsgBox("Error CreateControls: " & ex.Message, MsgBoxStyle.Critical, "Attention:") If DEBUG = False Then MsgBox("Error CreateControls: " & ex.Message, MsgBoxStyle.Critical, "Attention:")
allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}") allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}")
End Try End Try
End Sub End Sub
@ -1211,7 +1216,7 @@ Public Class frmValidator
End If End If
oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, True) oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, True)
Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, True) Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, True)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL, "onCustomButtonClick") Dim oDT_ACTIONS As DataTable = Database_ECM.GetDatatable(oSQL) ', "onCustomButtonClick")
If IsNothing(oDT_ACTIONS) Then If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub Exit Sub
@ -1292,7 +1297,7 @@ Public Class frmValidator
If oResult1 = True Then If oResult1 = True Then
Dim oREsult As Boolean = True Dim oREsult As Boolean = True
If Override_SQLCommand <> "" Then If Override_SQLCommand <> "" Then
oREsult = ClassDatabase.Execute_non_Query(Override_SQLCommand) oREsult = Database_ECM.ExecuteNonQuery(Override_SQLCommand)
End If End If
If oREsult = True Then If oREsult = True Then
Reload_Controls(oControlName) Reload_Controls(oControlName)
@ -1307,7 +1312,7 @@ Public Class frmValidator
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim oREsult As Boolean = True Dim oREsult As Boolean = True
If Override_SQLCommand <> "" Then If Override_SQLCommand <> "" Then
oREsult = ClassDatabase.Execute_non_Query(Override_SQLCommand) oREsult = Database_ECM.ExecuteNonQuery(Override_SQLCommand)
End If End If
If oREsult = True Then If oREsult = True Then
SetStatusLabel("Refreshed single control", "Yellow") SetStatusLabel("Refreshed single control", "Yellow")
@ -1341,7 +1346,7 @@ Public Class frmValidator
Try Try
Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid
Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} And SQL_UEBERPRUEFUNG Like '%{1}%'", CURRENT_ProfilGUID, dgv.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} And SQL_UEBERPRUEFUNG Like '%{1}%'", CURRENT_ProfilGUID, dgv.Name)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "onDGVRowValidating") Dim DT As DataTable = Database_ECM.GetDatatable(sql) ', "onDGVRowValidating")
If Not IsNothing(DT) And DT.Rows.Count > 0 Then If Not IsNothing(DT) And DT.Rows.Count > 0 Then
For Each ROW As DataRow In DT.Rows For Each ROW As DataRow In DT.Rows
Try Try
@ -2045,7 +2050,7 @@ Public Class frmValidator
Try Try
Dim CONTROL_ID = DirectCast(oCombobox.Tag, ClassControlCreator.ControlMetadata).Guid Dim CONTROL_ID = DirectCast(oCombobox.Tag, ClassControlCreator.ControlMetadata).Guid
Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, oCombobox.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, oCombobox.Name)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "OnCmbselectedIndex") Dim DT As DataTable = Database_ECM.GetDatatable(sql) ', "OnCmbselectedIndex")
If Not IsNothing(DT) And DT.Rows.Count > 0 Then If Not IsNothing(DT) And DT.Rows.Count > 0 Then
If _dependingControl_in_action = True Then If _dependingControl_in_action = True Then
Exit Sub Exit Sub
@ -2325,12 +2330,18 @@ Public Class frmValidator
If PROFIL_sortbynewest = True Then If PROFIL_sortbynewest = True Then
oBIT = 1 oBIT = 1
End If End If
Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')" Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL, "Get_Next_GUID") Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL) ', "Get_Next_GUID")
If oDT.Rows.Count > 0 Then If oDT.Rows.Count > 0 Then
oNewGUID = oDT.Rows(0).Item(0) oNewGUID = oDT.Rows(0).Item(0)
CURRENT_DOC_ID = oDT.Rows(0).Item(1) CURRENT_DOC_ID = oDT.Rows(0).Item(1)
Try
Amount_Docs2Validate = oDT.Rows(0).Item(2)
Catch ex As Exception
LOGGER.Warn("Amount_Docs2Validate Error: " & ex.Message)
End Try
Else Else
LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)") LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)")
oNewGUID = 0 oNewGUID = 0
@ -2394,14 +2405,14 @@ Public Class frmValidator
Dim oResult As String Dim oResult As String
Dim oSQL = $"SELECT dbo.FNPM_GET_FILEPATH ({CURRENT_DOC_GUID},{_CheckStandard})" Dim oSQL = $"SELECT dbo.FNPM_GET_FILEPATH ({CURRENT_DOC_GUID},{_CheckStandard})"
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows1") oResult = Database_ECM.GetScalarValue(oSQL) ', CONNECTION_STRING_ECM, "GetDocPathWindows1")
LOGGER.Debug($"Checking file 0 [{oResult}] exists?...") LOGGER.Debug($"Checking file 0 [{oResult}] exists?...")
WMDocPathWindows = String.Empty WMDocPathWindows = String.Empty
If File.Exists(oResult) = False Then If File.Exists(oResult) = False Then
DocPathWindows = oResult DocPathWindows = oResult
LOGGER.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...") LOGGER.Info($"GetWMDocPathWindows returned false [{oResult}] - trying with standard again...")
oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)"
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2") oResult = Database_ECM.GetScalarValue(oSQL) ', CONNECTION_STRING_ECM, "GetDocPathWindows2")
LOGGER.Debug($"Checking file 1[{oResult}] exists?...") LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
If File.Exists(oResult) = False Then If File.Exists(oResult) = False Then
LOGGER.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!") LOGGER.Info($"GetWMDocPathWindows FileExists2 also returned false [{oResult}]!")
@ -2433,7 +2444,7 @@ Public Class frmValidator
oSQl = oSQl.Replace("@DOC_GUID", CURRENT_DOC_GUID) oSQl = oSQl.Replace("@DOC_GUID", CURRENT_DOC_GUID)
oSQl = oSQl.Replace("@DOC_ID", CURRENT_DOC_ID) oSQl = oSQl.Replace("@DOC_ID", CURRENT_DOC_ID)
oSQl = oSQl.Replace("@DocID", CURRENT_DOC_ID) oSQl = oSQl.Replace("@DocID", CURRENT_DOC_ID)
IDB_DT_DOC_DATA = ClassDatabase.Return_Datatable(oSQl, "Load_IDB_DOC_DATA") IDB_DT_DOC_DATA = Database_ECM.GetDatatable(oSQl)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@ -2502,11 +2513,15 @@ Public Class frmValidator
'If WMDocPathWindows <> String.Empty Then 'If WMDocPathWindows <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}" Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(sql) Database_ECM.ExecuteNonQuery(sql)
' ############ Infos eintragen ################# ' ############ Infos eintragen #################
' txtDateipfad.Text = Document_Path ' txtDateipfad.Text = Document_Path
bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString Dim omsg = $"Verbleibende Belege: {Amount_Docs2Validate}"
If USER_LANGUAGE <> "de-DE" Then
omsg = $"Remaining documents: {omsg}"
End If
bsiInformation.Caption = omsg
bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
LOGGER.Debug("AllDocInfo created...") LOGGER.Debug("AllDocInfo created...")
@ -3541,7 +3556,7 @@ Public Class frmValidator
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut" Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut"
Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB_READ) Dim oDTINFO As DataTable = Database_IDB.GetDatatable(oSQL)
If Not IsNothing(oDTINFO) Then If Not IsNothing(oDTINFO) Then
Dim oColor As System.Drawing.Color Dim oColor As System.Drawing.Color
If oDTINFO.Rows.Count > 0 Then If oDTINFO.Rows.Count > 0 Then
@ -3609,6 +3624,7 @@ Public Class frmValidator
End If End If
'Flag setzen das Indexe geladen sind 'Flag setzen das Indexe geladen sind
_Indexe_Loaded = True _Indexe_Loaded = True
Load_Additional_Searches() Load_Additional_Searches()
@ -3640,6 +3656,50 @@ Public Class frmValidator
End If End If
FormLoaded = True FormLoaded = True
Try
If USER_GHOST_MODE_ACTIVE Then
BbtnitmSave.Enabled = False
btnSave.Enabled = False
Else
BbtnitmSave.Enabled = True
btnSave.Enabled = True
End If
Catch ex As Exception
End Try
Try
If RibbonPageCustTitle <> "" Then
RibbonPageCust.Text = RibbonPageCustTitle
RibbonPageCust.Visible = True
Else
RibbonPageCust.Visible = False
End If
If Not IsNothing(WMDocPathWindows) Then
If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
If File.Exists(WMDocPathWindows) Then
barbtnitmExport.Caption = ButtonExport2Folder_Caption
barbtnitmExport.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Try
If ButtonExport2Folder_RootFolder <> "" Then
If Directory.Exists(ButtonExport2Folder_RootFolder) Then
FolderBrowserDialog1.RootFolder = ButtonExport2Folder_RootFolder
Else
LOGGER.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###")
End If
End If
Catch ex As Exception
LOGGER.Warn($"### Error Dis/Enabale Export2Path: {ex.Message} !###")
End Try
End If
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
LOGGER.Debug("frmValidation_Shown finished!") LOGGER.Debug("frmValidation_Shown finished!")
End Sub End Sub
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
@ -3684,7 +3744,7 @@ Public Class frmValidator
Dim oSQL = PROFIL_FINISH_SQL Dim oSQL = PROFIL_FINISH_SQL
oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, True) oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, True)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL, "btnFinish_continue") Dim oDT_ACTIONS As DataTable = Database_ECM.GetDatatable(oSQL)
If IsNothing(oDT_ACTIONS) Then If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Return False Return False
@ -3916,7 +3976,7 @@ Public Class frmValidator
Try Try
''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If Override = True And Override_SQLCommand <> "" Then If Override = True And Override_SQLCommand <> "" Then
ClassDatabase.Execute_non_Query(Override_SQLCommand) Database_ECM.ExecuteNonQuery(Override_SQLCommand)
End If End If
If oErrorOcurred = False Then If oErrorOcurred = False Then
@ -4020,14 +4080,14 @@ Public Class frmValidator
End If End If
End If End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY) Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins) Database_ECM.ExecuteNonQuery(ins)
Dim oFIsql As String Dim oFIsql As String
'Close_document_viewer() 'Close_document_viewer()
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
oFIsql = 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) oFIsql = 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)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(oFIsql, "Finish_WFStep2") Dim DT_ENTRY As DataTable = Database_ECM.GetDatatable(oFIsql) ', "Finish_WFStep2")
If Not IsNothing(DT_ENTRY) Then If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT") Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
@ -4038,7 +4098,7 @@ Public Class frmValidator
Dim oAnnotateAllWHEs = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES") Dim oAnnotateAllWHEs = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(oAnnotateAllWHEs) = True Then If CBool(oAnnotateAllWHEs) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID) oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, "Finish_WFStep3") Dim DT_ENTRIES As DataTable = Database_ECM.GetDatatable(oFIsql) ', "Finish_WFStep3")
If Not IsNothing(DT_ENTRIES) Then If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = "" Dim AnnotationString As String = ""
@ -4092,7 +4152,7 @@ Public Class frmValidator
Else Else
LOGGER.Info($"Overriding all in action for DocID: {CURRENT_DOC_ID} - ProfileID: {CURRENT_ProfilGUID}") LOGGER.Info($"Overriding all in action for DocID: {CURRENT_DOC_ID} - ProfileID: {CURRENT_ProfilGUID}")
If Override_SQLCommand <> "" Then If Override_SQLCommand <> "" Then
If ClassDatabase.Execute_non_Query(Override_SQLCommand) = False Then If Database_ECM.ExecuteNonQuery(Override_SQLCommand) = False Then
oErrorOcurred = True oErrorOcurred = True
End If End If
End If End If
@ -4103,12 +4163,12 @@ Public Class frmValidator
Else Else
'Das Dokument freigeben und as editiert markieren 'Das Dokument freigeben und as editiert markieren
'Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID) 'Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
'ClassDatabase.Execute_non_Query(sql) 'Database_ECM.ExecuteNonQuery(sql)
Anzahl_validierte_Dok += 1 Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID) 'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
LOGGER.Debug("Validation of document ended successfully!") LOGGER.Debug("Validation of document ended successfully!")
Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}" Dim oPROCSQL = $"EXEC PRPM_CHECK_NEXT_WF {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(oPROCSQL) Database_ECM.ExecuteNonQuery(oPROCSQL)
End If End If
If CURRENT_JUMP_DOC_GUID <> 0 Then If CURRENT_JUMP_DOC_GUID <> 0 Then
@ -5136,7 +5196,7 @@ Public Class frmValidator
Free_File() Free_File()
Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}" Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(oSQL) Database_ECM.ExecuteNonQuery(oSQL)
LOGGER.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}") LOGGER.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}")
Load_Next_Document(False) Load_Next_Document(False)
@ -5148,7 +5208,7 @@ Public Class frmValidator
Private Function Free_File() Private Function Free_File()
Try Try
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}" Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}"
Return ClassDatabase.Execute_non_Query(sql) Return Database_ECM.ExecuteNonQuery(sql)
Catch ex As Exception Catch ex As Exception
allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}") allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}")
LOGGER.Error(ex) LOGGER.Error(ex)
@ -5170,8 +5230,8 @@ Public Class frmValidator
Application.DoEvents() Application.DoEvents()
FreeFile() FreeFile()
'Aus der Tabelle löschen 'Aus der Tabelle löschen
Dim oDelete = $"DELETE FROM TBPM_PROFILE_FILES WHERE (GUID = {CURRENT_DOC_GUID})" Dim oDelete = $"DELETE FROM TBPM_PROFILE_FILES WHERE GUID = {CURRENT_DOC_GUID}"
If ClassDatabase.Execute_non_Query(oDelete) = True Then If Database_ECM.ExecuteNonQuery(oDelete) = True Then
Dim oDeleteResult As Boolean = False Dim oDeleteResult As Boolean = False
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
oDeleteResult = Delete_WMFile() oDeleteResult = Delete_WMFile()
@ -5277,6 +5337,9 @@ Public Class frmValidator
If e.KeyCode = Keys.F4 Then If e.KeyCode = Keys.F4 Then
Datei_ueberspringen() Datei_ueberspringen()
ElseIf e.KeyCode = Keys.F2 Then ElseIf e.KeyCode = Keys.F2 Then
If USER_GHOST_MODE_ACTIVE Then
Exit Sub
End If
btnSave.Enabled = False btnSave.Enabled = False
Finish_WFStep() Finish_WFStep()
btnSave.Enabled = True btnSave.Enabled = True
@ -5398,6 +5461,11 @@ Public Class frmValidator
Private Sub bbtniNext_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniNext.ItemClick Private Sub bbtniNext_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniNext.ItemClick
If ForceGridValidation() = True Then If ForceGridValidation() = True Then
Datei_ueberspringen() Datei_ueberspringen()
Try
btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
Catch ex As Exception
End Try
End If End If
End Sub End Sub
@ -5416,7 +5484,7 @@ Public Class frmValidator
load_viewer() load_viewer()
End Sub End Sub
Private Sub BbtnItm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnItm.ItemClick Private Sub BbtnItm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmSave.ItemClick
If ForceGridValidation() = True Then If ForceGridValidation() = True Then
Dim oRESULT As String Dim oRESULT As String
@ -5427,6 +5495,8 @@ Public Class frmValidator
End If End If
If Check_UpdateIndexe() = True Then If Check_UpdateIndexe() = True Then
SetStatusLabel($"Data saved", "LimeGreen") SetStatusLabel($"Data saved", "LimeGreen")
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, "Manual Save via button")
Database_ECM.ExecuteNonQuery(ins)
Else Else
SetStatusLabel($"Error while saving data!", "Red") SetStatusLabel($"Error while saving data!", "Red")
End If End If
@ -5480,7 +5550,7 @@ Public Class frmValidator
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
If oRow.Item("CONF_TITLE") = "NEW_CONVERSATION_USER_SELECT" Then If oRow.Item("CONF_TITLE") = "NEW_CONVERSATION_USER_SELECT" Then
Dim oSQL = oRow.Item("CONF_VALUE") Dim oSQL = oRow.Item("CONF_VALUE")
oDTUSER = ClassDatabase.Return_Datatable(oSQL) oDTUSER = Database_IDB.GetDatatable(oSQL)
End If End If
Next Next
If Not IsNothing(oDTUSER) Then If Not IsNothing(oDTUSER) Then
@ -5510,7 +5580,7 @@ Public Class frmValidator
result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'" Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
If ClassDatabase.Execute_non_Query_ConStr(oSQL, CONNECTION_STRING_IDB_WRITE, "EXEC PRIDB_END_CONVERSATION") = True Then If Database_IDB.ExecuteNonQuery(oSQL) = True Then
btnitemConversationEnd.Enabled = False btnitemConversationEnd.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True SplitContainer2_DV_Chat.Collapsed = True
btnitemConversationEnd.Enabled = True btnitemConversationEnd.Enabled = True
@ -5569,4 +5639,40 @@ Public Class frmValidator
Private Sub BarButtonItem6_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemAttmt.ItemClick Private Sub BarButtonItem6_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemAttmt.ItemClick
Click_Additional_Searches() Click_Additional_Searches()
End Sub End Sub
Private Sub barbtnitmExport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barbtnitmExport.ItemClick
If File.Exists(WMDocPathWindows) Then
Try
Dim oFilenameOnly As String
Dim oTargetPath As String
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
Dim oCount As Integer = 0
oFilenameOnly = Path.GetFileName(WMDocPathWindows)
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oFilenameOnly
File.Copy(WMDocPathWindows, oTargetPath)
oCount += 1
If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then
For Each oFileRecord As DataRow In DT_AdditionalSearches_Resultset_Docs.Rows
Dim oFromFilename = oFileRecord.Item("FULL_FILENAME")
If File.Exists(oFromFilename) Then
oFilenameOnly = Path.GetFileName(oFromFilename)
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oFilenameOnly
File.Copy(oFromFilename, oTargetPath)
oCount += 1
End If
Next
End If
MsgBox($"[{oCount}] file/s successfully exported to target [{FolderBrowserDialog1.SelectedPath}]!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Could not move file to target: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try
Else
MsgBox("Workflow-Document seems not to exist. Check Your log.", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If
End Sub
End Class End Class

View File

@ -48,11 +48,6 @@ Partial Class frmValidatorSearch
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl() Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
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.SplitContainerSearches = New System.Windows.Forms.SplitContainer() Me.SplitContainerSearches = New System.Windows.Forms.SplitContainer()
Me.XtraTabControlSQL = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControlSQL = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageSearch1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPageSearch1 = New DevExpress.XtraTab.XtraTabPage()
@ -75,6 +70,11 @@ Partial Class frmValidatorSearch
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripLabel() Me.tslblDocID = New System.Windows.Forms.ToolStripLabel()
Me.tslblState = New System.Windows.Forms.ToolStripLabel() Me.tslblState = New System.Windows.Forms.ToolStripLabel()
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.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -103,7 +103,6 @@ Partial Class frmValidatorSearch
Me.XtraTabPageDoc5.SuspendLayout() Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerSearches.Panel1.SuspendLayout() Me.SplitContainerSearches.Panel1.SuspendLayout()
Me.SplitContainerSearches.Panel2.SuspendLayout() Me.SplitContainerSearches.Panel2.SuspendLayout()
@ -127,6 +126,7 @@ Partial Class frmValidatorSearch
CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout() Me.ToolStrip2.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.ContextMenuStripWMFile.SuspendLayout() Me.ContextMenuStripWMFile.SuspendLayout()
Me.ContextMenuStripSQL.SuspendLayout() Me.ContextMenuStripSQL.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@ -135,10 +135,10 @@ Partial Class frmValidatorSearch
' '
resources.ApplyResources(Me.SplitContainerControlDoc, "SplitContainerControlDoc") resources.ApplyResources(Me.SplitContainerControlDoc, "SplitContainerControlDoc")
Me.SplitContainerControlDoc.Name = "SplitContainerControlDoc" Me.SplitContainerControlDoc.Name = "SplitContainerControlDoc"
Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1") resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1) Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2") resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControlDoc.SplitterPosition = 351 Me.SplitContainerControlDoc.SplitterPosition = 351
' '
'XtraTabControlDocs 'XtraTabControlDocs
@ -150,13 +150,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageDoc1 'XtraTabPageDoc1
' '
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1) Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1" Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
' '
'GridControlDocSearch1 'GridControlDocSearch1
' '
resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1") resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle")
GridLevelNode1.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1 Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
@ -169,6 +181,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch1, "GridViewDocSearch1")
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1 Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1" Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -182,13 +195,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageDoc2 'XtraTabPageDoc2
' '
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2) Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2" Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
' '
'GridControlDocSearch2 'GridControlDocSearch2
' '
resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2") resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2 Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Name = "GridControlDocSearch2" Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2}) Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
@ -199,6 +224,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch2, "GridViewDocSearch2")
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2 Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2" Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -212,13 +238,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageDoc3 'XtraTabPageDoc3
' '
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3) Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3" Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
' '
'GridControlDocSearch3 'GridControlDocSearch3
' '
resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3") resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3 Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Name = "GridControlDocSearch3" Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3}) Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
@ -229,6 +267,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch3, "GridViewDocSearch3")
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3 Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3" Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -242,13 +281,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageDoc4 'XtraTabPageDoc4
' '
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4) Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4" Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
' '
'GridControlDocSearch4 'GridControlDocSearch4
' '
resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4") resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4 Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Name = "GridControlDocSearch4" Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4}) Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
@ -259,6 +310,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch4, "GridViewDocSearch4")
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4 Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4" Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -272,13 +324,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageDoc5 'XtraTabPageDoc5
' '
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5) Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5" Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
' '
'GridControlDocSearch5 'GridControlDocSearch5
' '
resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5") resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5 Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Name = "GridControlDocSearch5" Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5}) Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
@ -289,6 +353,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch5, "GridViewDocSearch5")
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5 Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5" Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -303,53 +368,24 @@ Partial Class frmValidatorSearch
'DocumentViewer1 'DocumentViewer1
' '
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Name = "DocumentViewer1" Me.DocumentViewer1.Name = "DocumentViewer1"
' '
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Name = "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_ProcessManager.My.Resources.Resources.ID_FILE_PAGE_SETUP
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
'
'DateiÖffnenToolStripMenuItem1
'
Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.OpenFileDialog_692
Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
'
'EigenschaftenToolStripMenuItem
'
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Properties
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
'
'ToolStripButtonRefreshSearches
'
Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
'
'SplitContainerSearches 'SplitContainerSearches
' '
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches") resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.SplitContainerSearches.Name = "SplitContainerSearches" Me.SplitContainerSearches.Name = "SplitContainerSearches"
' '
'SplitContainerSearches.Panel1 'SplitContainerSearches.Panel1
' '
resources.ApplyResources(Me.SplitContainerSearches.Panel1, "SplitContainerSearches.Panel1")
Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL) Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL)
Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1) Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1)
' '
'SplitContainerSearches.Panel2 'SplitContainerSearches.Panel2
' '
resources.ApplyResources(Me.SplitContainerSearches.Panel2, "SplitContainerSearches.Panel2")
Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc) Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc)
Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2) Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainerSearches.SplitterDistance = Global.DD_ProcessManager.My.MySettings.Default.frmValSearchSplitterDistance Me.SplitContainerSearches.SplitterDistance = Global.DD_ProcessManager.My.MySettings.Default.frmValSearchSplitterDistance
@ -363,13 +399,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageSearch1 'XtraTabPageSearch1
' '
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1) Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1)
Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1" Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1"
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
' '
'GridControlSearch1 'GridControlSearch1
' '
resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1") resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
Me.GridControlSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTip")
Me.GridControlSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTipTitle")
GridLevelNode2.RelationName = "Level1" GridLevelNode2.RelationName = "Level1"
Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridControlSearch1.MainView = Me.GridViewSearch1 Me.GridControlSearch1.MainView = Me.GridViewSearch1
@ -382,6 +430,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch1, "GridViewSearch1")
Me.GridViewSearch1.GridControl = Me.GridControlSearch1 Me.GridViewSearch1.GridControl = Me.GridControlSearch1
Me.GridViewSearch1.Name = "GridViewSearch1" Me.GridViewSearch1.Name = "GridViewSearch1"
Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -395,13 +444,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageSearch2 'XtraTabPageSearch2
' '
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2) Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2)
Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2" Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2"
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
' '
'GridControlSearch2 'GridControlSearch2
' '
resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2") resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
Me.GridControlSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTip")
Me.GridControlSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTipTitle")
GridLevelNode3.RelationName = "Level1" GridLevelNode3.RelationName = "Level1"
Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3}) Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
Me.GridControlSearch2.MainView = Me.GridViewSearch2 Me.GridControlSearch2.MainView = Me.GridViewSearch2
@ -414,6 +475,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch2, "GridViewSearch2")
Me.GridViewSearch2.GridControl = Me.GridControlSearch2 Me.GridViewSearch2.GridControl = Me.GridControlSearch2
Me.GridViewSearch2.Name = "GridViewSearch2" Me.GridViewSearch2.Name = "GridViewSearch2"
Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -427,13 +489,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageSearch3 'XtraTabPageSearch3
' '
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3) Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3)
Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3" Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3"
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
' '
'GridControlSearch3 'GridControlSearch3
' '
resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3") resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
Me.GridControlSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTip")
Me.GridControlSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTipTitle")
GridLevelNode4.RelationName = "Level1" GridLevelNode4.RelationName = "Level1"
Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4}) Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
Me.GridControlSearch3.MainView = Me.GridViewSearch3 Me.GridControlSearch3.MainView = Me.GridViewSearch3
@ -446,6 +520,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch3, "GridViewSearch3")
Me.GridViewSearch3.GridControl = Me.GridControlSearch3 Me.GridViewSearch3.GridControl = Me.GridControlSearch3
Me.GridViewSearch3.Name = "GridViewSearch3" Me.GridViewSearch3.Name = "GridViewSearch3"
Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -459,13 +534,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageSearch4 'XtraTabPageSearch4
' '
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4) Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4)
Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4" Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4"
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
' '
'GridControlSearch4 'GridControlSearch4
' '
resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4") resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
Me.GridControlSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTip")
Me.GridControlSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTipTitle")
GridLevelNode5.RelationName = "Level1" GridLevelNode5.RelationName = "Level1"
Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5}) Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
Me.GridControlSearch4.MainView = Me.GridViewSearch4 Me.GridControlSearch4.MainView = Me.GridViewSearch4
@ -478,6 +565,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch4, "GridViewSearch4")
Me.GridViewSearch4.GridControl = Me.GridControlSearch4 Me.GridViewSearch4.GridControl = Me.GridControlSearch4
Me.GridViewSearch4.Name = "GridViewSearch4" Me.GridViewSearch4.Name = "GridViewSearch4"
Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -491,13 +579,25 @@ Partial Class frmValidatorSearch
' '
'XtraTabPageSearch5 'XtraTabPageSearch5
' '
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5) Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5)
Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5" Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5"
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
' '
'GridControlSearch5 'GridControlSearch5
' '
resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5") resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
Me.GridControlSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTip")
Me.GridControlSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTipTitle")
GridLevelNode6.RelationName = "Level1" GridLevelNode6.RelationName = "Level1"
Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6}) Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
Me.GridControlSearch5.MainView = Me.GridViewSearch5 Me.GridControlSearch5.MainView = Me.GridViewSearch5
@ -510,6 +610,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch5, "GridViewSearch5")
Me.GridViewSearch5.GridControl = Me.GridControlSearch5 Me.GridViewSearch5.GridControl = Me.GridControlSearch5
Me.GridViewSearch5.Name = "GridViewSearch5" Me.GridViewSearch5.Name = "GridViewSearch5"
Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@ -523,14 +624,14 @@ Partial Class frmValidatorSearch
' '
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL})
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
' '
'tsslblSQL 'tsslblSQL
' '
Me.tsslblSQL.Name = "tsslblSQL"
resources.ApplyResources(Me.tsslblSQL, "tsslblSQL") resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
Me.tsslblSQL.Name = "tsslblSQL"
' '
'ToolStrip2 'ToolStrip2
' '
@ -540,20 +641,52 @@ Partial Class frmValidatorSearch
' '
'tslblDocID 'tslblDocID
' '
Me.tslblDocID.Name = "tslblDocID"
resources.ApplyResources(Me.tslblDocID, "tslblDocID") resources.ApplyResources(Me.tslblDocID, "tslblDocID")
Me.tslblDocID.Name = "tslblDocID"
' '
'tslblState 'tslblState
' '
resources.ApplyResources(Me.tslblState, "tslblState")
Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tslblState.Name = "tslblState" Me.tslblState.Name = "tslblState"
resources.ApplyResources(Me.tslblState, "tslblState") '
'ToolStrip1
'
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
Me.ToolStrip1.Name = "ToolStrip1"
'
'ToolStripDropDownButtonFile
'
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "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_ProcessManager.My.Resources.Resources.ID_FILE_PAGE_SETUP
Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
'
'DateiÖffnenToolStripMenuItem1
'
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.OpenFileDialog_692
Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
'
'EigenschaftenToolStripMenuItem
'
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Properties
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
'
'ToolStripButtonRefreshSearches
'
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
' '
'ContextMenuStripWMFile 'ContextMenuStripWMFile
' '
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.LayoutZurücksetzenToolStripMenuItem}) 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" Me.ContextMenuStripWMFile.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
' '
'EigenschaftenDateiToolStripMenuItem 'EigenschaftenDateiToolStripMenuItem
' '
@ -567,36 +700,36 @@ Partial Class frmValidatorSearch
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
' '
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
Me.ToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG Me.ToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
' '
'LayoutZurücksetzenToolStripMenuItem 'LayoutZurücksetzenToolStripMenuItem
' '
Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem") resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
' '
'ContextMenuStripSQL 'ContextMenuStripSQL
' '
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4}) Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4})
Me.ContextMenuStripSQL.Name = "ContextMenuStrip1" Me.ContextMenuStripSQL.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
' '
'ToolStripSeparator2 'ToolStripSeparator2
' '
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
' '
'ToolStripMenuItem4 'ToolStripMenuItem4
' '
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
Me.ToolStripMenuItem4.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG Me.ToolStripMenuItem4.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
' '
'frmValidatorSearch 'frmValidatorSearch
' '
@ -625,8 +758,6 @@ Partial Class frmValidatorSearch
Me.XtraTabPageDoc5.ResumeLayout(False) Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.SplitContainerSearches.Panel1.ResumeLayout(False) Me.SplitContainerSearches.Panel1.ResumeLayout(False)
Me.SplitContainerSearches.Panel1.PerformLayout() Me.SplitContainerSearches.Panel1.PerformLayout()
Me.SplitContainerSearches.Panel2.ResumeLayout(False) Me.SplitContainerSearches.Panel2.ResumeLayout(False)
@ -654,6 +785,8 @@ Partial Class frmValidatorSearch
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False) Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout() Me.ToolStrip2.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ContextMenuStripWMFile.ResumeLayout(False) Me.ContextMenuStripWMFile.ResumeLayout(False)
Me.ContextMenuStripSQL.ResumeLayout(False) Me.ContextMenuStripSQL.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)

View File

@ -0,0 +1,599 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="ToolStripButtonRefreshSearches.Size" type="System.Drawing.Size, System.Drawing">
<value>115, 22</value>
</data>
<data name="ToolStripButtonRefreshSearches.Text" xml:space="preserve">
<value>Refresh Searches</value>
</data>
<data name="EigenschaftenDateiToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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
</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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=
</value>
</data>
</root>

View File

@ -0,0 +1,593 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch3.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch4.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v19.2">
<value>Default</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v19.2">
<value>Center</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v19.2">
<value>None</value>
</data>
<data name="GridControlSearch5.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="EigenschaftenDateiToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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
</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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=
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="NLog" version="4.5.11" targetFramework="net461" /> <package id="NLog" version="4.7.10" targetFramework="net461" />
</packages> </packages>