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

GDPicture WISAG Etc

Browse Source
This commit is contained in:
SchreiberM 2020-01-08 15:11:40 +01:00
parent ad1611802a
commit e71a0bf9d5
36 changed files with 5129 additions and 4134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/App.config
View File

@ -54,7 +54,7 @@
<value>0, 0</value>
</setting>
<setting name="frmValSearchSplitterDistance" serializeAs="String">
<value>558</value>
<value>563</value>
</setting>
<setting name="frmMainWindowState" serializeAs="String">
<value>Normal</value>

26
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@ -49,7 +49,7 @@ Public Class ClassAllgemeineFunktionen
LOGGER.Debug("User logged in....")
Return True
Else
LOGGER.Info(" >> User could not be logged in/out....")
LOGGER.Info("User could not be logged in/out....")
Return False
End If
Catch ex As Exception
@ -156,7 +156,7 @@ Public Class ClassAllgemeineFunktionen
Dim xffres As String = Path & "\" & Stammname & ".xffres"
If file_exists(xffres, clsWD) = True Then
System.IO.File.Delete(xffres)
LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht")
LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht")
Return True
Else
Return Nothing
@ -164,7 +164,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Delete_xffres", True)
LOGGER.Info(">> Fehlermeldung: " & ex.Message)
LOGGER.Info("Fehlermeldung: " & ex.Message)
End Try
End Function
'Public Function Delete_File(originFile As String)
@ -172,7 +172,7 @@ Public Class ClassAllgemeineFunktionen
' If file_exists(originFile, False) = True Then
' System.IO.File.Delete(originFile)
' LOGGER.Info(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
' LOGGER.Info("Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
' Return True
' Else
' MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
@ -180,7 +180,7 @@ Public Class ClassAllgemeineFunktionen
' End If
' Catch ex As Exception
' LOGGER.Info(" Fehler bei Delete_File", True)
' LOGGER.Info(">> Fehlermeldung: " & ex.Message)
' LOGGER.Info("Fehlermeldung: " & ex.Message)
' End Try
'End Function
@ -201,18 +201,18 @@ Public Class ClassAllgemeineFunktionen
version = version + 1
Loop
My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel)
LOGGER.Info("Datei erfolgreich verschoben - Ziel: " & _Ziel)
Else
LOGGER.Info(">> Ziel und Quellpfad sind identisch!")
LOGGER.Info("Ziel und Quellpfad sind identisch!")
End If
Return ""
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Move2Folder", True)
LOGGER.Info(">> Fehlermeldung")
LOGGER.Info(">>" & ex.Message)
Insert_LogEntry($"ERROR >> {ex.Message}")
LOGGER.Info("Fehler bei Move2Folder", True)
LOGGER.Info("Fehlermeldung")
LOGGER.Info(ex.Message)
Insert_LogEntry($"ERROR {ex.Message}")
Return ex.Message
End Try
End Function
@ -298,7 +298,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry($"ERROR Execute_Scalar_SQLServer>> {ex.Message}")
Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}")
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)
@ -332,7 +332,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry($"ERROR Execute_Scalar_Oracle>> {ex.Message}")
Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}")
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)

2
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

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

13
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -61,12 +61,12 @@ Public Class ClassDatabase
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung)
LOGGER.Debug("ReturnDatatable: " & Select_anweisung)
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung)
LOGGER.Debug("Execute ReturnDatatable: " & Select_anweisung)
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
@ -74,16 +74,13 @@ Public Class ClassDatabase
Return dt
Catch ex As Exception
LOGGER.Warn($"Unexpected Error in Return_Datatable: {ex.Message} [{Select_anweisung}]")
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False)
Try
Dim oConnString = Get_ConnectionString(ConnID)
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
LOGGER.Debug("ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConnString
@ -106,7 +103,7 @@ Public Class ClassDatabase
End Function
Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False)
Try
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
LOGGER.Debug("ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = ConNStr
@ -216,7 +213,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
LOGGER.Debug(">>> Execute Scalar: " & cmdscalar)
LOGGER.Debug("Execute Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()

12
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -25,7 +25,7 @@
'' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Try
' If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value)
' If LogErrorsOnly = False Then LOGGER.Info(" element in RegeX: " & element.Value)
' Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
' Dim wertWD = WMObject.GetVariableValue(WDINDEXNAME)
' If Not IsNothing(wertWD) Then
@ -41,7 +41,7 @@
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement)
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
value = dynamic_value
@ -107,7 +107,7 @@
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(">> unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True)
LOGGER.Info("unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True)
Return False
End Try
End Function
@ -147,7 +147,7 @@
End If
'Catch ex As Exception
' LOGGER.Info(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
' LOGGER.Info("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
' Return Err()
'End Try
End Function
@ -200,7 +200,7 @@
PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
LOGGER.Info("Fehler in Return_PM_VEKTOR: " & ex.Message, True)
PM_String = "DD-PM ERROR: " & ex.Message
End Try
Return PM_String
@ -217,7 +217,7 @@
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_LOGString: " & ex.Message, True)
LOGGER.Info("Fehler in Return_LOGString: " & ex.Message, True)
PM_String = "DD-PM ERROR: " & ex.Message
End Try
Return PM_String

4
app/DD_PM_WINDREAM/ClassIDBData.vb
View File

@ -131,14 +131,14 @@
End Function
Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False)
Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0)
Try
Dim omytype = oNewValue.GetType.ToString
If omytype = "System.Data.DataTable" Then
Dim oDTMyNewValues As DataTable = oNewValue
If CheckDeleted = True Then
Dim oOldAttributeResult = GetVariableValue(oAttributeName)
Dim oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp)
Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
If oTypeOldResult = "System.Data.DataTable" Then
Dim myOldValues As DataTable = oOldAttributeResult

15
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -21,9 +21,10 @@ Public Class ClassInit
<STAThread()>
Public Sub InitUserConfig()
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath)
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
LOGGER.Info("Config loaded")
If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
LOGGER.Debug("Test Connection String loaded")
CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionStringTest)
@ -146,7 +147,7 @@ Public Class ClassInit
CLIENT_SELECTED = 1
End Try
LOGGER.Info(">> Username: " & USER_USERNAME)
LOGGER.Debug("Username: " & USER_USERNAME)
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
@ -227,11 +228,11 @@ Public Class ClassInit
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
If USER_IS_ADMIN = False Then
LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
If USER_IS_ADMIN = False Then
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE")
ERROR_STATE = "START INCOMPLETE"
LOGGER.Info("Wieder abgemeldet - START INCOMPLETE")
ERROR_STATE = "START INCOMPLETE"
End If
End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
@ -254,7 +255,7 @@ Public Class ClassInit
CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
Settings_LoadBasicConfig()
oSql = "Select * from TBDD_3RD_PARTY_MODULES"
oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql)
For Each oROW As DataRow In oDT.Rows
If oROW.Item("NAME") = "GDPICTURE" Then

89
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb generated
View File

@ -4053,6 +4053,8 @@ Partial Public Class DD_DMSLiteDataSet
Private columnDISPLAY_MODE As Global.System.Data.DataColumn
Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
@ -4288,6 +4290,14 @@ Partial Public Class DD_DMSLiteDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_BTN_FINISH
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@ -4349,9 +4359,10 @@ Partial Public Class DD_DMSLiteDataSet
ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _
ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _
ByVal WORK_HISTORY_ENTRY As String, _
ByVal DISPLAY_MODE As String) As TBPM_PROFILERow
ByVal DISPLAY_MODE As String, _
ByVal SQL_BTN_FINISH As String) As TBPM_PROFILERow
Dim rowTBPM_PROFILERow As TBPM_PROFILERow = CType(Me.NewRow,TBPM_PROFILERow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE}
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH}
If (Not (parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1) Is Nothing) Then
columnValuesArray(15) = parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1(0)
End If
@ -4408,6 +4419,7 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnANNOTATE_WORK_HISTORY_ENTRY = MyBase.Columns("ANNOTATE_WORK_HISTORY_ENTRY")
Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY")
Me.columnDISPLAY_MODE = MyBase.Columns("DISPLAY_MODE")
Me.columnSQL_BTN_FINISH = MyBase.Columns("SQL_BTN_FINISH")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -4463,6 +4475,8 @@ Partial Public Class DD_DMSLiteDataSet
MyBase.Columns.Add(Me.columnWORK_HISTORY_ENTRY)
Me.columnDISPLAY_MODE = New Global.System.Data.DataColumn("DISPLAY_MODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDISPLAY_MODE)
Me.columnSQL_BTN_FINISH = New Global.System.Data.DataColumn("SQL_BTN_FINISH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_BTN_FINISH)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnNAME}, false))
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint3", New Global.System.Data.DataColumn() {Me.columnTITLE}, false))
@ -4517,6 +4531,8 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnDISPLAY_MODE.AllowDBNull = false
Me.columnDISPLAY_MODE.DefaultValue = CType("Overview and Detail",String)
Me.columnDISPLAY_MODE.MaxLength = 20
Me.columnSQL_BTN_FINISH.AllowDBNull = false
Me.columnSQL_BTN_FINISH.MaxLength = 2147483647
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -8245,6 +8261,7 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnSTRING1.AllowDBNull = false
Me.columnSTRING1.MaxLength = 900
Me.columnSTRING2.AllowDBNull = false
Me.columnSTRING2.DefaultValue = CType("",String)
Me.columnSTRING2.MaxLength = 900
Me.columnSTRING3.MaxLength = 900
Me.columnSTRING4.MaxLength = 900
@ -10746,6 +10763,17 @@ Partial Public Class DD_DMSLiteDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property SQL_BTN_FINISH() As String
Get
Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String)
End Get
Set
Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property TBPM_TYPERow() As TBPM_TYPERow
@ -17938,6 +17966,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY")
tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY")
tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE")
tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@ -17995,21 +18024,22 @@ Namespace DD_DMSLiteDataSetTableAdapters
"PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _
" MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _
"ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TITLE,@PRIORIT"& _
"Y,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FI"& _
"NAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WOR"& _
"K_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HIST"& _
"ORY_ENTRY,@DISPLAY_MODE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTIO"& _
"N, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _
"ED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LA"& _
"TEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())"
"ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME"& _
",@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@F"& _
"INAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_V"& _
"EKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@AN"& _
"NOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _
"NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WH"& _
"O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER"& _
", TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDEN"& _
"TITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -18024,6 +18054,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _
@ -18035,18 +18066,19 @@ Namespace DD_DMSLiteDataSetTableAdapters
"INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _
"W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _
"NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _
"ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"& _
"; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, N"& _
"O_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE,"& _
" FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE "& _
"WHERE (GUID = @GUID)"
"ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_BTN_F"& _
"INISH = @SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
"GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _
"DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _
"FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _
"D)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -18062,6 +18094,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
@ -18083,8 +18116,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
"DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _
"L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _
"EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _
"NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBP"& _
"M_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME"
"NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
@ -18365,7 +18398,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
ByVal SQL_VIEW As String, _
ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _
ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _
ByVal DISPLAY_MODE As String) As Integer
ByVal DISPLAY_MODE As String, _
ByVal SQL_BTN_FINISH As String) As Integer
If (NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("NAME")
Else
@ -18434,6 +18468,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(19).Value = CType(DISPLAY_MODE,String)
End If
If (SQL_BTN_FINISH Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH")
Else
Me.Adapter.InsertCommand.Parameters(20).Value = CType(SQL_BTN_FINISH,String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@ -18475,6 +18514,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _
ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _
ByVal DISPLAY_MODE As String, _
ByVal SQL_BTN_FINISH As String, _
ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer
If (NAME Is Nothing) Then
@ -18550,8 +18590,13 @@ Namespace DD_DMSLiteDataSetTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DISPLAY_MODE,String)
End If
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer)
If (SQL_BTN_FINISH Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH")
Else
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SQL_BTN_FINISH,String)
End If
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then

28
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd
View File

@ -966,8 +966,8 @@ WHERE (GUID = @GUID)</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPM_PROFILE
(NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX,
WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE)
VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE);
WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)
VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH);
SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -975,7 +975,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
<Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -990,13 +990,15 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" ColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_ALL_WORK_HISTORY_ENTRIES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_WORK_HISTORY_ENTRY" ColumnName="ANNOTATE_WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_WORK_HISTORY_ENTRY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DISPLAY_MODE" ColumnName="DISPLAY_MODE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@DISPLAY_MODE" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="DISPLAY_MODE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_BTN_FINISH" ColumnName="SQL_BTN_FINISH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL_BTN_FINISH" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL_BTN_FINISH" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE,
WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE
WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE,
SQL_BTN_FINISH
FROM TBPM_PROFILE
ORDER BY NAME</CommandText>
<Parameters />
@ -1008,8 +1010,9 @@ ORDER BY NAME</CommandText>
SET NAME = @NAME, TITLE = @TITLE, PRIORITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_SEARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS,
CHANGED_WHO = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE,
SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIEW = @SQL_VIEW,
ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE
WHERE (GUID = @Original_GUID);
ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE,
SQL_BTN_FINISH = @SQL_BTN_FINISH
WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -1017,7 +1020,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
<Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -1033,6 +1036,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" ColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_ALL_WORK_HISTORY_ENTRIES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_WORK_HISTORY_ENTRY" ColumnName="ANNOTATE_WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_WORK_HISTORY_ENTRY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DISPLAY_MODE" ColumnName="DISPLAY_MODE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@DISPLAY_MODE" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="DISPLAY_MODE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_BTN_FINISH" ColumnName="SQL_BTN_FINISH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL_BTN_FINISH" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL_BTN_FINISH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -1066,6 +1070,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
<Mapping SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" DataSetColumn="ANNOTATE_WORK_HISTORY_ENTRY" />
<Mapping SourceColumn="WORK_HISTORY_ENTRY" DataSetColumn="WORK_HISTORY_ENTRY" />
<Mapping SourceColumn="DISPLAY_MODE" DataSetColumn="DISPLAY_MODE" />
<Mapping SourceColumn="SQL_BTN_FINISH" DataSetColumn="SQL_BTN_FINISH" />
</Mappings>
<Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdAnzProfile" Modifier="Public" Name="cmdAnzProfile" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdAnzProfile">
@ -2535,6 +2540,13 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_BTN_FINISH" msprop:Generator_ColumnVarNameInTable="columnSQL_BTN_FINISH" msprop:Generator_ColumnPropNameInRow="SQL_BTN_FINISH" msprop:Generator_ColumnPropNameInTable="SQL_BTN_FINISHColumn" msprop:Generator_UserColumnName="SQL_BTN_FINISH">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
@ -3111,7 +3123,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="STRING2" msprop:Generator_ColumnVarNameInTable="columnSTRING2" msprop:Generator_ColumnPropNameInRow="STRING2" msprop:Generator_ColumnPropNameInTable="STRING2Column" msprop:Generator_UserColumnName="STRING2">
<xs:element name="STRING2" msprop:Generator_ColumnVarNameInTable="columnSTRING2" msprop:Generator_ColumnPropNameInRow="STRING2" msprop:Generator_ColumnPropNameInTable="STRING2Column" msprop:Generator_UserColumnName="STRING2" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="900" />

