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(">> Fehlermeldung")
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
End Try
End Function
@ -276,7 +276,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(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(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)
@ -310,7 +310,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(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(" - SQL: " & vsql_statement)
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.Drawing
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
Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
Dim firstPage As PdfPage = doc.Pages(page)
@ -23,6 +23,9 @@ Public Class ClassAnnotation
doc.Save(CURRENT_DOC_PATH)
Return True
Catch ex As Exception
If fromGui = True Then
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Annotate pdf:")
End If
LOGGER.Error(ex)
LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False)
Return False

98
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

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

87
app/DD_PM_WINDREAM/ClassFinalIndex.vb
View File

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

8
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -54,7 +54,7 @@
Case "vDate"
value = Now.ToShortDateString
Case "vUserName"
value = Environment.UserName
value = USER_USERNAME
Case Else
value = dr.Item("VALUE")
End Select
@ -197,7 +197,7 @@
Dim PM_String As String
Try
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
LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
@ -210,9 +210,9 @@
Dim PM_String As String
Try
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
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
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
USER_USERNAME = Environment.UserName
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
frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@ -149,7 +149,7 @@ Public Class ClassInit
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)
@ -184,8 +184,14 @@ Public Class ClassInit
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
FINALINDICES = New ClassFinalIndex()
FINALINDICES.init()
If IDB_ACTIVE = True Then
IDBData = New ClassIDBData()
End If
Try
USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1")
Catch ex As Exception

2
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -434,7 +434,7 @@ Public Class ClassPMWindream
LOGGER.Error(ex)
LOGGER.Info("ClassSearchResult.RunIndexing - " & ex.Message, True)
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.unlock()
Return False

40
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@ -13,19 +13,37 @@
WORKING_MODE = ""
End Try
If WORKING_MODE.Contains("PM#FORCE_LAYOUT_OVERVIEW") Then
FORCE_LAYOUT_OVERVIEW = True
End If
If WORKING_MODE.Contains("PM#NO_CHARTS") Then
SHOW_CHARTS = False
End If
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
If WORKING_MODE.Contains("PM#DEBUG_LOG") Then
USER_DEBUG_LOG = True
LOGCONFIG.Debug = True
End If
' 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
ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
SHOW_MASS_VALIDATOR = False
ElseIf oMode = "PM.NO_CHARTS" Then
SHOW_CHARTS = False
ElseIf oMode = "PM.DEBUG_LOG" Then
USER_DEBUG_LOG = 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
Else
LOGGER.Info($"Wrong oMode: {oMode}")
End If
Next
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>
</Sources>
</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">
<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">
@ -2330,117 +2215,6 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
</xs:sequence>
</xs:complexType>
</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:complexType>
<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:field xpath="mstns:GUID" />
</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:selector xpath=".//mstns:TBDD_CONNECTION" />
<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
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="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>
<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: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_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: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="10" X="410" Y="114" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<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="14" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<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: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" 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_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: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: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>
<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>
<Point>
<X>549</X>
@ -37,7 +36,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="19" LineWidth="11">
<RoutePoints>
<Point>
<X>175</X>
@ -53,7 +52,7 @@
</Point>
</RoutePoints>
</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>
<Point>
<X>603</X>
@ -65,7 +64,7 @@
</Point>
</RoutePoints>
</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>
<Point>
<X>1248</X>
@ -77,7 +76,7 @@
</Point>
</RoutePoints>
</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>
<Point>
<X>141</X>

9
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -141,6 +141,9 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraTreeList.v18.1.dll</HintPath>
</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">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
@ -157,9 +160,12 @@
<Reference Include="FormsUtils">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll</HintPath>
</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">
<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 Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
@ -212,6 +218,7 @@
<Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassFinalIndex.vb" />
<Compile Include="ClassFinalizeDoc.vb" />
<Compile Include="ClassIDBData.vb" />
<Compile Include="ClassIndexListConverter.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassParamRefresh.vb" />

28
app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
View File

