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

IDB Conform Step1

Browse Source
This commit is contained in:
SchreiberM 2019-11-14 09:59:31 +01:00
parent d8e7f94480
commit 9e20642257
34 changed files with 2836 additions and 4570 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@ -190,7 +190,7 @@ Public Class ClassAllgemeineFunktionen
LOGGER.Info(" Fehler bei Move2Folder", True) LOGGER.Info(" Fehler bei Move2Folder", True)
LOGGER.Info(">> Fehlermeldung") LOGGER.Info(">> Fehlermeldung")
LOGGER.Info(">>" & ex.Message) LOGGER.Info(">>" & ex.Message)
Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, Environment.UserName) Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, USER_USERNAME)
Return ex.Message Return ex.Message
End Try End Try
End Function End Function
@ -276,7 +276,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) 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:") MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName) Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, USER_USERNAME)
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & 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(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString) LOGGER.Info(" - Connection: " & vconnectionString)
@ -310,7 +310,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) 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:") MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName) Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, USER_USERNAME)
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & 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(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString) LOGGER.Info(" - Connection: " & vconnectionString)

5
app/DD_PM_WINDREAM/ClassAnnotation.vb
View File

@ -3,7 +3,7 @@ Imports PdfSharp.Pdf.Annotations
Imports PdfSharp.Pdf.IO Imports PdfSharp.Pdf.IO
Imports PdfSharp.Drawing Imports PdfSharp.Drawing
Public Class ClassAnnotation Public Class ClassAnnotation
Public Shared Function Annotate_PDF(title As String, content As String, page As Integer, Optional ycorrect As Integer = 0, Optional sizecorrect As Integer = 0) Public Shared Function Annotate_PDF(title As String, content As String, page As Integer, fromGui As Boolean, Optional ycorrect As Integer = 0, Optional sizecorrect As Integer = 0)
Try Try
Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify) Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
Dim firstPage As PdfPage = doc.Pages(page) Dim firstPage As PdfPage = doc.Pages(page)
@ -23,6 +23,9 @@ Public Class ClassAnnotation
doc.Save(CURRENT_DOC_PATH) doc.Save(CURRENT_DOC_PATH)
Return True Return True
Catch ex As Exception Catch ex As Exception
If fromGui = True Then
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Annotate pdf:")
End If
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False) LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False)
Return False Return False

98
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -83,13 +83,13 @@ Public Class ClassDatabase
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Return_Datatable_CS(SQLCommand As String, Conn_ID As Integer, Optional userInput As Boolean = False) Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False)
Try Try
Dim oConString As String = Get_ConnectionString(Conn_ID) Dim oConnString = Get_ConnectionString(ConnID)
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand) LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConString oSQLconnect.ConnectionString = oConnString
oSQLconnect.Open() oSQLconnect.Open()
oSQLcommand = oSQLconnect.CreateCommand oSQLcommand = oSQLconnect.CreateCommand
oSQLcommand.CommandText = SQLCommand oSQLcommand.CommandText = SQLCommand
@ -102,9 +102,34 @@ Public Class ClassDatabase
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
If userInput = True Then If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable_ConId - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
End If End If
LOGGER.Info("Fehler bei Return_Datatable_CS: " & ex.Message, True) LOGGER.Info("Fehler bei Return_Datatable_ConId: " & ex.Message, True)
LOGGER.Info("#SQL: " & SQLCommand, False)
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False)
Try
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = ConNStr
oSQLconnect.Open()
oSQLcommand = oSQLconnect.CreateCommand
oSQLcommand.CommandText = SQLCommand
Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand)
Dim oReturnDatatable As DataTable = New DataTable()
oSQLAdapter.Fill(oReturnDatatable)
oSQLconnect.Close()
Return oReturnDatatable
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Return_Datatable_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei Return_Datatable_ConStr: " & ex.Message, True)
LOGGER.Info("#SQL: " & SQLCommand, False) LOGGER.Info("#SQL: " & SQLCommand, False)
Return Nothing Return Nothing
End Try End Try
@ -114,12 +139,11 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
LOGGER.Debug(">>> Execute_non_Query: " & ExecuteCMD)
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug(">>> Execute NonQuery: " & ExecuteCMD) LOGGER.Debug("Execute_Command Created: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -136,13 +160,65 @@ Public Class ClassDatabase
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Execute_non_Query_ConStr(ExecuteCMD As String, ConnString As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConnString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_Command Created: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
Return True
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Execute_non_Query_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
Clipboard.SetText("Error Execute_non_Query_ConStr: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
LOGGER.Info("Fehler bei Execute_non_Query_ConStr: " & ex.Message, True)
LOGGER.Info("#SQL: " & ExecuteCMD, False)
Return False
End Try
End Function
Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False) Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
Dim result Dim result
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString SQLconnect.ConnectionString = ConString
LOGGER.Debug(">>> Execute_non_Query: " & cmdscalar)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
LOGGER.Debug("Execute_non_Query: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If
Clipboard.SetText("Error Execute_Scalar: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
LOGGER.Info("Fehler bei Execute_Scalar: " & ex.Message, True)
LOGGER.Info("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function
Public Shared Function Execute_Scalar_ConStr(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
Dim result
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
@ -155,10 +231,10 @@ Public Class ClassDatabase
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) MsgBox("Error in Execute_Scalar_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If End If
Clipboard.SetText("Error Execute_Scalar: " & ex.Message & vbNewLine & "SQL: " & cmdscalar) Clipboard.SetText("Error Execute_Scalar_ConStr: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
LOGGER.Info("Fehler bei Execute_Scalar: " & ex.Message, True) LOGGER.Info("Fehler bei Execute_Scalar_ConStr: " & ex.Message, True)
LOGGER.Info("#SQL: " & cmdscalar, False) LOGGER.Info("#SQL: " & cmdscalar, False)
Return Nothing Return Nothing
End Try End Try

81
app/DD_PM_WINDREAM/ClassFinalIndex.vb
View File

@ -1,21 +1,22 @@
Public Class ClassFinalIndex Public Class ClassFinalIndex
Public Const INDEX_TYPE_STRING = 1 Public INDEX_TYPE_STRING = 1
Public Const INDEX_TYPE_INTEGER = 2 Public INDEX_TYPE_INTEGER = 2
Public Const INDEX_TYPE_FLOAT = 3 Public INDEX_TYPE_FLOAT = 3
Public Const INDEX_TYPE_BOOLEAN = 4 Public INDEX_TYPE_BOOLEAN = 4
Public Const INDEX_TYPE_DATE = 5 Public INDEX_TYPE_DATE = 5
Public Const INDEX_TYPE_VECTOR_INTEGER_64 = 4107 Public INDEX_TYPE_VECTOR_INTEGER_64 = 4107
Public Const INDEX_TYPE_VECTOR_INTEGER = 4098 Public INDEX_TYPE_VECTOR_INTEGER = 4098
Public Const INDEX_TYPE_VECTOR_STRING = 4097 Public INDEX_TYPE_VECTOR_STRING = 4097
Public Const INDEX_TYPE_VECTOR_BOOLEAN = 4100 Public INDEX_TYPE_VECTOR_BOOLEAN = 4100
Public Const INDEX_TYPE_VECTOR_DATE = 4101 Public INDEX_TYPE_VECTOR_DATE = 4101
Public Const INDEX_TYPE_VECTOR_CURRENCY = 4104 Public INDEX_TYPE_VECTOR_CURRENCY = 4104
Public Const INDEX_TYPE_VECTOR_FLOAT = 4099 Public INDEX_TYPE_VECTOR_FLOAT = 4099
Public Const INDEX_TYPE_VECTOR_DATETIME = 4103 Public INDEX_TYPE_VECTOR_DATETIME = 4103
Public Const PREFIX_VECTOR = "[%VKT" Public Const PREFIX_VECTOR = "[%VKT"
Public Shared LIST_VECTOR_INDICIES As New List(Of Integer) From { Public LIST_VECTOR_INDICIES As New List(Of Integer) From {
INDEX_TYPE_VECTOR_INTEGER_64, INDEX_TYPE_VECTOR_INTEGER_64,
INDEX_TYPE_VECTOR_INTEGER, INDEX_TYPE_VECTOR_INTEGER,
INDEX_TYPE_VECTOR_STRING, INDEX_TYPE_VECTOR_STRING,
@ -26,9 +27,48 @@
INDEX_TYPE_VECTOR_DATETIME INDEX_TYPE_VECTOR_DATETIME
} }
Public Function init()
If IDB_ACTIVE = True Then
INDEX_TYPE_STRING = 1
INDEX_TYPE_INTEGER = 2
INDEX_TYPE_FLOAT = 3
INDEX_TYPE_BOOLEAN = 2
INDEX_TYPE_DATE = 5
INDEX_TYPE_VECTOR_INTEGER_64 = 9
INDEX_TYPE_VECTOR_INTEGER = 9
INDEX_TYPE_VECTOR_STRING = 8
INDEX_TYPE_VECTOR_BOOLEAN = 9
INDEX_TYPE_VECTOR_DATE = 8
INDEX_TYPE_VECTOR_CURRENCY = 8
INDEX_TYPE_VECTOR_FLOAT = 8
INDEX_TYPE_VECTOR_DATETIME = 8
LIST_VECTOR_INDICIES = New List(Of Integer) From {
INDEX_TYPE_VECTOR_INTEGER_64,
INDEX_TYPE_VECTOR_INTEGER,
INDEX_TYPE_VECTOR_STRING,
INDEX_TYPE_VECTOR_BOOLEAN,
INDEX_TYPE_VECTOR_DATE,
INDEX_TYPE_VECTOR_CURRENCY,
INDEX_TYPE_VECTOR_FLOAT,
INDEX_TYPE_VECTOR_DATETIME}
Else
INDEX_TYPE_STRING = 1
INDEX_TYPE_INTEGER = 2
INDEX_TYPE_FLOAT = 3
INDEX_TYPE_BOOLEAN = 4
INDEX_TYPE_DATE = 5
INDEX_TYPE_VECTOR_INTEGER_64 = 4107
INDEX_TYPE_VECTOR_INTEGER = 4098
INDEX_TYPE_VECTOR_STRING = 4097
INDEX_TYPE_VECTOR_BOOLEAN = 4100
INDEX_TYPE_VECTOR_DATE = 4101
INDEX_TYPE_VECTOR_CURRENCY = 4104
INDEX_TYPE_VECTOR_FLOAT = 4099
INDEX_TYPE_VECTOR_DATETIME = 4103
End If
End Function
Public Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean)
Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean)
Try Try
Dim props As FinalIndexProperties = obj Dim props As FinalIndexProperties = obj
Dim i As Integer = indcies.IndexOf(indexName) Dim i As Integer = indcies.IndexOf(indexName)
@ -52,7 +92,7 @@
End Try End Try
End Function End Function
Public Shared Function SetValue(value As String, obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer)) Public Function SetValue(value As String, obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer))
Try Try
Dim props As FinalIndexProperties = obj Dim props As FinalIndexProperties = obj
Dim i As Integer = indcies.IndexOf(indexName) Dim i As Integer = indcies.IndexOf(indexName)
@ -107,15 +147,20 @@
End Try End Try
End Function End Function
Public Shared Function IsVectorIndex(type As Integer) As Boolean Public Function IsVectorIndex(type As Integer) As Boolean
Return LIST_VECTOR_INDICIES.Contains(type) Return LIST_VECTOR_INDICIES.Contains(type)
End Function End Function
Public Shared Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer)) Public Shared Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer))
Try
Dim position As Integer = indicies.IndexOf(indexName) Dim position As Integer = indicies.IndexOf(indexName)
Dim type As Integer = types.Item(position) Dim type As Integer = types.Item(position)
Return type Return type
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & $"Please check whether attribute {indexName} exists in AtributesList!", MsgBoxStyle.Critical)
End Try
End Function End Function
End Class End Class

8
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -54,7 +54,7 @@
Case "vDate" Case "vDate"
value = Now.ToShortDateString value = Now.ToShortDateString
Case "vUserName" Case "vUserName"
value = Environment.UserName value = USER_USERNAME
Case Else Case Else
value = dr.Item("VALUE") value = dr.Item("VALUE")
End Select End Select
@ -197,7 +197,7 @@
Dim PM_String As String Dim PM_String As String
Try Try
Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "") Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "")
PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & Environment.UserName & "#" & Now.ToString PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True) LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
@ -210,9 +210,9 @@
Dim PM_String As String Dim PM_String As String
Try Try
If old = "DDFINALINDEX" Then If old = "DDFINALINDEX" Then
PM_String = "DD-PMlog-FINAL" & "#" & indexname & "#" & input & "#" & Environment.UserName & "#" & Now.ToString PM_String = "DD-PMlog-FINAL" & "#" & indexname & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString
Else Else
PM_String = "DD-PMlog-CHG" & "#" & indexname & "#" & "NEW: '" & input & "' - OLD: '" & old & "'" & "#" & Environment.UserName & "#" & Now.ToString PM_String = "DD-PMlog-CHG" & "#" & indexname & "#" & "NEW: '" & input & "' - OLD: '" & old & "'" & "#" & USER_USERNAME & "#" & Now.ToString
End If End If
Catch ex As Exception Catch ex As Exception

139
app/DD_PM_WINDREAM/ClassIDBData.vb Normal file
View File