6
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss
View File

@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="747" ViewPortY="131" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="939" ViewPortY="222" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="8" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="23" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
@ -17,12 +17,12 @@
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="10" X="303" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="19" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="3" X="947" Y="400" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="1" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="2" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="12" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="4" X="1054" Y="47" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:FNPM_GET_FREE_USER_FOR_PROFILE" ZOrder="11" X="807" Y="155" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBDD_EMAIL_TEMPLATE" ZOrder="5" X="1823" Y="483" Height="267" Width="287" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_GUI_LANGUAGE_PHRASE" ZOrder="2" X="1727" Y="301" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_GUI_LANGUAGE_PHRASE" ZOrder="1" X="1727" Y="301" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="20" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
</Shapes>
<Connectors>

3
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -164,8 +164,10 @@
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Data.Linq" />
<Reference Include="System.Data.OracleClient" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
@ -517,6 +519,7 @@
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

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

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

@ -231,7 +231,7 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("558")> _
Global.System.Configuration.DefaultSettingValueAttribute("563")> _
Public Property frmValSearchSplitterDistance() As Integer
Get
Return CType(Me("frmValSearchSplitterDistance"),Integer)

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

@ -50,7 +50,7 @@
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmValSearchSplitterDistance" Type="System.Int32" Scope="User">
<Value Profile="(Default)">558</Value>
<Value Profile="(Default)">563</Value>
</Setting>
<Setting Name="frmMainWindowState" Type="System.String" Scope="User">
<Value Profile="(Default)">Normal</Value>

6
app/DD_PM_WINDREAM/My Project/licenses.licx
View File

@ -1,5 +1,5 @@
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

4
app/DD_PM_WINDREAM/My Project/licenses.licx.bak
View File

@ -1 +1,5 @@
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

6
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@ -114,7 +114,9 @@ Public Class clsPatterns
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
result = ReplacePattern(result, PATTERN_USER, surname)
End While
If IsDBNull(shortname) Then
shortname = ""
End If
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
result = ReplacePattern(result, PATTERN_USER, shortname)
End While
@ -145,7 +147,7 @@ Public Class clsPatterns
While ContainsPattern(result, PATTERN_CTRL)
If oTryCounter > MAX_TRY_COUNT Then
Throw New Exception("Max tries in ReplaceControlValues exceeded.")
Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].")
End If
Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value

43
app/DD_PM_WINDREAM/frmAdmin2.Designer.vb generated
View File

@ -85,8 +85,9 @@ Partial Class frmAdmin2
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox()
Me.INTERNALCheckBox = New System.Windows.Forms.CheckBox()
Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox()
@ -387,6 +388,7 @@ Partial Class frmAdmin2
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Enabled = False
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4)
@ -475,6 +477,7 @@ Partial Class frmAdmin2
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsBehavior.ReadOnly = True
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
'
@ -495,12 +498,14 @@ Partial Class frmAdmin2
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
'
'TITLETextBox
'
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True))
resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.ReadOnly = True
'
'EMAIL_SUBJECTTextBox
'
@ -510,20 +515,20 @@ Partial Class frmAdmin2
'
'EMAIL_BODY1TextBox
'
Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True))
resources.ApplyResources(Me.EMAIL_BODY1TextBox, "EMAIL_BODY1TextBox")
Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True))
Me.EMAIL_BODY1TextBox.Name = "EMAIL_BODY1TextBox"
'
'EMAIL_BODY2TextBox
'
Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True))
resources.ApplyResources(Me.EMAIL_BODY2TextBox, "EMAIL_BODY2TextBox")
Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True))
Me.EMAIL_BODY2TextBox.Name = "EMAIL_BODY2TextBox"
'
'EMAIL_BODY3TextBox
'
Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True))
resources.ApplyResources(Me.EMAIL_BODY3TextBox, "EMAIL_BODY3TextBox")
Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True))
Me.EMAIL_BODY3TextBox.Name = "EMAIL_BODY3TextBox"
'
'ADDED_WHOTextBox
@ -531,28 +536,33 @@ Partial Class frmAdmin2
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox")
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox")
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
'
'XtraTabPage2
'
resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2")
Me.XtraTabPage2.Controls.Add(Me.INTERNALCheckBox)
Me.XtraTabPage2.Controls.Add(OBJ_NAMELabel)
Me.XtraTabPage2.Controls.Add(Me.OBJ_NAMETextBox)
Me.XtraTabPage2.Controls.Add(CHANGED_WHENLabel1)
@ -586,17 +596,24 @@ Partial Class frmAdmin2
Me.XtraTabPage2.Controls.Add(Me.GridControl2)
Me.XtraTabPage2.Name = "XtraTabPage2"
'
'OBJ_NAMETextBox
'INTERNALCheckBox
'
Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True))
resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox")
Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox"
Me.INTERNALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True))
resources.ApplyResources(Me.INTERNALCheckBox, "INTERNALCheckBox")
Me.INTERNALCheckBox.Name = "INTERNALCheckBox"
Me.INTERNALCheckBox.UseVisualStyleBackColor = True
'
'TBDD_GUI_LANGUAGE_PHRASEBindingSource
'
Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE"
Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'OBJ_NAMETextBox
'
Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True))
resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox")
Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox"
'
'CHANGED_WHENTextBox1
'
Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True))
@ -651,14 +668,18 @@ Partial Class frmAdmin2
'
'STRING2TextBox
'
Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True))
Me.STRING2TextBox.AcceptsReturn = True
Me.STRING2TextBox.AcceptsTab = True
resources.ApplyResources(Me.STRING2TextBox, "STRING2TextBox")
Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True))
Me.STRING2TextBox.Name = "STRING2TextBox"
'
'STRING1TextBox
'
Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
Me.STRING1TextBox.AcceptsReturn = True
Me.STRING1TextBox.AcceptsTab = True
resources.ApplyResources(Me.STRING1TextBox, "STRING1TextBox")
Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
Me.STRING1TextBox.Name = "STRING1TextBox"
'
'CAPT_TYPEComboBox
@ -709,6 +730,7 @@ Partial Class frmAdmin2
Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.Editable = False
Me.GridView2.OptionsBehavior.ReadOnly = True
Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
Me.GridView2.OptionsView.ShowAutoFilterRow = True
'
@ -852,4 +874,5 @@ Partial Class frmAdmin2
Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents OBJ_NAMETextBox As TextBox
Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents INTERNALCheckBox As CheckBox
End Class

1220
app/DD_PM_WINDREAM/frmAdmin2.resx
View File

File diff suppressed because it is too large Load Diff

12
app/DD_PM_WINDREAM/frmAdmin2.vb
View File

@ -19,6 +19,7 @@ Public Class frmAdmin2
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick
TBDD_EMAIL_TEMPLATEBindingSource.AddNew()
TITLETextBox.ReadOnly = False
End Sub
@ -57,6 +58,7 @@ Public Class frmAdmin2
Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
Status_Changed("Vorlage gespeichert")
TITLETextBox.ReadOnly = True
Else
Status_Changed("Keine Änderung")
End If
@ -137,4 +139,14 @@ Public Class frmAdmin2
Private Sub TBDD_GUI_LANGUAGE_PHRASEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GUI_LANGUAGE_PHRASEBindingSource.AddingNew
DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
End Sub
Private Sub INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles INTERNALCheckBox.CheckedChanged
If INTERNALCheckBox.Checked Then
TITLETextBox1.ReadOnly = True
OBJ_NAMETextBox.ReadOnly = True
Else
TITLETextBox1.ReadOnly = False
OBJ_NAMETextBox.ReadOnly = False
End If
End Sub
End Class

2
app/DD_PM_WINDREAM/frmDocView.Designer.vb generated
View File

@ -32,7 +32,7 @@ Partial Class frmDocView
'
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Name = "DocumentViewerfrmDocView"
Me.DocumentViewer1.Size = New System.Drawing.Size(800, 450)
Me.DocumentViewer1.TabIndex = 0
'

13
app/DD_PM_WINDREAM/frmKonfig.Designer.vb generated
View File

@ -50,7 +50,6 @@ Partial Class frmKonfig
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnLogMail = New System.Windows.Forms.Button()
Me.TabPage4 = New System.Windows.Forms.TabPage()
@ -202,7 +201,6 @@ Partial Class frmKonfig
Me.TabPage3.Controls.Add(Me.chkLogErrorsOnly)
Me.TabPage3.Controls.Add(Me.Button3)
Me.TabPage3.Controls.Add(Me.LinkLabel1)
Me.TabPage3.Controls.Add(Me.Button2)
Me.TabPage3.Controls.Add(Me.Button1)
Me.TabPage3.Controls.Add(Me.btnLogMail)
resources.ApplyResources(Me.TabPage3, "TabPage3")
@ -256,12 +254,6 @@ Partial Class frmKonfig
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.TabStop = True
'
'Button2
'
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
resources.ApplyResources(Me.Button1, "Button1")
@ -308,7 +300,7 @@ Partial Class frmKonfig
'
'gvLogs
'
Me.gvLogs.Appearance.OddRow.BackColor = CType(resources.GetObject("gvLogs.Appearance.OddRow.BackColor"), System.Drawing.Color)
Me.gvLogs.Appearance.OddRow.BackColor = System.Drawing.Color.LightCyan
Me.gvLogs.Appearance.OddRow.Options.UseBackColor = True
Me.gvLogs.GridControl = Me.GridControlLogs
Me.gvLogs.Name = "gvLogs"
@ -334,6 +326,8 @@ Partial Class frmKonfig
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@ -388,7 +382,6 @@ Partial Class frmKonfig
Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox

37
app/DD_PM_WINDREAM/frmKonfig.resx
View File

@ -643,7 +643,7 @@
<value>True</value>
</data>
<data name="chkLogErrorsOnly.Location" type="System.Drawing.Point, System.Drawing">
<value>506, 28</value>
<value>438, 29</value>
</data>
<data name="chkLogErrorsOnly.Size" type="System.Drawing.Size, System.Drawing">
<value>117, 21</value>
@ -717,32 +717,8 @@
<data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
<value>506, 105</value>
</data>
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 28</value>
</data>
<data name="Button2.TabIndex" type="System.Int32, mscorlib">
<value>38</value>
</data>
<data name="Button2.Text" xml:space="preserve">
<value>List all processes</value>
</data>
<data name="&gt;&gt;Button2.Name" xml:space="preserve">
<value>Button2</value>
</data>
<data name="&gt;&gt;Button2.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button2.Parent" xml:space="preserve">
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>506, 71</value>
<value>438, 64</value>
</data>
<data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 29</value>
@ -763,7 +739,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>9</value>
<value>8</value>
</data>
<data name="btnLogMail.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
@ -793,7 +769,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;btnLogMail.ZOrder" xml:space="preserve">
<value>10</value>
<value>9</value>
</data>
<data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 26</value>
@ -838,7 +814,7 @@
<value>Speichere Log als...</value>
</data>
<data name="ContextMenuInternalLog.Size" type="System.Drawing.Size, System.Drawing">
<value>198, 48</value>
<value>198, 70</value>
</data>
<data name="&gt;&gt;ContextMenuInternalLog.Name" xml:space="preserve">
<value>ContextMenuInternalLog</value>
@ -855,9 +831,6 @@
<data name="GridControlLogs.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value>
</data>
<data name="gvLogs.Appearance.OddRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>LightCyan</value>
</data>
<data name="GridControlLogs.Size" type="System.Drawing.Size, System.Drawing">
<value>826, 312</value>
</data>

16
app/DD_PM_WINDREAM/frmKonfig.vb
View File