@ -86,32 +86,32 @@ Module ModuleFinalIndexProperties
End Sub
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)
End Sub
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)
End Sub
Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_FLOAT})
MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_FLOAT})
MaybeSetReadOnlyIfSQLHasNoValue(attrs)
End Sub
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)
End Sub
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)
End Sub
Public Sub VectorIndexOnlyProvider(attrs As PropertyAttributes)
MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_VECTOR_STRING})
MaybeSetBrowsable(attrs, {FINALINDICES.INDEX_TYPE_VECTOR_STRING})
End Sub
Public Sub MaybeSetReadOnlyIfSQLHasNoValue(attrs As PropertyAttributes)
@ -135,14 +135,14 @@ Module ModuleFinalIndexProperties
' get type of windream index
Dim oType As Integer = IndiciesType.Item(oIndex)
Dim oVectoryTypes = {
ClassFinalIndex.INDEX_TYPE_VECTOR_DATE,
ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN,
ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER_64,
ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER,
ClassFinalIndex.INDEX_TYPE_VECTOR_STRING,
ClassFinalIndex.INDEX_TYPE_VECTOR_CURRENCY,
ClassFinalIndex.INDEX_TYPE_VECTOR_FLOAT,
ClassFinalIndex.INDEX_TYPE_VECTOR_DATETIME
FINALINDICES.INDEX_TYPE_VECTOR_DATE,
FINALINDICES.INDEX_TYPE_VECTOR_BOOLEAN,
FINALINDICES.INDEX_TYPE_VECTOR_INTEGER_64,
FINALINDICES.INDEX_TYPE_VECTOR_INTEGER,
FINALINDICES.INDEX_TYPE_VECTOR_STRING,
FINALINDICES.INDEX_TYPE_VECTOR_CURRENCY,
FINALINDICES.INDEX_TYPE_VECTOR_FLOAT,
FINALINDICES.INDEX_TYPE_VECTOR_DATETIME
}
' 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
' Connection String
Public SOURCE_INIT As Boolean = False
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
' 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 SHOW_CHARTS As Boolean = False
Public SHOW_MASS_VALIDATOR As Boolean = True
Public WORKING_MODE As String = ""
Public LICENSE_COUNT As Integer = 0
@ -86,6 +87,8 @@ Module ModuleRuntimeVariables
Public errormessage As String
Public WINDREAM As ClassPMWindream
Public FINALINDICES As ClassFinalIndex
Public IDBData As ClassIDBData
Public LOGCONFIG As LogConfig
Public LOGGER As Logger
Public CONFIG As ConfigManager(Of ClassConfig)