@ -0,0 +1,139 @@
Public Class ClassIDBData
Public DTVWIDB_BE_ATTRIBUTE As DataTable
''' <summary>
''' Gets all indices by BusinessEntity.
''' </summary>
''' <param name="BusinessEntity">Title of Business Entity</param>
''' <returns>Array with all Indices</returns>
''' <remarks></remarks>
Public Function Init()
Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
End Function
Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
Try
' Array für Indizes vorbereiten
Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count - 1) As String
Dim oCount As Integer = 0
For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
oCount += 1
Next
' Indexarray sortiert zurückgeben
Array.Sort(aIndexNames)
' Indexarray zurückgeben
Return aIndexNames
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error getting the IDB Indicies")
Return Nothing
End Try
End Function
Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
Try
For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
If oRow.Item("ATTR_TITLE") = indexname Then
Dim oType = oRow.Item("TYP_ID")
Return oType
End If
Next
Catch ex As Exception
LOGGER.Error(ex)
Return Nothing
End Try
End Function
Public Function GetVariableValue(oAttributeName As String) As Object
Try
Dim oAttributeValue
Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
oAttributeValue = ClassDatabase.Return_Datatable_ConStr(oFNSQL, CONNECTION_STRING_IDB)
Dim odt As DataTable = oAttributeValue
If odt.Rows.Count = 1 Then
oAttributeValue = odt.Rows(0).Item(0)
End If
Return oAttributeValue
Catch ex As Exception
LOGGER.Error(ex)
Return Nothing
End Try
End Function
Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object
Try
Dim oAttributeValue
Dim oID_IS_FOREIGN As Integer
oID_IS_FOREIGN = 0
If IDB_USES_WMFILESTORE Then
oID_IS_FOREIGN = 1
End If
Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB)
Catch ex As Exception
LOGGER.Error(ex)
Return Nothing
End Try
End Function
Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False)
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 oTypeOldResult = oOldAttributeResult.GetType.ToString
If oTypeOldResult = "System.Data.DataTable" Then
Dim myOldValues As DataTable = oOldAttributeResult
If myOldValues.Rows.Count > 1 Then
'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues
For Each oOldValueRow As DataRow In myOldValues.Rows
Dim oExists As Boolean = False
For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
Dim oInfo1 = $"Checking oldValue[{oOldValueRow.Item(0)}] vs NewValue [{oNewValueRow.Item(1)}]"
If oNewValueRow.Item(1).ToString.ToUpper = oOldValueRow.Item(0).ToString.ToUpper Then
oExists = True
Exit For
End If
Next
If oExists = False Then
Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}]"
LOGGER.Info(oInfo)
Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0))
End If
Next
End If
End If
End If
For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
Dim oSuccess As Boolean = False
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',{CURRENT_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
oSuccess = ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
If oSuccess = False Then
Return False
End If
Next
Return True
Else
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',{CURRENT_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
Return ClassDatabase.Execute_non_Query_ConStr(oFNSQL, CONNECTION_STRING_IDB)
End If
Catch ex As Exception
LOGGER.Error(ex)
Return False
End Try
End Function
End Class

10
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -128,7 +128,7 @@ Public Class ClassInit
Try Try
USER_USERNAME = Environment.UserName USER_USERNAME = Environment.UserName
Try Try
DT_CLIENT_USER = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName), False) DT_CLIENT_USER = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", USER_USERNAME), False)
If DT_CLIENT_USER.Rows.Count > 1 Then If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog() frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@ -149,7 +149,7 @@ Public Class ClassInit
LOGGER.Info(">> Username: " & USER_USERNAME) LOGGER.Info(">> Username: " & USER_USERNAME)
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED) Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
@ -184,8 +184,14 @@ Public Class ClassInit
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE) ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
FINALINDICES = New ClassFinalIndex()
FINALINDICES.init()
If IDB_ACTIVE = True Then
IDBData = New ClassIDBData()
End If
Try Try
USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1") USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1")
Catch ex As Exception Catch ex As Exception

2
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -434,7 +434,7 @@ Public Class ClassPMWindream
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("ClassSearchResult.RunIndexing - " & ex.Message, True) LOGGER.Info("ClassSearchResult.RunIndexing - " & ex.Message, True)
frmValidator.idxerr_message = "Unvorhergesehener Fehler in Indexing: " & ex.Message & vbNewLine & "vType: " & vType.ToString frmValidator.idxerr_message = "Unvorhergesehener Fehler in Indexing: " & ex.Message & vbNewLine & "vType: " & vType.ToString
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & oDocument.aName & " - ERROR: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & oDocument.aName & " - ERROR: " & ex.Message, USER_USERNAME)
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
Return False Return False

34
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@ -13,19 +13,37 @@
WORKING_MODE = "" WORKING_MODE = ""
End Try End Try
If WORKING_MODE.Contains("PM#FORCE_LAYOUT_OVERVIEW") Then
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
' Use For Each loop over words and display them.
Dim oMode As String
For Each oMode In oSplitWorkMode
LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then
FORCE_LAYOUT_OVERVIEW = True FORCE_LAYOUT_OVERVIEW = True
End If ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
SHOW_MASS_VALIDATOR = False
If WORKING_MODE.Contains("PM#NO_CHARTS") Then ElseIf oMode = "PM.NO_CHARTS" Then
SHOW_CHARTS = False SHOW_CHARTS = False
End If ElseIf oMode = "PM.DEBUG_LOG" Then
If WORKING_MODE.Contains("PM#DEBUG_LOG") Then
USER_DEBUG_LOG = True USER_DEBUG_LOG = True
LOGCONFIG.Debug = True LOGCONFIG.Debug = True
ElseIf oMode = "PM.IDBWITHWMFS" Then
IDB_USES_WMFILESTORE = True
ElseIf oMode.StartsWith("PM.IDBCS!") Then
CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "")
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
If Not IsNothing(oDT) Then
If oDT.Rows.Count > 0 Then
IDB_ACTIVE = True
End If End If
End If
Else
LOGGER.Info($"Wrong oMode: {oMode}")
End If
Next
End If End If

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

File diff suppressed because it is too large Load Diff

231
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd
View File

@ -639,121 +639,6 @@ WHERE (PROFIL_ID = @PROF_ID)</CommandText>
</DbSource> </DbSource>
</Sources> </Sources>
</TableAdapter> </TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWPM_CONTROL_INDEXTableAdapter" GeneratorDataComponentClassName="VWPM_CONTROL_INDEXTableAdapter" Name="VWPM_CONTROL_INDEX" UserDataComponentName="VWPM_CONTROL_INDEXTableAdapter">
<MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.VWPM_CONTROL_INDEX" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, INDEX_NAME, VALIDATION, CHOICE_LIST, TYP,
CONNECTION_ID, SQL_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN
FROM VWPM_CONTROL_INDEX
WHERE (LOWER(PROFIL_NAME) = LOWER(@Profil))
ORDER BY Y_LOC, X_LOC</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Profil" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@Profil" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="PROFIL_ID" DataSetColumn="PROFIL_ID" />
<Mapping SourceColumn="PROFIL_NAME" DataSetColumn="PROFIL_NAME" />
<Mapping SourceColumn="CTRL_NAME" DataSetColumn="CTRL_NAME" />
<Mapping SourceColumn="CTRL_TYPE" DataSetColumn="CTRL_TYPE" />
<Mapping SourceColumn="CTRL_TEXT" DataSetColumn="CTRL_TEXT" />
<Mapping SourceColumn="X_LOC" DataSetColumn="X_LOC" />
<Mapping SourceColumn="Y_LOC" DataSetColumn="Y_LOC" />
<Mapping SourceColumn="INDEX_NAME" DataSetColumn="INDEX_NAME" />
<Mapping SourceColumn="VALIDATION" DataSetColumn="VALIDATION" />
<Mapping SourceColumn="TYP" DataSetColumn="TYP" />
<Mapping SourceColumn="CONNECTION_ID" DataSetColumn="CONNECTION_ID" />
<Mapping SourceColumn="SQL_UEBERPRUEFUNG" DataSetColumn="SQL_UEBERPRUEFUNG" />
<Mapping SourceColumn="CHOICE_LIST" DataSetColumn="CHOICE_LIST" />
<Mapping SourceColumn="FONT_COLOR" DataSetColumn="FONT_COLOR" />
<Mapping SourceColumn="FONT_FAMILY" DataSetColumn="FONT_FAMILY" />
<Mapping SourceColumn="FONT_SIZE" DataSetColumn="FONT_SIZE" />
<Mapping SourceColumn="FONT_STYLE" DataSetColumn="FONT_STYLE" />
<Mapping SourceColumn="WIDTH" DataSetColumn="WIDTH" />
<Mapping SourceColumn="HEIGHT" DataSetColumn="HEIGHT" />
<Mapping SourceColumn="READ_ONLY" DataSetColumn="READ_ONLY" />
<Mapping SourceColumn="LOAD_IDX_VALUE" DataSetColumn="LOAD_IDX_VALUE" />
<Mapping SourceColumn="LOG_INDEX" DataSetColumn="LOG_INDEX" />
<Mapping SourceColumn="DEFAULT_VALUE" DataSetColumn="DEFAULT_VALUE" />
<Mapping SourceColumn="REGEX_MATCH" DataSetColumn="REGEX_MATCH" />
<Mapping SourceColumn="REGEX_MESSAGE_DE" DataSetColumn="REGEX_MESSAGE_DE" />
<Mapping SourceColumn="REGEX_MESSAGE_EN" DataSetColumn="REGEX_MESSAGE_EN" />
</Mappings>
<Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DbObjectType="View" GenerateShortCommands="true" GeneratorSourceName="cmdGetControlID" Modifier="Public" Name="cmdGetControlID" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdGetControlID">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID
FROM VWPM_CONTROL_INDEX
WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PRoFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRoFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CTRLNAME" ColumnName="CTRL_NAME" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@CTRLNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="CTRL_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMSLite.dbo.VWPM_CONTROL_INDEX" DbObjectType="View" GenerateShortCommands="true" GeneratorSourceName="CMDGetINDEX_NAME" Modifier="Public" Name="CMDGetINDEX_NAME" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="CMDGetINDEX_NAME">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT INDEX_NAME
FROM VWPM_CONTROL_INDEX
WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PRoFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMSLite.dbo.VWPM_CONTROL_INDEX" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRoFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CTRLNAME" ColumnName="CTRL_NAME" DataSourceName="DD_DMSLite.dbo.VWPM_CONTROL_INDEX" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@CTRLNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="CTRL_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DbObjectType="View" GenerateShortCommands="true" GeneratorSourceName="cmdGetType" Modifier="Public" Name="cmdGetType" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy2" UserSourceName="cmdGetType">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT CTRL_TYPE
FROM VWPM_CONTROL_INDEX
WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PRoFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRoFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CTRLNAME" ColumnName="CTRL_NAME" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@CTRLNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="CTRL_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DbObjectType="View" GenerateShortCommands="true" GeneratorSourceName="cmdLoadIDX" Modifier="Public" Name="cmdLoadIDX" QueryType="Scalar" ScalarCallRetval="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy3" UserSourceName="cmdLoadIDX">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT LOAD_IDX_VALUE
FROM VWPM_CONTROL_INDEX
WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PRoFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRoFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CTRLNAME" ColumnName="CTRL_NAME" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@CTRLNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="CTRL_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DbObjectType="View" FillMethodModifier="Public" FillMethodName="FillByPROFIL_ID" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByPROFIL_ID" GeneratorSourceName="FillByPROFIL_ID" GetMethodModifier="Public" GetMethodName="GetDataByPROFIL_ID" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByPROFIL_ID" UserSourceName="FillByPROFIL_ID">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, INDEX_NAME, VALIDATION, CHOICE_LIST,
TYP, CONNECTION_ID, SQL_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX
FROM VWPM_CONTROL_INDEX
WHERE (PROFIL_ID = @PROFIL_ID)
ORDER BY Y_LOC, X_LOC</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMS.dbo.VWPM_CONTROL_INDEX" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_CONNECTIONTableAdapter" GeneratorDataComponentClassName="TBDD_CONNECTIONTableAdapter" Name="TBDD_CONNECTION" UserDataComponentName="TBDD_CONNECTIONTableAdapter"> <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_CONNECTIONTableAdapter" GeneratorDataComponentClassName="TBDD_CONNECTIONTableAdapter" Name="TBDD_CONNECTION" UserDataComponentName="TBDD_CONNECTIONTableAdapter">
<MainSource> <MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
@ -2330,117 +2215,6 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPM_CONTROL_INDEX" msprop:Generator_TableClassName="VWPM_CONTROL_INDEXDataTable" msprop:Generator_TableVarName="tableVWPM_CONTROL_INDEX" msprop:Generator_RowChangedName="VWPM_CONTROL_INDEXRowChanged" msprop:Generator_TablePropName="VWPM_CONTROL_INDEX" msprop:Generator_RowDeletingName="VWPM_CONTROL_INDEXRowDeleting" msprop:Generator_RowChangingName="VWPM_CONTROL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CONTROL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CONTROL_INDEXRowDeleted" msprop:Generator_RowClassName="VWPM_CONTROL_INDEXRow" msprop:Generator_UserTableName="VWPM_CONTROL_INDEX" msprop:Generator_RowEvArgName="VWPM_CONTROL_INDEXRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="PROFIL_ID" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" />
<xs:element name="PROFIL_NAME" msprop:Generator_ColumnVarNameInTable="columnPROFIL_NAME" msprop:Generator_ColumnPropNameInRow="PROFIL_NAME" msprop:Generator_ColumnPropNameInTable="PROFIL_NAMEColumn" msprop:Generator_UserColumnName="PROFIL_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CTRL_NAME" msprop:Generator_ColumnVarNameInTable="columnCTRL_NAME" msprop:Generator_ColumnPropNameInRow="CTRL_NAME" msprop:Generator_ColumnPropNameInTable="CTRL_NAMEColumn" msprop:Generator_UserColumnName="CTRL_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CTRL_TYPE" msprop:Generator_ColumnVarNameInTable="columnCTRL_TYPE" msprop:Generator_ColumnPropNameInRow="CTRL_TYPE" msprop:Generator_ColumnPropNameInTable="CTRL_TYPEColumn" msprop:Generator_UserColumnName="CTRL_TYPE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="10" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CTRL_TEXT" msprop:Generator_ColumnVarNameInTable="columnCTRL_TEXT" msprop:Generator_ColumnPropNameInRow="CTRL_TEXT" msprop:Generator_ColumnPropNameInTable="CTRL_TEXTColumn" msprop:Generator_UserColumnName="CTRL_TEXT">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="X_LOC" msprop:Generator_ColumnVarNameInTable="columnX_LOC" msprop:Generator_ColumnPropNameInRow="X_LOC" msprop:Generator_ColumnPropNameInTable="X_LOCColumn" msprop:Generator_UserColumnName="X_LOC" type="xs:double" />
<xs:element name="Y_LOC" msprop:Generator_ColumnVarNameInTable="columnY_LOC" msprop:Generator_ColumnPropNameInRow="Y_LOC" msprop:Generator_ColumnPropNameInTable="Y_LOCColumn" msprop:Generator_UserColumnName="Y_LOC" type="xs:double" />
<xs:element name="INDEX_NAME" msprop:Generator_ColumnVarNameInTable="columnINDEX_NAME" msprop:Generator_ColumnPropNameInRow="INDEX_NAME" msprop:Generator_ColumnPropNameInTable="INDEX_NAMEColumn" msprop:Generator_UserColumnName="INDEX_NAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="VALIDATION" msprop:Generator_ColumnVarNameInTable="columnVALIDATION" msprop:Generator_ColumnPropNameInRow="VALIDATION" msprop:Generator_ColumnPropNameInTable="VALIDATIONColumn" msprop:Generator_UserColumnName="VALIDATION" type="xs:boolean" />
<xs:element name="TYP" msprop:Generator_ColumnVarNameInTable="columnTYP" msprop:Generator_ColumnPropNameInRow="TYP" msprop:Generator_ColumnPropNameInTable="TYPColumn" msprop:Generator_UserColumnName="TYP" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" minOccurs="0" />
<xs:element name="SQL_UEBERPRUEFUNG" msprop:Generator_ColumnVarNameInTable="columnSQL_UEBERPRUEFUNG" msprop:Generator_ColumnPropNameInRow="SQL_UEBERPRUEFUNG" msprop:Generator_ColumnPropNameInTable="SQL_UEBERPRUEFUNGColumn" msprop:Generator_UserColumnName="SQL_UEBERPRUEFUNG" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHOICE_LIST" msprop:Generator_ColumnVarNameInTable="columnCHOICE_LIST" msprop:Generator_ColumnPropNameInRow="CHOICE_LIST" msprop:Generator_ColumnPropNameInTable="CHOICE_LISTColumn" msprop:Generator_UserColumnName="CHOICE_LIST" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FONT_COLOR" msprop:Generator_ColumnVarNameInTable="columnFONT_COLOR" msprop:Generator_ColumnPropNameInRow="FONT_COLOR" msprop:Generator_ColumnPropNameInTable="FONT_COLORColumn" msprop:Generator_UserColumnName="FONT_COLOR" type="xs:long" minOccurs="0" />
<xs:element name="FONT_FAMILY" msprop:Generator_ColumnVarNameInTable="columnFONT_FAMILY" msprop:Generator_ColumnPropNameInRow="FONT_FAMILY" msprop:Generator_ColumnPropNameInTable="FONT_FAMILYColumn" msprop:Generator_UserColumnName="FONT_FAMILY" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FONT_SIZE" msprop:Generator_ColumnVarNameInTable="columnFONT_SIZE" msprop:Generator_ColumnPropNameInRow="FONT_SIZE" msprop:Generator_ColumnPropNameInTable="FONT_SIZEColumn" msprop:Generator_UserColumnName="FONT_SIZE" type="xs:short" minOccurs="0" />
<xs:element name="FONT_STYLE" msprop:Generator_ColumnVarNameInTable="columnFONT_STYLE" msprop:Generator_ColumnPropNameInRow="FONT_STYLE" msprop:Generator_ColumnPropNameInTable="FONT_STYLEColumn" msprop:Generator_UserColumnName="FONT_STYLE" type="xs:short" minOccurs="0" />
<xs:element name="WIDTH" msprop:Generator_ColumnVarNameInTable="columnWIDTH" msprop:Generator_ColumnPropNameInRow="WIDTH" msprop:Generator_ColumnPropNameInTable="WIDTHColumn" msprop:Generator_UserColumnName="WIDTH" type="xs:short" />
<xs:element name="HEIGHT" msprop:Generator_ColumnVarNameInTable="columnHEIGHT" msprop:Generator_ColumnPropNameInRow="HEIGHT" msprop:Generator_ColumnPropNameInTable="HEIGHTColumn" msprop:Generator_UserColumnName="HEIGHT" type="xs:short" />
<xs:element name="READ_ONLY" msprop:Generator_ColumnVarNameInTable="columnREAD_ONLY" msprop:Generator_ColumnPropNameInRow="READ_ONLY" msprop:Generator_ColumnPropNameInTable="READ_ONLYColumn" msprop:Generator_UserColumnName="READ_ONLY" type="xs:boolean" />
<xs:element name="LOAD_IDX_VALUE" msprop:Generator_ColumnVarNameInTable="columnLOAD_IDX_VALUE" msprop:Generator_ColumnPropNameInRow="LOAD_IDX_VALUE" msprop:Generator_ColumnPropNameInTable="LOAD_IDX_VALUEColumn" msprop:Generator_UserColumnName="LOAD_IDX_VALUE" type="xs:boolean" />
<xs:element name="LOG_INDEX" msprop:Generator_ColumnVarNameInTable="columnLOG_INDEX" msprop:Generator_ColumnPropNameInRow="LOG_INDEX" msprop:Generator_ColumnPropNameInTable="LOG_INDEXColumn" msprop:Generator_UserColumnName="LOG_INDEX">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DEFAULT_VALUE" msprop:Generator_ColumnVarNameInTable="columnDEFAULT_VALUE" msprop:Generator_ColumnPropNameInRow="DEFAULT_VALUE" msprop:Generator_ColumnPropNameInTable="DEFAULT_VALUEColumn" msprop:Generator_UserColumnName="DEFAULT_VALUE" type="xs:string" minOccurs="0" />
<xs:element name="REGEX_MATCH" msprop:Generator_ColumnVarNameInTable="columnREGEX_MATCH" msprop:Generator_ColumnPropNameInRow="REGEX_MATCH" msprop:Generator_ColumnPropNameInTable="REGEX_MATCHColumn" msprop:Generator_UserColumnName="REGEX_MATCH" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="1000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="REGEX_MESSAGE_DE" msprop:Generator_ColumnVarNameInTable="columnREGEX_MESSAGE_DE" msprop:Generator_ColumnPropNameInRow="REGEX_MESSAGE_DE" msprop:Generator_ColumnPropNameInTable="REGEX_MESSAGE_DEColumn" msprop:Generator_UserColumnName="REGEX_MESSAGE_DE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="1000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="REGEX_MESSAGE_EN" msprop:Generator_ColumnVarNameInTable="columnREGEX_MESSAGE_EN" msprop:Generator_ColumnPropNameInRow="REGEX_MESSAGE_EN" msprop:Generator_ColumnPropNameInTable="REGEX_MESSAGE_ENColumn" msprop:Generator_UserColumnName="REGEX_MESSAGE_EN">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="1000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent"> <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
@ -3169,11 +2943,6 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
<xs:selector xpath=".//mstns:TBPM_ERROR_LOG" /> <xs:selector xpath=".//mstns:TBPM_ERROR_LOG" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
</xs:unique> </xs:unique>
<xs:unique name="VWPM_CONTROL_INDEX_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWPM_CONTROL_INDEX" />
<xs:field xpath="mstns:GUID" />
<xs:field xpath="mstns:PROFIL_ID" />
</xs:unique>
<xs:unique name="TBDD_CONNECTION_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="TBDD_CONNECTION_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_CONNECTION" /> <xs:selector xpath=".//mstns:TBDD_CONNECTION" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />

29
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss
View File

@ -4,28 +4,27 @@
Changes to this file may cause incorrect behavior and will be lost if Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="503" ViewPortY="-84" 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="668" ViewPortY="294" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="22" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" /> <Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="21" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="8" X="608" Y="446" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" /> <Shape ID="DesignTable:TBDD_USER" ZOrder="8" X="608" Y="446" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPM_TYPE" ZOrder="13" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBPM_TYPE" ZOrder="12" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="15" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" /> <Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="14" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<Shape ID="DesignTable:VWPM_CONTROL_INDEX" ZOrder="9" X="1648" Y="348" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="9" X="410" Y="114" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="10" X="410" Y="114" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="2" X="509" Y="-80" Height="267" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBPROFILE_USER" ZOrder="2" X="509" Y="-80" Height="267" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="3" X="1391" Y="-70" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" /> <Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="3" X="1391" Y="-70" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="4" X="303" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBPM_PROFILE" ZOrder="4" 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="18" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" /> <Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="17" 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="5" X="948" Y="407" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="5" X="948" Y="407" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="11" 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="10" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="7" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" /> <Shape ID="DesignTable:TBDD_GROUPS" ZOrder="7" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="12" X="1054" Y="47" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="11" 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="6" X="807" Y="155" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:FNPM_GET_FREE_USER_FOR_PROFILE" ZOrder="6" X="807" Y="155" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="19" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" /> <Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="18" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
</Shapes> </Shapes>
<Connectors> <Connectors>
<Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="21" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="20" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>549</X> <X>549</X>
@ -37,7 +36,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="20" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="19" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>175</X> <X>175</X>
@ -53,7 +52,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="17" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="16" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>603</X> <X>603</X>
@ -65,7 +64,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="16" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="15" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1248</X> <X>1248</X>
@ -77,7 +76,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="14" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="13" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>141</X> <X>141</X>

9
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -141,6 +141,9 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraTreeList.v18.1.dll</HintPath> <HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraTreeList.v18.1.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Controls.DocumentViewer">
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.LookupGrid, Version=0.0.1.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Controls.LookupGrid, Version=0.0.1.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
@ -157,9 +160,12 @@
<Reference Include="FormsUtils"> <Reference Include="FormsUtils">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll</HintPath>
</Reference> </Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL"> <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\Independentsoft.Msg.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" /> <Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL"> <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
@ -212,6 +218,7 @@
<Compile Include="ClassDragDrop.vb" /> <Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassFinalIndex.vb" /> <Compile Include="ClassFinalIndex.vb" />
<Compile Include="ClassFinalizeDoc.vb" /> <Compile Include="ClassFinalizeDoc.vb" />
<Compile Include="ClassIDBData.vb" />
<Compile Include="ClassIndexListConverter.vb" /> <Compile Include="ClassIndexListConverter.vb" />
<Compile Include="ClassInit.vb" /> <Compile Include="ClassInit.vb" />
<Compile Include="ClassParamRefresh.vb" /> <Compile Include="ClassParamRefresh.vb" />

28
app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
View File

@ -86,32 +86,32 @@ Module ModuleFinalIndexProperties
End Sub End Sub
Public Sub IndexTypeBooleanProvider(attrs As PropertyAttributes) Public Sub IndexTypeBooleanProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_BOOLEAN, ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN}) MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_BOOLEAN, FINALINDICES.INDEX_TYPE_VECTOR_BOOLEAN})
MaybeSetReadOnlyIfSQLHasNoValue(attrs) MaybeSetReadOnlyIfSQLHasNoValue(attrs)
End Sub End Sub
Public Sub IndexTypeStringProvider(attrs As PropertyAttributes) Public Sub IndexTypeStringProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_STRING, ClassFinalIndex.INDEX_TYPE_VECTOR_STRING}) MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_STRING, FINALINDICES.INDEX_TYPE_VECTOR_STRING})
MaybeSetReadOnlyIfSQLHasNoValue(attrs) MaybeSetReadOnlyIfSQLHasNoValue(attrs)
End Sub End Sub
Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes) Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_FLOAT}) MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_FLOAT})
MaybeSetReadOnlyIfSQLHasNoValue(attrs) MaybeSetReadOnlyIfSQLHasNoValue(attrs)
End Sub End Sub
Public Sub IndexTypeIntegerProvider(attrs As PropertyAttributes) Public Sub IndexTypeIntegerProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_INTEGER, ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER_64}) MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_INTEGER, FINALINDICES.INDEX_TYPE_VECTOR_INTEGER_64})
MaybeSetReadOnlyIfSQLHasNoValue(attrs) MaybeSetReadOnlyIfSQLHasNoValue(attrs)
End Sub End Sub
Public Sub IndexTypeDateProvider(attrs As PropertyAttributes) Public Sub IndexTypeDateProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_DATE, ClassFinalIndex.INDEX_TYPE_VECTOR_DATE}) MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_DATE, FINALINDICES.INDEX_TYPE_VECTOR_DATE})
MaybeSetReadOnlyIfSQLHasNoValue(attrs) MaybeSetReadOnlyIfSQLHasNoValue(attrs)
End Sub End Sub
Public Sub VectorIndexOnlyProvider(attrs As PropertyAttributes) Public Sub VectorIndexOnlyProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_VECTOR_STRING}) MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_VECTOR_STRING})
End Sub End Sub
Public Sub MaybeSetReadOnlyIfSQLHasNoValue(attrs As PropertyAttributes) Public Sub MaybeSetReadOnlyIfSQLHasNoValue(attrs As PropertyAttributes)
@ -135,14 +135,14 @@ Module ModuleFinalIndexProperties
' get type of windream index ' get type of windream index
Dim oType As Integer = IndiciesType.Item(oIndex) Dim oType As Integer = IndiciesType.Item(oIndex)
Dim oVectoryTypes = { Dim oVectoryTypes = {
ClassFinalIndex.INDEX_TYPE_VECTOR_DATE, FINALINDICES.INDEX_TYPE_VECTOR_DATE,
ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN, FINALINDICES.INDEX_TYPE_VECTOR_BOOLEAN,
ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER_64, FINALINDICES.INDEX_TYPE_VECTOR_INTEGER_64,
ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER, FINALINDICES.INDEX_TYPE_VECTOR_INTEGER,
ClassFinalIndex.INDEX_TYPE_VECTOR_STRING, FINALINDICES.INDEX_TYPE_VECTOR_STRING,
ClassFinalIndex.INDEX_TYPE_VECTOR_CURRENCY, FINALINDICES.INDEX_TYPE_VECTOR_CURRENCY,
ClassFinalIndex.INDEX_TYPE_VECTOR_FLOAT, FINALINDICES.INDEX_TYPE_VECTOR_FLOAT,
ClassFinalIndex.INDEX_TYPE_VECTOR_DATETIME FINALINDICES.INDEX_TYPE_VECTOR_DATETIME
} }
' if type of index is not a vector, set attribute to read only ' if type of index is not a vector, set attribute to read only

4
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

@ -1,6 +1,10 @@
Module ModuleMySettings Module ModuleMySettings
' Connection String ' Connection String
Public SOURCE_INIT As Boolean = False
Public CONNECTION_STRING As String = "" Public CONNECTION_STRING As String = ""
Public CONNECTION_STRING_IDB As String = ""
Public IDB_ACTIVE As Boolean = False
Public IDB_USES_WMFILESTORE As Boolean = False
Public TEST_MODE As String = False Public TEST_MODE As String = False
' Debug Settings ' Debug Settings

3
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -44,6 +44,7 @@ Module ModuleRuntimeVariables
Public FORCE_LAYOUT_OVERVIEW As Boolean = False Public FORCE_LAYOUT_OVERVIEW As Boolean = False
Public SHOW_CHARTS As Boolean = False Public SHOW_CHARTS As Boolean = False
Public SHOW_MASS_VALIDATOR As Boolean = True
Public WORKING_MODE As String = "" Public WORKING_MODE As String = ""
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0
@ -86,6 +87,8 @@ Module ModuleRuntimeVariables
Public errormessage As String Public errormessage As String
Public WINDREAM As ClassPMWindream Public WINDREAM As ClassPMWindream
Public FINALINDICES As ClassFinalIndex
Public IDBData As ClassIDBData
Public LOGCONFIG As LogConfig Public LOGCONFIG As LogConfig
Public LOGGER As Logger Public LOGGER As Logger
Public CONFIG As ConfigManager(Of ClassConfig) Public CONFIG As ConfigManager(Of ClassConfig)