@ -150,22 +150,6 @@ Public Class frmKonfig
MsgBox("Culture-Name: " & CultureInfo.CurrentCulture.Name & vbNewLine & "Culture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentCulture.ThreeLetterISOLanguageName & vbNewLine &
"CurrentUICulture-Name: " & CultureInfo.CurrentUICulture.Name & vbNewLine & "CurrentUICulture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim p As Process
Dim processes As Process()
processes = Process.GetProcesses()
Dim msg As String
For Each p In processes
If p.ProcessName <> "svchost" Then
msg = msg & p.ProcessName & vbNewLine
End If
Next
MsgBox("Liste der Processnames: " & vbNewLine & msg, MsgBoxStyle.Information)
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
My.Settings.Save()
End Sub

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

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMain
Inherits System.Windows.Forms.Form
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
@ -40,23 +40,6 @@ Partial Class frmMain
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton()
Me.tsddConfig = New System.Windows.Forms.ToolStripDropDownButton()
Me.ProfileUndBasisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KonfigurationenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbtnMonitoring = New System.Windows.Forms.ToolStripButton()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsstlblUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblLicenses = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblUserLoggedin = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblLastSysnc = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblDEBUG_LOG = New System.Windows.Forms.ToolStripStatusLabel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
@ -102,6 +85,29 @@ Partial Class frmMain
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniMonitor = New DevExpress.XtraBars.BarButtonItem()
Me.bbiProfilverwaltung = New DevExpress.XtraBars.BarButtonItem()
Me.bbiKonfiguration = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniGrundeinstellung = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitemInfo = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.bsiUser = New DevExpress.XtraBars.BarStaticItem()
Me.bsiLicenses = New DevExpress.XtraBars.BarStaticItem()
Me.bsiUserLoggedIn = New DevExpress.XtraBars.BarStaticItem()
Me.bsiVersion = New DevExpress.XtraBars.BarStaticItem()
Me.bsilastsync = New DevExpress.XtraBars.BarStaticItem()
Me.bsiDebug = New DevExpress.XtraBars.BarStaticItem()
Me.bsiMessage = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = 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.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -120,8 +126,6 @@ Partial Class frmMain
CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
@ -135,6 +139,8 @@ Partial Class frmMain
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainerDashboard
@ -275,134 +281,11 @@ Partial Class frmMain
Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'ToolStrip1
'
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tsbtnrefresh, Me.tsddConfig, Me.tsbtnMonitoring})
Me.ToolStrip1.Name = "ToolStrip1"
'
'ToolStripButton2
'
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Name = "ToolStripButton2"
'
'ToolStripButton1
'
Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Hammer_Builder_16xLG
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'tsbtnrefresh
'
Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
Me.tsbtnrefresh.Name = "tsbtnrefresh"
'
'tsddConfig
'
Me.tsddConfig.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsddConfig.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProfileUndBasisToolStripMenuItem, Me.KonfigurationenToolStripMenuItem})
resources.ApplyResources(Me.tsddConfig, "tsddConfig")
Me.tsddConfig.Name = "tsddConfig"
'
'ProfileUndBasisToolStripMenuItem
'
Me.ProfileUndBasisToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2
Me.ProfileUndBasisToolStripMenuItem.Name = "ProfileUndBasisToolStripMenuItem"
resources.ApplyResources(Me.ProfileUndBasisToolStripMenuItem, "ProfileUndBasisToolStripMenuItem")
'
'KonfigurationenToolStripMenuItem
'
resources.ApplyResources(Me.KonfigurationenToolStripMenuItem, "KonfigurationenToolStripMenuItem")
Me.KonfigurationenToolStripMenuItem.Name = "KonfigurationenToolStripMenuItem"
'
'tsbtnMonitoring
'
Me.tsbtnMonitoring.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsbtnMonitoring.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Monitor_Screen_16xLG
resources.ApplyResources(Me.tsbtnMonitoring, "tsbtnMonitoring")
Me.tsbtnMonitoring.Name = "tsbtnMonitoring"
'
'StatusStrip1
'
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstlblUser, Me.tslblLicenses, Me.tslblUserLoggedin, Me.tslblVersion, Me.tsslblLastSysnc, Me.tslblmessage, Me.tsslblDEBUG_LOG})
Me.StatusStrip1.Name = "StatusStrip1"
'
'tsstlblUser
'
Me.tsstlblUser.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsstlblUser.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user
Me.tsstlblUser.Name = "tsstlblUser"
resources.ApplyResources(Me.tsstlblUser, "tsstlblUser")
'
'tslblLicenses
'
Me.tslblLicenses.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblLicenses.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key
Me.tslblLicenses.Name = "tslblLicenses"
resources.ApplyResources(Me.tslblLicenses, "tslblLicenses")
'
'tslblUserLoggedin
'
Me.tslblUserLoggedin.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblUserLoggedin.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key
Me.tslblUserLoggedin.Name = "tslblUserLoggedin"
resources.ApplyResources(Me.tslblUserLoggedin, "tslblUserLoggedin")
'
'tslblVersion
'
Me.tslblVersion.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblVersion.Name = "tslblVersion"
resources.ApplyResources(Me.tslblVersion, "tslblVersion")
'
'tsslblLastSysnc
'
Me.tsslblLastSysnc.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
resources.ApplyResources(Me.tsslblLastSysnc, "tsslblLastSysnc")
Me.tsslblLastSysnc.Name = "tsslblLastSysnc"
'
'tslblmessage
'
Me.tslblmessage.BackColor = System.Drawing.Color.Yellow
Me.tslblmessage.Name = "tslblmessage"
resources.ApplyResources(Me.tslblmessage, "tslblmessage")
'
'tsslblDEBUG_LOG
'
resources.ApplyResources(Me.tsslblDEBUG_LOG, "tsslblDEBUG_LOG")
Me.tsslblDEBUG_LOG.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.tsslblDEBUG_LOG.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.A_1
Me.tsslblDEBUG_LOG.Name = "tsslblDEBUG_LOG"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.GridControl_Docs)
Me.Panel1.Controls.Add(Me.BindingNavigator1)
Me.Panel1.Controls.Add(Me.NavBarControl1)
Me.Panel1.Controls.Add(Me.ToolStrip1)
Me.Panel1.Controls.Add(Me.StatusStrip1)
Me.Panel1.Controls.Add(Me.SplitContainerDashboard)
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
@ -476,6 +359,7 @@ Partial Class frmMain
Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsBehavior.Editable = False
Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
Me.GridView_Docs.OptionsView.ColumnAutoWidth = False
Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True
@ -669,13 +553,200 @@ Partial Class frmMain
Me.Timer5Mins.Enabled = True
Me.Timer5Mins.Interval = 350000
'
'RibbonControl1
'
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})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 15
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo)
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'bbtniRefresh
'
resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh")
Me.bbtniRefresh.Id = 1
Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniRefresh.Name = "bbtniRefresh"
'
'bbtniMonitor
'
resources.ApplyResources(Me.bbtniMonitor, "bbtniMonitor")
Me.bbtniMonitor.Id = 2
Me.bbtniMonitor.ImageOptions.Image = CType(resources.GetObject("bbtniMonitor.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniMonitor.ImageOptions.LargeImage = CType(resources.GetObject("bbtniMonitor.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniMonitor.Name = "bbtniMonitor"
'
'bbiProfilverwaltung
'
resources.ApplyResources(Me.bbiProfilverwaltung, "bbiProfilverwaltung")
Me.bbiProfilverwaltung.Id = 3
Me.bbiProfilverwaltung.ImageOptions.Image = CType(resources.GetObject("bbiProfilverwaltung.ImageOptions.Image"), System.Drawing.Image)
Me.bbiProfilverwaltung.ImageOptions.LargeImage = CType(resources.GetObject("bbiProfilverwaltung.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbiProfilverwaltung.Name = "bbiProfilverwaltung"
'
'bbiKonfiguration
'
resources.ApplyResources(Me.bbiKonfiguration, "bbiKonfiguration")
Me.bbiKonfiguration.Id = 4
Me.bbiKonfiguration.ImageOptions.Image = CType(resources.GetObject("bbiKonfiguration.ImageOptions.Image"), System.Drawing.Image)
Me.bbiKonfiguration.ImageOptions.LargeImage = CType(resources.GetObject("bbiKonfiguration.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbiKonfiguration.Name = "bbiKonfiguration"
'
'bbtniGrundeinstellung
'
resources.ApplyResources(Me.bbtniGrundeinstellung, "bbtniGrundeinstellung")
Me.bbtniGrundeinstellung.Id = 5
Me.bbtniGrundeinstellung.ImageOptions.Image = CType(resources.GetObject("bbtniGrundeinstellung.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniGrundeinstellung.ImageOptions.LargeImage = CType(resources.GetObject("bbtniGrundeinstellung.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniGrundeinstellung.Name = "bbtniGrundeinstellung"
Me.bbtniGrundeinstellung.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'bbtnitemInfo
'
resources.ApplyResources(Me.bbtnitemInfo, "bbtnitemInfo")
Me.bbtnitemInfo.Id = 6
Me.bbtnitemInfo.ImageOptions.Image = CType(resources.GetObject("bbtnitemInfo.ImageOptions.Image"), System.Drawing.Image)
Me.bbtnitemInfo.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitemInfo.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtnitemInfo.Name = "bbtnitemInfo"
Me.bbtnitemInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem1
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 7
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'bsiUser
'
resources.ApplyResources(Me.bsiUser, "bsiUser")
Me.bsiUser.Id = 8
Me.bsiUser.ImageOptions.Image = CType(resources.GetObject("bsiUser.ImageOptions.Image"), System.Drawing.Image)
Me.bsiUser.ImageOptions.LargeImage = CType(resources.GetObject("bsiUser.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsiUser.Name = "bsiUser"
Me.bsiUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiLicenses
'
resources.ApplyResources(Me.bsiLicenses, "bsiLicenses")
Me.bsiLicenses.Id = 9
Me.bsiLicenses.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key
Me.bsiLicenses.Name = "bsiLicenses"
Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiUserLoggedIn
'
resources.ApplyResources(Me.bsiUserLoggedIn, "bsiUserLoggedIn")
Me.bsiUserLoggedIn.Id = 10
Me.bsiUserLoggedIn.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key
Me.bsiUserLoggedIn.Name = "bsiUserLoggedIn"
Me.bsiUserLoggedIn.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiVersion
'
resources.ApplyResources(Me.bsiVersion, "bsiVersion")
Me.bsiVersion.Id = 11
Me.bsiVersion.Name = "bsiVersion"
'
'bsilastsync
'
resources.ApplyResources(Me.bsilastsync, "bsilastsync")
Me.bsilastsync.Id = 12
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.Name = "bsilastsync"
Me.bsilastsync.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiDebug
'
resources.ApplyResources(Me.bsiDebug, "bsiDebug")
Me.bsiDebug.Id = 13
Me.bsiDebug.ImageOptions.Image = CType(resources.GetObject("bsiDebug.ImageOptions.Image"), System.Drawing.Image)
Me.bsiDebug.ImageOptions.LargeImage = CType(resources.GetObject("bsiDebug.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsiDebug.Name = "bsiDebug"
Me.bsiDebug.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiMessage
'
resources.ApplyResources(Me.bsiMessage, "bsiMessage")
Me.bsiMessage.Id = 14
Me.bsiMessage.Name = "bsiMessage"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniRefresh)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbiProfilverwaltung)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbiKonfiguration)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtniGrundeinstellung)
Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtnitemInfo)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiMessage)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'ApplicationMenu1
'
Me.ApplicationMenu1.Name = "ApplicationMenu1"
Me.ApplicationMenu1.Ribbon = Me.RibbonControl1
'
'frmMain
'
Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmMain"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.SplitContainerDashboard.Panel1.ResumeLayout(False)
Me.SplitContainerDashboard.Panel2.ResumeLayout(False)
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).EndInit()
@ -698,10 +769,6 @@ Partial Class frmMain
CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit()
@ -717,7 +784,10 @@ Partial Class frmMain
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet
@ -725,24 +795,14 @@ Partial Class frmMain
Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter
Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblUserLoggedin As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents tslblVersion As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents TimerReminder As System.Windows.Forms.Timer
Friend WithEvents ContextMenuGrid As ContextMenuStrip
Friend WithEvents CMGroupStart As ToolStripMenuItem
@ -752,7 +812,6 @@ Partial Class frmMain
Friend WithEvents NavBarGroupMore As DevExpress.XtraNavBar.NavBarGroup
Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem
Friend WithEvents NavBarItemDashboard As DevExpress.XtraNavBar.NavBarItem
Friend WithEvents tsslblLastSysnc As ToolStripStatusLabel
Friend WithEvents cmsNavPane As ContextMenuStrip
Friend WithEvents tsmiValidationProfil As ToolStripMenuItem
Friend WithEvents Panel1 As Panel
@ -768,7 +827,6 @@ Partial Class frmMain
Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripBottomRight As ToolStrip
Friend WithEvents TabellenlayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblmessage As ToolStripStatusLabel
Friend WithEvents tsmiMarkedFilesFinish As ToolStripMenuItem
Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView_Docs As DevExpress.XtraGrid.Views.Grid.GridView
@ -788,14 +846,32 @@ Partial Class frmMain
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents LayoutSpeichernToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Timer5Mins As Timer
Friend WithEvents tsslblDEBUG_LOG As ToolStripStatusLabel
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents tsddConfig As ToolStripDropDownButton
Friend WithEvents ProfileUndBasisToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KonfigurationenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöscheAlleFilterToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuNotifyIcon As ContextMenuStrip
Friend WithEvents PopupErinnerungInaktivierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tsbtnMonitoring As ToolStripButton
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents bbtniRefresh As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtniMonitor As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbiProfilverwaltung As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbiKonfiguration As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtniGrundeinstellung As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents bbtnitemInfo As DevExpress.XtraBars.BarButtonItem
Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bsiUser As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiLicenses As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiUserLoggedIn As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiVersion As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsilastsync As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiDebug As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiMessage As DevExpress.XtraBars.BarStaticItem
End Class

971
app/DD_PM_WINDREAM/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

659
app/DD_PM_WINDREAM/frmMain.vb
View File

File diff suppressed because it is too large Load Diff

96
app/DD_PM_WINDREAM/frmMonitor.Designer.vb generated
View File

@ -27,6 +27,9 @@ Partial Class frmMonitor
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.BarStaticItemInfoDoc = New DevExpress.XtraBars.BarStaticItem()
Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@ -43,7 +46,8 @@ Partial Class frmMonitor
Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraSaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.SplitContainerControlMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.DocumentViewerMonitor = New DigitalData.Controls.DocumentViewer.DocumentViewer()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
@ -59,15 +63,17 @@ Partial Class frmMonitor
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControlMain.SuspendLayout()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.AutoHideEmptyItems = True
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarStaticItemInfoDoc, Me.BarStaticItemInfo})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 5
Me.RibbonControl1.MaxItemId = 7
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(1202, 158)
@ -96,6 +102,31 @@ Partial Class frmMonitor
Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "Layouts zurücksetzen"
Me.BarButtonItem4.Id = 4
Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'BarStaticItemInfoDoc
'
Me.BarStaticItemInfoDoc.Caption = "No Row Selected"
Me.BarStaticItemInfoDoc.Id = 5
Me.BarStaticItemInfoDoc.Name = "BarStaticItemInfoDoc"
'
'BarStaticItemInfo
'
Me.BarStaticItemInfo.Caption = "BarStaticItemInfo"
Me.BarStaticItemInfo.Id = 6
Me.BarStaticItemInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.OrangeRed
Me.BarStaticItemInfo.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black
Me.BarStaticItemInfo.ItemAppearance.Normal.Options.UseBackColor = True
Me.BarStaticItemInfo.ItemAppearance.Normal.Options.UseForeColor = True
Me.BarStaticItemInfo.Name = "BarStaticItemInfo"
Me.BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@ -112,6 +143,8 @@ Partial Class frmMonitor
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfoDoc)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 673)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@ -125,13 +158,13 @@ Partial Class frmMonitor
'SplitContainerControl1
'
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158)
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1202, 515)
Me.SplitContainerControl1.Size = New System.Drawing.Size(866, 515)
Me.SplitContainerControl1.SplitterPosition = 510
Me.SplitContainerControl1.TabIndex = 2
'
@ -154,6 +187,9 @@ Partial Class frmMonitor
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsBehavior.ReadOnly = True
Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowViewCaption = True
@ -170,7 +206,7 @@ Partial Class frmMonitor
Me.SplitContainerControl2.Panel1.Text = "Panel1"
Me.SplitContainerControl2.Panel2.Controls.Add(Me.SplitContainerControl3)
Me.SplitContainerControl2.Panel2.Text = "Panel2"
Me.SplitContainerControl2.Size = New System.Drawing.Size(682, 515)
Me.SplitContainerControl2.Size = New System.Drawing.Size(346, 515)
Me.SplitContainerControl2.SplitterPosition = 270
Me.SplitContainerControl2.TabIndex = 0
'
@ -181,7 +217,7 @@ Partial Class frmMonitor
Me.GridControl2.MainView = Me.GridView2
Me.GridControl2.MenuManager = Me.RibbonControl1
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.Size = New System.Drawing.Size(682, 270)
Me.GridControl2.Size = New System.Drawing.Size(346, 270)
Me.GridControl2.TabIndex = 1
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
'
@ -193,6 +229,9 @@ Partial Class frmMonitor
Me.GridView2.Name = "GridView2"
Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsBehavior.Editable = False
Me.GridView2.OptionsBehavior.ReadOnly = True
Me.GridView2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
Me.GridView2.OptionsView.ShowAutoFilterRow = True
Me.GridView2.OptionsView.ShowViewCaption = True
@ -208,7 +247,7 @@ Partial Class frmMonitor
Me.SplitContainerControl3.Panel1.Text = "Panel1"
Me.SplitContainerControl3.Panel2.Controls.Add(Me.GridControl4)
Me.SplitContainerControl3.Panel2.Text = "Panel2"
Me.SplitContainerControl3.Size = New System.Drawing.Size(682, 235)
Me.SplitContainerControl3.Size = New System.Drawing.Size(346, 235)
Me.SplitContainerControl3.SplitterPosition = 400
Me.SplitContainerControl3.TabIndex = 0
'
@ -219,7 +258,7 @@ Partial Class frmMonitor
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.MenuManager = Me.RibbonControl1
Me.GridControl3.Name = "GridControl3"
Me.GridControl3.Size = New System.Drawing.Size(400, 235)
Me.GridControl3.Size = New System.Drawing.Size(336, 235)
Me.GridControl3.TabIndex = 2
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
@ -231,6 +270,9 @@ Partial Class frmMonitor
Me.GridView3.Name = "GridView3"
Me.GridView3.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsBehavior.Editable = False
Me.GridView3.OptionsBehavior.ReadOnly = True
Me.GridView3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
Me.GridView3.OptionsView.ShowAutoFilterRow = True
Me.GridView3.OptionsView.ShowViewCaption = True
@ -243,7 +285,7 @@ Partial Class frmMonitor
Me.GridControl4.MainView = Me.GridView4
Me.GridControl4.MenuManager = Me.RibbonControl1
Me.GridControl4.Name = "GridControl4"
Me.GridControl4.Size = New System.Drawing.Size(272, 235)
Me.GridControl4.Size = New System.Drawing.Size(0, 0)
Me.GridControl4.TabIndex = 3
Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
'
@ -264,20 +306,34 @@ Partial Class frmMonitor
'
Me.XtraSaveFileDialog1.Filter = """xlsx-Dateien|*.xlsx"""
'
'BarButtonItem4
'SplitContainerControlMain
'
Me.BarButtonItem4.Caption = "Layouts zurücksetzen"
Me.BarButtonItem4.Id = 4
Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem4.Name = "BarButtonItem4"
Me.SplitContainerControlMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
Me.SplitContainerControlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControlMain.Location = New System.Drawing.Point(0, 158)
Me.SplitContainerControlMain.Name = "SplitContainerControlMain"
Me.SplitContainerControlMain.Panel1.Controls.Add(Me.DocumentViewerMonitor)
Me.SplitContainerControlMain.Panel1.Text = "Panel1"
Me.SplitContainerControlMain.Panel2.Controls.Add(Me.SplitContainerControl1)
Me.SplitContainerControlMain.Panel2.Text = "Panel2"
Me.SplitContainerControlMain.Size = New System.Drawing.Size(1202, 515)
Me.SplitContainerControlMain.SplitterPosition = 326
Me.SplitContainerControlMain.TabIndex = 5
'
'DocumentViewerMonitor
'
Me.DocumentViewerMonitor.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewerMonitor.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewerMonitor.Name = "DocumentViewerMonitor"
Me.DocumentViewerMonitor.Size = New System.Drawing.Size(326, 515)
Me.DocumentViewerMonitor.TabIndex = 0
'
'frmMonitor
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1202, 697)
Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.SplitContainerControlMain)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmMonitor"
@ -299,6 +355,8 @@ Partial Class frmMonitor
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControlMain.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -325,4 +383,8 @@ Partial Class frmMonitor
Friend WithEvents XtraSaveFileDialog1 As SaveFileDialog
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents SplitContainerControlMain As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents BarStaticItemInfoDoc As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarStaticItemInfo As DevExpress.XtraBars.BarStaticItem
Friend WithEvents DocumentViewerMonitor As DigitalData.Controls.DocumentViewer.DocumentViewer
End Class