29
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@ -16,6 +16,7 @@ Imports WINDREAMLib
Public Class clsPatterns
' Complex patterns that rely on a datasource like a Database or Windream
Public Const PATTERN_WMI = "WMI"
Public Const PATTERN_IDBA = "IDBA"
Public Const PATTERN_CTRL = "CTRL"
' Simple patterns that only rely on .NET functions
Public Const PATTERN_INT = "INT"
@ -56,6 +57,7 @@ Public Class clsPatterns
result = ReplaceInternalValues(result)
result = ReplaceControlValues(result, panel)
If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document)
result = ReplaceIDBAttributes(result)
result = ReplaceUserValues(result, prename, surname, shortname, email, userId, profileId)
Return result
@ -71,7 +73,7 @@ Public Class clsPatterns
' Replace Username(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
result = ReplacePattern(result, PATTERN_INT, Environment.UserName)
result = ReplacePattern(result, PATTERN_INT, USER_USERNAME)
End While
' Replace Machinename(s)
@ -184,6 +186,31 @@ Public Class clsPatterns
LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
End Try
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
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.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl()
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.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.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.TabControl2 = New System.Windows.Forms.TabControl()
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.SQL_VIEWTextBox = 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.SplitContainerProfilzuordnung = New System.Windows.Forms.SplitContainer()
Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl()
@ -247,8 +249,6 @@ Partial Class frmAdministration
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.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)
GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
@ -309,8 +309,6 @@ Partial Class frmAdministration
Me.TabPage1.SuspendLayout()
Me.tabctrl_Profilkonfig.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage6.SuspendLayout()
Me.TabControl2.SuspendLayout()
Me.TabPage11.SuspendLayout()
@ -322,6 +320,8 @@ Partial Class frmAdministration
CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator1.SuspendLayout()
Me.TabPage12.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.SplitContainerProfilzuordnung, System.ComponentModel.ISupportInitialize).BeginInit()
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))
resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox")
Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox"
Me.DESCRIPTIONTextBox.Tag = ""
'
'WD_SEARCHTextBox
'
@ -1114,10 +1115,10 @@ Partial Class frmAdministration
'TabPage5
'
resources.ApplyResources(Me.TabPage5, "TabPage5")
Me.TabPage5.Controls.Add(Me.Label4)
Me.TabPage5.Controls.Add(Me.Label1)
Me.TabPage5.Controls.Add(Me.Label9)
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_PROFILECheckBox)
Me.TabPage5.Controls.Add(DISPLAY_MODELabel)
@ -1145,6 +1146,16 @@ Partial Class frmAdministration
Me.TabPage5.Name = "TabPage5"
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
'
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.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
'
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")
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
'
resources.ApplyResources(Me.TabPage6, "TabPage6")
@ -1238,9 +1207,9 @@ Partial Class frmAdministration
'
'Panel5
'
resources.ApplyResources(Me.Panel5, "Panel5")
Me.Panel5.Controls.Add(Me.gridFinalIndex)
Me.Panel5.Controls.Add(Me.PropertyGrid1)
resources.ApplyResources(Me.Panel5, "Panel5")
Me.Panel5.Name = "Panel5"
'
'gridFinalIndex
@ -1503,6 +1472,48 @@ Partial Class frmAdministration
resources.ApplyResources(Me.WORK_HISTORY_ENTRYTextBox, "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
'
Me.TabPage2.Controls.Add(Me.SplitContainerProfilzuordnung)
@ -1865,16 +1876,6 @@ Partial Class frmAdministration
'
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
'
resources.ApplyResources(Me, "$this")
@ -1922,8 +1923,6 @@ Partial Class frmAdministration
Me.tabctrl_Profilkonfig.ResumeLayout(False)
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False)
Me.TabControl2.ResumeLayout(False)
Me.TabPage11.ResumeLayout(False)
@ -1938,6 +1937,8 @@ Partial Class frmAdministration
Me.BindingNavigator1.PerformLayout()
Me.TabPage12.ResumeLayout(False)
Me.TabPage12.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.SplitContainerProfilzuordnung.Panel1.ResumeLayout(False)
Me.SplitContainerProfilzuordnung.Panel2.ResumeLayout(False)
@ -2168,6 +2169,6 @@ Partial Class frmAdministration
Friend WithEvents btnSQLProfilehome As Button
Friend WithEvents DISPLAY_MODEComboBox As ComboBox
Friend WithEvents Label9 As Label
Friend WithEvents Label4 As Label
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents Label4 As Label
End Class

1237
app/DD_PM_WINDREAM/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