29
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@ -16,6 +16,7 @@ Imports WINDREAMLib
Public Class clsPatterns Public Class clsPatterns
' Complex patterns that rely on a datasource like a Database or Windream ' Complex patterns that rely on a datasource like a Database or Windream
Public Const PATTERN_WMI = "WMI" Public Const PATTERN_WMI = "WMI"
Public Const PATTERN_IDBA = "IDBA"
Public Const PATTERN_CTRL = "CTRL" Public Const PATTERN_CTRL = "CTRL"
' Simple patterns that only rely on .NET functions ' Simple patterns that only rely on .NET functions
Public Const PATTERN_INT = "INT" Public Const PATTERN_INT = "INT"
@ -56,6 +57,7 @@ Public Class clsPatterns
result = ReplaceInternalValues(result) result = ReplaceInternalValues(result)
result = ReplaceControlValues(result, panel) result = ReplaceControlValues(result, panel)
If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document) If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document)
result = ReplaceIDBAttributes(result)
result = ReplaceUserValues(result, prename, surname, shortname, email, userId, profileId) result = ReplaceUserValues(result, prename, surname, shortname, email, userId, profileId)
Return result Return result
@ -71,7 +73,7 @@ Public Class clsPatterns
' Replace Username(s) ' Replace Username(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME) While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
result = ReplacePattern(result, PATTERN_INT, Environment.UserName) result = ReplacePattern(result, PATTERN_INT, USER_USERNAME)
End While End While
' Replace Machinename(s) ' Replace Machinename(s)
@ -184,6 +186,31 @@ Public Class clsPatterns
LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message) LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
End Try End Try
End Function End Function
Public Shared Function ReplaceIDBAttributes(input As String) As String
Try
Dim result = input
Dim oTryCounter As Integer = 0
While ContainsPattern(result, PATTERN_IDBA)
Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value
Dim oIDBValue = IDBData.GetVariableValue(indexName)
If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then
LOGGER.Warn("Exit from ReplaceWindreamIndicies as oWMValue is still nothing and oTryCounter is 500!")
Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.")
End If
If oIDBValue IsNot Nothing Then
result = ReplacePattern(result, PATTERN_IDBA, oIDBValue)
End If
oTryCounter += 100
End While
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
End Try
End Function
Private Shared Function ContainsPattern(input As String, type As String) As String Private Shared Function ContainsPattern(input As String, type As String) As String
Dim elements As MatchCollection = regex.Matches(input) Dim elements As MatchCollection = regex.Matches(input)

131
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@ -141,13 +141,11 @@ Partial Class frmAdministration
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl() Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl()
Me.TabPage5 = New System.Windows.Forms.TabPage() Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.DISPLAY_MODEComboBox = New System.Windows.Forms.ComboBox() Me.DISPLAY_MODEComboBox = New System.Windows.Forms.ComboBox()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.cmbLOGIndex = New System.Windows.Forms.ComboBox() Me.cmbLOGIndex = New System.Windows.Forms.ComboBox()
Me.PM_VEKTOR_INDEXComboBox = New System.Windows.Forms.ComboBox() Me.PM_VEKTOR_INDEXComboBox = New System.Windows.Forms.ComboBox()
Me.SORT_BY_LATESTCheckBox = New System.Windows.Forms.CheckBox()
Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabControl2 = New System.Windows.Forms.TabControl()
Me.TabPage11 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage()
@ -194,6 +192,10 @@ Partial Class frmAdministration
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox() Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox()
Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox() Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox()
Me.WORK_HISTORY_ENTRYTextBox = New System.Windows.Forms.TextBox() Me.WORK_HISTORY_ENTRYTextBox = New System.Windows.Forms.TextBox()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.SORT_BY_LATESTCheckBox = New System.Windows.Forms.CheckBox()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.SplitContainerProfilzuordnung = New System.Windows.Forms.SplitContainer() Me.SplitContainerProfilzuordnung = New System.Windows.Forms.SplitContainer()
Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl() Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl()
@ -247,8 +249,6 @@ Partial Class frmAdministration
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter()
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
@ -309,8 +309,6 @@ Partial Class frmAdministration
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.tabctrl_Profilkonfig.SuspendLayout() Me.tabctrl_Profilkonfig.SuspendLayout()
Me.TabPage5.SuspendLayout() Me.TabPage5.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
Me.TabControl2.SuspendLayout() Me.TabControl2.SuspendLayout()
Me.TabPage11.SuspendLayout() Me.TabPage11.SuspendLayout()
@ -322,6 +320,8 @@ Partial Class frmAdministration
CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator1.SuspendLayout() Me.BindingNavigator1.SuspendLayout()
Me.TabPage12.SuspendLayout() Me.TabPage12.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
CType(Me.SplitContainerProfilzuordnung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerProfilzuordnung, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerProfilzuordnung.Panel1.SuspendLayout() Me.SplitContainerProfilzuordnung.Panel1.SuspendLayout()
@ -1025,6 +1025,7 @@ Partial Class frmAdministration
Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "DESCRIPTION", True)) Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "DESCRIPTION", True))
resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox") resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox")
Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox" Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox"
Me.DESCRIPTIONTextBox.Tag = ""
' '
'WD_SEARCHTextBox 'WD_SEARCHTextBox
' '
@ -1114,10 +1115,10 @@ Partial Class frmAdministration
'TabPage5 'TabPage5
' '
resources.ApplyResources(Me.TabPage5, "TabPage5") resources.ApplyResources(Me.TabPage5, "TabPage5")
Me.TabPage5.Controls.Add(Me.Label4)
Me.TabPage5.Controls.Add(Me.Label1) Me.TabPage5.Controls.Add(Me.Label1)
Me.TabPage5.Controls.Add(Me.Label9) Me.TabPage5.Controls.Add(Me.Label9)
Me.TabPage5.Controls.Add(Me.cmbType) Me.TabPage5.Controls.Add(Me.cmbType)
Me.TabPage5.Controls.Add(Me.Label4)
Me.TabPage5.Controls.Add(Me.FINAL_TEXTTextBox) Me.TabPage5.Controls.Add(Me.FINAL_TEXTTextBox)
Me.TabPage5.Controls.Add(Me.FINAL_PROFILECheckBox) Me.TabPage5.Controls.Add(Me.FINAL_PROFILECheckBox)
Me.TabPage5.Controls.Add(DISPLAY_MODELabel) Me.TabPage5.Controls.Add(DISPLAY_MODELabel)
@ -1145,6 +1146,16 @@ Partial Class frmAdministration
Me.TabPage5.Name = "TabPage5" Me.TabPage5.Name = "TabPage5"
Me.TabPage5.UseVisualStyleBackColor = True Me.TabPage5.UseVisualStyleBackColor = True
' '
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'Label9
'
resources.ApplyResources(Me.Label9, "Label9")
Me.Label9.Name = "Label9"
'
'DISPLAY_MODEComboBox 'DISPLAY_MODEComboBox
' '
Me.DISPLAY_MODEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "DISPLAY_MODE", True)) Me.DISPLAY_MODEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "DISPLAY_MODE", True))
@ -1153,41 +1164,6 @@ Partial Class frmAdministration
Me.DISPLAY_MODEComboBox.Items.AddRange(New Object() {resources.GetString("DISPLAY_MODEComboBox.Items"), resources.GetString("DISPLAY_MODEComboBox.Items1"), resources.GetString("DISPLAY_MODEComboBox.Items2")}) Me.DISPLAY_MODEComboBox.Items.AddRange(New Object() {resources.GetString("DISPLAY_MODEComboBox.Items"), resources.GetString("DISPLAY_MODEComboBox.Items1"), resources.GetString("DISPLAY_MODEComboBox.Items2")})
Me.DISPLAY_MODEComboBox.Name = "DISPLAY_MODEComboBox" Me.DISPLAY_MODEComboBox.Name = "DISPLAY_MODEComboBox"
' '
'GridControl1
'
Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME})
Me.GridView1.DetailHeight = 295
Me.GridView1.GridControl = Me.GridControl1
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.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowDetailButtons = False
Me.GridView1.OptionsView.ShowGroupPanel = False
'
'colNAME
'
resources.ApplyResources(Me.colNAME, "colNAME")
Me.colNAME.FieldName = "NAME"
Me.colNAME.MinWidth = 16
Me.colNAME.Name = "colNAME"
'
'cmbLOGIndex 'cmbLOGIndex
' '
Me.cmbLOGIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "LOG_INDEX", True)) Me.cmbLOGIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "LOG_INDEX", True))
@ -1202,13 +1178,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.PM_VEKTOR_INDEXComboBox, "PM_VEKTOR_INDEXComboBox") resources.ApplyResources(Me.PM_VEKTOR_INDEXComboBox, "PM_VEKTOR_INDEXComboBox")
Me.PM_VEKTOR_INDEXComboBox.Name = "PM_VEKTOR_INDEXComboBox" Me.PM_VEKTOR_INDEXComboBox.Name = "PM_VEKTOR_INDEXComboBox"
' '
'SORT_BY_LATESTCheckBox
'
Me.SORT_BY_LATESTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "SORT_BY_LATEST", True))
resources.ApplyResources(Me.SORT_BY_LATESTCheckBox, "SORT_BY_LATESTCheckBox")
Me.SORT_BY_LATESTCheckBox.Name = "SORT_BY_LATESTCheckBox"
Me.SORT_BY_LATESTCheckBox.UseVisualStyleBackColor = True
'
'TabPage6 'TabPage6
' '
resources.ApplyResources(Me.TabPage6, "TabPage6") resources.ApplyResources(Me.TabPage6, "TabPage6")
@ -1238,9 +1207,9 @@ Partial Class frmAdministration
' '
'Panel5 'Panel5
' '
resources.ApplyResources(Me.Panel5, "Panel5")
Me.Panel5.Controls.Add(Me.gridFinalIndex) Me.Panel5.Controls.Add(Me.gridFinalIndex)
Me.Panel5.Controls.Add(Me.PropertyGrid1) Me.Panel5.Controls.Add(Me.PropertyGrid1)
resources.ApplyResources(Me.Panel5, "Panel5")
Me.Panel5.Name = "Panel5" Me.Panel5.Name = "Panel5"
' '
'gridFinalIndex 'gridFinalIndex
@ -1503,6 +1472,48 @@ Partial Class frmAdministration
resources.ApplyResources(Me.WORK_HISTORY_ENTRYTextBox, "WORK_HISTORY_ENTRYTextBox") resources.ApplyResources(Me.WORK_HISTORY_ENTRYTextBox, "WORK_HISTORY_ENTRYTextBox")
Me.WORK_HISTORY_ENTRYTextBox.Name = "WORK_HISTORY_ENTRYTextBox" Me.WORK_HISTORY_ENTRYTextBox.Name = "WORK_HISTORY_ENTRYTextBox"
' '
'GridControl1
'
Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME})
Me.GridView1.DetailHeight = 295
Me.GridView1.GridControl = Me.GridControl1
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.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowDetailButtons = False
Me.GridView1.OptionsView.ShowGroupPanel = False
'
'colNAME
'
resources.ApplyResources(Me.colNAME, "colNAME")
Me.colNAME.FieldName = "NAME"
Me.colNAME.MinWidth = 16
Me.colNAME.Name = "colNAME"
'
'SORT_BY_LATESTCheckBox
'
Me.SORT_BY_LATESTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "SORT_BY_LATEST", True))
resources.ApplyResources(Me.SORT_BY_LATESTCheckBox, "SORT_BY_LATESTCheckBox")
Me.SORT_BY_LATESTCheckBox.Name = "SORT_BY_LATESTCheckBox"
Me.SORT_BY_LATESTCheckBox.UseVisualStyleBackColor = True
'
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.SplitContainerProfilzuordnung) Me.TabPage2.Controls.Add(Me.SplitContainerProfilzuordnung)
@ -1865,16 +1876,6 @@ Partial Class frmAdministration
' '
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
' '
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'Label9
'
resources.ApplyResources(Me.Label9, "Label9")
Me.Label9.Name = "Label9"
'
'frmAdministration 'frmAdministration
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -1922,8 +1923,6 @@ Partial Class frmAdministration
Me.tabctrl_Profilkonfig.ResumeLayout(False) Me.tabctrl_Profilkonfig.ResumeLayout(False)
Me.TabPage5.ResumeLayout(False) Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout() Me.TabPage5.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
Me.TabControl2.ResumeLayout(False) Me.TabControl2.ResumeLayout(False)
Me.TabPage11.ResumeLayout(False) Me.TabPage11.ResumeLayout(False)
@ -1938,6 +1937,8 @@ Partial Class frmAdministration
Me.BindingNavigator1.PerformLayout() Me.BindingNavigator1.PerformLayout()
Me.TabPage12.ResumeLayout(False) Me.TabPage12.ResumeLayout(False)
Me.TabPage12.PerformLayout() Me.TabPage12.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.SplitContainerProfilzuordnung.Panel1.ResumeLayout(False) Me.SplitContainerProfilzuordnung.Panel1.ResumeLayout(False)
Me.SplitContainerProfilzuordnung.Panel2.ResumeLayout(False) Me.SplitContainerProfilzuordnung.Panel2.ResumeLayout(False)
@ -2168,6 +2169,6 @@ Partial Class frmAdministration
Friend WithEvents btnSQLProfilehome As Button Friend WithEvents btnSQLProfilehome As Button
Friend WithEvents DISPLAY_MODEComboBox As ComboBox Friend WithEvents DISPLAY_MODEComboBox As ComboBox
Friend WithEvents Label9 As Label Friend WithEvents Label9 As Label
Friend WithEvents Label4 As Label
Friend WithEvents ToolTip1 As ToolTip Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents Label4 As Label
End Class End Class

1237
app/DD_PM_WINDREAM/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