28
app/DD_PM_WINDREAM/frmMonitor.resx
View File

@ -170,25 +170,23 @@
</data>
<data name="BarButtonItem4.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBDbGVhcjtF
cmFzZTtSZW1vdmU7QmFycztSaWJib247h4CDcwAAAIxJREFUOE+lkNsNgCAQBO3JFvylCjuxKkuxm5Ml
d3jAggY/Jr52JsFFRH5BX1775gkRUXBfbIsHAyPFyzRSiAYGOqxlI0caGeiAiZ6A7aycwH5aBixAhx3a
I5BRj+cnhuNcI4KrfmCCJ8nAApCNt0iWAQuMIo1cH2EUKWTgA92IjUZYgEbqMYO+/I4sN6ixgsCcjQTu
AAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENsZWFyO0VyYXNlO1JlbW92ZTtC
YXJzO1JpYmJvbjuHgINzAAAAjElEQVQ4T6WQ2w2AIBAE7ckW/KUKO7EqS7GbkyV3eMCCBj8mvnYmwUVE
fkFfXvvmCRFRcF9siwcDI8XLNFKIBgY6rGUjRxoZ6ICJnoDtrJzAfloGLECHHdojkFGP5yeG41wjgqt+
YIInycACkI23SJYBC4wijVwfYRQpZOAD3YiNRliARuoxg778jiw3qLGCwJyNBO4AAAAASUVORK5CYII=
</value>
</data>
<data name="BarButtonItem4.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBDbGVhcjtF
cmFzZTtSZW1vdmU7QmFycztSaWJib247h4CDcwAAATVJREFUWEfFkdFtwzAMRLNTV+ivp+gmnaqjZBtV
Z+gEkj7ZkiU4Hw+xCfLeIX6llD6KHD6JHFreP98jbJlUwLPMtMihBSGdWHl3CTm0IKADJSd7iQjznUyh
jgNncnIowXwnU8TDQI+cuBLMdzKFPQqMyEktwXwnU/AgcEdO9hLMdzIFlgMzcrIx/yCM5OXV8h3mH4SR
vLxcDph/EEby8nJ5ZugTLJdnar6TRcqyCrnLLgd0OKGlLKuQu1Q5oMdJLeVoFVIO3IulHK7AyYH1uJft
9+8rk/BbDlXgCAc5sE4lJ7MlpBy0Clj5bImmHIwUAKMlTuWgVSB+AktviUs5aBWYLdElB2cF7pboloOr
AqMlhuSgp8BlCRsyQ33IoYpmCd7NUh9yaAtVYv0/8Cnk8Enk8DnS6x9vj+lSV2uHuAAAAABJRU5ErkJg
gg==
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENsZWFyO0VyYXNlO1JlbW92ZTtC
YXJzO1JpYmJvbjuHgINzAAABNUlEQVRYR8WR0W3DMAxEs1NX6K+n6CadqqNkG1Vn6ASSPtmSJTgfD7EJ
8t4hfqWUPoocPokcWt4/3yNsmVTAs8y0yKEFIZ1YeXcJObQgoAMlJ3uJCPOdTKGOA2dycijBfCdTxMNA
j5y4Esx3MoU9CozISS3BfCdT8CBwR072Esx3MgWWAzNysjH/IIzk5dXyHeYfhJG8vFwOmH8QRvLycnlm
6BMsl2dqvpNFyrIKucsuB3Q4oaUsq5C7VDmgx0kt5WgVUg7ci6UcrsDJgfW4l+337yuT8FsOVeAIBzmw
TiUnsyWkHLQKWPlsiaYcjBQAoyVO5aBVIH4CS2+JSzloFZgt0SUHZwXuluiWg6sCoyWG5KCnwGUJGzJD
fcihimYJ3s1SH3JoC1Vi/T/wKeTwSeTwOdLrH2+P6VJXa4e4AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

121
app/DD_PM_WINDREAM/frmMonitor.vb
View File