254
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -7,15 +7,13 @@ Imports DevExpress.XtraGrid.Views.Grid
Public Class frmAdministration
'Private _windreamPM As ClassPMWindream
Private email As New ClassEmail
Public profile_guid As Integer = 0
Dim formloaded As Boolean
Private INSERT_ACTIVE As Boolean = False
Dim Windream_Indicies As List(Of String)
Dim Windream_Indicies_Types As List(Of Integer)
Dim MyIndicies As List(Of String)
Dim MyIndicies_Types As List(Of Integer)
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False
Try
@ -41,6 +39,7 @@ Public Class frmAdministration
dragDropManager.AddGridView(viewAvailableGroups)
dragDropManager.AddGridView(viewAssignedGroups)
'If clsModules.IsModuleInstalled("User Manager") Then
' btnUserManager.Enabled = True
'Else
@ -58,76 +57,92 @@ Public Class frmAdministration
LOGGER.Error(ex)
MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
Try
' Windream instanziieren
'_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
If IDB_ACTIVE = True Then
IDBData.Init()
End If
ObjekttypenEintragen()
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
Sub Indexe_eintragen()
If cmbObjekttypen.Text <> "" Then
Try
Me.PM_VEKTOR_INDEXComboBox.Items.Clear()
Me.cmbLOGIndex.Items.Clear()
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
Me.PM_VEKTOR_INDEXComboBox.Items.Add("")
Me.cmbLOGIndex.Items.Add("")
If indexe IsNot Nothing Then
For Each index As String In indexe
Dim _vektorString As Boolean = False
Select Case WINDREAM.GetTypeOfIndex(index)
Case 4097
_vektorString = True
Case 36865
_vektorString = True
Case Else
_vektorString = False
End Select
If _vektorString = True Then
Me.PM_VEKTOR_INDEXComboBox.Items.Add(index)
Me.cmbLOGIndex.Items.Add(index)
End If
Me.PM_VEKTOR_INDEXComboBox.Items.Clear()
Me.cmbLOGIndex.Items.Clear()
Me.PM_VEKTOR_INDEXComboBox.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
For Each index As String In indexe
Dim _vektorString As Boolean = False
Select Case WINDREAM.GetTypeOfIndex(index)
Case 4097
_vektorString = True
Case 36865
_vektorString = True
Case Else
_vektorString = False
End Select
If _vektorString = True Then
Me.PM_VEKTOR_INDEXComboBox.Items.Add(index)
Me.cmbLOGIndex.Items.Add(index)
End If
Next
End If
MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
For Each i In MyIndicies
Dim type = WINDREAM.GetTypeOfIndex(i)
MyIndicies_Types.Add(type)
Next
End If
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
End If
If Me.cmbLOGIndex.Text <> "" Then
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
Else
cmbLOGIndex.SelectedIndex = -1
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Indexe_eintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
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
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
Else
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
End If
If Me.cmbLOGIndex.Text <> "" Then
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
Else
cmbLOGIndex.SelectedIndex = -1
End Try
End If
End If
@ -156,16 +171,25 @@ Public Class frmAdministration
End Sub
Private Sub ObjekttypenEintragen()
Me.cmbObjekttypen.Items.Clear()
Try
Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects()
If oDokumentTypen Is Nothing Then Exit Sub
For Each aType In oDokumentTypen
Me.cmbObjekttypen.Items.Add(aType.aName)
If IDB_ACTIVE = False Then
Try
Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects()
If oDokumentTypen Is Nothing Then Exit Sub
For Each aType In oDokumentTypen
Me.cmbObjekttypen.Items.Add(aType.aName)
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
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
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
End Try
End If
End Sub
@ -212,7 +236,7 @@ Public Class frmAdministration
End Sub
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.TYPEColumn.DefaultValue = 1
End Sub
@ -281,7 +305,7 @@ Public Class frmAdministration
End Sub
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
Private Function GetCurrentProfileId() As Integer
@ -315,7 +339,7 @@ Public Class frmAdministration
Dim userId As Integer = data.Split("|")(0)
Dim profileId = GetCurrentProfileId()
TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, Environment.UserName)
TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
FillProfile_User(profileId)
Catch ex As Exception
LOGGER.Error(ex)
@ -344,8 +368,8 @@ Public Class frmAdministration
Dim profileId = GetCurrentProfileId()
TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, Environment.UserName)
' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, Environment.UserName)
TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, USER_USERNAME)
' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, USER_USERNAME)
FillProfile_User(profileId)
Catch ex As Exception
LOGGER.Error(ex)
@ -386,7 +410,7 @@ Public Class frmAdministration
Sub Save_Konfiguration()
TBPM_KONFIGURATIONBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_KONFIGURATION.GetChanges Is Nothing = False Then
GEAENDERTWERTextBox.Text = Environment.UserName
GEAENDERTWERTextBox.Text = USER_USERNAME
TBPM_KONFIGURATIONBindingSource.EndEdit()
TBPM_KONFIGURATIONTableAdapter.Update(DD_DMSLiteDataSet.TBPM_KONFIGURATION)
tstrpinfo.Text = "Konfiguration wurde erfolgreich gespeichert"
@ -543,7 +567,7 @@ Public Class frmAdministration
' End If
' 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.Visible = True
@ -566,7 +590,7 @@ Public Class frmAdministration
' End If
' 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.Visible = True
' Catch ex As Exception
@ -599,7 +623,7 @@ Public Class frmAdministration
copySuffix = copySuffix & "_COPY"
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
If NewGUID > 0 Then
Dim _sql = "INSERT INTO TBPM_PROFILE_CONTROLS " &
@ -610,11 +634,11 @@ Public Class frmAdministration
"FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 " &
"WHERE (PROFIL_ID = @Copy_profilId) "
_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)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text)
'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text)
'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text)
Execute_SQL(_sql)
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten()
@ -775,14 +799,14 @@ Public Class frmAdministration
' MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation)
' Exit Sub
' 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
' Else
' Dim i, ID As Integer
' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
' 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
@ -801,7 +825,7 @@ Public Class frmAdministration
' Exit Sub
' 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
' Dim i, ID As Integer
@ -915,8 +939,8 @@ Public Class frmAdministration
End Sub
Private Sub GridView2_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles viewFinalIndex.FocusedRowChanged
Try
Dim view As GridView = sender
'Try
Dim view As GridView = sender
Dim focusedRow As DataRow = view.GetFocusedDataRow()
If IsNothing(focusedRow) Then
@ -951,37 +975,11 @@ Public Class frmAdministration
' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen
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
'Dim type As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types)
'Dim isCurrentIndexVectorIndex = ClassFinalIndex.IsVectorIndex(type)
'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.Indicies = MyIndicies
obj.IndiciesType = MyIndicies_Types
obj.IndexName = index
obj.VectorBehaviourType = New List(Of String) From {
"Add",
@ -989,17 +987,17 @@ Public Class frmAdministration
}
If Not index Is Nothing Then
Dim indexType As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types)
obj.VectorIndex = ClassFinalIndex.IsVectorIndex(indexType)
Dim indexType As Integer = FINALINDICES.GetIndexType(index, MyIndicies, MyIndicies_Types)
obj.VectorIndex = FINALINDICES.IsVectorIndex(indexType)
End If
PropertyGrid1.SelectedObject = obj
PropertyGrid1.Refresh()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox($"Error while loading Final Index properties: {ex.Message}")
LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
End Try
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
' LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
'End Try
End Sub
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
value = "SQL-Command"
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
value = NotNull(value, String.Empty)
@ -1030,7 +1028,7 @@ Public Class frmAdministration
Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
Dim indexName As String = NotNull(obj.IndexName, String.Empty)
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 active As Integer = IIf(obj.Active, 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
' and value is NOT an SQL-Command
If obj.VectorIndex And value <> "SQL-Command" Then
value = $"{ClassFinalIndex.PREFIX_VECTOR}{value}"
value = $"{FINALINDICES.PREFIX_VECTOR}{value}"
End If
If INSERT_ACTIVE = True Then
@ -1098,8 +1096,8 @@ Public Class frmAdministration
propertyGrid.Refresh()
ElseIf e.ChangedItem.Label = "IndexName" Then
Dim type As Integer = ClassFinalIndex.GetIndexType(e.ChangedItem.Value, Windream_Indicies, Windream_Indicies_Types)
obj.VectorIndex = ClassFinalIndex.IsVectorIndex(type)
Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types)
obj.VectorIndex = FINALINDICES.IsVectorIndex(type)
propertyGrid.Refresh()
End If