182
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -7,15 +7,13 @@ Imports DevExpress.XtraGrid.Views.Grid
Public Class frmAdministration Public Class frmAdministration
'Private _windreamPM As ClassPMWindream
Private email As New ClassEmail Private email As New ClassEmail
Public profile_guid As Integer = 0 Public profile_guid As Integer = 0
Dim formloaded As Boolean Dim formloaded As Boolean
Private INSERT_ACTIVE As Boolean = False Private INSERT_ACTIVE As Boolean = False
Dim Windream_Indicies As List(Of String) Dim MyIndicies As List(Of String)
Dim Windream_Indicies_Types As List(Of Integer) Dim MyIndicies_Types As List(Of Integer)
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False formloaded = False
Try Try
@ -41,6 +39,7 @@ Public Class frmAdministration
dragDropManager.AddGridView(viewAvailableGroups) dragDropManager.AddGridView(viewAvailableGroups)
dragDropManager.AddGridView(viewAssignedGroups) dragDropManager.AddGridView(viewAssignedGroups)
'If clsModules.IsModuleInstalled("User Manager") Then 'If clsModules.IsModuleInstalled("User Manager") Then
' btnUserManager.Enabled = True ' btnUserManager.Enabled = True
'Else 'Else
@ -58,42 +57,26 @@ Public Class frmAdministration
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try End Try
If IDB_ACTIVE = True Then
Try IDBData.Init()
' Windream instanziieren End If
'_windreamPM = New ClassPMWindream()
'Windream initialisieren (Connection, Session, ... aufbauen)
'_windreamPM.Create_Session()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
ObjekttypenEintragen() ObjekttypenEintragen()
Indexe_eintragen() Indexe_eintragen()
Try
If cmbObjekttypen.Text <> String.Empty Then
Windream_Indicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
Windream_Indicies_Types = New List(Of Integer)
For Each i In Windream_Indicies
Dim type = WINDREAM.GetTypeOfIndex(i)
Windream_Indicies_Types.Add(type)
Next
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Indexe_eintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
End Sub End Sub
Sub Indexe_eintragen() Sub Indexe_eintragen()
If cmbObjekttypen.Text <> "" Then If cmbObjekttypen.Text <> "" Then
Try
Me.PM_VEKTOR_INDEXComboBox.Items.Clear() Me.PM_VEKTOR_INDEXComboBox.Items.Clear()
Me.cmbLOGIndex.Items.Clear() Me.cmbLOGIndex.Items.Clear()
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
Me.PM_VEKTOR_INDEXComboBox.Items.Add("") Me.PM_VEKTOR_INDEXComboBox.Items.Add("")
Me.cmbLOGIndex.Items.Add("") Me.cmbLOGIndex.Items.Add("")
If IDB_ACTIVE = False Then
PM_VEKTOR_INDEXComboBox.Enabled = True
Label4.Enabled = True
Try
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
Dim _vektorString As Boolean = False Dim _vektorString As Boolean = False
@ -112,6 +95,43 @@ Public Class frmAdministration
Next Next
End If End If
MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
For Each i In MyIndicies
Dim type = WINDREAM.GetTypeOfIndex(i)
MyIndicies_Types.Add(type)
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
cmbLOGIndex.SelectedIndex = -1
End Try
Else
PM_VEKTOR_INDEXComboBox.Enabled = False
Label4.Enabled = False
Try
For Each oRow As DataRow In IDBData.DTVWIDB_BE_ATTRIBUTE.Rows
Select Case CInt(oRow.Item("TYP_ID"))
Case 8
Me.PM_VEKTOR_INDEXComboBox.Items.Add(oRow.Item("ATTR_TITLE"))
Me.cmbLOGIndex.Items.Add(oRow.Item("ATTR_TITLE"))
End Select
Next
MyIndicies_Types = New List(Of Integer)
MyIndicies = IDBData.GetIndicesByBE(cmbObjekttypen.Text).ToList()
For Each oIndex In MyIndicies
Dim type = IDBData.GetTypeOfIndex(oIndex)
MyIndicies_Types.Add(type)
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in GetIndices IDB: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text) PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else Else
@ -122,12 +142,7 @@ Public Class frmAdministration
Else Else
cmbLOGIndex.SelectedIndex = -1 cmbLOGIndex.SelectedIndex = -1
End If End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Indexe_eintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
cmbLOGIndex.SelectedIndex = -1
End Try
End If End If
@ -156,6 +171,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub ObjekttypenEintragen() Private Sub ObjekttypenEintragen()
Me.cmbObjekttypen.Items.Clear() Me.cmbObjekttypen.Items.Clear()
If IDB_ACTIVE = False Then
Try Try
Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects() Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects()
If oDokumentTypen Is Nothing Then Exit Sub If oDokumentTypen Is Nothing Then Exit Sub
@ -166,6 +182,14 @@ Public Class frmAdministration
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server") MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
End Try End Try
Else
Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY"
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
For Each oROW As DataRow In oDT.Rows
Me.cmbObjekttypen.Items.Add(oROW.Item(1))
Next
End If
End Sub End Sub
@ -212,7 +236,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub TBPM_PROFILEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPM_PROFILEBindingSource.AddingNew Private Sub TBPM_PROFILEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPM_PROFILEBindingSource.AddingNew
DD_DMSLiteDataSet.TBPM_PROFILE.ADDED_WHOColumn.DefaultValue = Environment.UserName DD_DMSLiteDataSet.TBPM_PROFILE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSLiteDataSet.TBPM_PROFILE.ADDED_WHENColumn.DefaultValue = Date.Now DD_DMSLiteDataSet.TBPM_PROFILE.ADDED_WHENColumn.DefaultValue = Date.Now
DD_DMSLiteDataSet.TBPM_PROFILE.TYPEColumn.DefaultValue = 1 DD_DMSLiteDataSet.TBPM_PROFILE.TYPEColumn.DefaultValue = 1
End Sub End Sub
@ -281,7 +305,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub TBPM_USERBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew Private Sub TBPM_USERBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
DD_DMSLiteDataSet.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName DD_DMSLiteDataSet.TBDD_USER.ADDED_WHOColumn.DefaultValue = USER_USERNAME
End Sub End Sub
Private Function GetCurrentProfileId() As Integer Private Function GetCurrentProfileId() As Integer
@ -315,7 +339,7 @@ Public Class frmAdministration
Dim userId As Integer = data.Split("|")(0) Dim userId As Integer = data.Split("|")(0)
Dim profileId = GetCurrentProfileId() Dim profileId = GetCurrentProfileId()
TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, Environment.UserName) TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
FillProfile_User(profileId) FillProfile_User(profileId)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -344,8 +368,8 @@ Public Class frmAdministration
Dim profileId = GetCurrentProfileId() Dim profileId = GetCurrentProfileId()
TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, Environment.UserName) TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, USER_USERNAME)
' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, Environment.UserName) ' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
FillProfile_User(profileId) FillProfile_User(profileId)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -386,7 +410,7 @@ Public Class frmAdministration
Sub Save_Konfiguration() Sub Save_Konfiguration()
TBPM_KONFIGURATIONBindingSource.EndEdit() TBPM_KONFIGURATIONBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_KONFIGURATION.GetChanges Is Nothing = False Then If DD_DMSLiteDataSet.TBPM_KONFIGURATION.GetChanges Is Nothing = False Then
GEAENDERTWERTextBox.Text = Environment.UserName GEAENDERTWERTextBox.Text = USER_USERNAME
TBPM_KONFIGURATIONBindingSource.EndEdit() TBPM_KONFIGURATIONBindingSource.EndEdit()
TBPM_KONFIGURATIONTableAdapter.Update(DD_DMSLiteDataSet.TBPM_KONFIGURATION) TBPM_KONFIGURATIONTableAdapter.Update(DD_DMSLiteDataSet.TBPM_KONFIGURATION)
tstrpinfo.Text = "Konfiguration wurde erfolgreich gespeichert" tstrpinfo.Text = "Konfiguration wurde erfolgreich gespeichert"
@ -543,7 +567,7 @@ Public Class frmAdministration
' End If ' End If
' Try ' Try
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "") ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, USER_USERNAME, 0, "")
' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now ' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
' Me.lblSaveFinalIndex.Visible = True ' Me.lblSaveFinalIndex.Visible = True
@ -566,7 +590,7 @@ Public Class frmAdministration
' End If ' End If
' Try ' Try
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, Environment.UserName, 0, "") ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, USER_USERNAME, 0, "")
' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now ' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
' Me.lblSaveFinalIndex.Visible = True ' Me.lblSaveFinalIndex.Visible = True
' Catch ex As Exception ' Catch ex As Exception
@ -599,7 +623,7 @@ Public Class frmAdministration
copySuffix = copySuffix & "_COPY" copySuffix = copySuffix & "_COPY"
End While End While
TBPM_PROFILETableAdapter.cmdInsert_Copy(copySuffix, Environment.UserName, PROFILGUIDTextBox.Text) TBPM_PROFILETableAdapter.cmdInsert_Copy(copySuffix, USER_USERNAME, PROFILGUIDTextBox.Text)
Dim NewGUID As Integer = TBPM_PROFILETableAdapter.cmdMaxGuid Dim NewGUID As Integer = TBPM_PROFILETableAdapter.cmdMaxGuid
If NewGUID > 0 Then If NewGUID > 0 Then
Dim _sql = "INSERT INTO TBPM_PROFILE_CONTROLS " & Dim _sql = "INSERT INTO TBPM_PROFILE_CONTROLS " &
@ -610,11 +634,11 @@ Public Class frmAdministration
"FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 " & "FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 " &
"WHERE (PROFIL_ID = @Copy_profilId) " "WHERE (PROFIL_ID = @Copy_profilId) "
_sql = _sql.Replace("@NEW_PROFIL_ID", NewGUID) _sql = _sql.Replace("@NEW_PROFIL_ID", NewGUID)
_sql = _sql.Replace("@User", Environment.UserName) _sql = _sql.Replace("@User", USER_USERNAME)
_sql = _sql.Replace("@Copy_profilId", PROFILGUIDTextBox.Text) _sql = _sql.Replace("@Copy_profilId", PROFILGUIDTextBox.Text)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text) TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text)
'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text) 'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text)
Execute_SQL(_sql) Execute_SQL(_sql)
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten() Refresh_Profildaten()
@ -775,14 +799,14 @@ Public Class frmAdministration
' MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation) ' MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation)
' Exit Sub ' Exit Sub
' End If ' End If
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", USER_USERNAME, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text)
' INSERT_ACTIVE = False ' INSERT_ACTIVE = False
' Else ' Else
' Dim i, ID As Integer ' Dim i, ID As Integer
' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
' If ID > 0 Then ' If ID > 0 Then
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, USER_USERNAME, ID)
' End If ' End If
' End If ' End If
@ -801,7 +825,7 @@ Public Class frmAdministration
' Exit Sub ' Exit Sub
' End If ' End If
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, CONID, SQL_COMMANDTextBox.Text) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", USER_USERNAME, CONID, SQL_COMMANDTextBox.Text)
' End If ' End If
' Dim i, ID As Integer ' Dim i, ID As Integer
@ -915,7 +939,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub GridView2_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles viewFinalIndex.FocusedRowChanged Private Sub GridView2_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles viewFinalIndex.FocusedRowChanged
Try 'Try
Dim view As GridView = sender Dim view As GridView = sender
Dim focusedRow As DataRow = view.GetFocusedDataRow() Dim focusedRow As DataRow = view.GetFocusedDataRow()
@ -951,37 +975,11 @@ Public Class frmAdministration
' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen ' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen
If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then
obj = ClassFinalIndex.SetValue(value, obj, index, Windream_Indicies, Windream_Indicies_Types) obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
End If End If
'Dim type As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types) obj.Indicies = MyIndicies
'Dim isCurrentIndexVectorIndex = ClassFinalIndex.IsVectorIndex(type) obj.IndiciesType = MyIndicies_Types
'Dim indicies As List(Of String) = Windream_Indicies.AsEnumerable _
' .Where(Function(currentIndex As String)
' Dim currentType As Integer = ClassFinalIndex.GetIndexType(currentIndex, Windream_Indicies, Windream_Indicies_Types)
' If isCurrentIndexVectorIndex Then
' Return ClassFinalIndex.IsVectorIndex(currentType)
' Else
' Return Not ClassFinalIndex.IsVectorIndex(currentType)
' End If
' End Function).ToList()
'Dim indexTypes As List(Of Integer) = Windream_Indicies_Types.AsEnumerable _
' .Where(Function(currentType)
' If isCurrentIndexVectorIndex Then
' Return ClassFinalIndex.IsVectorIndex(currentType)
' Else
' Return Not ClassFinalIndex.IsVectorIndex(currentType)
' End If
' End Function).ToList()
'obj.Indicies = indicies
'obj.IndiciesType = indexTypes
obj.Indicies = Windream_Indicies
obj.IndiciesType = Windream_Indicies_Types
obj.IndexName = index obj.IndexName = index
obj.VectorBehaviourType = New List(Of String) From { obj.VectorBehaviourType = New List(Of String) From {
"Add", "Add",
@ -989,17 +987,17 @@ Public Class frmAdministration
} }
If Not index Is Nothing Then If Not index Is Nothing Then
Dim indexType As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types) Dim indexType As Integer = FINALINDICES.GetIndexType(index, MyIndicies, MyIndicies_Types)
obj.VectorIndex = ClassFinalIndex.IsVectorIndex(indexType) obj.VectorIndex = FINALINDICES.IsVectorIndex(indexType)
End If End If
PropertyGrid1.SelectedObject = obj PropertyGrid1.SelectedObject = obj
PropertyGrid1.Refresh() PropertyGrid1.Refresh()
Catch ex As Exception 'Catch ex As Exception
LOGGER.Error(ex) ' LOGGER.Error(ex)
MsgBox($"Error while loading Final Index properties: {ex.Message}") ' MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
LOGGER.Info($"Error while loading Final Index properties: {ex.Message}") ' LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
End Try 'End Try
End Sub End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
@ -1020,7 +1018,7 @@ Public Class frmAdministration
If obj.SQLCommand.Value <> String.Empty Then If obj.SQLCommand.Value <> String.Empty Then
value = "SQL-Command" value = "SQL-Command"
Else Else
value = ClassFinalIndex.GetValue(obj, obj.IndexName, Windream_Indicies, Windream_Indicies_Types, obj.VectorIndex) value = FINALINDICES.GetValue(obj, obj.IndexName, MyIndicies, MyIndicies_Types, obj.VectorIndex)
End If End If
value = NotNull(value, String.Empty) value = NotNull(value, String.Empty)
@ -1030,7 +1028,7 @@ Public Class frmAdministration
Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''") Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
Dim indexName As String = NotNull(obj.IndexName, String.Empty) Dim indexName As String = NotNull(obj.IndexName, String.Empty)
Dim isVectorIndex As Boolean = obj.VectorIndex Dim isVectorIndex As Boolean = obj.VectorIndex
Dim addedWho As String = Environment.UserName Dim addedWho As String = USER_USERNAME
Dim description As String = obj.Description Dim description As String = obj.Description
Dim active As Integer = IIf(obj.Active, 1, 0) Dim active As Integer = IIf(obj.Active, 1, 0)
Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0) Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0)
@ -1050,7 +1048,7 @@ Public Class frmAdministration
' Add the vector prefix to the value if index is a vector index ' Add the vector prefix to the value if index is a vector index
' and value is NOT an SQL-Command ' and value is NOT an SQL-Command
If obj.VectorIndex And value <> "SQL-Command" Then If obj.VectorIndex And value <> "SQL-Command" Then
value = $"{ClassFinalIndex.PREFIX_VECTOR}{value}" value = $"{FINALINDICES.PREFIX_VECTOR}{value}"
End If End If
If INSERT_ACTIVE = True Then If INSERT_ACTIVE = True Then
@ -1098,8 +1096,8 @@ Public Class frmAdministration
propertyGrid.Refresh() propertyGrid.Refresh()
ElseIf e.ChangedItem.Label = "IndexName" Then ElseIf e.ChangedItem.Label = "IndexName" Then
Dim type As Integer = ClassFinalIndex.GetIndexType(e.ChangedItem.Value, Windream_Indicies, Windream_Indicies_Types) Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types)
obj.VectorIndex = ClassFinalIndex.IsVectorIndex(type) obj.VectorIndex = FINALINDICES.IsVectorIndex(type)
propertyGrid.Refresh() propertyGrid.Refresh()
End If End If