@ -14,7 +14,7 @@ Public Class frmMonitor
Dim GRID4_TITLE As String
Dim GRID4_SQL As String
Private _ActiveGrid As GridControl = Nothing
Private _frmDocView As frmDocView 'You need a reference to Form1
' Private _frmDocView As frmDocView 'You need a reference to Form1
Dim FormShown As Boolean = False
Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
If FormShown = False Then Exit Sub
@ -32,58 +32,96 @@ Public Class frmMonitor
oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
Catch ex As Exception
LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}")
oDocPath = String.Empty
End Try
BarStaticItemInfoDoc.Caption = $"DocID: {oDocID} - Docpath: {oDocPath}"
Dim oDetailSQL = GRID2_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
If Not IsNothing(oDT2) Then
LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
GridView2.Columns.Clear()
GridControl2.DataSource = oDT2
Try
GridView2.Columns("Wann").DisplayFormat.FormatType = FormatType.DateTime
GridView2.Columns("Wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
GridView2.Columns("When").DisplayFormat.FormatType = FormatType.DateTime
GridView2.Columns("When").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
End Try
End If
If DT_MONITOR_KONFIG.Rows.Count > 2 Then
oDetailSQL = GRID3_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
If Not IsNothing(oDT3) Then
LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
GridView3.Columns.Clear()
GridControl3.DataSource = oDT3
End If
If DT_MONITOR_KONFIG.Rows.Count = 4 Then
oDetailSQL = GRID4_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
If Not IsNothing(oDT4) Then
LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4")
GridView4.Columns.Clear()
GridControl4.DataSource = oDT4
Try
GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime
GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime
GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
End Try
End If
End If
End If
If BarButtonItem3.Caption <> "DocView aktivieren" And oDocPath <> "" Then
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
frmDocView.Show()
_frmDocView = frmDocView
End If
_frmDocView.LoadFile(oDocPath)
End If
Load_Doc(oDocPath)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:")
End Try
End Sub
Sub Load_Doc(oDocPath As String)
Try
If SplitContainerControlMain.Collapsed = False And oDocPath <> String.Empty Then
'If Not Application.OpenForms().OfType(Of frmValidator).Any Then
' frmDocView.Show()
' _frmDocView = frmDocView
'End If
'_frmDocView.LoadFile(oDocPath)
If File.Exists(oDocPath) Then
DocumentViewerMonitor.LoadFile(oDocPath)
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
DocumentViewerMonitor.Visible = True
Else
BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
BarStaticItemInfo.Caption = $"File is not existing or accessible!"
DocumentViewerMonitor.Visible = False
End If
End If
Catch ex As Exception
LOGGER.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadDoc:")
End Try
End Sub
Private Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
SplitContainerControlMain.Collapsed = True
Load_Grid_Data()
Select Case DT_MONITOR_KONFIG.Rows.Count
@ -106,7 +144,11 @@ Public Class frmMonitor
SplitContainerControl2.SplitterPosition = CONFIG.Config.MonitorSplitter2_Distance
SplitContainerControl3.SplitterPosition = CONFIG.Config.MonitorSplitter3_Distance
End Select
Try
DocumentViewerMonitor.Init(LOGCONFIG, GDPICTURE_LICENSE)
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
Sub Load_Grid_Data()
Try
@ -146,8 +188,8 @@ Public Class frmMonitor
GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL")
GridView3.ViewCaption = GRID3_TITLE
Case 4
GRID3_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE")
GRID3_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL")
GRID3_TITLE = DT_MONITOR_KONFIG.Rows(2).Item("GRID_TITLE")
GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL")
GridView3.ViewCaption = GRID3_TITLE
GRID4_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE")
GRID4_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL")
@ -318,9 +360,10 @@ Public Class frmMonitor
End Select
CONFIG.Save()
Try
_frmDocView.Close()
DocumentViewerMonitor.Done()
'_frmDocView.Close()
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
@ -365,25 +408,43 @@ Public Class frmMonitor
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
If BarButtonItem3.Caption = "DocView aktivieren" Then
BarButtonItem3.Caption = "DocView deaktivieren"
If SplitContainerControlMain.Collapsed = True Then
SplitContainerControlMain.Collapsed = False
If USER_LANGUAGE = "de-DE" Then
BarButtonItem3.Caption = "DocView deaktivieren"
Else
BarButtonItem3.Caption = "Deactivate DocView"
End If
BarButtonItem3.Down = True
Dim oDocPath
Try
oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
Catch ex As Exception
LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}")
Exit Sub
End Try
If oDocPath <> "" Then
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
frmDocView.Show()
_frmDocView = frmDocView
End If
_frmDocView.LoadFile(oDocPath)
Me.SendToBack()
End If
DocumentViewerMonitor?.LoadFile(oDocPath)
'If oDocPath <> "" Then
' If Not Application.OpenForms().OfType(Of frmValidator).Any Then
' frmDocView.Show()
' _frmDocView = frmDocView
' End If
' _frmDocView.LoadFile(oDocPath)
' Me.SendToBack()
'End If
Else
BarButtonItem3.Caption = "DocView aktivieren"
SplitContainerControlMain.Collapsed = True
If USER_LANGUAGE = "de-DE" Then
BarButtonItem3.Caption = "DocView aktivieren"
Else
BarButtonItem3.Caption = "Activate DocView"
End If
BarButtonItem3.Down = False
End If

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

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmValidator
Inherits System.Windows.Forms.Form
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
@ -30,15 +30,9 @@ Partial Class frmValidator
Me.btnSave = New System.Windows.Forms.Button()
Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
Me.pnldesigner = New System.Windows.Forms.Panel()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tstrplblError = New System.Windows.Forms.ToolStripStatusLabel()
Me.tstrlbl_Info = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslbl_State = New System.Windows.Forms.ToolStripStatusLabel()
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
@ -82,20 +76,31 @@ Partial Class frmValidator
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonSearchesReload = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonJumpFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton()
Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.bsiError = New DevExpress.XtraBars.BarStaticItem()
Me.bsiInformation = New DevExpress.XtraBars.BarStaticItem()
Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniRefreshSearches = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniNext = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniDelete = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniAnnotation = New DevExpress.XtraBars.BarButtonItem()
Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem()
Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
@ -104,7 +109,6 @@ Partial Class frmValidator
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -114,9 +118,9 @@ Partial Class frmValidator
CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainer1
@ -126,34 +130,27 @@ Partial Class frmValidator
'
'SplitContainer1.Panel1
'
resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel1, resources.GetString("SplitContainer1.Panel1.ToolTip"))
'
'SplitContainer1.Panel2
'
resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel2, resources.GetString("SplitContainer1.Panel2.ToolTip"))
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator)
Me.SplitContainer1.TabStop = False
Me.ToolTip1.SetToolTip(Me.SplitContainer1, resources.GetString("SplitContainer1.ToolTip"))
'
'Panel1
'
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight
Me.Panel1.Controls.Add(Me.TITLELabel1)
Me.Panel1.Controls.Add(Me.btnSave)
Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel)
Me.Panel1.Controls.Add(Me.pnldesigner)
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
Me.ToolTip1.SetToolTip(Me.Panel1, resources.GetString("Panel1.ToolTip"))
'
'TITLELabel1
'
resources.ApplyResources(Me.TITLELabel1, "TITLELabel1")
Me.TITLELabel1.Name = "TITLELabel1"
Me.ToolTip1.SetToolTip(Me.TITLELabel1, resources.GetString("TITLELabel1.ToolTip"))
'
'btnSave
'
@ -161,27 +158,18 @@ Partial Class frmValidator
Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_pink
Me.btnSave.Name = "btnSave"
Me.btnSave.TabStop = False
Me.ToolTip1.SetToolTip(Me.btnSave, resources.GetString("btnSave.ToolTip"))
Me.btnSave.UseVisualStyleBackColor = True
'
'DESCRIPTIONLabel
'
resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel")
Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel"
Me.ToolTip1.SetToolTip(Me.DESCRIPTIONLabel, resources.GetString("DESCRIPTIONLabel.ToolTip"))
'
'pnldesigner
'
resources.ApplyResources(Me.pnldesigner, "pnldesigner")
Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnldesigner.Name = "pnldesigner"
Me.ToolTip1.SetToolTip(Me.pnldesigner, resources.GetString("pnldesigner.ToolTip"))
'
'DocumentViewer1
'
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.ToolTip1.SetToolTip(Me.DocumentViewer1, resources.GetString("DocumentViewer1.ToolTip"))
'
'BarAndDockingController3
'
@ -198,35 +186,6 @@ Partial Class frmValidator
Me.BarAndDockingController1.PropertiesBar.AllowLinkLighting = False
Me.BarAndDockingController1.PropertiesDocking.ViewStyle = DevExpress.XtraBars.Docking2010.Views.DockingViewStyle.Classic
'
'StatusStrip1
'
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstrplblError, Me.tstrlbl_Info, Me.tsslblDocID, Me.tsslbl_State})
Me.StatusStrip1.Name = "StatusStrip1"
Me.ToolTip1.SetToolTip(Me.StatusStrip1, resources.GetString("StatusStrip1.ToolTip"))
'
'tstrplblError
'
resources.ApplyResources(Me.tstrplblError, "tstrplblError")
Me.tstrplblError.ForeColor = System.Drawing.Color.Red
Me.tstrplblError.Name = "tstrplblError"
'
'tstrlbl_Info
'
resources.ApplyResources(Me.tstrlbl_Info, "tstrlbl_Info")
Me.tstrlbl_Info.Name = "tstrlbl_Info"
'
'tsslblDocID
'
resources.ApplyResources(Me.tsslblDocID, "tsslblDocID")
Me.tsslblDocID.Name = "tsslblDocID"
'
'tsslbl_State
'
resources.ApplyResources(Me.tsslbl_State, "tsslbl_State")
Me.tsslbl_State.BackColor = System.Drawing.Color.Yellow
Me.tsslbl_State.Name = "tsslbl_State"
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
@ -307,40 +266,33 @@ Partial Class frmValidator
'
'barDockControlTop
'
resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
Me.barDockControlTop.CausesValidation = False
resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
Me.barDockControlTop.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlTop, resources.GetString("barDockControlTop.ToolTip"))
'
'barDockControlBottom
'
resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom")
Me.barDockControlBottom.CausesValidation = False
resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom")
Me.barDockControlBottom.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlBottom, resources.GetString("barDockControlBottom.ToolTip"))
'
'barDockControlLeft
'
resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft")
Me.barDockControlLeft.CausesValidation = False
resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft")
Me.barDockControlLeft.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlLeft, resources.GetString("barDockControlLeft.ToolTip"))
'
'barDockControlRight
'
resources.ApplyResources(Me.barDockControlRight, "barDockControlRight")
Me.barDockControlRight.CausesValidation = False
resources.ApplyResources(Me.barDockControlRight, "barDockControlRight")
Me.barDockControlRight.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlRight, resources.GetString("barDockControlRight.ToolTip"))
'
'PdfFileOpenBarItem1
'
resources.ApplyResources(Me.PdfFileOpenBarItem1, "PdfFileOpenBarItem1")
Me.PdfFileOpenBarItem1.Enabled = False
Me.PdfFileOpenBarItem1.Id = 1
Me.PdfFileOpenBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.ImageIndex"), Integer)
Me.PdfFileOpenBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFileOpenBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFileOpenBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O))
Me.PdfFileOpenBarItem1.Name = "PdfFileOpenBarItem1"
'
@ -349,9 +301,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfFileSaveAsBarItem1, "PdfFileSaveAsBarItem1")
Me.PdfFileSaveAsBarItem1.Enabled = False
Me.PdfFileSaveAsBarItem1.Id = 2
Me.PdfFileSaveAsBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.ImageIndex"), Integer)
Me.PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFileSaveAsBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFileSaveAsBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S))
Me.PdfFileSaveAsBarItem1.Name = "PdfFileSaveAsBarItem1"
'
@ -360,9 +309,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfFilePrintBarItem2, "PdfFilePrintBarItem2")
Me.PdfFilePrintBarItem2.Enabled = False
Me.PdfFilePrintBarItem2.Id = 3
Me.PdfFilePrintBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfFilePrintBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFilePrintBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFilePrintBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P))
Me.PdfFilePrintBarItem2.Name = "PdfFilePrintBarItem2"
'
@ -371,9 +317,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfPreviousPageBarItem2, "PdfPreviousPageBarItem2")
Me.PdfPreviousPageBarItem2.Enabled = False
Me.PdfPreviousPageBarItem2.Id = 4
Me.PdfPreviousPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfPreviousPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfPreviousPageBarItem2.Name = "PdfPreviousPageBarItem2"
'
'PdfNextPageBarItem2
@ -381,9 +324,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfNextPageBarItem2, "PdfNextPageBarItem2")
Me.PdfNextPageBarItem2.Enabled = False
Me.PdfNextPageBarItem2.Id = 5
Me.PdfNextPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfNextPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfNextPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfNextPageBarItem2.Name = "PdfNextPageBarItem2"
'
'PdfFindTextBarItem2
@ -391,9 +331,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfFindTextBarItem2, "PdfFindTextBarItem2")
Me.PdfFindTextBarItem2.Enabled = False
Me.PdfFindTextBarItem2.Id = 6
Me.PdfFindTextBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfFindTextBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFindTextBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFindTextBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F))
Me.PdfFindTextBarItem2.Name = "PdfFindTextBarItem2"
'
@ -402,9 +339,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoomOutBarItem2, "PdfZoomOutBarItem2")
Me.PdfZoomOutBarItem2.Enabled = False
Me.PdfZoomOutBarItem2.Id = 7
Me.PdfZoomOutBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoomOutBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoomOutBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoomOutBarItem2.Name = "PdfZoomOutBarItem2"
'
'PdfZoomInBarItem2
@ -412,9 +346,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoomInBarItem2, "PdfZoomInBarItem2")
Me.PdfZoomInBarItem2.Enabled = False
Me.PdfZoomInBarItem2.Id = 8
Me.PdfZoomInBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoomInBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoomInBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoomInBarItem2.Name = "PdfZoomInBarItem2"
'
'PdfExactZoomListBarSubItem2
@ -422,9 +353,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfExactZoomListBarSubItem2, "PdfExactZoomListBarSubItem2")
Me.PdfExactZoomListBarSubItem2.Enabled = False
Me.PdfExactZoomListBarSubItem2.Id = 9
Me.PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfExactZoomListBarSubItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfExactZoomListBarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem2)})
Me.PdfExactZoomListBarSubItem2.Name = "PdfExactZoomListBarSubItem2"
Me.PdfExactZoomListBarSubItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu
@ -434,9 +362,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom10CheckItem2, "PdfZoom10CheckItem2")
Me.PdfZoom10CheckItem2.Enabled = False
Me.PdfZoom10CheckItem2.Id = 10
Me.PdfZoom10CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom10CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom10CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom10CheckItem2.Name = "PdfZoom10CheckItem2"
'
'PdfZoom25CheckItem2
@ -444,9 +369,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom25CheckItem2, "PdfZoom25CheckItem2")
Me.PdfZoom25CheckItem2.Enabled = False
Me.PdfZoom25CheckItem2.Id = 11
Me.PdfZoom25CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom25CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom25CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom25CheckItem2.Name = "PdfZoom25CheckItem2"
'
'PdfZoom50CheckItem2
@ -454,9 +376,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom50CheckItem2, "PdfZoom50CheckItem2")
Me.PdfZoom50CheckItem2.Enabled = False
Me.PdfZoom50CheckItem2.Id = 12
Me.PdfZoom50CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom50CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom50CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom50CheckItem2.Name = "PdfZoom50CheckItem2"
'
'PdfZoom75CheckItem2
@ -464,9 +383,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom75CheckItem2, "PdfZoom75CheckItem2")
Me.PdfZoom75CheckItem2.Enabled = False
Me.PdfZoom75CheckItem2.Id = 13
Me.PdfZoom75CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom75CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom75CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom75CheckItem2.Name = "PdfZoom75CheckItem2"
'
'PdfZoom100CheckItem2
@ -474,9 +390,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom100CheckItem2, "PdfZoom100CheckItem2")
Me.PdfZoom100CheckItem2.Enabled = False
Me.PdfZoom100CheckItem2.Id = 14
Me.PdfZoom100CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom100CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom100CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom100CheckItem2.Name = "PdfZoom100CheckItem2"
'
'PdfZoom125CheckItem2
@ -484,9 +397,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom125CheckItem2, "PdfZoom125CheckItem2")
Me.PdfZoom125CheckItem2.Enabled = False
Me.PdfZoom125CheckItem2.Id = 15
Me.PdfZoom125CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom125CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom125CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom125CheckItem2.Name = "PdfZoom125CheckItem2"
'
'PdfZoom150CheckItem2
@ -494,9 +404,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom150CheckItem2, "PdfZoom150CheckItem2")
Me.PdfZoom150CheckItem2.Enabled = False
Me.PdfZoom150CheckItem2.Id = 16
Me.PdfZoom150CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom150CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom150CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom150CheckItem2.Name = "PdfZoom150CheckItem2"
'
'PdfZoom200CheckItem2
@ -504,9 +411,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom200CheckItem2, "PdfZoom200CheckItem2")
Me.PdfZoom200CheckItem2.Enabled = False
Me.PdfZoom200CheckItem2.Id = 17
Me.PdfZoom200CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom200CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom200CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom200CheckItem2.Name = "PdfZoom200CheckItem2"
'
'PdfZoom400CheckItem2
@ -514,9 +418,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom400CheckItem2, "PdfZoom400CheckItem2")
Me.PdfZoom400CheckItem2.Enabled = False
Me.PdfZoom400CheckItem2.Id = 18
Me.PdfZoom400CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom400CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom400CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom400CheckItem2.Name = "PdfZoom400CheckItem2"
'
'PdfZoom500CheckItem2
@ -524,9 +425,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom500CheckItem2, "PdfZoom500CheckItem2")
Me.PdfZoom500CheckItem2.Enabled = False
Me.PdfZoom500CheckItem2.Id = 19
Me.PdfZoom500CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom500CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom500CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom500CheckItem2.Name = "PdfZoom500CheckItem2"
'
'PdfSetActualSizeZoomModeCheckItem2
@ -534,9 +432,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetActualSizeZoomModeCheckItem2, "PdfSetActualSizeZoomModeCheckItem2")
Me.PdfSetActualSizeZoomModeCheckItem2.Enabled = False
Me.PdfSetActualSizeZoomModeCheckItem2.Id = 20
Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetActualSizeZoomModeCheckItem2.Name = "PdfSetActualSizeZoomModeCheckItem2"
'
'PdfSetPageLevelZoomModeCheckItem2
@ -544,9 +439,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetPageLevelZoomModeCheckItem2, "PdfSetPageLevelZoomModeCheckItem2")
Me.PdfSetPageLevelZoomModeCheckItem2.Enabled = False
Me.PdfSetPageLevelZoomModeCheckItem2.Id = 21
Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetPageLevelZoomModeCheckItem2.Name = "PdfSetPageLevelZoomModeCheckItem2"
'
'PdfSetFitWidthZoomModeCheckItem2
@ -554,9 +446,6 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetFitWidthZoomModeCheckItem2, "PdfSetFitWidthZoomModeCheckItem2")
Me.PdfSetFitWidthZoomModeCheckItem2.Enabled = False
Me.PdfSetFitWidthZoomModeCheckItem2.Id = 22
Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetFitWidthZoomModeCheckItem2.Name = "PdfSetFitWidthZoomModeCheckItem2"
'
'PdfSetFitVisibleZoomModeCheckItem2
@ -564,18 +453,12 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetFitVisibleZoomModeCheckItem2, "PdfSetFitVisibleZoomModeCheckItem2")
Me.PdfSetFitVisibleZoomModeCheckItem2.Enabled = False
Me.PdfSetFitVisibleZoomModeCheckItem2.Id = 23
Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetFitVisibleZoomModeCheckItem2.Name = "PdfSetFitVisibleZoomModeCheckItem2"
'
'BarButtonItem1
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 0
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"
'
'PdfBarController2
@ -604,68 +487,6 @@ Partial Class frmValidator
Me.PdfBarController2.BarItems.Add(Me.PdfSetFitWidthZoomModeCheckItem2)
Me.PdfBarController2.BarItems.Add(Me.PdfSetFitVisibleZoomModeCheckItem2)
'
'ToolStrip1
'
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButton2, Me.ToolStripButton1, Me.ToolStripButtonSearchesReload, Me.ToolStripButtonJumpFile, Me.ToolStripButtonDeleteFile, Me.ToolStripButtonAnnotation})
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolTip1.SetToolTip(Me.ToolStrip1, resources.GetString("ToolStrip1.ToolTip"))
'
'ToolStripDropDownButton2
'
resources.ApplyResources(Me.ToolStripDropDownButton2, "ToolStripDropDownButton2")
Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.InfoToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
Me.ToolStripDropDownButton2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Files_7954
Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2"
'
'DateiÖffnenToolStripMenuItem1
'
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Open_6296
Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
'
'InfoToolStripMenuItem
'
resources.ApplyResources(Me.InfoToolStripMenuItem, "InfoToolStripMenuItem")
Me.InfoToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.information
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
'
'EigenschaftenToolStripMenuItem
'
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.properties_16xLG
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
'
'ToolStripButton1
'
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD
Me.ToolStripButton1.Name = "ToolStripButton1"
'
'ToolStripButtonSearchesReload
'
resources.ApplyResources(Me.ToolStripButtonSearchesReload, "ToolStripButtonSearchesReload")
Me.ToolStripButtonSearchesReload.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD
Me.ToolStripButtonSearchesReload.Name = "ToolStripButtonSearchesReload"
'
'ToolStripButtonJumpFile
'
resources.ApplyResources(Me.ToolStripButtonJumpFile, "ToolStripButtonJumpFile")
Me.ToolStripButtonJumpFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Nextrequest_10302
Me.ToolStripButtonJumpFile.Name = "ToolStripButtonJumpFile"
'
'ToolStripButtonDeleteFile
'
resources.ApplyResources(Me.ToolStripButtonDeleteFile, "ToolStripButtonDeleteFile")
Me.ToolStripButtonDeleteFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12
Me.ToolStripButtonDeleteFile.Name = "ToolStripButtonDeleteFile"
'
'ToolStripButtonAnnotation
'
resources.ApplyResources(Me.ToolStripButtonAnnotation, "ToolStripButtonAnnotation")
Me.ToolStripButtonAnnotation.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_orange
Me.ToolStripButtonAnnotation.Name = "ToolStripButtonAnnotation"
'
'FinalIndexDataSet
'
Me.FinalIndexDataSet.DataSetName = "FinalIndexDataSet"
@ -680,21 +501,202 @@ Partial Class frmValidator
'
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
'
'RibbonControl1
'
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.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 16
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'bsiError
'
Me.bsiError.Id = 1
Me.bsiError.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiError.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bsiError.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red
Me.bsiError.ItemAppearance.Normal.Options.UseFont = True
Me.bsiError.ItemAppearance.Normal.Options.UseForeColor = True
Me.bsiError.Name = "bsiError"
'
'bsiInformation
'
resources.ApplyResources(Me.bsiInformation, "bsiInformation")
Me.bsiInformation.Id = 2
Me.bsiInformation.Name = "bsiInformation"
'
'bsiDocID
'
resources.ApplyResources(Me.bsiDocID, "bsiDocID")
Me.bsiDocID.Id = 3
Me.bsiDocID.Name = "bsiDocID"
'
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 4
Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
Me.BarButtonItem3.Id = 5
Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem3.Name = "BarButtonItem3"
Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem4
'
resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
Me.BarButtonItem4.Id = 6
Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem4.Name = "BarButtonItem4"
Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'bbtniRefresh
'
resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh")
Me.bbtniRefresh.Id = 7
Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniRefresh.Name = "bbtniRefresh"
'
'bbtniRefreshSearches
'
resources.ApplyResources(Me.bbtniRefreshSearches, "bbtniRefreshSearches")
Me.bbtniRefreshSearches.Id = 8
Me.bbtniRefreshSearches.ImageOptions.Image = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniRefreshSearches.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniRefreshSearches.Name = "bbtniRefreshSearches"
'
'bbtniNext
'
resources.ApplyResources(Me.bbtniNext, "bbtniNext")
Me.bbtniNext.Id = 9
Me.bbtniNext.ImageOptions.Image = CType(resources.GetObject("bbtniNext.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniNext.ImageOptions.LargeImage = CType(resources.GetObject("bbtniNext.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniNext.Name = "bbtniNext"
'
'bbtniDelete
'
resources.ApplyResources(Me.bbtniDelete, "bbtniDelete")
Me.bbtniDelete.Id = 10
Me.bbtniDelete.ImageOptions.Image = CType(resources.GetObject("bbtniDelete.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniDelete.ImageOptions.LargeImage = CType(resources.GetObject("bbtniDelete.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniDelete.Name = "bbtniDelete"
Me.bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'bbtniAnnotation
'
resources.ApplyResources(Me.bbtniAnnotation, "bbtniAnnotation")
Me.bbtniAnnotation.Id = 11
Me.bbtniAnnotation.ImageOptions.Image = CType(resources.GetObject("bbtniAnnotation.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniAnnotation.ImageOptions.LargeImage = CType(resources.GetObject("bbtniAnnotation.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniAnnotation.Name = "bbtniAnnotation"
Me.bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'bsiInfo1
'
resources.ApplyResources(Me.bsiInfo1, "bsiInfo1")
Me.bsiInfo1.Id = 14
Me.bsiInfo1.ImageOptions.Image = CType(resources.GetObject("bsiInfo1.ImageOptions.Image"), System.Drawing.Image)
Me.bsiInfo1.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo1.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsiInfo1.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo1.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bsiInfo1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red
Me.bsiInfo1.ItemAppearance.Normal.Options.UseFont = True
Me.bsiInfo1.ItemAppearance.Normal.Options.UseForeColor = True
Me.bsiInfo1.Name = "bsiInfo1"
Me.bsiInfo1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiInfo2
'
resources.ApplyResources(Me.bsiInfo2, "bsiInfo2")
Me.bsiInfo2.Id = 15
Me.bsiInfo2.ImageOptions.Image = CType(resources.GetObject("bsiInfo2.ImageOptions.Image"), System.Drawing.Image)
Me.bsiInfo2.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo2.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsiInfo2.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo2.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bsiInfo2.ItemAppearance.Normal.Options.UseFont = True
Me.bsiInfo2.Name = "bsiInfo2"
Me.bsiInfo2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[True]
Me.RibbonPageGroup2.ImageOptions.Image = CType(resources.GetObject("RibbonPageGroup2.ImageOptions.Image"), System.Drawing.Image)
Me.RibbonPageGroup2.ItemLinks.Add(Me.bsiInfo1)
Me.RibbonPageGroup2.ItemLinks.Add(Me.bsiInfo2)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
Me.RibbonPageGroup2.Visible = False
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiError)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInformation)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'DocumentViewerValidator
'
resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
'
'frmValidator
'
Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.RibbonControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.barDockControlLeft)
Me.Controls.Add(Me.barDockControlRight)
Me.Controls.Add(Me.barDockControlBottom)
Me.Controls.Add(Me.barDockControlTop)
Me.IconOptions.Icon = CType(resources.GetObject("frmValidator.IconOptions.Icon"), System.Drawing.Icon)
Me.IconOptions.LargeImage = CType(resources.GetObject("frmValidator.IconOptions.LargeImage"), System.Drawing.Image)
Me.KeyPreview = True
Me.Name = "frmValidator"
Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
Me.TopMost = True
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
@ -703,8 +705,6 @@ Partial Class frmValidator
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -714,18 +714,13 @@ Partial Class frmValidator
CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tstrplblError As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tstrlbl_Info As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tsslblDocID As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TITLELabel1 As System.Windows.Forms.Label
Friend WithEvents btnSave As System.Windows.Forms.Button
@ -778,20 +773,29 @@ Partial Class frmValidator
Friend WithEvents BarAndDockingController2 As DevExpress.XtraBars.BarAndDockingController
Friend WithEvents BarAndDockingController3 As DevExpress.XtraBars.BarAndDockingController
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripButtonJumpFile As ToolStripButton
Friend WithEvents ToolStripButtonDeleteFile As ToolStripButton
Friend WithEvents ToolStripButtonAnnotation As ToolStripButton
Friend WithEvents FinalIndexDataSet As FinalIndexDataSet
Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource
Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter
Friend WithEvents ToolStripDropDownButton2 As ToolStripDropDownButton
Friend WithEvents DateiÖffnenToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents tsslbl_State As ToolStripStatusLabel
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents bsiError As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiInformation As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents bbtniRefresh As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtniRefreshSearches As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtniNext As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtniDelete As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtniAnnotation As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer
End Class

2795
app/DD_PM_WINDREAM/frmValidator.resx
View File

File diff suppressed because it is too large Load Diff

587
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -15,6 +15,7 @@ Public Class frmValidator
Dim strFileList()
Dim PROFIL_sortbynewest As Boolean
Dim PROFIL_VEKTORINDEX
Dim PROFIL_FINISH_SQL
Dim PROFIL_LOGINDEX
Dim Delimiter As String
@ -56,8 +57,9 @@ Public Class frmValidator
Private _SetControlValue_in_action As Boolean = False
Private DTCONTROLS As DataTable
Private DTGRID_COLUMNS As DataTable
Private DTGRID_COLUMNS_TEXTBOX As DataTable
Private DTVWCONTROL_INDEX As DataTable
Private FormLoaded As Boolean = False
Public FormLoaded As Boolean = False
Private ItemWorked As Boolean = False
Private Override As Boolean = False
Private OverrideAll As Boolean = False
@ -65,31 +67,31 @@ Public Class frmValidator
Private ControlHandleStarted As Boolean = False
<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Function set_foreground()
Try
Dim hwnd As IntPtr
Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM")
'<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
'Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
'End Function
'Function set_foreground()
' Try
' Dim hwnd As IntPtr
' Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM")
If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
hwnd = prc(0).MainWindowHandle
SetForegroundWindow(hwnd)
Else
prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost")
If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
hwnd = prc(0).MainWindowHandle
SetForegroundWindow(hwnd)
End If
' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
' hwnd = prc(0).MainWindowHandle
' SetForegroundWindow(hwnd)
' Else
' prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost")
' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
' hwnd = prc(0).MainWindowHandle
' SetForegroundWindow(hwnd)
' End If
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "")
End Try
' End If
' Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "")
' End Try
End Function
'End Function
Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Override = False
ItemWorked = False
@ -116,8 +118,7 @@ Public Class frmValidator
End If
Dim _step = 0
Try
DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE)
DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE)
Catch ex As Exception
LOGGER.Error(ex)
End Try
@ -160,13 +161,14 @@ Public Class frmValidator
MsgBox("More than 1 profile (" & CURRENT_DT_PROFILE.Rows.Count & ") returned!!", MsgBoxStyle.Critical, "Attention:")
Else
If CURRENT_DT_PROFILE.Rows.Count = 1 Then
For Each dr As DataRow In CURRENT_DT_PROFILE.Rows
PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX")
PROFIL_LOGINDEX = dr.Item("LOG_INDEX")
Me.Text = "Process Manager - " & dr.Item("TITLE")
For Each oProfileRow As DataRow In CURRENT_DT_PROFILE.Rows
PROFIL_FINISH_SQL = oProfileRow.Item("SQL_BTN_FINISH")
PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX")
PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX")
Me.Text = "Process Manager - " & oProfileRow.Item("TITLE")
TITLELabel1.Text = dr.Item("TITLE")
DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION"))
TITLELabel1.Text = oProfileRow.Item("TITLE")
DESCRIPTIONLabel.Text = IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION"))
If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then
PROFIL_VEKTORINDEX = ""
End If
@ -174,13 +176,13 @@ Public Class frmValidator
PROFIL_LOGINDEX = ""
End If
WD_Search = dr.Item("WD_SEARCH")
finalProfile = dr.Item("FINAL_PROFILE")
Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder"))
WD_Search = oProfileRow.Item("WD_SEARCH")
finalProfile = oProfileRow.Item("FINAL_PROFILE")
Move2Folder = IIf(IsDBNull(oProfileRow.Item("MOVE2Folder")), "", oProfileRow.Item("MOVE2Folder"))
Try
If finalProfile = True Then
Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT") & (" (F2)"))
Dim text As String = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)"))
If text <> "" Then
btnSave.Text = text
Else
@ -195,9 +197,9 @@ Public Class frmValidator
MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
LOGGER.Info(">> Error loading final profile text: " & ex.Message, True)
End Try
ToolStripButtonJumpFile.Visible = True
bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If CURRENT_JUMP_DOC_GUID <> 0 Then
ToolStripButtonJumpFile.Visible = False
bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Anzahl_ValDoks = 1
Else
@ -217,14 +219,15 @@ Public Class frmValidator
LOGGER.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString)
'Delete Button anzeigen ja/nein
If USER_RIGHT_FILE_DELETE = True Then
ToolStripButtonDeleteFile.Enabled = True
bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
ToolStripButtonDeleteFile.Enabled = False
bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
ToolStripButtonAnnotation.Visible = True
bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
ToolStripButtonAnnotation.Visible = False
bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString)
Create_Controls()
@ -232,6 +235,7 @@ Public Class frmValidator
End If
End If
LOGGER.Debug("frmValidation_Load finished!")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@ -262,6 +266,7 @@ Public Class frmValidator
Catch ex As Exception
LOGGER.Error(ex)
End Try
Try
Dim oDel = $"DELETE FROM TBPM_FILES_USER_NOT_INDEXED WHERE UPPER(USR_NAME) = UPPER('{USER_USERNAME}')"
@ -280,61 +285,15 @@ Public Class frmValidator
LOGGER.Error(ex)
End Try
End If
DocumentViewer1.Done()
'If VIEWER_ALL = "docview" Then
' If IDB_ACTIVE = False Then
' CloseWDDocview()
' End If
'End If
'If VIEWER_PDF = "system" Then
' Kill_PDFAcrobat()
'Else
' If pdfxchange = True Or sumatra = True Then
' Close_PDF_Viewer(WMDocPathWindows)
' End If
' KillU_Viewer()
'End If
Try
DocumentViewerValidator.Done()
Catch ex As Exception
LOGGER.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}")
End Try
End Sub
Private Function process_User_exists(processname As String, Status As String)
Dim fi = New FileInfo(processname)
Dim filename As String = fi.Name.Replace(fi.Extension, "")
Try
If Process.GetProcessesByName(filename).Length > 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(">> error in process_User_exists: " & ex.Message, True)
Return False
End Try
End Function
'Private Function process_terminate(processname As String)
' Try
' Dim selectQuery As SelectQuery = New SelectQuery("Win32_Process")
' Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(selectQuery)
' For Each proc As ManagementObject In searcher.Get
' If proc("Name").ToString = processname Then
' Dim s(1) As String
' proc.InvokeMethod("GetOwner", CType(s, Object()))
' If CStr(s(0)).ToLower.Contains(USER_USERNAME.ToLower) Then
' proc.InvokeMethod("Terminate", Nothing)
' End If
' End If
' Next
' Return False
' Catch ex As Exception
' LOGGER.Info(">> error in process_terminate: " & ex.Message, True)
' End Try
'End Function
Private Function Init_IDB()
Try
IDBData = New ClassIDBData
@ -399,9 +358,8 @@ Public Class frmValidator
End If
If oDataResultsExist = True Or oDocResultsExist = True Then
ToolStripButtonSearchesReload.Visible = True
frmValidatorSearch.Show()
_frmValidatorSearch = frmValidatorSearch
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
_frmValidatorSearch.Show()
Dim oPnl1Collapsed As Boolean = True
Dim oPnl2Collapsed As Boolean = True
If oDataResultsExist = True Then
@ -434,11 +392,11 @@ Public Class frmValidator
End If
Else
LOGGER.Info("Not loading AdditionalSearches...!")
ToolStripButtonSearchesReload.Visible = False
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
Else
LOGGER.Info("Not loading AdditionalSearches...!")
ToolStripButtonSearchesReload.Visible = False
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
End Sub
Sub LoadSQLData(control As Control, controlId As Integer)
@ -574,8 +532,12 @@ Public Class frmValidator
pnldesigner.Controls.Clear()
Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
DTCONTROLS = ClassDatabase.Return_Datatable(oSQL)
oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0"
oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0"
DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL)
oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1"
DTGRID_COLUMNS_TEXTBOX = ClassDatabase.Return_Datatable(oSQL)
Dim oCount As Integer = 0
For Each oControlRow As DataRow In DTCONTROLS.Rows
@ -639,7 +601,7 @@ Public Class frmValidator
LOGGER.Debug("ConID <> String.Empty")
If oCONID > 0 And commandsql <> String.Empty Then
LOGGER.Debug("ConID > 0 And commandsql <> String.Empty")
Dim connectionString As String
Dim oConnectionString As String
TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, oCONID)
Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION
@ -647,11 +609,11 @@ Public Class frmValidator
Select Case drConnection.Item("SQL_PROVIDER").ToString.ToLower
Case "ms-sql"
If drConnection.Item("USERNAME") = "WINAUTH" Then
connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;"
oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;"
Else
connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
End If
LOGGER.Debug("ConnString Sql-Server: " & connectionString)
LOGGER.Debug("ConnString Sql-Server: " & oConnectionString)
Case "oracle"
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
@ -667,13 +629,13 @@ Public Class frmValidator
connstr = conn.ConnectionString
End If
connectionString = connstr
oConnectionString = connstr
Case Else
LOGGER.Info(" - ConnectionType nicht integriert")
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select
Next
If connectionString Is Nothing = False Then
If oConnectionString Is Nothing = False Then
Try
Dim sqlCnn As SqlClient.SqlConnection
Dim sqlCmd As SqlClient.SqlCommand
@ -692,7 +654,7 @@ Public Class frmValidator
sql = clsPatterns.ReplaceInternalValues(sql)
sql = clsPatterns.ReplaceControlValues(sql, pnldesigner)
LOGGER.Debug(">>> sql after HasOnlySimplePatterns: " & sql)
sqlCnn = New SqlClient.SqlConnection(connectionString)
sqlCnn = New SqlClient.SqlConnection(oConnectionString)
' Try
sqlCnn.Open()
sqlCmd = New SqlClient.SqlCommand(sql, sqlCnn)
@ -887,6 +849,9 @@ Public Class frmValidator
Next
LOGGER.Debug("Create_Controls finished!")
Catch ex As Exception
Dim st As New StackTrace(True)
st = New StackTrace(ex, True)
@ -917,7 +882,7 @@ Public Class frmValidator
End Select
Next
set_foreground()
'set_foreground()
If first_control Is Nothing = False Then
first_control.Focus()
End If
@ -968,7 +933,7 @@ Public Class frmValidator
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql)
'' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
@ -1089,14 +1054,14 @@ Public Class frmValidator
OverrideAll = False
End Try
If OverrideAll = True Then
LOGGER.Warn($"OverrideAll will be in Action!")
LOGGER.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!")
End If
Select Case oAction
Case "SetButton"
Select Case oAction.ToString.ToUpper
Case "SetButton".ToUpper
btnSave.Text = oCaption & " (F2)"
btnSave.BackColor = oColor
Case "Override_Question"
Case "Override_Question".ToUpper
If oQuestion <> "" Then
Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
@ -1105,7 +1070,7 @@ Public Class frmValidator
Finish_WFStep()
End If
End If
Case "Update_Single_Control"
Case "Update_Single_Control".ToUpper
Dim oResult1 As Boolean = True
If oQuestion <> "" Then
Dim result As MsgBoxResult
@ -1127,7 +1092,7 @@ Public Class frmValidator
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation)
End If
End If
Case "Update_Controls"
Case "Update_Controls".ToUpper
If oQuestion <> "" Then
Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
@ -1145,11 +1110,12 @@ Public Class frmValidator
End If
End If
Case "Override_Direct"
Case "Override_Direct".ToUpper
Override = True
Finish_WFStep()
Case Else
MsgBox($"No configured action provided [{oAction}]", MsgBoxStyle.Exclamation, "")
MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, "")
LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]")
End Select
@ -1160,7 +1126,7 @@ Public Class frmValidator
Try
Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid ' VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, dgv.Name)
Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} And SQL_UEBERPRUEFUNG Like '%{1}%'", CURRENT_ProfilGUID, dgv.Name)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If Not IsNothing(DT) And DT.Rows.Count > 0 Then
For Each ROW As DataRow In DT.Rows
Try
@ -1485,7 +1451,7 @@ Public Class frmValidator
Exit Sub
End If
oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
_dependingColumn_in_action = True
Try
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
@ -1530,7 +1496,7 @@ Public Class frmValidator
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
_Step = 3
LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql)
'' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
@ -1736,24 +1702,7 @@ Public Class frmValidator
End Function
'Sub Close_document_viewer()
' 'Vorherige Datei Schliessen
' If CURRENT_HTML_DOC <> "" Then
' If File.Exists(CURRENT_HTML_DOC) Then
' File.Delete(CURRENT_HTML_DOC)
' End If
' End If
' If pdfxchange = True Or sumatra = True Or VIEWER_PDF = "system" Then
' Close_PDF_Viewer(WMDocPathWindows)
' End If
' If CURRENT_WMFILE Is Nothing = False Then
' If CURRENT_WMFILE.aLocked Then
' CURRENT_WMFILE.Save()
' ' unlock the windream object
' CURRENT_WMFILE.unlock()
' End If
' End If
'End Sub
Private Function CreateWMObject() As String
LOGGER.Debug($"in GetWMDocFileString...'")
Dim oWMRELPATH As String = CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH")
@ -1869,7 +1818,7 @@ Public Class frmValidator
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then
If GetWMDocPathWindows(0) = False Then
MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "")
MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, "")
Exit Sub
End If
If IDB_ACTIVE = False Then
@ -1891,11 +1840,10 @@ Public Class frmValidator
ClassDatabase.Execute_non_Query(sql)
' ############ Infos eintragen #################
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID
' txtDateipfad.Text = Document_Path
tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet")
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
LOGGER.Debug("AllDocInfo created...")
If IDB_ACTIVE = False Then
@ -1910,10 +1858,8 @@ Public Class frmValidator
load_viewer()
LOGGER.Debug("Viewer loaded!")
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
ToolStripButtonAnnotation.Visible = True
Else
ToolStripButtonAnnotation.Visible = False
If WMDocPathWindows.ToLower.EndsWith(".pdf") = False Then
bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
@ -1927,7 +1873,6 @@ Public Class frmValidator
Next
LOGGER.Debug("Indexmask loaded")
LOGGER.Debug("")
'Nun im Vektoprindex loggen das das Profil geladen wurde
'If PROFIL_VEKTORINDEX <> "" Then
@ -1947,6 +1892,7 @@ Public Class frmValidator
If IDB_ACTIVE = False Then
WMIndexVectofield(oLogString, PROFIL_LOGINDEX)
Else
oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]"
IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString)
'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
'Else
@ -1959,7 +1905,6 @@ Public Class frmValidator
End If
End If
activate_controls(True)
Me.BringToFront()
Else
errormessage = oErrorMessage
frmError.ShowDialog()
@ -1984,7 +1929,7 @@ Public Class frmValidator
Me.Close()
End If
End If
LOGGER.Debug("frmValidator: LoadNextDocument finished!")
Catch ex As Exception
LOGGER.Error(ex)
allgFunk.Insert_LogEntry($"ERROR LoadNextDocument >> {ex.Message}")
@ -1995,7 +1940,7 @@ Public Class frmValidator
End Try
End Sub
Sub load_viewer()
DocumentViewer1.LoadFile(WMDocPathWindows)
DocumentViewerValidator.LoadFile(WMDocPathWindows)
SplitContainer1.Panel2Collapsed = False
End Sub
@ -2949,8 +2894,110 @@ Public Class frmValidator
End Select
oCount += 1
Next
set_foreground()
' set_foreground()
If first_control Is Nothing = False Then first_control.Focus()
Try
For Each oRow As DataRow In DTGRID_COLUMNS_TEXTBOX.Rows
Dim oDEPENDING_GUID = oRow.Item("CONTROL_ID")
Dim oDEPENDING_COLUMN = oRow.Item("SPALTENNAME")
Dim oSqlCommand = oRow.Item("SQL_COMMAND")
oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Try
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
If Not IsNothing(oDTDEPENDING_RESULT) Then
For Each oControl As Control In pnldesigner.Controls
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
Exit For
End If
Next
End If
Catch ex As Exception
LOGGER.Warn($"Unexpected error in creating dropdown for oDEPENDING_GUID {oDEPENDING_GUID} an Column {oDEPENDING_COLUMN} " & ex.Message)
End Try
Next
Catch ex As Exception
LOGGER.Warn($"Unexpected error in creating dropdown for Grid: " & ex.Message)
End Try
If IDB_ACTIVE = True Then
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 oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
If Not IsNothing(oDTINFO) Then
Dim oColor As System.Drawing.Color
If oDTINFO.Rows.Count > 0 Then
Dim oColumns As String()
If oDTINFO.Rows.Count = 1 Then
oColumns = Split(oDTINFO.Rows(0).Item("TERM_VALUE"), "#")
If oColumns.Length = 1 Then
bsiInfo1.Caption = oDTINFO.Rows(0).Item("TERM_VALUE")
ElseIf oColumns.Length = 2 Then
bsiInfo1.Caption = oColumns(0)
Try
oColor = System.Drawing.Color.FromName(oColumns(1))
bsiInfo1.ItemAppearance.Normal.ForeColor = oColor
Catch ex As Exception
End Try
End If
bsiInfo2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
ElseIf oDTINFO.Rows.Count = 2 Then
'ITEM 1
oColumns = Split(oDTINFO.Rows(0).Item("TERM_VALUE"), "#")
If oColumns.Length = 1 Then
bsiInfo1.Caption = oDTINFO.Rows(0).Item("TERM_VALUE")
ElseIf oColumns.Length = 2 Then
bsiInfo1.Caption = oColumns(0)
Try
oColor = System.Drawing.Color.FromName(oColumns(1))
bsiInfo1.ItemAppearance.Normal.ForeColor = oColor
Catch ex As Exception
End Try
End If
'ITEM 1
oColumns = Split(oDTINFO.Rows(1).Item("TERM_VALUE"), "#")
If oColumns.Length = 1 Then
bsiInfo2.Caption = oDTINFO.Rows(1).Item("TERM_VALUE")
ElseIf oColumns.Length = 2 Then
bsiInfo2.Caption = oColumns(0)
Try
oColor = System.Drawing.Color.FromName(oColumns(1))
bsiInfo2.ItemAppearance.Normal.ForeColor = oColor
Catch ex As Exception
End Try
End If
bsiInfo2.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
RibbonPageGroup2.Visible = True
Else
LOGGER.Debug($"No PM_Info-Configuration!!")
RibbonPageGroup2.Visible = False
End If
Else
LOGGER.Warn($"oDTINFO is nothing!!")
RibbonPageGroup2.Visible = False
End If
Catch ex As Exception
LOGGER.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}")
RibbonPageGroup2.Visible = False
End Try
Else
RibbonPageGroup2.Visible = False
End If
'Flag setzen das Indexe geladen sind
_Indexe_Loaded = True
Load_Additional_Searches()
@ -2975,14 +3022,77 @@ Public Class frmValidator
_dependingColumn_in_action = False
BringToFront()
FormLoaded = True
LOGGER.Debug("frmValidation_Shown finished!")
End Sub
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
btnSave.Enabled = False
Finish_WFStep()
btnSave.Enabled = True
End Sub
Sub Finish_WFStep()
Private Function btnFinish_continue()
Try
Dim oSQL = PROFIL_FINISH_SQL
oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation)
Return False
ElseIf oDT_ACTIONS.Rows.Count = 0 Then
MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation)
Return False
End If
'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
Dim oMsgType
Dim oQuestion
Dim oTitle
Try
oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType")
Catch ex As Exception
oMsgType = ""
End Try
Try
oQuestion = oDT_ACTIONS?.Rows(0).Item("Question")
Catch ex As Exception
oQuestion = ""
End Try
Try
oTitle = oDT_ACTIONS?.Rows(0).Item("Title")
Catch ex As Exception
oTitle = ""
End Try
Select Case oMsgType.ToString.ToUpper
Case "MsgboxResult".ToUpper
If oQuestion <> "" Then
Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then
Return True
Else
Return False
End If
End If
Case "Msgbox".ToUpper
MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return True
Case "Continue".ToUpper
Return True
Case Else
MsgBox($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam", MsgBoxStyle.Exclamation, "")
LOGGER.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam")
Return False
End Select
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("An unhandled exeception occured in btnFinish Procedure! Please inform Your WorkflowTeam and Check Your log!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Sub Finish_WFStep()
btnSave.Enabled = False
LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet")
ItemWorked = True
@ -2990,12 +3100,18 @@ Public Class frmValidator
If OverrideAll = False Then
'Eingaben auf Form überprüfen
If Check_UpdateIndexe() = False Then
If PROFIL_FINISH_SQL <> String.Empty Then
If btnFinish_continue() = False Then
Exit Sub
End If
End If
'lblerror.Visible = False
Try
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING
If oDTFinalIndexes.Rows.Count > 0 Then
If oDTFinalIndexes?.Rows.Count > 0 Then
'Jetzt finale Indexe setzen
LOGGER.Debug("FINAL INDEXING STARTING...")
For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows
@ -3301,7 +3417,7 @@ Public Class frmValidator
'Das nächste Dokument laden
Load_Next_Document(False)
set_foreground()
' set_foreground()
If first_control Is Nothing = False Then first_control.Focus()
End If
@ -3412,6 +3528,7 @@ Public Class frmValidator
'Den Indexnamen auslesen
Dim oIndexName As String = dr.Item("INDEX_NAME")
Dim oIsRequired As Boolean = CBool(dr.Item("VALIDATION"))
Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY"))
@ -4078,11 +4195,17 @@ Public Class frmValidator
Dim exists = False
Select Case oControlType
Case "TABLE"
Dim oRowValue = row.Item(0)
If IsNothing(oRowValue) Then
oRowValue = String.Empty
ElseIf IsDBNull(oRowValue) Then
oRowValue = String.Empty
End If
' MsgBox(row.Cells(0).Value.GetType.ToString)
Dim str As String = String.Empty
If row.Item(0) <> String.Empty Then
'Das Array anpassen
ReDim Preserve myVektorArr(ZeilenGrid)
'If oRowValue <> String.Empty Then
'Das Array anpassen
ReDim Preserve myVektorArr(ZeilenGrid)
Dim oValueList As New List(Of String)
@ -4097,8 +4220,8 @@ Public Class frmValidator
'Den Wert im Array speichern
myVektorArr(ZeilenGrid) = str
ZeilenGrid += 1
End If
Case Else
'End If
Case Else
' MsgBox(row.Cells(0).Value.GetType.ToString)
If row.Item(0) Is Nothing = False Then
'Das Array anpassen
@ -4121,7 +4244,7 @@ Public Class frmValidator
Else
Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
If oMyDT.Rows.Count > 0 Then
If IDBData.SetVariableValue(oIndexName, oMyDT, True) = False Then
If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then
oMissing = True
oErrorMessage = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message
Exit For
@ -4213,7 +4336,7 @@ Public Class frmValidator
End Sub
Function GetConnectionString(id As Integer)
Try
Dim connectionString As String
Dim oConnectionString As String
Dim DTConnection As DataTable
DTConnection = DD_DMSLiteDataSet.TBDD_CONNECTION
Dim drConnection As DataRow
@ -4221,10 +4344,10 @@ Public Class frmValidator
If drConnection.Item("GUID") = id Then
Select Case drConnection.Item("SQL_PROVIDER")
Case "SqlClient.SqlConnection"
connectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
oConnectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
Case "Oracle"
connectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;"
oConnectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;"
' connectionString = "%ORData Source=" & drConnection.Item("SERVER") & ";Persist Security Info=True;User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";Unicode=True"
Case Else
LOGGER.Info(" - ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert")
@ -4233,7 +4356,7 @@ Public Class frmValidator
End Select
End If
Next
Return connectionString
Return oConnectionString
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" -Unexpected error in GetConnectionString - Fehler: " & vbNewLine & ex.Message)
@ -4354,8 +4477,8 @@ Public Class frmValidator
MyBase.New
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
_frmValidatorSearch = New frmValidatorSearch
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_frmValidatorSearch = frmValidatorSearch
End Sub
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
@ -4400,24 +4523,6 @@ Public Class frmValidator
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButtonJumpFile.Click
Datei_ueberspringen()
End Sub
Private Sub ToolStripButtonDeleteFile_Click(sender As Object, e As EventArgs) Handles ToolStripButtonDeleteFile.Click
delete_active_File()
End Sub
Private Sub ToolStripButtonAnnotation_Click(sender As Object, e As EventArgs) Handles ToolStripButtonAnnotation.Click
'PdfViewer1.CloseDocument()
'Close_PDF_Viewer(WMDocPathWindows)
Application.DoEvents()
frmAnnotations.ShowDialog()
load_viewer()
End Sub
Private Sub frmValidator_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
End Sub
@ -4434,48 +4539,6 @@ Public Class frmValidator
End If
My.Settings.Save()
End Sub
Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
frmFileInfo.ShowDialog()
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
If WMDocPathWindows <> "" Then
Cursor = Cursors.WaitCursor
Dim oShellExecuteInfo As New SHELLEXECUTEINFO
oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo)
oShellExecuteInfo.lpVerb = "properties"
oShellExecuteInfo.lpFile = WMDocPathWindows
oShellExecuteInfo.nShow = SW_SHOW
oShellExecuteInfo.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(oShellExecuteInfo) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("error in Datei-Eigenschaften öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub DateiÖffnenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem1.Click
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(WMDocPathWindows)
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
Proc.Start()
LOGGER.Info(" - Datei wurde geöffnet!")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Datei öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
LOGGER.Info("Fehler bei Datei öffnen: " & ex.Message, True)
End Try
End Sub
Private Sub ToolStripButtonSearchesReload_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSearchesReload.Click
Load_Additional_Searches()
End Sub
Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
Dim msg = "F2 für Speichern"
If USER_LANGUAGE <> "de-DE" Then
@ -4496,11 +4559,79 @@ Public Class frmValidator
FillIndexValues(False)
End Sub
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Reload_Controls("")
StatusLabel("Controls refreshed")
End Sub
Sub StatusLabel(infotext As String)
tsslbl_State.Text = infotext & " " & Now.ToString
bsiInformation.Caption = infotext & " " & Now.ToString
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(WMDocPathWindows)
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
Proc.Start()
LOGGER.Info(" - Datei wurde geöffnet!")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Datei öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
LOGGER.Info("Fehler bei Datei öffnen: " & ex.Message, True)
End Try
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
frmFileInfo.ShowDialog()
End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
If WMDocPathWindows <> "" Then
Try
Cursor = Cursors.WaitCursor
Dim oShellExecuteInfo As New SHELLEXECUTEINFO
oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo)
oShellExecuteInfo.lpVerb = "properties"
oShellExecuteInfo.lpFile = WMDocPathWindows
oShellExecuteInfo.nShow = SW_SHOW
oShellExecuteInfo.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(oShellExecuteInfo) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("error in Datei-Eigenschaften öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
Catch ex As Exception
End Try
Cursor = Cursors.Default
End If
End Sub
Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick
Load_Additional_Searches()
End Sub
Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
Reload_Controls("")
Try
btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
Catch ex As Exception
End Try
StatusLabel("All Data refreshed")
End Sub
Private Sub bbtniNext_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniNext.ItemClick
Datei_ueberspringen()
End Sub
Private Sub bbtniDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniDelete.ItemClick
delete_active_File()
End Sub
Private Sub bbtniAnnotation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniAnnotation.ItemClick
Application.DoEvents()
frmAnnotations.ShowDialog()
load_viewer()
End Sub
End Class

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

@ -24,19 +24,34 @@ Partial Class frmValidatorSearch
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidatorSearch))
Dim GridLevelNode7 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerControlDoc = New DevExpress.XtraEditors.SplitContainerControl()
Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButtonRefreshSearches = New System.Windows.Forms.ToolStripButton()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.SplitContainerSearches = New System.Windows.Forms.SplitContainer()
Me.XtraTabControlSQL = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageSearch1 = New DevExpress.XtraTab.XtraTabPage()
@ -56,20 +71,6 @@ Partial Class frmValidatorSearch
Me.GridViewSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsslblSQL = New System.Windows.Forms.ToolStripStatusLabel()
Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripLabel()
Me.tslblState = New System.Windows.Forms.ToolStripLabel()
@ -82,9 +83,27 @@ Partial Class frmValidatorSearch
Me.ContextMenuStripSQL = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1.SuspendLayout()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControlDoc.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlDocs.SuspendLayout()
Me.XtraTabPageDoc1.SuspendLayout()
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc2.SuspendLayout()
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc3.SuspendLayout()
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc4.SuspendLayout()
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerSearches.Panel1.SuspendLayout()
Me.SplitContainerSearches.Panel2.SuspendLayout()
@ -107,26 +126,180 @@ Partial Class frmValidatorSearch
CType(Me.GridControlSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlDocs.SuspendLayout()
Me.XtraTabPageDoc1.SuspendLayout()
Me.XtraTabPageDoc2.SuspendLayout()
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc3.SuspendLayout()
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc4.SuspendLayout()
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout()
Me.ContextMenuStripWMFile.SuspendLayout()
Me.ContextMenuStripSQL.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainerControlDoc
'
resources.ApplyResources(Me.SplitContainerControlDoc, "SplitContainerControlDoc")
Me.SplitContainerControlDoc.Name = "SplitContainerControlDoc"
Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
Me.SplitContainerControlDoc.SplitterPosition = 351
'
'XtraTabControlDocs
'
resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs")
Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
'
'XtraTabPageDoc1
'
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
'
'GridControlDocSearch1
'
resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
GridLevelNode7.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode7})
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
'
'GridViewDocSearch1
'
Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc2
'
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
'
'GridControlDocSearch2
'
resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
'
'GridViewDocSearch2
'
Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc3
'
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
'
'GridControlDocSearch3
'
resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
'
'GridViewDocSearch3
'
Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc4
'
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
'
'GridControlDocSearch4
'
resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
'
'GridViewDocSearch4
'
Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc5
'
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
'
'GridControlDocSearch5
'
resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
'
'GridViewDocSearch5
'
Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
@ -159,32 +332,6 @@ Partial Class frmValidatorSearch
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
'
'GridControlDocSearch1
'
resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
'
'GridViewDocSearch1
'
Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
'
'SplitContainerSearches
'
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_PM_WINDREAM.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
@ -198,7 +345,7 @@ Partial Class frmValidatorSearch
'
'SplitContainerSearches.Panel2
'
Me.SplitContainerSearches.Panel2.Controls.Add(Me.XtraTabControlDocs)
Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc)
Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainerSearches.SplitterDistance = Global.DD_PM_WINDREAM.My.MySettings.Default.frmValSearchSplitterDistance
'
@ -218,17 +365,17 @@ Partial Class frmValidatorSearch
'GridControlSearch1
'
resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
GridLevelNode2.RelationName = "Level1"
Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
GridLevelNode1.RelationName = "Level1"
Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlSearch1.MainView = Me.GridViewSearch1
Me.GridControlSearch1.Name = "GridControlSearch1"
Me.GridControlSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch1})
'
'GridViewSearch1
'
Me.GridViewSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch1.GridControl = Me.GridControlSearch1
Me.GridViewSearch1.Name = "GridViewSearch1"
@ -250,17 +397,17 @@ Partial Class frmValidatorSearch
'GridControlSearch2
'
resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
GridLevelNode3.RelationName = "Level1"
Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
GridLevelNode2.RelationName = "Level1"
Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridControlSearch2.MainView = Me.GridViewSearch2
Me.GridControlSearch2.Name = "GridControlSearch2"
Me.GridControlSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch2})
'
'GridViewSearch2
'
Me.GridViewSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch2.GridControl = Me.GridControlSearch2
Me.GridViewSearch2.Name = "GridViewSearch2"
@ -282,17 +429,17 @@ Partial Class frmValidatorSearch
'GridControlSearch3
'
resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
GridLevelNode4.RelationName = "Level1"
Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
GridLevelNode3.RelationName = "Level1"
Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
Me.GridControlSearch3.MainView = Me.GridViewSearch3
Me.GridControlSearch3.Name = "GridControlSearch3"
Me.GridControlSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch3})
'
'GridViewSearch3
'
Me.GridViewSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch3.GridControl = Me.GridControlSearch3
Me.GridViewSearch3.Name = "GridViewSearch3"
@ -314,17 +461,17 @@ Partial Class frmValidatorSearch
'GridControlSearch4
'
resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
GridLevelNode5.RelationName = "Level1"
Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
GridLevelNode4.RelationName = "Level1"
Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
Me.GridControlSearch4.MainView = Me.GridViewSearch4
Me.GridControlSearch4.Name = "GridControlSearch4"
Me.GridControlSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch4})
'
'GridViewSearch4
'
Me.GridViewSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch4.GridControl = Me.GridControlSearch4
Me.GridViewSearch4.Name = "GridViewSearch4"
@ -346,17 +493,17 @@ Partial Class frmValidatorSearch
'GridControlSearch5
'
resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
GridLevelNode6.RelationName = "Level1"
Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
GridLevelNode5.RelationName = "Level1"
Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
Me.GridControlSearch5.MainView = Me.GridViewSearch5
Me.GridControlSearch5.Name = "GridControlSearch5"
Me.GridControlSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch5})
'
'GridViewSearch5
'
Me.GridViewSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewSearch5.GridControl = Me.GridControlSearch5
Me.GridViewSearch5.Name = "GridViewSearch5"
@ -380,139 +527,6 @@ Partial Class frmValidatorSearch
Me.tsslblSQL.Name = "tsslblSQL"
resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
'
'XtraTabControlDocs
'
resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs")
Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
'
'XtraTabPageDoc1
'
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
'
'XtraTabPageDoc2
'
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
'
'GridControlDocSearch2
'
resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
'
'GridViewDocSearch2
'
Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc3
'
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
'
'GridControlDocSearch3
'
resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
'
'GridViewDocSearch3
'
Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc4
'
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
'
'GridControlDocSearch4
'
resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
'
'GridViewDocSearch4
'
Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc5
'
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
'
'GridControlDocSearch5
'
resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
'
'GridViewDocSearch5
'
Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True
Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
'
'ToolStrip2
'
resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
@ -579,19 +593,40 @@ Partial Class frmValidatorSearch
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
'
'DocumentViewer1
'
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
Me.DocumentViewer1.Name = "DocumentViewer1"
'
'frmValidatorSearch
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainerSearches)
Me.Controls.Add(Me.ToolStrip1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmValidatorSearch"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControlDoc.ResumeLayout(False)
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlDocs.ResumeLayout(False)
Me.XtraTabPageDoc1.ResumeLayout(False)
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc2.ResumeLayout(False)
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc3.ResumeLayout(False)
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc4.ResumeLayout(False)
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.SplitContainerSearches.Panel1.ResumeLayout(False)
Me.SplitContainerSearches.Panel1.PerformLayout()
Me.SplitContainerSearches.Panel2.ResumeLayout(False)
@ -617,21 +652,6 @@ Partial Class frmValidatorSearch
CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlDocs.ResumeLayout(False)
Me.XtraTabPageDoc1.ResumeLayout(False)
Me.XtraTabPageDoc2.ResumeLayout(False)
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc3.ResumeLayout(False)
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc4.ResumeLayout(False)
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ContextMenuStripWMFile.ResumeLayout(False)
@ -693,4 +713,6 @@ Partial Class frmValidatorSearch
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents tsslblSQL As ToolStripStatusLabel
Friend WithEvents SplitContainerControlDoc As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
End Class

1036
app/DD_PM_WINDREAM/frmValidatorSearch.resx
View File

File diff suppressed because it is too large Load Diff

49
app/DD_PM_WINDREAM/frmValidatorSearch.vb
View File

@ -78,12 +78,13 @@ Public Class frmValidatorSearch
End If
XtraTabControlDocs.TabPages(p).Text = DTDOC.Rows(p).Item("TAB_TITLE")
Next
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
@ -367,6 +368,11 @@ Public Class frmValidatorSearch
End Try
End Function
Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
DocumentViewer1.Done()
Catch ex As Exception
LOGGER.Warn($"Unexpected error in DocumentViewerValSearch.Done: {ex.Message}")
End Try
Try
' Position und Größe speichern
My.Settings.frmValidatorSearchSize = Me.Size
@ -377,9 +383,15 @@ Public Class frmValidatorSearch
LOGGER.Error(ex)
LOGGER.Info("Error in Save FormLayout: " & ex.Message)
End Try
End Sub
Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE)
Catch ex As Exception
LOGGER.Warn("Error initializing DocViewDocsValdiatorSearch: " & ex.Message)
End Try
SplitContainerSearches.Panel1Collapsed = True
If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then
If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then
@ -454,8 +466,14 @@ Public Class frmValidatorSearch
Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
tslblDocID.Text = msg
ToolStripDropDownButtonFile.Enabled = True
Else
tslblDocID.Text = "DocRow not selected"
If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then
If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then
DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
End If
End If
Else
tslblDocID.Text = "DocRow not selected"
ToolStripDropDownButtonFile.Enabled = False
End If
End Sub
@ -499,13 +517,11 @@ Public Class frmValidatorSearch
End Sub
Sub FileShow()
Try
If IsNothing(clsWMDocGrid.DTDocuments) Then
If IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) Then
MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
File_SYSOPEN(clsWMDocGrid.SELECTED_DOC_PATH, clsWMDocGrid.SELECTED_DOC_ID)
Catch ex As Exception
End Try
@ -513,14 +529,20 @@ Public Class frmValidatorSearch
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
Try
If RESULT_DOC_PATH <> Nothing Then
If File.Exists(RESULT_DOC_PATH) Then
BW_DocPath = RESULT_DOC_PATH
BW_DocID = DocID
BW_DocPath = RESULT_DOC_PATH
BW_DocID = DocID
Dim BWFileHandler As New BackgroundWorker
AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
BWFileHandler.RunWorkerAsync()
Else
MsgBox("Document is not existing or accessible!", MsgBoxStyle.Exclamation)
Dim BWFileHandler As New BackgroundWorker
AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
BWFileHandler.RunWorkerAsync()
End If
Else
LOGGER.Warn("Attention: RESULT_DOC_PATH is nothing")
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
@ -531,8 +553,7 @@ Public Class frmValidatorSearch
Try
Dim oMyProcess = New Process()
Dim oExtension
Dim oSql
Try
'Dim oPSI As New ProcessStartInfo(BW_DocPath)
oMyProcess.StartInfo.FileName = BW_DocPath