2
app/DD_PM_WINDREAM/frmAnnotations.vb
View File

@ -7,7 +7,7 @@ Public Class frmAnnotations
Try
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.Close()
Catch ex As Exception

8
app/DD_PM_WINDREAM/frmConnection.vb
View File

@ -145,7 +145,7 @@ Public Class frmConnection
Try
Me.TBDD_CONNECTIONBindingSource.EndEdit()
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_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBDD_CONNECTION)
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
@ -198,7 +198,7 @@ Public Class frmConnection
End Sub
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
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 "MS-SQL"
' 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
' 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 Select

2
app/DD_PM_WINDREAM/frmControl_Detail.vb
View File

@ -22,7 +22,7 @@ Public Class frmControl_Detail
Try
TBPM_CONTROL_TABLEBindingSource.EndEdit()
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_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

180
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -22,36 +22,45 @@ Public Class frmFormDesigner
' Windream List Data
Private Windream_ChoiceLists As List(Of String)
Private Windream_AllIndicies As List(Of String)
Private Windream_VectorIndicies As List(Of String)
Private Windream_SimpleIndicies As List(Of String)
Private Windream_LookupIndicies As List(Of String)
Private Source_AllIndicies As List(Of String)
Private Source_VectorIndicies As List(Of String)
Private Source_SimpleIndicies As List(Of String)
Private Source_LookupIndicies As List(Of String)
Private CurrentColumnId As Integer = 0
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
CURRENT_DESIGN_TYPE = "INPUT_INDEX"
'Try
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
CURRENT_DESIGN_TYPE = "INPUT_INDEX"
' Profil Name in Fenstertitel setzen
Text = $"Validation Designer - Profil: {ProfileName}"
Try
' Windream initialisieren
clsWindream.Create_Session()
' Try
' Windream initialisieren
If IDB_ACTIVE = False Then
clsWindream.Create_Session()
End If
'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
Dim unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
Dim sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
'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
Windream_AllIndicies = sortedIndicies
Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex)
Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList()
Windream_LookupIndicies = Windream_AllIndicies.
Source_AllIndicies = sortedIndicies
Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex)
Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList()
Source_LookupIndicies = Source_AllIndicies.
Where(AddressOf IsNotVectorBooleanIndex).
Where(AddressOf IsNotVectorDateIndex).
Where(AddressOf IsNotVectorDatetimeIndex).
@ -59,31 +68,33 @@ Public Class frmFormDesigner
Where(AddressOf IsNotDateIndex).
ToList()
If IDB_ACTIVE = False Then
Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty)
Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
End If
Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty)
Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
'End Try
Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
LoadControls()
Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:")
MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
LoadControls()
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:")
'End Try
End Sub
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
''' </summary>
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
Private Function IsNotBooleanIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_BOOLEAN
Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_BOOLEAN
End Function
Private Function IsNotDateIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_DATE
Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_DATE
End Function
Private Function IsNotVectorBooleanIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN
Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_VECTOR_BOOLEAN
End Function
Private Function IsNotVectorDateIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_DATE
Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_VECTOR_DATE
End Function
Private Function IsNotVectorDatetimeIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_DATETIME
Dim oType As Integer '= clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
If IDB_ACTIVE = False Then
oType = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Else
oType = IDBData.GetTypeOfIndex(IndexName)
End If
Return oType <> FINALINDICES.INDEX_TYPE_VECTOR_DATETIME
End Function
Sub LoadControls()
@ -295,7 +331,7 @@ Public Class frmFormDesigner
Dim label = ClassControlCreator.CreateNewLabel(cursorPosition)
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -310,7 +346,7 @@ Public Class frmFormDesigner
Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition)
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -324,7 +360,7 @@ Public Class frmFormDesigner
Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition)
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -338,7 +374,7 @@ Public Class frmFormDesigner
Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition)
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -352,7 +388,7 @@ Public Class frmFormDesigner
Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition)
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -367,7 +403,7 @@ Public Class frmFormDesigner
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -383,7 +419,7 @@ Public Class frmFormDesigner
SetMovementHandlers(tb)
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()
@ -393,8 +429,8 @@ Public Class frmFormDesigner
.ReadOnly = False
}
TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, Environment.UserName)
TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, Environment.UserName)
TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME)
TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME)
pnldesigner.Controls.Add(tb)
Case ClassControlCreator.PREFIX_LINE
@ -402,7 +438,7 @@ Public Class frmFormDesigner
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.Tag = New ClassControlCreator.ControlMetadata() With {
@ -791,13 +827,13 @@ Public Class frmFormDesigner
props = labelProps
ElseIf TypeOf sender Is CheckBox Then
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
props = checkProps
ElseIf TypeOf sender Is TextBox Then
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.RegexMessage = NotNull(row.Item("REGEX_MESSAGE_DE"), String.Empty)
@ -805,7 +841,7 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is ComboBox Then
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.ChoiceList = NotNull(row.Item("CHOICE_LIST"), String.Empty)
@ -814,19 +850,19 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is DateTimePicker Then
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
ElseIf TypeOf sender Is DataGridView Then
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
ElseIf TypeOf sender Is LookupControl2 Then
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.PreventDuplicates = StrToBool(row.Item("VKT_PREVENT_MULTIPLE_VALUES"))
lookupProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM"))
@ -835,7 +871,7 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is GridControl Then
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"))
props = oGridProps
@ -969,7 +1005,7 @@ Public Class frmFormDesigner
End If
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.Text = "Änderungen gespeichert - " & Now
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 result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlizences.Text & "#" & oDateddMMyyyy & "#" & txtProfile.Text, "#DigitalData35452!#")
txtlicensekey.Text = result
Me.TBPM_KONFIGURATIONTableAdapter.CmdUpdateLizenz(Environment.UserName, CStr(result))
Me.TBPM_KONFIGURATIONTableAdapter.CmdUpdateLizenz(USER_USERNAME, CStr(result))
Refresh_Licence(True)
'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")
End If

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

@ -365,7 +365,7 @@ Partial Class frmMain
'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.Name = "tsslblDEBUG_LOG"
'

2
app/DD_PM_WINDREAM/frmMain.resx
View File

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

107
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -111,7 +111,7 @@ Public Class frmMain
Me.Close()
End If
Else
LOGGER.Info(">> Username: " & Environment.UserName, False)
LOGGER.Info(">> Username: " & USER_USERNAME, False)
'Wenn license abgelaufen und der User nicht admin ist!
If LICENSE_EXPIRED = True Then
If USER_IS_ADMIN = False Then
@ -138,7 +138,7 @@ Public Class frmMain
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:")
End Try
tsstlblUser.Text = Environment.UserName
tsstlblUser.Text = USER_USERNAME
Try
@ -173,21 +173,23 @@ Public Class frmMain
End Try
Check_Timer_Notification()
Restore_Form_Position()
If IDB_ACTIVE = False Then
Try
WINDREAM = New ClassPMWindream
WINDREAM.Start_WMCC_andCo()
Try
WINDREAM = New ClassPMWindream
WINDREAM.Start_WMCC_andCo()
'_windreamPM = New ClassPMWindream
'_windreamPM.Start_WMCC_andCo()
If WINDREAM.oSession.aLoggedin = False Then
MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical)
Me.Close()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
End If
'_windreamPM = New ClassPMWindream
'_windreamPM.Start_WMCC_andCo()
If WINDREAM.oSession.aLoggedin = False Then
MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical)
Me.Close()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
LOGGER.Debug("MainForm initialized!")
End If
@ -370,7 +372,7 @@ Public Class frmMain
Catch ex As Exception
LOGGER.Error(ex)
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 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 = 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("@DATE", Now.ToShortDateString)
sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
@ -771,14 +773,14 @@ Public Class frmMain
' ' this needs to stay for backwards compatibility
' 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("@DATE", Now.ToShortDateString)
' 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 " &
' ' "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)
' If Not IsNothing(CURR_DT_PROFILEGRID) Then
@ -893,12 +895,10 @@ Public Class frmMain
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
Load_single_Profile()
End If
If WORKING_MODE <> "" Then
If WORKING_MODE.Contains("PM#NO_MASS_VALIDATOR") Then
GridView_Docs.OptionsSelection.MultiSelect = False
tsmiMarkedFilesFinish.Visible = False
ToolStripSeparator4.Visible = False
End If
If SHOW_MASS_VALIDATOR = False Then
GridView_Docs.OptionsSelection.MultiSelect = False
tsmiMarkedFilesFinish.Visible = False
ToolStripSeparator4.Visible = False
Else
tsmiMarkedFilesFinish.Visible = True
ToolStripSeparator4.Visible = True
@ -967,9 +967,9 @@ Public Class frmMain
Sub Load_Profil_from_Grid(ID As Integer)
Try
Me.Visible = False
CURRENT_ProfilGUID = ID
'Try
'Me.Visible = False
CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
@ -981,11 +981,11 @@ Public Class frmMain
End If
frmValidator.ShowDialog()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
End Try
Me.Visible = True
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
'End Try
' Me.Visible = True
Decide_Load()
End Sub
@ -1020,9 +1020,9 @@ Public Class frmMain
Item_Scope("CMROW")
End Sub
Private Sub Item_Scope(startedFrom As String)
Try
'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0
'Try
'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim groupRowText
@ -1102,11 +1102,23 @@ Public Class frmMain
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)
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
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 Sub
End Function
Private Function Init_windream()
Try
'_windream = New ClassWindream_allgemein
@ -1150,7 +1162,16 @@ Public Class frmMain
MsgBox("Could not select a profile!", MsgBoxStyle.Exclamation, "Mass Validation")
Exit Sub
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_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 = ""
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
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 = 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("@DATE", Now.ToShortDateString)
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 " &
' "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)
Dim DTGRID_GROUPS As DataTable
Try
@ -1606,7 +1627,7 @@ Public Class frmMain
End If
End Sub
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)
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)

18
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -879,7 +879,7 @@ Public Class frmMassValidator
End Sub
Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String)
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
'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
@ -975,7 +975,7 @@ Public Class frmMassValidator
Dim sql_Statement = ROW.Item(2)
Dim cellvalue = dgv.Rows(dgv.Rows.Count - 2).Cells(0).Value.ToString()
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
'Nur dediziert einen Wert zurückerhalten
For Each row1 As DataRow In resultDT.Rows
@ -1135,7 +1135,7 @@ Public Class frmMassValidator
If CreateWMObject() = 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
workedFiles += 1
End If
@ -1223,12 +1223,12 @@ Public Class frmMassValidator
WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString)
End If
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
Else
WORK_HISTORY_ENTRY = ""
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)
'####### ANNOTIEREN WENN KONFIGURIERT #######
@ -1240,7 +1240,7 @@ Public Class frmMassValidator
If Not IsNothing(DT_ENTRY) 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")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0)
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0, False)
End If
End If
End If
@ -1863,7 +1863,7 @@ Public Class frmMassValidator
Dim PM_String As String
Try
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
LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
@ -1876,9 +1876,9 @@ Public Class frmMassValidator
Dim PM_String As String
Try
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
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
Catch ex As Exception

40
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -61,13 +61,31 @@ Public Class frmSQL_DESIGNER
btnAddControl.Visible = True
cmbIndexe.Items.Clear()
Dim oIndicies = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
If oIndicies IsNot Nothing Then
For Each index As String In oIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1
If IDB_ACTIVE = False Then
Dim oIndicies = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
If oIndicies IsNot Nothing Then
For Each index As String In oIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1
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
cmbControls.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
If cmbIndexe.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_WMI, cmbIndexe.Text)
InsertAtSelection(value)
Dim oValue As String
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 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_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
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.TBDD_CONNECTIONBindingSource = 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.Panel1.SuspendLayout()
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.TBDD_CONNECTIONBindingSource, 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
'
'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
'
Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS"
@ -851,7 +839,6 @@ Partial Class frmValidator
Me.StatusStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
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.TBDD_CONNECTIONBindingSource, 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 DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet
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_CONTROLSBindingSource As System.Windows.Forms.BindingSource
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>
</metadata>
<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">
<value>0, 621</value>
</data>
@ -140,7 +165,6 @@
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 22</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
@ -159,105 +183,6 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>2</value>
</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">
<value>Top, Left, Right</value>
</data>
@ -387,6 +312,33 @@
<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>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>725, 17</value>
</metadata>
@ -394,46 +346,40 @@
<value>887, 17</value>
</metadata>
<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 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 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 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 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 name="TBPM_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>714, 95</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>
<value>17, 134</value>
</metadata>
<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 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>
</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">
<value>502, 95</value>
<value>984, 95</value>
</metadata>
<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 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>
<data name="pnlpdf.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
@ -445,7 +391,7 @@
<value>0, 141</value>
</data>
<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>
<data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
@ -544,11 +490,74 @@
<value>962, 643</value>
</data>
<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>
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</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="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">
<value>0, 0</value>
</data>
@ -619,8 +628,14 @@
<value>0</value>
</data>
<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>
<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">
<value>3, 75</value>
</data>
@ -669,6 +684,21 @@
<data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve">
<value>0</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>
@ -1003,18 +1033,6 @@
<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>
</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">
<value>TBPM_PROFILE_CONTROLSBindingSource</value>
</data>
@ -1481,7 +1499,7 @@
<value>0</value>
</data>
<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>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
@ -1571,117 +1589,21 @@
<value>1</value>
</data>
<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 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>
<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">
<value>124, 173</value>
<value>779, 173</value>
</metadata>
<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 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 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>
</root>

2473
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
End Select
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
XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
Select Case TabIndex
@ -194,7 +194,7 @@ Public Class frmValidatorSearch
myGridview = GridViewDocSearch5
End Select
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
XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
clsWMDocGrid.DTDocuments = oDatatable