2
app/DD_PM_WINDREAM/frmAnnotations.vb
View File

@ -7,7 +7,7 @@ Public Class frmAnnotations
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
ClassAnnotation.Annotate_PDF(txttitle.Text, txtcontent.Text, txtSeitenzahl.Text) ClassAnnotation.Annotate_PDF(txttitle.Text, txtcontent.Text, txtSeitenzahl.Text, True)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Me.Close() Me.Close()
Catch ex As Exception Catch ex As Exception

8
app/DD_PM_WINDREAM/frmConnection.vb
View File

@ -145,7 +145,7 @@ Public Class frmConnection
Try Try
Me.TBDD_CONNECTIONBindingSource.EndEdit() Me.TBDD_CONNECTIONBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBDD_CONNECTION.GetChanges Is Nothing = False Then If DD_DMSLiteDataSet.TBDD_CONNECTION.GetChanges Is Nothing = False Then
Me.GEANDERTWERTextBox.Text = Environment.UserName Me.GEANDERTWERTextBox.Text = USER_USERNAME
Me.TBDD_CONNECTIONBindingSource.EndEdit() Me.TBDD_CONNECTIONBindingSource.EndEdit()
Me.TBDD_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBDD_CONNECTION) Me.TBDD_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBDD_CONNECTION)
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information) MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
@ -198,7 +198,7 @@ Public Class frmConnection
End Sub End Sub
Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew
DD_DMSLiteDataSet.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName DD_DMSLiteDataSet.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = USER_USERNAME
End Sub End Sub
Private Sub TBDD_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.PositionChanged Private Sub TBDD_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.PositionChanged
@ -230,9 +230,9 @@ Public Class frmConnection
' Case "ORACLE" ' Case "ORACLE"
' Case "MS-SQL" ' Case "MS-SQL"
' If Me.txtUserId.Text = "WINAUTH" Then ' If Me.txtUserId.Text = "WINAUTH" Then
' TBDD_CONNECTIONTableAdapter.CmdInsert(txtBezeichnung.Text, cmbDbArt.Text, SERVERTextBox.Text, txtDatasource2.Text, "WINAUTH", "", "", True, Environment.UserName) ' TBDD_CONNECTIONTableAdapter.CmdInsert(txtBezeichnung.Text, cmbDbArt.Text, SERVERTextBox.Text, txtDatasource2.Text, "WINAUTH", "", "", True, USER_USERNAME)
' Else ' Else
' TBDD_CONNECTIONTableAdapter.CmdInsert(txtBezeichnung.Text, cmbDbArt.Text, SERVERTextBox.Text, txtDatasource2.Text, txtUserId.Text, txtPassword.Text, "", True, Environment.UserName) ' TBDD_CONNECTIONTableAdapter.CmdInsert(txtBezeichnung.Text, cmbDbArt.Text, SERVERTextBox.Text, txtDatasource2.Text, txtUserId.Text, txtPassword.Text, "", True, USER_USERNAME)
' End If ' End If
' End Select ' End Select

2
app/DD_PM_WINDREAM/frmControl_Detail.vb
View File

@ -22,7 +22,7 @@ Public Class frmControl_Detail
Try Try
TBPM_CONTROL_TABLEBindingSource.EndEdit() TBPM_CONTROL_TABLEBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox.Text = Environment.UserName Me.CHANGED_WHOTextBox.Text = USER_USERNAME
TBPM_CONTROL_TABLEBindingSource.EndEdit() TBPM_CONTROL_TABLEBindingSource.EndEdit()
TBPM_CONTROL_TABLETableAdapter.cmdUpdate(SPALTENNAMETextBox.Text, SPALTEN_HEADERTextBox.Text, SPALTENBREITETextBox.Text, True, READ_ONLYCheckBox.Checked, LOAD_IDX_VALUECheckBox.Checked, CHANGED_WHOTextBox.Text, REGEX_MATCHTextBox.Text, REGEX_MESSAGE_DETextBox.Text, REGEX_MESSAGE_DETextBox.Text, GUIDTextBox.Text) TBPM_CONTROL_TABLETableAdapter.cmdUpdate(SPALTENNAMETextBox.Text, SPALTEN_HEADERTextBox.Text, SPALTENBREITETextBox.Text, True, READ_ONLYCheckBox.Checked, LOAD_IDX_VALUECheckBox.Checked, CHANGED_WHOTextBox.Text, REGEX_MATCHTextBox.Text, REGEX_MESSAGE_DETextBox.Text, REGEX_MESSAGE_DETextBox.Text, GUIDTextBox.Text)
tslblAenderungen.Visible = True tslblAenderungen.Visible = True

148
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -22,16 +22,16 @@ Public Class frmFormDesigner
' Windream List Data ' Windream List Data
Private Windream_ChoiceLists As List(Of String) Private Windream_ChoiceLists As List(Of String)
Private Windream_AllIndicies As List(Of String) Private Source_AllIndicies As List(Of String)
Private Windream_VectorIndicies As List(Of String) Private Source_VectorIndicies As List(Of String)
Private Windream_SimpleIndicies As List(Of String) Private Source_SimpleIndicies As List(Of String)
Private Windream_LookupIndicies As List(Of String) Private Source_LookupIndicies As List(Of String)
Private CurrentColumnId As Integer = 0 Private CurrentColumnId As Integer = 0
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
Try 'Try
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
CURRENT_DESIGN_TYPE = "INPUT_INDEX" CURRENT_DESIGN_TYPE = "INPUT_INDEX"
@ -39,19 +39,28 @@ Public Class frmFormDesigner
' Profil Name in Fenstertitel setzen ' Profil Name in Fenstertitel setzen
Text = $"Validation Designer - Profil: {ProfileName}" Text = $"Validation Designer - Profil: {ProfileName}"
Try ' Try
' Windream initialisieren ' Windream initialisieren
If IDB_ACTIVE = False Then
clsWindream.Create_Session() clsWindream.Create_Session()
End If
'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden 'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
Dim unsortedIndicies
Dim sortedIndicies
If IDB_ACTIVE = False Then
unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
Else
sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList()
End If
Dim unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
Dim sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
Windream_AllIndicies = sortedIndicies Source_AllIndicies = sortedIndicies
Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex) Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex)
Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList() Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList()
Windream_LookupIndicies = Windream_AllIndicies. Source_LookupIndicies = Source_AllIndicies.
Where(AddressOf IsNotVectorBooleanIndex). Where(AddressOf IsNotVectorBooleanIndex).
Where(AddressOf IsNotVectorDateIndex). Where(AddressOf IsNotVectorDateIndex).
Where(AddressOf IsNotVectorDatetimeIndex). Where(AddressOf IsNotVectorDatetimeIndex).
@ -59,14 +68,16 @@ Public Class frmFormDesigner
Where(AddressOf IsNotDateIndex). Where(AddressOf IsNotDateIndex).
ToList() ToList()
If IDB_ACTIVE = False Then
Windream_ChoiceLists = New List(Of String) Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty) Windream_ChoiceLists.Add(String.Empty)
Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists()) Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
Catch ex As Exception End If
LOGGER.Error(ex)
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") 'Catch ex As Exception
End Try ' LOGGER.Error(ex)
' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
'End Try
Try Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
@ -80,10 +91,10 @@ Public Class frmFormDesigner
End Try End Try
LoadControls() LoadControls()
Catch ex As Exception 'Catch ex As Exception
LOGGER.Error(ex) ' LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:")
End Try 'End Try
End Sub End Sub
Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@ -121,39 +132,64 @@ Public Class frmFormDesigner
''' Filtert aus der Liste von Indexen die Vektor Indexe heraus ''' Filtert aus der Liste von Indexen die Vektor Indexe heraus
''' </summary> ''' </summary>
Private Function IsVectorIndex(IndexName As String) As Boolean Private Function IsVectorIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName) Dim oType As Integer
If IDB_ACTIVE = False Then
oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return ClassFinalIndex.IsVectorIndex(oType) Return FINALINDICES.IsVectorIndex(oType)
End Function End Function
Private Function IsNotBooleanIndex(IndexName As String) As Boolean Private Function IsNotBooleanIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName) Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
Return oType <> ClassFinalIndex.INDEX_TYPE_BOOLEAN oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_BOOLEAN
End Function End Function
Private Function IsNotDateIndex(IndexName As String) As Boolean Private Function IsNotDateIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName) Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
Return oType <> ClassFinalIndex.INDEX_TYPE_DATE oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_DATE
End Function End Function
Private Function IsNotVectorBooleanIndex(IndexName As String) As Boolean Private Function IsNotVectorBooleanIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName) Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_VECTOR_BOOLEAN
End Function End Function
Private Function IsNotVectorDateIndex(IndexName As String) As Boolean Private Function IsNotVectorDateIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName) Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_DATE oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_VECTOR_DATE
End Function End Function
Private Function IsNotVectorDatetimeIndex(IndexName As String) As Boolean Private Function IsNotVectorDatetimeIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName) Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_DATETIME oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_VECTOR_DATETIME
End Function End Function
Sub LoadControls() Sub LoadControls()
@ -295,7 +331,7 @@ Public Class frmFormDesigner
Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) Dim label = ClassControlCreator.CreateNewLabel(cursorPosition)
SetMovementHandlers(label) SetMovementHandlers(label)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, Environment.UserName, label.Size.Height, label.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width)
CurrentControl = label CurrentControl = label
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -310,7 +346,7 @@ Public Class frmFormDesigner
Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition)
SetMovementHandlers(txt) SetMovementHandlers(txt)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, Environment.UserName, txt.Size.Height, txt.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width)
CurrentControl = txt CurrentControl = txt
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -324,7 +360,7 @@ Public Class frmFormDesigner
Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition)
SetMovementHandlers(cmb) SetMovementHandlers(cmb)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, Environment.UserName, cmb.Size.Height, cmb.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width)
CurrentControl = cmb CurrentControl = cmb
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -338,7 +374,7 @@ Public Class frmFormDesigner
Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition)
SetMovementHandlers(dtp) SetMovementHandlers(dtp)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, Environment.UserName, dtp.Size.Height, dtp.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width)
CurrentControl = dtp CurrentControl = dtp
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -352,7 +388,7 @@ Public Class frmFormDesigner
Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition)
SetMovementHandlers(chk) SetMovementHandlers(chk)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, Environment.UserName, chk.Size.Height, chk.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width)
CurrentControl = chk CurrentControl = chk
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -367,7 +403,7 @@ Public Class frmFormDesigner
SetMovementHandlers(lc) SetMovementHandlers(lc)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, Environment.UserName, lc.Size.Height, lc.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width)
CurrentControl = lc CurrentControl = lc
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -383,7 +419,7 @@ Public Class frmFormDesigner
SetMovementHandlers(tb) SetMovementHandlers(tb)
AddHandler tb.MouseClick, AddressOf gridControl_MouseClick AddHandler tb.MouseClick, AddressOf gridControl_MouseClick
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, Environment.UserName, tb.Size.Height, tb.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width)
Dim oControlId = GetLastID() Dim oControlId = GetLastID()
@ -393,8 +429,8 @@ Public Class frmFormDesigner
.ReadOnly = False .ReadOnly = False
} }
TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, Environment.UserName) TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME)
TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, Environment.UserName) TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME)
pnldesigner.Controls.Add(tb) pnldesigner.Controls.Add(tb)
Case ClassControlCreator.PREFIX_LINE Case ClassControlCreator.PREFIX_LINE
@ -402,7 +438,7 @@ Public Class frmFormDesigner
SetMovementHandlers(line) SetMovementHandlers(line)
TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, Environment.UserName, line.Size.Height, line.Size.Width) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width)
CurrentControl = line CurrentControl = line
CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
@ -791,13 +827,13 @@ Public Class frmFormDesigner
props = labelProps props = labelProps
ElseIf TypeOf sender Is CheckBox Then ElseIf TypeOf sender Is CheckBox Then
Dim check As CheckBox = sender Dim check As CheckBox = sender
Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, Windream_AllIndicies) Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, Source_AllIndicies)
checkProps.Text = check.Text checkProps.Text = check.Text
props = checkProps props = checkProps
ElseIf TypeOf sender Is TextBox Then ElseIf TypeOf sender Is TextBox Then
Dim txt As TextBox = sender Dim txt As TextBox = sender
Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, Windream_AllIndicies) Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, Source_AllIndicies)
txtProps.Regex = NotNull(row.Item("REGEX_MATCH"), String.Empty) txtProps.Regex = NotNull(row.Item("REGEX_MATCH"), String.Empty)
txtProps.RegexMessage = NotNull(row.Item("REGEX_MESSAGE_DE"), String.Empty) txtProps.RegexMessage = NotNull(row.Item("REGEX_MESSAGE_DE"), String.Empty)
@ -805,7 +841,7 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is ComboBox Then ElseIf TypeOf sender Is ComboBox Then
Dim cmb As ComboBox = sender Dim cmb As ComboBox = sender
Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, Windream_AllIndicies) Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, Source_AllIndicies)
cmbProps.ChoiceLists = Windream_ChoiceLists cmbProps.ChoiceLists = Windream_ChoiceLists
cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), String.Empty) cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), String.Empty)
@ -814,19 +850,19 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is DateTimePicker Then ElseIf TypeOf sender Is DateTimePicker Then
Dim dtp As DateTimePicker = sender Dim dtp As DateTimePicker = sender
Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, row, Windream_AllIndicies) Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, row, Source_AllIndicies)
props = dtpProps props = dtpProps
ElseIf TypeOf sender Is DataGridView Then ElseIf TypeOf sender Is DataGridView Then
Dim grid As DataGridView = sender Dim grid As DataGridView = sender
Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, row, Windream_VectorIndicies) Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, row, Source_VectorIndicies)
props = gridProps props = gridProps
ElseIf TypeOf sender Is LookupControl2 Then ElseIf TypeOf sender Is LookupControl2 Then
Dim grid As LookupControl2 = sender Dim grid As LookupControl2 = sender
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, row, Windream_LookupIndicies) Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, row, Source_LookupIndicies)
lookupProps.MultiSelect = StrToBool(row.Item("MULTISELECT")) lookupProps.MultiSelect = StrToBool(row.Item("MULTISELECT"))
lookupProps.PreventDuplicates = StrToBool(row.Item("VKT_PREVENT_MULTIPLE_VALUES")) lookupProps.PreventDuplicates = StrToBool(row.Item("VKT_PREVENT_MULTIPLE_VALUES"))
lookupProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM")) lookupProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM"))
@ -835,7 +871,7 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is GridControl Then ElseIf TypeOf sender Is GridControl Then
Dim oGridControl As GridControl = sender Dim oGridControl As GridControl = sender
Dim oGridProps As GridControlProperties = CreatePropsObjectWithIndicies(New GridControlProperties, row, Windream_VectorIndicies) Dim oGridProps As GridControlProperties = CreatePropsObjectWithIndicies(New GridControlProperties, row, Source_VectorIndicies)
oGridProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM")) oGridProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM"))
props = oGridProps props = oGridProps
@ -969,7 +1005,7 @@ Public Class frmFormDesigner
End If End If
Try Try
If ClassDatabase.Execute_non_Query($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue}, CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {guid}", True) = True Then If ClassDatabase.Execute_non_Query($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue}, CHANGED_WHO = '{USER_USERNAME}' WHERE GUID = {guid}", True) = True Then
tslblAenderungen.Visible = True tslblAenderungen.Visible = True
tslblAenderungen.Text = "Änderungen gespeichert - " & Now tslblAenderungen.Text = "Änderungen gespeichert - " & Now
Return True Return True

2
app/DD_PM_WINDREAM/frmLicense.vb
View File

@ -26,7 +26,7 @@ Public Class frmLicense
Dim oDateddMMyyyy = dt.ToString("dd.MM.yyyy", CultureInfo.InvariantCulture) Dim oDateddMMyyyy = dt.ToString("dd.MM.yyyy", CultureInfo.InvariantCulture)
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlizences.Text & "#" & oDateddMMyyyy & "#" & txtProfile.Text, "#DigitalData35452!#") Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlizences.Text & "#" & oDateddMMyyyy & "#" & txtProfile.Text, "#DigitalData35452!#")
txtlicensekey.Text = result txtlicensekey.Text = result
Me.TBPM_KONFIGURATIONTableAdapter.CmdUpdateLizenz(Environment.UserName, CStr(result)) Me.TBPM_KONFIGURATIONTableAdapter.CmdUpdateLizenz(USER_USERNAME, CStr(result))
Refresh_Licence(True) Refresh_Licence(True)
'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:") 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")
End If End If

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

@ -365,7 +365,7 @@ Partial Class frmMain
'tsslblDEBUG_LOG 'tsslblDEBUG_LOG
' '
resources.ApplyResources(Me.tsslblDEBUG_LOG, "tsslblDEBUG_LOG") resources.ApplyResources(Me.tsslblDEBUG_LOG, "tsslblDEBUG_LOG")
Me.tsslblDEBUG_LOG.ForeColor = System.Drawing.Color.DarkRed Me.tsslblDEBUG_LOG.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.tsslblDEBUG_LOG.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.A_1 Me.tsslblDEBUG_LOG.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.A_1
Me.tsslblDEBUG_LOG.Name = "tsslblDEBUG_LOG" Me.tsslblDEBUG_LOG.Name = "tsslblDEBUG_LOG"
' '

2
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -488,7 +488,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAVQBBAFUAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAVwBBAFcAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

71
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -111,7 +111,7 @@ Public Class frmMain
Me.Close() Me.Close()
End If End If
Else Else
LOGGER.Info(">> Username: " & Environment.UserName, False) LOGGER.Info(">> Username: " & USER_USERNAME, False)
'Wenn license abgelaufen und der User nicht admin ist! 'Wenn license abgelaufen und der User nicht admin ist!
If LICENSE_EXPIRED = True Then If LICENSE_EXPIRED = True Then
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
@ -138,7 +138,7 @@ Public Class frmMain
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:")
End Try End Try
tsstlblUser.Text = Environment.UserName tsstlblUser.Text = USER_USERNAME
Try Try
@ -173,7 +173,7 @@ Public Class frmMain
End Try End Try
Check_Timer_Notification() Check_Timer_Notification()
Restore_Form_Position() Restore_Form_Position()
If IDB_ACTIVE = False Then
Try Try
WINDREAM = New ClassPMWindream WINDREAM = New ClassPMWindream
WINDREAM.Start_WMCC_andCo() WINDREAM.Start_WMCC_andCo()
@ -188,6 +188,8 @@ Public Class frmMain
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try End Try
End If
LOGGER.Debug("MainForm initialized!") LOGGER.Debug("MainForm initialized!")
End If End If
@ -370,7 +372,7 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Load_Profile_items - Error: " & ex.Message) LOGGER.Info("Load_Profile_items - Error: " & ex.Message)
MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) 'MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
@ -620,7 +622,7 @@ Public Class frmMain
sql = clsPatterns.ReplaceUserValues(sql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) sql = clsPatterns.ReplaceUserValues(sql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
sql = sql.Replace("@USER_ID", USER_ID) sql = sql.Replace("@USER_ID", USER_ID)
sql = sql.Replace("@USERNAME", Environment.UserName) sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
sql = sql.Replace("@DATE", Now.ToShortDateString) sql = sql.Replace("@DATE", Now.ToShortDateString)
sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
@ -771,14 +773,14 @@ Public Class frmMain
' ' this needs to stay for backwards compatibility ' ' this needs to stay for backwards compatibility
' sql = sql.Replace("@USER_ID", USER_ID) ' sql = sql.Replace("@USER_ID", USER_ID)
' sql = sql.Replace("@USERNAME", Environment.UserName) '{#INT#USERNAME} ' sql = sql.Replace("@USERNAME", USER_USERNAME) '{#INT#USERNAME}
' sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) '{#INT#machineName} ' sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) '{#INT#machineName}
' sql = sql.Replace("@DATE", Now.ToShortDateString) ' sql = sql.Replace("@DATE", Now.ToShortDateString)
' sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) ' sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
' 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " & ' 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
' ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName) ' ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
' CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True) ' CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
' If Not IsNothing(CURR_DT_PROFILEGRID) Then ' If Not IsNothing(CURR_DT_PROFILEGRID) Then
@ -893,12 +895,10 @@ Public Class frmMain
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
Load_single_Profile() Load_single_Profile()
End If End If
If WORKING_MODE <> "" Then If SHOW_MASS_VALIDATOR = False Then
If WORKING_MODE.Contains("PM#NO_MASS_VALIDATOR") Then
GridView_Docs.OptionsSelection.MultiSelect = False GridView_Docs.OptionsSelection.MultiSelect = False
tsmiMarkedFilesFinish.Visible = False tsmiMarkedFilesFinish.Visible = False
ToolStripSeparator4.Visible = False ToolStripSeparator4.Visible = False
End If
Else Else
tsmiMarkedFilesFinish.Visible = True tsmiMarkedFilesFinish.Visible = True
ToolStripSeparator4.Visible = True ToolStripSeparator4.Visible = True
@ -967,8 +967,8 @@ Public Class frmMain
Sub Load_Profil_from_Grid(ID As Integer) Sub Load_Profil_from_Grid(ID As Integer)
Try 'Try
Me.Visible = False 'Me.Visible = False
CURRENT_ProfilGUID = ID CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING) CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
@ -981,11 +981,11 @@ Public Class frmMain
End If End If
frmValidator.ShowDialog() frmValidator.ShowDialog()
Catch ex As Exception 'Catch ex As Exception
LOGGER.Error(ex) ' LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
End Try 'End Try
Me.Visible = True ' Me.Visible = True
Decide_Load() Decide_Load()
End Sub End Sub
@ -1020,7 +1020,7 @@ Public Class frmMain
Item_Scope("CMROW") Item_Scope("CMROW")
End Sub End Sub
Private Sub Item_Scope(startedFrom As String) Private Sub Item_Scope(startedFrom As String)
Try 'Try
'GridView_Docs.EndSelection() 'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0 CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
@ -1102,11 +1102,23 @@ Public Class frmMain
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical) MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)
End If End If
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
'End Try
End Sub
Private Function Init_IDB()
Try
IDBData = New ClassIDBData()
Return True
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
LOGGER.Info(">> Unexpected error in Init_IDB: " & ex.Message, True)
Return False
End Try End Try
End Sub End Function
Private Function Init_windream() Private Function Init_windream()
Try Try
'_windream = New ClassWindream_allgemein '_windream = New ClassWindream_allgemein
@ -1150,7 +1162,16 @@ Public Class frmMain
MsgBox("Could not select a profile!", MsgBoxStyle.Exclamation, "Mass Validation") MsgBox("Could not select a profile!", MsgBoxStyle.Exclamation, "Mass Validation")
Exit Sub Exit Sub
End If End If
If Init_windream() Then
If IDB_ACTIVE = False Then
SOURCE_INIT = Init_windream()
Else
SOURCE_INIT = Init_IDB()
End If
If SOURCE_INIT = True Then
CURRENT_ProfilGUID = oProfileId CURRENT_ProfilGUID = oProfileId
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
@ -1230,7 +1251,7 @@ Public Class frmMain
tslblmessage.Text = "" tslblmessage.Text = ""
If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then
LOGGER.Info(" >> no profiles for user: '" & Environment.UserName & "' configured!", False) LOGGER.Info(" >> no profiles for user: '" & USER_USERNAME & "' configured!", False)
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
tslblmessage.Text = "Keine Profile für Ihren User hinterlegt" tslblmessage.Text = "Keine Profile für Ihren User hinterlegt"
@ -1251,14 +1272,14 @@ Public Class frmMain
oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oSQLOverview = clsPatterns.ReplaceUserValues(oSQLOverview, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
oSQLOverview = oSQLOverview.Replace("@USER_ID", USER_ID) oSQLOverview = oSQLOverview.Replace("@USER_ID", USER_ID)
oSQLOverview = oSQLOverview.Replace("@USERNAME", Environment.UserName) oSQLOverview = oSQLOverview.Replace("@USERNAME", USER_USERNAME)
oSQLOverview = oSQLOverview.Replace("@MACHINE_NAME", Environment.MachineName) oSQLOverview = oSQLOverview.Replace("@MACHINE_NAME", Environment.MachineName)
oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString) oSQLOverview = oSQLOverview.Replace("@DATE", Now.ToShortDateString)
oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) oSQLOverview = oSQLOverview.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " & 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName) ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(oSQLOverview, True) CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(oSQLOverview, True)
Dim DTGRID_GROUPS As DataTable Dim DTGRID_GROUPS As DataTable
Try Try
@ -1606,7 +1627,7 @@ Public Class frmMain
End If End If
End Sub End Sub
Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED) Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE) ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)

18
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -879,7 +879,7 @@ Public Class frmMassValidator
End Sub End Sub
Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String) Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String)
Try Try
Dim resultDT As DataTable = ClassDatabase.Return_Datatable_CS(sqlCommand, sqlConnection) Dim resultDT As DataTable = ClassDatabase.Return_Datatable_ConStr(sqlCommand, sqlConnection)
If Not IsNothing(resultDT) Then If Not IsNothing(resultDT) Then
'Ist das Control ein Control was mehrfachwerte enthalten kann 'Ist das Control ein Control was mehrfachwerte enthalten kann
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_DATAGRIDVIEW) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_DATAGRIDVIEW) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
@ -975,7 +975,7 @@ Public Class frmMassValidator
Dim sql_Statement = ROW.Item(2) Dim sql_Statement = ROW.Item(2)
Dim cellvalue = dgv.Rows(dgv.Rows.Count - 2).Cells(0).Value.ToString() Dim cellvalue = dgv.Rows(dgv.Rows.Count - 2).Cells(0).Value.ToString()
sql_Statement = sql_Statement.ToString.Replace(dgv.Name, cellvalue) sql_Statement = sql_Statement.ToString.Replace(dgv.Name, cellvalue)
Dim resultDT As DataTable = ClassDatabase.Return_Datatable_CS(sql_Statement, ROW.Item(1)) Dim resultDT As DataTable = ClassDatabase.Return_Datatable_ConStr(sql_Statement, ROW.Item(1))
If resultDT.Rows.Count >= 1 Then If resultDT.Rows.Count >= 1 Then
'Nur dediziert einen Wert zurückerhalten 'Nur dediziert einen Wert zurückerhalten
For Each row1 As DataRow In resultDT.Rows For Each row1 As DataRow In resultDT.Rows
@ -1135,7 +1135,7 @@ Public Class frmMassValidator
If CreateWMObject() = True Then If CreateWMObject() = True Then
If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID) Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
workedFiles += 1 workedFiles += 1
End If End If
@ -1223,12 +1223,12 @@ Public Class frmMassValidator
WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString) WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString)
End If End If
If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then
WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", Environment.UserName) WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME)
End If End If
Else Else
WORK_HISTORY_ENTRY = "" WORK_HISTORY_ENTRY = ""
End If End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, Environment.UserName, Environment.MachineName, WORK_HISTORY_ENTRY) Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins) ClassDatabase.Execute_non_Query(ins)
'####### ANNOTIEREN WENN KONFIGURIERT ####### '####### ANNOTIEREN WENN KONFIGURIERT #######
@ -1240,7 +1240,7 @@ Public Class frmMassValidator
If Not IsNothing(DT_ENTRY) Then If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT") Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0) ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0, False)
End If End If
End If End If
End If End If
@ -1863,7 +1863,7 @@ Public Class frmMassValidator
Dim PM_String As String Dim PM_String As String
Try Try
Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "") Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "")
PM_String = "DD-PM" & Delimiter & Bezeichner & Delimiter & input & Delimiter & Environment.UserName & Delimiter & Now.ToString PM_String = "DD-PM" & Delimiter & Bezeichner & Delimiter & input & Delimiter & USER_USERNAME & Delimiter & Now.ToString
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True) LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
@ -1876,9 +1876,9 @@ Public Class frmMassValidator
Dim PM_String As String Dim PM_String As String
Try Try
If old = "DDFINALINDEX" Then If old = "DDFINALINDEX" Then
PM_String = "DD-PMlog-FINAL" & Delimiter & indexname & Delimiter & input & Delimiter & Environment.UserName & Delimiter & Now.ToString PM_String = "DD-PMlog-FINAL" & Delimiter & indexname & Delimiter & input & Delimiter & USER_USERNAME & Delimiter & Now.ToString
Else Else
PM_String = "DD-PMlog-CHG" & Delimiter & indexname & Delimiter & "NEW: '" & input & "'" & Delimiter & Environment.UserName & Delimiter & Now.ToString PM_String = "DD-PMlog-CHG" & Delimiter & indexname & Delimiter & "NEW: '" & input & "'" & Delimiter & USER_USERNAME & Delimiter & Now.ToString
End If End If
Catch ex As Exception Catch ex As Exception

28
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -61,6 +61,7 @@ Public Class frmSQL_DESIGNER
btnAddControl.Visible = True btnAddControl.Visible = True
cmbIndexe.Items.Clear() cmbIndexe.Items.Clear()
If IDB_ACTIVE = False Then
Dim oIndicies = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE) Dim oIndicies = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
If oIndicies IsNot Nothing Then If oIndicies IsNot Nothing Then
For Each index As String In oIndicies For Each index As String In oIndicies
@ -68,6 +69,23 @@ Public Class frmSQL_DESIGNER
Next Next
cmbIndexe.SelectedIndex = -1 cmbIndexe.SelectedIndex = -1
End If End If
'cmbIndexe.Enabled = True
'lbIndexe.Enabled = True
'btnAddIndex.Enabled = True
Else
Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
If oAttributes IsNot Nothing Then
For Each oAttribute As String In oAttributes
cmbIndexe.Items.Add(oAttribute)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = False
'lbIndexe.Enabled = False
'btnAddIndex.Enabled = False
End If
Else Else
cmbControls.Visible = False cmbControls.Visible = False
lblControls.Visible = False lblControls.Visible = False
@ -246,8 +264,14 @@ Public Class frmSQL_DESIGNER
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndex.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndex.Click
If cmbIndexe.SelectedIndex <> -1 Then If cmbIndexe.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_WMI, cmbIndexe.Text) Dim oValue As String
InsertAtSelection(value) If IDB_ACTIVE = False Then
oValue = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_WMI, cmbIndexe.Text)
Else
oValue = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_IDBA, cmbIndexe.Text)
End If
InsertAtSelection(oValue)
End If End If
End Sub End Sub

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

@ -44,8 +44,6 @@ Partial Class frmValidator
Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.VWPM_CONTROL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPM_CONTROL_INDEXTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter()
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -140,7 +138,6 @@ Partial Class frmValidator
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPM_CONTROL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -280,15 +277,6 @@ Partial Class frmValidator
' '
Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True
' '
'VWPM_CONTROL_INDEXBindingSource
'
Me.VWPM_CONTROL_INDEXBindingSource.DataMember = "VWPM_CONTROL_INDEX"
Me.VWPM_CONTROL_INDEXBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'VWPM_CONTROL_INDEXTableAdapter
'
Me.VWPM_CONTROL_INDEXTableAdapter.ClearBeforeFill = True
'
'TBPM_PROFILE_CONTROLSBindingSource 'TBPM_PROFILE_CONTROLSBindingSource
' '
Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
@ -851,7 +839,6 @@ Partial Class frmValidator
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPM_CONTROL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -895,8 +882,6 @@ Partial Class frmValidator
Friend WithEvents pnldesigner As System.Windows.Forms.Panel Friend WithEvents pnldesigner As System.Windows.Forms.Panel
Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet
Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents VWPM_CONTROL_INDEXBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPM_CONTROL_INDEXTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter
Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter

396
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -130,6 +130,31 @@
<value>608, 17</value> <value>608, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tstrplblError.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="tstrplblError.Size" type="System.Drawing.Size, System.Drawing">
<value>22, 17</value>
</data>
<data name="tstrplblError.Text" xml:space="preserve">
<value>sss</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="tstrplblError.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tstrlbl_Info.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="tstrlbl_Info.Text" xml:space="preserve">
<value>Anzahl Dateien:</value>
</data>
<data name="tsslblDocID.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 17</value>
</data>
<data name="tsslblDocID.Text" xml:space="preserve">
<value>Document-ID:</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 621</value> <value>0, 621</value>
</data> </data>
@ -140,7 +165,6 @@
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 22</value> <value>962, 22</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib"> <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
</data> </data>
@ -159,105 +183,6 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="tstrplblError.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="tstrplblError.Size" type="System.Drawing.Size, System.Drawing">
<value>22, 17</value>
</data>
<data name="tstrplblError.Text" xml:space="preserve">
<value>sss</value>
</data>
<data name="tstrplblError.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tstrlbl_Info.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="tstrlbl_Info.Text" xml:space="preserve">
<value>Anzahl Dateien:</value>
</data>
<data name="tsslblDocID.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 17</value>
</data>
<data name="tsslblDocID.Text" xml:space="preserve">
<value>Document-ID:</value>
</data>
<data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
<value>TITLELabel1</value>
</data>
<data name="&gt;&gt;TITLELabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TITLELabel1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;btnSave.Name" xml:space="preserve">
<value>btnSave</value>
</data>
<data name="&gt;&gt;btnSave.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;btnSave.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
<value>DESCRIPTIONLabel</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;pnldesigner.Name" xml:space="preserve">
<value>pnldesigner</value>
</data>
<data name="&gt;&gt;pnldesigner.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pnldesigner.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>477, 593</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
@ -387,6 +312,33 @@
<data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve"> <data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>477, 593</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>725, 17</value> <value>725, 17</value>
</metadata> </metadata>
@ -394,46 +346,40 @@
<value>887, 17</value> <value>887, 17</value>
</metadata> </metadata>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1075, 56</value> <value>261, 95</value>
</metadata> </metadata>
<metadata name="TBPM_CONTROL_TABLETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_CONTROL_TABLETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>278, 134</value> <value>1004, 134</value>
</metadata> </metadata>
<metadata name="TBPM_KONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_KONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1183, 95</value> <value>486, 134</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>558, 56</value> <value>826, 56</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_FILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILE_FILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>262, 95</value> <value>744, 95</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>714, 95</value> <value>17, 134</value>
</metadata>
<metadata name="VWPM_CONTROL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1060, 17</value>
</metadata>
<metadata name="VWPM_CONTROL_INDEXTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_CONTROLSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILE_CONTROLSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>279, 56</value> <value>547, 56</value>
</metadata> </metadata>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>831, 56</value>
</metadata>
<metadata name="TBPM_PROFILE_FILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value> <value>17, 95</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_FILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 95</value>
</metadata>
<metadata name="TBPM_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>502, 95</value> <value>984, 95</value>
</metadata> </metadata>
<metadata name="TBPM_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>920, 95</value> <value>223, 134</value>
</metadata> </metadata>
<metadata name="TBPM_CONTROL_TABLEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_CONTROL_TABLEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value> <value>743, 134</value>
</metadata> </metadata>
<data name="pnlpdf.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="pnlpdf.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value> <value>Top, Right</value>
@ -445,7 +391,7 @@
<value>0, 141</value> <value>0, 141</value>
</data> </data>
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>955, 134</value> <value>282, 173</value>
</metadata> </metadata>
<data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value> <value>Top</value>
@ -544,11 +490,74 @@
<value>962, 643</value> <value>962, 643</value>
</data> </data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value> <value>672, 173</value>
</metadata> </metadata>
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing"> <data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
<data name="DateiÖffnenToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem1.Text" xml:space="preserve">
<value>Datei öffnen</value>
</data>
<data name="InfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Eigenschaften</value>
</data>
<data name="ToolStripDropDownButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 22</value>
</data>
<data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="ToolStripButtonSearchesReload.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonSearchesReload.Size" type="System.Drawing.Size, System.Drawing">
<value>212, 22</value>
</data>
<data name="ToolStripButtonSearchesReload.Text" xml:space="preserve">
<value>Zusätzliche Suchen aktualisieren</value>
</data>
<data name="ToolStripButtonJumpFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonJumpFile.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ToolStripButtonJumpFile.Text" xml:space="preserve">
<value>Datei überspringen (F4)</value>
</data>
<data name="ToolStripButtonDeleteFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonDeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 22</value>
</data>
<data name="ToolStripButtonDeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="ToolStripButtonAnnotation.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonAnnotation.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="ToolStripButtonAnnotation.Text" xml:space="preserve">
<value>Annotationen</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -619,8 +628,14 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1228, 134</value> <value>555, 173</value>
</metadata> </metadata>
<data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 17</value>
</data>
<data name="tslblWebbrowser.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 75</value> <value>3, 75</value>
</data> </data>
@ -669,6 +684,21 @@
<data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve"> <data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="txtBetreff.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="txtBetreff.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Italic</value>
</data>
<data name="txtBetreff.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="txtBetreff.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="txtBetreff.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;txtBetreff.Name" xml:space="preserve"> <data name="&gt;&gt;txtBetreff.Name" xml:space="preserve">
<value>txtBetreff</value> <value>txtBetreff</value>
</data> </data>
@ -1003,18 +1033,6 @@
<data name="&gt;&gt;TBPM_PROFILETableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;TBPM_PROFILETableAdapter.Type" xml:space="preserve">
<value>DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;VWPM_CONTROL_INDEXBindingSource.Name" xml:space="preserve">
<value>VWPM_CONTROL_INDEXBindingSource</value>
</data>
<data name="&gt;&gt;VWPM_CONTROL_INDEXBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;VWPM_CONTROL_INDEXTableAdapter.Name" xml:space="preserve">
<value>VWPM_CONTROL_INDEXTableAdapter</value>
</data>
<data name="&gt;&gt;VWPM_CONTROL_INDEXTableAdapter.Type" xml:space="preserve">
<value>DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TBPM_PROFILE_CONTROLSBindingSource.Name" xml:space="preserve"> <data name="&gt;&gt;TBPM_PROFILE_CONTROLSBindingSource.Name" xml:space="preserve">
<value>TBPM_PROFILE_CONTROLSBindingSource</value> <value>TBPM_PROFILE_CONTROLSBindingSource</value>
</data> </data>
@ -1481,7 +1499,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>690, 134</value> <value>17, 173</value>
</metadata> </metadata>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing"> <data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value> <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
@ -1571,117 +1589,21 @@
<value>1</value> <value>1</value>
</data> </data>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>807, 134</value> <value>134, 173</value>
</metadata> </metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1080, 134</value> <value>407, 173</value>
</metadata> </metadata>
<data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>119, 17</value>
</data>
<data name="tslblWebbrowser.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="txtBetreff.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="txtBetreff.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Italic</value>
</data>
<data name="txtBetreff.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="txtBetreff.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="txtBetreff.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;txtBetreff.Name" xml:space="preserve">
<value>txtBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtBetreff.Parent" xml:space="preserve">
<value>grpBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ToolStripDropDownButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 22</value>
</data>
<data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>Datei</value>
</data>
<data name="DateiÖffnenToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem1.Text" xml:space="preserve">
<value>Datei öffnen</value>
</data>
<data name="InfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 22</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Eigenschaften</value>
</data>
<data name="ToolStripButtonSearchesReload.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonSearchesReload.Size" type="System.Drawing.Size, System.Drawing">
<value>178, 22</value>
</data>
<data name="ToolStripButtonSearchesReload.Text" xml:space="preserve">
<value>Zusätzliche Suchen reload</value>
</data>
<data name="ToolStripButtonJumpFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonJumpFile.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ToolStripButtonJumpFile.Text" xml:space="preserve">
<value>Datei überspringen (F4)</value>
</data>
<data name="ToolStripButtonDeleteFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonDeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 22</value>
</data>
<data name="ToolStripButtonDeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="ToolStripButtonAnnotation.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonAnnotation.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="ToolStripButtonAnnotation.Text" xml:space="preserve">
<value>Annotationen</value>
</data>
<metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 173</value> <value>779, 173</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_FINAL_INDEXINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILE_FINAL_INDEXINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>273, 173</value> <value>928, 173</value>
</metadata> </metadata>
<metadata name="TBPM_PROFILE_FINAL_INDEXINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPM_PROFILE_FINAL_INDEXINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>583, 173</value> <value>17, 212</value>
</metadata> </metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>888, 173</value> <value>322, 212</value>
</metadata> </metadata>
</root> </root>

1417
app/DD_PM_WINDREAM/frmValidator.vb
View File

File diff suppressed because it is too large Load Diff

4
app/DD_PM_WINDREAM/frmValidatorSearch.vb
View File

@ -135,7 +135,7 @@ Public Class frmValidatorSearch
myGridControl = GridControlSearch5 myGridControl = GridControlSearch5
End Select End Select
myGridControl.ContextMenuStrip = ContextMenuStripSQL myGridControl.ContextMenuStrip = ContextMenuStripSQL
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID) Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_ConId(SQLCommand, ConID)
If Not IsNothing(oDatatable) Then If Not IsNothing(oDatatable) Then
XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})" XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
Select Case TabIndex Select Case TabIndex
@ -194,7 +194,7 @@ Public Class frmValidatorSearch
myGridview = GridViewDocSearch5 myGridview = GridViewDocSearch5
End Select End Select
myGridControl.ContextMenuStrip = ContextMenuStripWMFile myGridControl.ContextMenuStrip = ContextMenuStripWMFile
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID) Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_ConId(SQLCommand, ConID)
If Not IsNothing(oDatatable) Then If Not IsNothing(oDatatable) Then
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})" XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
clsWMDocGrid.DTDocuments = oDatatable clsWMDocGrid.DTDocuments = oDatatable