From 9e206422579239ef7e0d630bb16fe051cb4adf7c Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 14 Nov 2019 09:59:31 +0100 Subject: [PATCH] IDB Conform Step1 --- .../ClassAllgemeineFunktionen.vb | 6 +- app/DD_PM_WINDREAM/ClassAnnotation.vb | 5 +- app/DD_PM_WINDREAM/ClassDatabase.vb | 94 +- app/DD_PM_WINDREAM/ClassFinalIndex.vb | 87 +- app/DD_PM_WINDREAM/ClassFinalizeDoc.vb | 8 +- app/DD_PM_WINDREAM/ClassIDBData.vb | 139 + app/DD_PM_WINDREAM/ClassInit.vb | 10 +- app/DD_PM_WINDREAM/ClassPMWindream.vb | 2 +- app/DD_PM_WINDREAM/ClassParamRefresh.vb | 42 +- .../DD_DMSLiteDataSet.Designer.vb | 8355 +++++++---------- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 231 - app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 29 +- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 9 +- .../ModuleFinalIndexProperties.vb | 28 +- app/DD_PM_WINDREAM/ModuleMySettings.vb | 4 + app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 3 + app/DD_PM_WINDREAM/clsPatterns.vb | 29 +- .../frmAdministration.Designer.vb | 131 +- app/DD_PM_WINDREAM/frmAdministration.resx | 1423 +-- app/DD_PM_WINDREAM/frmAdministration.vb | 256 +- app/DD_PM_WINDREAM/frmAnnotations.vb | 2 +- app/DD_PM_WINDREAM/frmConnection.vb | 8 +- app/DD_PM_WINDREAM/frmControl_Detail.vb | 2 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 182 +- app/DD_PM_WINDREAM/frmLicense.vb | 2 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 2 +- app/DD_PM_WINDREAM/frmMain.resx | 2 +- app/DD_PM_WINDREAM/frmMain.vb | 107 +- app/DD_PM_WINDREAM/frmMassValidator.vb | 18 +- app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb | 40 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 15 - app/DD_PM_WINDREAM/frmValidator.resx | 382 +- app/DD_PM_WINDREAM/frmValidator.vb | 2573 ++--- app/DD_PM_WINDREAM/frmValidatorSearch.vb | 4 +- 34 files changed, 6248 insertions(+), 7982 deletions(-) create mode 100644 app/DD_PM_WINDREAM/ClassIDBData.vb diff --git a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb index 93dd066..46436ca 100644 --- a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb +++ b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb @@ -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) diff --git a/app/DD_PM_WINDREAM/ClassAnnotation.vb b/app/DD_PM_WINDREAM/ClassAnnotation.vb index 5fa3a36..cadcc23 100644 --- a/app/DD_PM_WINDREAM/ClassAnnotation.vb +++ b/app/DD_PM_WINDREAM/ClassAnnotation.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassDatabase.vb b/app/DD_PM_WINDREAM/ClassDatabase.vb index 99c0c37..dbc49e0 100644 --- a/app/DD_PM_WINDREAM/ClassDatabase.vb +++ b/app/DD_PM_WINDREAM/ClassDatabase.vb @@ -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,18 +160,44 @@ 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 Scalar: " & cmdscalar) + LOGGER.Debug("Execute_non_Query: " & cmdscalar) result = SQLcommand.ExecuteScalar() SQLcommand.Dispose() SQLconnect.Close() @@ -163,6 +213,32 @@ Public Class ClassDatabase 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 + SQLcommand.CommandText = cmdscalar + LOGGER.Debug(">>> Execute Scalar: " & 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_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) + End If + 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 + End Function Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) Dim result Try diff --git a/app/DD_PM_WINDREAM/ClassFinalIndex.vb b/app/DD_PM_WINDREAM/ClassFinalIndex.vb index 3fc0f9e..9015330 100644 --- a/app/DD_PM_WINDREAM/ClassFinalIndex.vb +++ b/app/DD_PM_WINDREAM/ClassFinalIndex.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb index 70882af..ac6227a 100644 --- a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb +++ b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb new file mode 100644 index 0000000..4a2b4dc --- /dev/null +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -0,0 +1,139 @@ +Public Class ClassIDBData + Public DTVWIDB_BE_ATTRIBUTE As DataTable + ''' + ''' Gets all indices by BusinessEntity. + ''' + ''' Title of Business Entity + ''' Array with all Indices + ''' + 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 diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 4112adb..7d96237 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb index 2dbbbc9..a01f319 100644 --- a/app/DD_PM_WINDREAM/ClassPMWindream.vb +++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index ac56356..43b8817 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -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 - - If WORKING_MODE.Contains("PM#DEBUG_LOG") Then - USER_DEBUG_LOG = True - LOGCONFIG.Debug = True - - End If + Dim oSplitWorkMode As String() = WORKING_MODE.Split("#") + + ' Use For Each loop over words and display them. + Dim oMode As String + For Each oMode In oSplitWorkMode + LOGGER.Debug($"oWorkingMode Parameter: {oMode}") + If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then + FORCE_LAYOUT_OVERVIEW = True + 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 diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 2d12dcc..cbbf992 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -35,8 +35,6 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_ERROR_LOG As TBPM_ERROR_LOGDataTable - Private tableVWPM_CONTROL_INDEX As VWPM_CONTROL_INDEXDataTable - Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable Private tableTBPROFILE_USER As TBPROFILE_USERDataTable @@ -113,9 +111,6 @@ Partial Public Class DD_DMSLiteDataSet If (Not (ds.Tables("TBPM_ERROR_LOG")) Is Nothing) Then MyBase.Tables.Add(New TBPM_ERROR_LOGDataTable(ds.Tables("TBPM_ERROR_LOG"))) End If - If (Not (ds.Tables("VWPM_CONTROL_INDEX")) Is Nothing) Then - MyBase.Tables.Add(New VWPM_CONTROL_INDEXDataTable(ds.Tables("VWPM_CONTROL_INDEX"))) - End If If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If @@ -216,16 +211,6 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property - _ - Public ReadOnly Property VWPM_CONTROL_INDEX() As VWPM_CONTROL_INDEXDataTable - Get - Return Me.tableVWPM_CONTROL_INDEX - End Get - End Property - _ - Private Function ShouldSerializeVWPM_CONTROL_INDEX() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean @@ -824,9 +792,6 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub TBPM_ERROR_LOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_ERROR_LOGRowChangeEvent) - _ - Public Delegate Sub VWPM_CONTROL_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CONTROL_INDEXRowChangeEvent) - _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) @@ -2878,68 +2843,40 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class VWPM_CONTROL_INDEXDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPM_CONTROL_INDEXRow) + Partial Public Class TBDD_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) Private columnGUID As Global.System.Data.DataColumn - Private columnPROFIL_ID As Global.System.Data.DataColumn - - Private columnPROFIL_NAME As Global.System.Data.DataColumn - - Private columnCTRL_NAME As Global.System.Data.DataColumn - - Private columnCTRL_TYPE As Global.System.Data.DataColumn - - Private columnCTRL_TEXT As Global.System.Data.DataColumn - - Private columnX_LOC As Global.System.Data.DataColumn - - Private columnY_LOC As Global.System.Data.DataColumn - - Private columnINDEX_NAME As Global.System.Data.DataColumn - - Private columnVALIDATION As Global.System.Data.DataColumn - - Private columnTYP As Global.System.Data.DataColumn - - Private columnCONNECTION_ID As Global.System.Data.DataColumn - - Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn - - Private columnCHOICE_LIST As Global.System.Data.DataColumn - - Private columnFONT_COLOR As Global.System.Data.DataColumn - - Private columnFONT_FAMILY As Global.System.Data.DataColumn + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - Private columnFONT_SIZE As Global.System.Data.DataColumn + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - Private columnFONT_STYLE As Global.System.Data.DataColumn + Private columnSERVER As Global.System.Data.DataColumn - Private columnWIDTH As Global.System.Data.DataColumn + Private columnDATENBANK As Global.System.Data.DataColumn - Private columnHEIGHT As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn - Private columnREAD_ONLY As Global.System.Data.DataColumn + Private columnPASSWORD As Global.System.Data.DataColumn - Private columnLOAD_IDX_VALUE As Global.System.Data.DataColumn + Private columnBEMERKUNG As Global.System.Data.DataColumn - Private columnLOG_INDEX As Global.System.Data.DataColumn + Private columnAKTIV As Global.System.Data.DataColumn - Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + Private columnERSTELLTWER As Global.System.Data.DataColumn - Private columnREGEX_MATCH As Global.System.Data.DataColumn + Private columnERSTELLTWANN As Global.System.Data.DataColumn - Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn + Private columnGEANDERTWER As Global.System.Data.DataColumn - Private columnREGEX_MESSAGE_EN As Global.System.Data.DataColumn + Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPM_CONTROL_INDEX" + Me.TableName = "TBDD_CONNECTION" Me.BeginInit Me.InitClass Me.EndInit @@ -2980,449 +2917,256 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFIL_ID - End Get - End Property - - _ - Public ReadOnly Property PROFIL_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFIL_NAME - End Get - End Property - - _ - Public ReadOnly Property CTRL_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnCTRL_NAME + Return Me.columnBEZEICHNUNG End Get End Property _ - Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCTRL_TYPE + Return Me.columnSQL_PROVIDER End Get End Property _ - Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCTRL_TEXT + Return Me.columnSERVER End Get End Property _ - Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get - Return Me.columnX_LOC + Return Me.columnDATENBANK End Get End Property _ - Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnY_LOC + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get - Return Me.columnINDEX_NAME + Return Me.columnPASSWORD End Get End Property _ - Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnVALIDATION + Return Me.columnBEMERKUNG End Get End Property _ - Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get - Return Me.columnTYP + Return Me.columnAKTIV End Get End Property _ - Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONNECTION_ID + Return Me.columnERSTELLTWER End Get End Property _ - Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_UEBERPRUEFUNG + Return Me.columnERSTELLTWANN End Get End Property _ - Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHOICE_LIST + Return Me.columnGEANDERTWER End Get End Property _ - Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnFONT_COLOR + Return Me.columnGEAENDERTWANN End Get End Property _ - Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnFONT_FAMILY + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get - Return Me.columnFONT_SIZE + Return CType(Me.Rows(index),TBDD_CONNECTIONRow) End Get End Property - _ - Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_STYLE - End Get - End Property + _ + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler - _ - Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWIDTH - End Get - End Property + _ + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler - _ - Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHEIGHT - End Get - End Property + _ + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler - _ - Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREAD_ONLY - End Get - End Property + _ + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ - Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOAD_IDX_VALUE - End Get - End Property + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_INDEX - End Get - End Property + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CONNECTIONRow) + Return rowTBDD_CONNECTIONRow + End Function _ - Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDEFAULT_VALUE - End Get - End Property + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + End Function _ - Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_MATCH - End Get - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function _ - Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_MESSAGE_DE - End Get - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_CONNECTIONDataTable() + End Function _ - Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_MESSAGE_EN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CONTROL_INDEXRow - Get - Return CType(Me.Rows(index),VWPM_CONTROL_INDEXRow) - End Get - End Property - - _ - Public Event VWPM_CONTROL_INDEXRowChanging As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Event VWPM_CONTROL_INDEXRowChanged As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Event VWPM_CONTROL_INDEXRowDeleting As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Event VWPM_CONTROL_INDEXRowDeleted As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Overloads Sub AddVWPM_CONTROL_INDEXRow(ByVal row As VWPM_CONTROL_INDEXRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWPM_CONTROL_INDEXRow( _ - ByVal GUID As Integer, _ - ByVal PROFIL_ID As Integer, _ - ByVal PROFIL_NAME As String, _ - ByVal CTRL_NAME As String, _ - ByVal CTRL_TYPE As String, _ - ByVal CTRL_TEXT As String, _ - ByVal X_LOC As Double, _ - ByVal Y_LOC As Double, _ - ByVal INDEX_NAME As String, _ - ByVal VALIDATION As Boolean, _ - ByVal TYP As String, _ - ByVal CONNECTION_ID As Short, _ - ByVal SQL_UEBERPRUEFUNG As String, _ - ByVal CHOICE_LIST As String, _ - ByVal FONT_COLOR As Long, _ - ByVal FONT_FAMILY As String, _ - ByVal FONT_SIZE As Short, _ - ByVal FONT_STYLE As Short, _ - ByVal WIDTH As Short, _ - ByVal HEIGHT As Short, _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal LOG_INDEX As String, _ - ByVal DEFAULT_VALUE As String, _ - ByVal REGEX_MATCH As String, _ - ByVal REGEX_MESSAGE_DE As String, _ - ByVal REGEX_MESSAGE_EN As String) As VWPM_CONTROL_INDEXRow - Dim rowVWPM_CONTROL_INDEXRow As VWPM_CONTROL_INDEXRow = CType(Me.NewRow,VWPM_CONTROL_INDEXRow) - Dim columnValuesArray() As Object = New Object() {GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, INDEX_NAME, VALIDATION, TYP, CONNECTION_ID, SQL_UEBERPRUEFUNG, CHOICE_LIST, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN} - rowVWPM_CONTROL_INDEXRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPM_CONTROL_INDEXRow) - Return rowVWPM_CONTROL_INDEXRow - End Function - - _ - Public Function FindByGUIDPROFIL_ID(ByVal GUID As Integer, ByVal PROFIL_ID As Integer) As VWPM_CONTROL_INDEXRow - Return CType(Me.Rows.Find(New Object() {GUID, PROFIL_ID}),VWPM_CONTROL_INDEXRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPM_CONTROL_INDEXDataTable = CType(MyBase.Clone,VWPM_CONTROL_INDEXDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPM_CONTROL_INDEXDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") - Me.columnPROFIL_NAME = MyBase.Columns("PROFIL_NAME") - Me.columnCTRL_NAME = MyBase.Columns("CTRL_NAME") - Me.columnCTRL_TYPE = MyBase.Columns("CTRL_TYPE") - Me.columnCTRL_TEXT = MyBase.Columns("CTRL_TEXT") - Me.columnX_LOC = MyBase.Columns("X_LOC") - Me.columnY_LOC = MyBase.Columns("Y_LOC") - Me.columnINDEX_NAME = MyBase.Columns("INDEX_NAME") - Me.columnVALIDATION = MyBase.Columns("VALIDATION") - Me.columnTYP = MyBase.Columns("TYP") - Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnSQL_UEBERPRUEFUNG = MyBase.Columns("SQL_UEBERPRUEFUNG") - Me.columnCHOICE_LIST = MyBase.Columns("CHOICE_LIST") - Me.columnFONT_COLOR = MyBase.Columns("FONT_COLOR") - Me.columnFONT_FAMILY = MyBase.Columns("FONT_FAMILY") - Me.columnFONT_SIZE = MyBase.Columns("FONT_SIZE") - Me.columnFONT_STYLE = MyBase.Columns("FONT_STYLE") - Me.columnWIDTH = MyBase.Columns("WIDTH") - Me.columnHEIGHT = MyBase.Columns("HEIGHT") - Me.columnREAD_ONLY = MyBase.Columns("READ_ONLY") - Me.columnLOAD_IDX_VALUE = MyBase.Columns("LOAD_IDX_VALUE") - Me.columnLOG_INDEX = MyBase.Columns("LOG_INDEX") - Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") - Me.columnREGEX_MATCH = MyBase.Columns("REGEX_MATCH") - Me.columnREGEX_MESSAGE_DE = MyBase.Columns("REGEX_MESSAGE_DE") - Me.columnREGEX_MESSAGE_EN = MyBase.Columns("REGEX_MESSAGE_EN") - End Sub + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFIL_ID) - Me.columnPROFIL_NAME = New Global.System.Data.DataColumn("PROFIL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFIL_NAME) - Me.columnCTRL_NAME = New Global.System.Data.DataColumn("CTRL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCTRL_NAME) - Me.columnCTRL_TYPE = New Global.System.Data.DataColumn("CTRL_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCTRL_TYPE) - Me.columnCTRL_TEXT = New Global.System.Data.DataColumn("CTRL_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCTRL_TEXT) - Me.columnX_LOC = New Global.System.Data.DataColumn("X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnX_LOC) - Me.columnY_LOC = New Global.System.Data.DataColumn("Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnY_LOC) - Me.columnINDEX_NAME = New Global.System.Data.DataColumn("INDEX_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnINDEX_NAME) - Me.columnVALIDATION = New Global.System.Data.DataColumn("VALIDATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVALIDATION) - Me.columnTYP = New Global.System.Data.DataColumn("TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTYP) - Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONNECTION_ID) - Me.columnSQL_UEBERPRUEFUNG = New Global.System.Data.DataColumn("SQL_UEBERPRUEFUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_UEBERPRUEFUNG) - Me.columnCHOICE_LIST = New Global.System.Data.DataColumn("CHOICE_LIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHOICE_LIST) - Me.columnFONT_COLOR = New Global.System.Data.DataColumn("FONT_COLOR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFONT_COLOR) - Me.columnFONT_FAMILY = New Global.System.Data.DataColumn("FONT_FAMILY", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFONT_FAMILY) - Me.columnFONT_SIZE = New Global.System.Data.DataColumn("FONT_SIZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFONT_SIZE) - Me.columnFONT_STYLE = New Global.System.Data.DataColumn("FONT_STYLE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFONT_STYLE) - Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWIDTH) - Me.columnHEIGHT = New Global.System.Data.DataColumn("HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHEIGHT) - Me.columnREAD_ONLY = New Global.System.Data.DataColumn("READ_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREAD_ONLY) - Me.columnLOAD_IDX_VALUE = New Global.System.Data.DataColumn("LOAD_IDX_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOAD_IDX_VALUE) - Me.columnLOG_INDEX = New Global.System.Data.DataColumn("LOG_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOG_INDEX) - Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDEFAULT_VALUE) - Me.columnREGEX_MATCH = New Global.System.Data.DataColumn("REGEX_MATCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX_MATCH) - Me.columnREGEX_MESSAGE_DE = New Global.System.Data.DataColumn("REGEX_MESSAGE_DE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX_MESSAGE_DE) - Me.columnREGEX_MESSAGE_EN = New Global.System.Data.DataColumn("REGEX_MESSAGE_EN", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX_MESSAGE_EN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID, Me.columnPROFIL_ID}, true)) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false - Me.columnPROFIL_ID.AllowDBNull = false - Me.columnPROFIL_NAME.AllowDBNull = false - Me.columnPROFIL_NAME.MaxLength = 100 - Me.columnCTRL_NAME.AllowDBNull = false - Me.columnCTRL_NAME.MaxLength = 100 - Me.columnCTRL_TYPE.AllowDBNull = false - Me.columnCTRL_TYPE.MaxLength = 10 - Me.columnCTRL_TEXT.AllowDBNull = false - Me.columnCTRL_TEXT.MaxLength = 50 - Me.columnX_LOC.AllowDBNull = false - Me.columnY_LOC.AllowDBNull = false - Me.columnINDEX_NAME.MaxLength = 100 - Me.columnVALIDATION.AllowDBNull = false - Me.columnTYP.MaxLength = 50 - Me.columnSQL_UEBERPRUEFUNG.MaxLength = 2000 - Me.columnCHOICE_LIST.MaxLength = 50 - Me.columnFONT_FAMILY.MaxLength = 30 - Me.columnWIDTH.AllowDBNull = false - Me.columnHEIGHT.AllowDBNull = false - Me.columnREAD_ONLY.AllowDBNull = false - Me.columnLOAD_IDX_VALUE.AllowDBNull = false - Me.columnLOG_INDEX.AllowDBNull = false - Me.columnLOG_INDEX.MaxLength = 50 - Me.columnREGEX_MATCH.MaxLength = 1000 - Me.columnREGEX_MESSAGE_DE.AllowDBNull = false - Me.columnREGEX_MESSAGE_DE.MaxLength = 1000 - Me.columnREGEX_MESSAGE_EN.AllowDBNull = false - Me.columnREGEX_MESSAGE_EN.MaxLength = 1000 + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.AllowDBNull = false + Me.columnSQL_PROVIDER.MaxLength = 100 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(true,Boolean) + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 End Sub _ - Public Function NewVWPM_CONTROL_INDEXRow() As VWPM_CONTROL_INDEXRow - Return CType(Me.NewRow,VWPM_CONTROL_INDEXRow) + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Return CType(Me.NewRow,TBDD_CONNECTIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPM_CONTROL_INDEXRow(builder) + Return New TBDD_CONNECTIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPM_CONTROL_INDEXRow) + Return GetType(TBDD_CONNECTIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPM_CONTROL_INDEXRowChangedEvent) Is Nothing) Then - RaiseEvent VWPM_CONTROL_INDEXRowChanged(Me, New VWPM_CONTROL_INDEXRowChangeEvent(CType(e.Row,VWPM_CONTROL_INDEXRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub @@ -3430,8 +3174,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPM_CONTROL_INDEXRowChangingEvent) Is Nothing) Then - RaiseEvent VWPM_CONTROL_INDEXRowChanging(Me, New VWPM_CONTROL_INDEXRowChangeEvent(CType(e.Row,VWPM_CONTROL_INDEXRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub @@ -3439,8 +3183,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPM_CONTROL_INDEXRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPM_CONTROL_INDEXRowDeleted(Me, New VWPM_CONTROL_INDEXRowChangeEvent(CType(e.Row,VWPM_CONTROL_INDEXRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub @@ -3448,14 +3192,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPM_CONTROL_INDEXRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPM_CONTROL_INDEXRowDeleting(Me, New VWPM_CONTROL_INDEXRowChangeEvent(CType(e.Row,VWPM_CONTROL_INDEXRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPM_CONTROL_INDEXRow(ByVal row As VWPM_CONTROL_INDEXRow) + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub @@ -3482,7 +3226,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPM_CONTROL_INDEXDataTable" + attribute2.FixedValue = "TBDD_CONNECTIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3531,40 +3275,28 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBDD_CONNECTIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) + Partial Public Class TBPROFILE_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPROFILE_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnBEZEICHNUNG As Global.System.Data.DataColumn - - Private columnSQL_PROVIDER As Global.System.Data.DataColumn - - Private columnSERVER As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn - Private columnDATENBANK As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn - Private columnPASSWORD As Global.System.Data.DataColumn - - Private columnBEMERKUNG As Global.System.Data.DataColumn - - Private columnAKTIV As Global.System.Data.DataColumn - - Private columnERSTELLTWER As Global.System.Data.DataColumn - - Private columnERSTELLTWANN As Global.System.Data.DataColumn + Private columnEMAIL As Global.System.Data.DataColumn - Private columnGEANDERTWER As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn - Private columnGEAENDERTWANN As Global.System.Data.DataColumn + Private columnSHORTNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CONNECTION" + Me.TableName = "TBPROFILE_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -3605,33 +3337,17 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEZEICHNUNG + Return Me.columnPRENAME End Get End Property _ - Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_PROVIDER - End Get - End Property - - _ - Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSERVER - End Get - End Property - - _ - Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDATENBANK + Return Me.columnNAME End Get End Property @@ -3645,57 +3361,25 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPASSWORD - End Get - End Property - - _ - Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBEMERKUNG - End Get - End Property - - _ - Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn - Get - Return Me.columnAKTIV - End Get - End Property - - _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnERSTELLTWER - End Get - End Property - - _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWANN + Return Me.columnEMAIL End Get End Property _ - Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEANDERTWER + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWANN + Return Me.columnSHORTNAME End Get End Property @@ -3710,50 +3394,50 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_USERRow Get - Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + Return CType(Me.Rows(index),TBPROFILE_USERRow) End Get End Property _ - Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler + Public Event TBPROFILE_USERRowChanging As TBPROFILE_USERRowChangeEventHandler _ - Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler + Public Event TBPROFILE_USERRowChanged As TBPROFILE_USERRowChangeEventHandler _ - Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler + Public Event TBPROFILE_USERRowDeleting As TBPROFILE_USERRowChangeEventHandler _ - Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler + Public Event TBPROFILE_USERRowDeleted As TBPROFILE_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Public Overloads Sub AddTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow - Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} - rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CONNECTIONRow) - Return rowTBDD_CONNECTIONRow + Public Overloads Function AddTBPROFILE_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As TBPROFILE_USERRow + Dim rowTBPROFILE_USERRow As TBPROFILE_USERRow = CType(Me.NewRow,TBPROFILE_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, COMMENT, SHORTNAME} + rowTBPROFILE_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPROFILE_USERRow) + Return rowTBPROFILE_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + Dim cln As TBPROFILE_USERDataTable = CType(MyBase.Clone,TBPROFILE_USERDataTable) cln.InitVars Return cln End Function @@ -3761,100 +3445,77 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CONNECTIONDataTable() + Return New TBPROFILE_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") - Me.columnSERVER = MyBase.Columns("SERVER") - Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnPASSWORD = MyBase.Columns("PASSWORD") - Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") - Me.columnAKTIV = MyBase.Columns("AKTIV") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEZEICHNUNG) - Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_PROVIDER) - Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSERVER) - Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPASSWORD) - Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEMERKUNG) - Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAKTIV) - Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWER) - Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWANN) - Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEANDERTWER) - Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORTNAME) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnBEZEICHNUNG.MaxLength = 100 - Me.columnSQL_PROVIDER.AllowDBNull = false - Me.columnSQL_PROVIDER.MaxLength = 100 - Me.columnSERVER.MaxLength = 150 - Me.columnDATENBANK.MaxLength = 100 - Me.columnUSERNAME.MaxLength = 100 - Me.columnPASSWORD.MaxLength = 100 - Me.columnBEMERKUNG.MaxLength = 400 - Me.columnAKTIV.AllowDBNull = false - Me.columnAKTIV.DefaultValue = CType(true,Boolean) - Me.columnERSTELLTWER.AllowDBNull = false - Me.columnERSTELLTWER.MaxLength = 50 - Me.columnGEANDERTWER.MaxLength = 50 + Me.columnPRENAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnEMAIL.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnSHORTNAME.MaxLength = 30 End Sub _ - Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow - Return CType(Me.NewRow,TBDD_CONNECTIONRow) + Public Function NewTBPROFILE_USERRow() As TBPROFILE_USERRow + Return CType(Me.NewRow,TBPROFILE_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CONNECTIONRow(builder) + Return New TBPROFILE_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CONNECTIONRow) + Return GetType(TBPROFILE_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPROFILE_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPROFILE_USERRowChanged(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) End If End Sub @@ -3862,8 +3523,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPROFILE_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPROFILE_USERRowChanging(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) End If End Sub @@ -3871,8 +3532,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPROFILE_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPROFILE_USERRowDeleted(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) End If End Sub @@ -3880,14 +3541,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPROFILE_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPROFILE_USERRowDeleting(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Public Sub RemoveTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) Me.Rows.Remove(row) End Sub @@ -3914,7 +3575,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CONNECTIONDataTable" + attribute2.FixedValue = "TBPROFILE_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3963,28 +3624,20 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPROFILE_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPROFILE_USERRow) + Partial Public Class TBPM_PROFILE_FILESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILE_FILESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnPRENAME As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnEMAIL As Global.System.Data.DataColumn - - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnFILE_PATH As Global.System.Data.DataColumn - Private columnSHORTNAME As Global.System.Data.DataColumn + Private columnDMS_ERSTELLT_DATE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPROFILE_USER" + Me.TableName = "TBPM_PROFILE_FILES" Me.BeginInit Me.InitClass Me.EndInit @@ -4025,49 +3678,17 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSERNAME - End Get - End Property - - _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL - End Get - End Property - - _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FILE_PATHColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnFILE_PATH End Get End Property _ - Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DMS_ERSTELLT_DATEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSHORTNAME + Return Me.columnDMS_ERSTELLT_DATE End Get End Property @@ -4082,50 +3703,50 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FILESRow Get - Return CType(Me.Rows(index),TBPROFILE_USERRow) + Return CType(Me.Rows(index),TBPM_PROFILE_FILESRow) End Get End Property _ - Public Event TBPROFILE_USERRowChanging As TBPROFILE_USERRowChangeEventHandler + Public Event TBPM_PROFILE_FILESRowChanging As TBPM_PROFILE_FILESRowChangeEventHandler _ - Public Event TBPROFILE_USERRowChanged As TBPROFILE_USERRowChangeEventHandler + Public Event TBPM_PROFILE_FILESRowChanged As TBPM_PROFILE_FILESRowChangeEventHandler _ - Public Event TBPROFILE_USERRowDeleting As TBPROFILE_USERRowChangeEventHandler + Public Event TBPM_PROFILE_FILESRowDeleting As TBPM_PROFILE_FILESRowChangeEventHandler _ - Public Event TBPROFILE_USERRowDeleted As TBPROFILE_USERRowChangeEventHandler + Public Event TBPM_PROFILE_FILESRowDeleted As TBPM_PROFILE_FILESRowChangeEventHandler _ - Public Overloads Sub AddTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) + Public Overloads Sub AddTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPROFILE_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As TBPROFILE_USERRow - Dim rowTBPROFILE_USERRow As TBPROFILE_USERRow = CType(Me.NewRow,TBPROFILE_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, COMMENT, SHORTNAME} - rowTBPROFILE_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPROFILE_USERRow) - Return rowTBPROFILE_USERRow + Public Overloads Function AddTBPM_PROFILE_FILESRow(ByVal FILE_PATH As String, ByVal DMS_ERSTELLT_DATE As Date) As TBPM_PROFILE_FILESRow + Dim rowTBPM_PROFILE_FILESRow As TBPM_PROFILE_FILESRow = CType(Me.NewRow,TBPM_PROFILE_FILESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FILE_PATH, DMS_ERSTELLT_DATE} + rowTBPM_PROFILE_FILESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_PROFILE_FILESRow) + Return rowTBPM_PROFILE_FILESRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FILESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FILESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPROFILE_USERDataTable = CType(MyBase.Clone,TBPROFILE_USERDataTable) + Dim cln As TBPM_PROFILE_FILESDataTable = CType(MyBase.Clone,TBPM_PROFILE_FILESDataTable) cln.InitVars Return cln End Function @@ -4133,19 +3754,15 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPROFILE_USERDataTable() + Return New TBPM_PROFILE_FILESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnPRENAME = MyBase.Columns("PRENAME") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnEMAIL = MyBase.Columns("EMAIL") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnFILE_PATH = MyBase.Columns("FILE_PATH") + Me.columnDMS_ERSTELLT_DATE = MyBase.Columns("DMS_ERSTELLT_DATE") End Sub _ - Public Function NewTBPROFILE_USERRow() As TBPROFILE_USERRow - Return CType(Me.NewRow,TBPROFILE_USERRow) + Public Function NewTBPM_PROFILE_FILESRow() As TBPM_PROFILE_FILESRow + Return CType(Me.NewRow,TBPM_PROFILE_FILESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPROFILE_USERRow(builder) + Return New TBPM_PROFILE_FILESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPROFILE_USERRow) + Return GetType(TBPM_PROFILE_FILESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPROFILE_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBPROFILE_USERRowChanged(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_PROFILE_FILESRowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FILESRowChanged(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) End If End Sub @@ -4211,8 +3815,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPROFILE_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBPROFILE_USERRowChanging(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_PROFILE_FILESRowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FILESRowChanging(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) End If End Sub @@ -4220,8 +3824,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPROFILE_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPROFILE_USERRowDeleted(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_PROFILE_FILESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FILESRowDeleted(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) End If End Sub @@ -4229,14 +3833,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPROFILE_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPROFILE_USERRowDeleting(Me, New TBPROFILE_USERRowChangeEvent(CType(e.Row,TBPROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_PROFILE_FILESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FILESRowDeleting(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) + Public Sub RemoveTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) Me.Rows.Remove(row) End Sub @@ -4263,7 +3867,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPROFILE_USERDataTable" + attribute2.FixedValue = "TBPM_PROFILE_FILESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -4312,20 +3916,64 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPM_PROFILE_FILESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILE_FILESRow) + Partial Public Class TBPM_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILERow) Private columnGUID As Global.System.Data.DataColumn - Private columnFILE_PATH As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnDMS_ERSTELLT_DATE As Global.System.Data.DataColumn + Private columnTITLE As Global.System.Data.DataColumn + + Private columnPRIORITY As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnWD_SEARCH As Global.System.Data.DataColumn + + Private columnNO_OF_DOCUMENTS As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnFINAL_PROFILE As Global.System.Data.DataColumn + + Private columnFINAL_TEXT As Global.System.Data.DataColumn + + Private columnMOVE2FOLDER As Global.System.Data.DataColumn + + Private columnTYPE As Global.System.Data.DataColumn + + Private columnWD_OBJECTTYPE As Global.System.Data.DataColumn + + Private columnSORT_BY_LATEST As Global.System.Data.DataColumn + + Private columnPM_VEKTOR_INDEX As Global.System.Data.DataColumn + + Private columnLOG_INDEX As Global.System.Data.DataColumn + + Private columnSQL_VIEW As Global.System.Data.DataColumn + + Private columnANNOTATE_ALL_WORK_HISTORY_ENTRIES As Global.System.Data.DataColumn + + Private columnANNOTATE_WORK_HISTORY_ENTRY As Global.System.Data.DataColumn + + Private columnWORK_HISTORY_ENTRY As Global.System.Data.DataColumn + + Private columnDISPLAY_MODE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPM_PROFILE_FILES" + Me.TableName = "TBPM_PROFILE" Me.BeginInit Me.InitClass Me.EndInit @@ -4366,565 +4014,229 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property FILE_PATHColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnFILE_PATH + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property DMS_ERSTELLT_DATEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDMS_ERSTELLT_DATE + Return Me.columnTITLE End Get End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn Get - Return Me.Rows.Count + Return Me.columnPRIORITY End Get End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FILESRow + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get - Return CType(Me.Rows(index),TBPM_PROFILE_FILESRow) + Return Me.columnDESCRIPTION End Get End Property - _ - Public Event TBPM_PROFILE_FILESRowChanging As TBPM_PROFILE_FILESRowChangeEventHandler + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property - _ - Public Event TBPM_PROFILE_FILESRowChanged As TBPM_PROFILE_FILESRowChangeEventHandler + _ + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_SEARCH + End Get + End Property - _ - Public Event TBPM_PROFILE_FILESRowDeleting As TBPM_PROFILE_FILESRowChangeEventHandler + _ + Public ReadOnly Property NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNO_OF_DOCUMENTS + End Get + End Property - _ - Public Event TBPM_PROFILE_FILESRowDeleted As TBPM_PROFILE_FILESRowChangeEventHandler + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property _ - Public Overloads Sub AddTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) - Me.Rows.Add(row) - End Sub + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property _ - Public Overloads Function AddTBPM_PROFILE_FILESRow(ByVal FILE_PATH As String, ByVal DMS_ERSTELLT_DATE As Date) As TBPM_PROFILE_FILESRow - Dim rowTBPM_PROFILE_FILESRow As TBPM_PROFILE_FILESRow = CType(Me.NewRow,TBPM_PROFILE_FILESRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FILE_PATH, DMS_ERSTELLT_DATE} - rowTBPM_PROFILE_FILESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_PROFILE_FILESRow) - Return rowTBPM_PROFILE_FILESRow - End Function + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FILESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FILESRow) - End Function + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPM_PROFILE_FILESDataTable = CType(MyBase.Clone,TBPM_PROFILE_FILESDataTable) - cln.InitVars - Return cln - End Function + Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFINAL_PROFILE + End Get + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_PROFILE_FILESDataTable() - End Function + Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFINAL_TEXT + End Get + End Property _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnFILE_PATH = MyBase.Columns("FILE_PATH") - Me.columnDMS_ERSTELLT_DATE = MyBase.Columns("DMS_ERSTELLT_DATE") - End Sub + Public ReadOnly Property MOVE2FOLDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMOVE2FOLDER + End Get + End Property _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnFILE_PATH = New Global.System.Data.DataColumn("FILE_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILE_PATH) - Me.columnDMS_ERSTELLT_DATE = New Global.System.Data.DataColumn("DMS_ERSTELLT_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDMS_ERSTELLT_DATE) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnFILE_PATH.MaxLength = 1000 - End Sub + Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE + End Get + End Property _ - Public Function NewTBPM_PROFILE_FILESRow() As TBPM_PROFILE_FILESRow - Return CType(Me.NewRow,TBPM_PROFILE_FILESRow) - End Function + Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_OBJECTTYPE + End Get + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPM_PROFILE_FILESRow(builder) - End Function + Public ReadOnly Property SORT_BY_LATESTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSORT_BY_LATEST + End Get + End Property _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_PROFILE_FILESRow) - End Function + Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPM_VEKTOR_INDEX + End Get + End Property _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBPM_PROFILE_FILESRowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_FILESRowChanged(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) - End If - End Sub + Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_INDEX + End Get + End Property _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBPM_PROFILE_FILESRowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_FILESRowChanging(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) - End If - End Sub + Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_VIEW + End Get + End Property _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_PROFILE_FILESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_FILESRowDeleted(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) - End If - End Sub + Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES + End Get + End Property _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_PROFILE_FILESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_FILESRowDeleting(Me, New TBPM_PROFILE_FILESRowChangeEvent(CType(e.Row,TBPM_PROFILE_FILESRow), e.Action)) - End If - End Sub + Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnANNOTATE_WORK_HISTORY_ENTRY + End Get + End Property _ - Public Sub RemoveTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) - Me.Rows.Remove(row) - End Sub + Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORK_HISTORY_ENTRY + End Get + End Property _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPM_PROFILE_FILESDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBPM_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnTITLE As Global.System.Data.DataColumn - - Private columnPRIORITY As Global.System.Data.DataColumn - - Private columnDESCRIPTION As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnNO_OF_DOCUMENTS As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnFINAL_PROFILE As Global.System.Data.DataColumn - - Private columnFINAL_TEXT As Global.System.Data.DataColumn - - Private columnMOVE2FOLDER As Global.System.Data.DataColumn - - Private columnTYPE As Global.System.Data.DataColumn - - Private columnWD_OBJECTTYPE As Global.System.Data.DataColumn - - Private columnSORT_BY_LATEST As Global.System.Data.DataColumn - - Private columnPM_VEKTOR_INDEX As Global.System.Data.DataColumn + Public ReadOnly Property DISPLAY_MODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDISPLAY_MODE + End Get + End Property - Private columnLOG_INDEX As Global.System.Data.DataColumn + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property - Private columnSQL_VIEW As Global.System.Data.DataColumn + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILERow + Get + Return CType(Me.Rows(index),TBPM_PROFILERow) + End Get + End Property - Private columnANNOTATE_ALL_WORK_HISTORY_ENTRIES As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILERowChanging As TBPM_PROFILERowChangeEventHandler - Private columnANNOTATE_WORK_HISTORY_ENTRY As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILERowChanged As TBPM_PROFILERowChangeEventHandler - Private columnWORK_HISTORY_ENTRY As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILERowDeleting As TBPM_PROFILERowChangeEventHandler - Private columnDISPLAY_MODE As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILERowDeleted As TBPM_PROFILERowChangeEventHandler _ - Public Sub New() - MyBase.New - Me.TableName = "TBPM_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTITLE - End Get - End Property - - _ - Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRIORITY - End Get - End Property - - _ - Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDESCRIPTION - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_SEARCH - End Get - End Property - - _ - Public ReadOnly Property NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNO_OF_DOCUMENTS - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFINAL_PROFILE - End Get - End Property - - _ - Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFINAL_TEXT - End Get - End Property - - _ - Public ReadOnly Property MOVE2FOLDERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMOVE2FOLDER - End Get - End Property - - _ - Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTYPE - End Get - End Property - - _ - Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_OBJECTTYPE - End Get - End Property - - _ - Public ReadOnly Property SORT_BY_LATESTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSORT_BY_LATEST - End Get - End Property - - _ - Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPM_VEKTOR_INDEX - End Get - End Property - - _ - Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_INDEX - End Get - End Property - - _ - Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_VIEW - End Get - End Property - - _ - Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn - Get - Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES - End Get - End Property - - _ - Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnANNOTATE_WORK_HISTORY_ENTRY - End Get - End Property - - _ - Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWORK_HISTORY_ENTRY - End Get - End Property - - _ - Public ReadOnly Property DISPLAY_MODEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDISPLAY_MODE - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILERow - Get - Return CType(Me.Rows(index),TBPM_PROFILERow) - End Get - End Property - - _ - Public Event TBPM_PROFILERowChanging As TBPM_PROFILERowChangeEventHandler - - _ - Public Event TBPM_PROFILERowChanged As TBPM_PROFILERowChangeEventHandler - - _ - Public Event TBPM_PROFILERowDeleting As TBPM_PROFILERowChangeEventHandler - - _ - Public Event TBPM_PROFILERowDeleted As TBPM_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) - Me.Rows.Add(row) + Public Overloads Sub AddTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) + Me.Rows.Add(row) End Sub '''Represents strongly named DataRow class. ''' - Partial Public Class VWPM_CONTROL_INDEXRow + Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow - Private tableVWPM_CONTROL_INDEX As VWPM_CONTROL_INDEXDataTable + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWPM_CONTROL_INDEX = CType(Me.Table,VWPM_CONTROL_INDEXDataTable) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.GUIDColumn),Integer) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFIL_ID() As Integer - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.PROFIL_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.PROFIL_IDColumn) = value - End Set - End Property - - _ - Public Property PROFIL_NAME() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.PROFIL_NAMEColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.PROFIL_NAMEColumn) = value - End Set - End Property - - _ - Public Property CTRL_NAME() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.CTRL_NAMEColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.CTRL_NAMEColumn) = value - End Set - End Property - - _ - Public Property CTRL_TYPE() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.CTRL_TYPEColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.CTRL_TYPEColumn) = value - End Set - End Property - - _ - Public Property CTRL_TEXT() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.CTRL_TEXTColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.CTRL_TEXTColumn) = value - End Set - End Property - - _ - Public Property X_LOC() As Double - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.X_LOCColumn),Double) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.X_LOCColumn) = value - End Set - End Property - - _ - Public Property Y_LOC() As Double + Public Property GUID() As Short Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.Y_LOCColumn),Double) + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.Y_LOCColumn) = value + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property BEZEICHNUNG() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.INDEX_NAMEColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.INDEX_NAMEColumn) = value + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property SQL_PROVIDER() As String Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.VALIDATIONColumn) = value + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property SERVER() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.TYPColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.TYPColumn) = value + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property DATENBANK() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.CONNECTION_IDColumn) = value + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ - Public Property SQL_UEBERPRUEFUNG() As String + Public Property USERNAME() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.SQL_UEBERPRUEFUNGColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.SQL_UEBERPRUEFUNGColumn) = value + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property PASSWORD() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.CHOICE_LISTColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.CHOICE_LISTColumn) = value + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ - Public Property FONT_COLOR() As Long + Public Property BEMERKUNG() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.FONT_COLORColumn),Long) + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.FONT_COLORColumn) = value + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ - Public Property FONT_FAMILY() As String + Public Property AKTIV() As Boolean Get - Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.FONT_FAMILYColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.FONT_FAMILYColumn) = value + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ - Public Property FONT_SIZE() As Short + Public Property ERSTELLTWER() As String Get - Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.FONT_SIZEColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.FONT_SIZEColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ - Public Property FONT_STYLE() As Short + Public Property ERSTELLTWANN() As Date Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.FONT_STYLEColumn),Short) + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.FONT_STYLEColumn) = value - End Set - End Property - - _ - Public Property WIDTH() As Short - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.WIDTHColumn),Short) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.WIDTHColumn) = value - End Set - End Property - - _ - Public Property HEIGHT() As Short - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.HEIGHTColumn),Short) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.HEIGHTColumn) = value - End Set - End Property - - _ - Public Property READ_ONLY() As Boolean - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.READ_ONLYColumn),Boolean) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.READ_ONLYColumn) = value - End Set - End Property - - _ - Public Property LOAD_IDX_VALUE() As Boolean - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.LOAD_IDX_VALUEColumn),Boolean) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.LOAD_IDX_VALUEColumn) = value - End Set - End Property - - _ - Public Property LOG_INDEX() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.LOG_INDEXColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.LOG_INDEXColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ - Public Property DEFAULT_VALUE() As String + Public Property GEANDERTWER() As String Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.DEFAULT_VALUEColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.DEFAULT_VALUEColumn) = value + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ - Public Property REGEX_MATCH() As String + Public Property GEAENDERTWANN() As Date Get Try - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MATCHColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle VWPM_CONTROL_INDEX ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MATCHColumn) = value + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ - Public Property REGEX_MESSAGE_DE() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MESSAGE_DEColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MESSAGE_DEColumn) = value - End Set - End Property + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + End Function _ - Public Property REGEX_MESSAGE_EN() As String - Get - Return CType(Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MESSAGE_ENColumn),String) - End Get - Set - Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MESSAGE_ENColumn) = value - End Set - End Property + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.INDEX_NAMEColumn) + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ - Public Sub SetINDEX_NAMENull() - Me(Me.tableVWPM_CONTROL_INDEX.INDEX_NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.TYPColumn) + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ - Public Sub SetTYPNull() - Me(Me.tableVWPM_CONTROL_INDEX.TYPColumn) = Global.System.Convert.DBNull + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.CONNECTION_IDColumn) + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableVWPM_CONTROL_INDEX.CONNECTION_IDColumn) = Global.System.Convert.DBNull + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.SQL_UEBERPRUEFUNGColumn) + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ - Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableVWPM_CONTROL_INDEX.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.CHOICE_LISTColumn) + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableVWPM_CONTROL_INDEX.CHOICE_LISTColumn) = Global.System.Convert.DBNull + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFONT_COLORNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.FONT_COLORColumn) + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ - Public Sub SetFONT_COLORNull() - Me(Me.tableVWPM_CONTROL_INDEX.FONT_COLORColumn) = Global.System.Convert.DBNull + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFONT_FAMILYNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.FONT_FAMILYColumn) + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ - Public Sub SetFONT_FAMILYNull() - Me(Me.tableVWPM_CONTROL_INDEX.FONT_FAMILYColumn) = Global.System.Convert.DBNull + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFONT_SIZENull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.FONT_SIZEColumn) + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ - Public Sub SetFONT_SIZENull() - Me(Me.tableVWPM_CONTROL_INDEX.FONT_SIZEColumn) = Global.System.Convert.DBNull + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPROFILE_USERRow + Inherits Global.System.Data.DataRow - _ - Public Function IsFONT_STYLENull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.FONT_STYLEColumn) - End Function + Private tableTBPROFILE_USER As TBPROFILE_USERDataTable _ - Public Sub SetFONT_STYLENull() - Me(Me.tableVWPM_CONTROL_INDEX.FONT_STYLEColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPROFILE_USER = CType(Me.Table,TBPROFILE_USERDataTable) End Sub _ - Public Function IsDEFAULT_VALUENull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.DEFAULT_VALUEColumn) - End Function - - _ - Public Sub SetDEFAULT_VALUENull() - Me(Me.tableVWPM_CONTROL_INDEX.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsREGEX_MATCHNull() As Boolean - Return Me.IsNull(Me.tableVWPM_CONTROL_INDEX.REGEX_MATCHColumn) - End Function - - _ - Public Sub SetREGEX_MATCHNull() - Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MATCHColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_CONNECTIONRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) - End Sub - - _ - Public Property GUID() As Short + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + Return CType(Me(Me.tableTBPROFILE_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + Me(Me.tableTBPROFILE_USER.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property PRENAME() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value - End Set - End Property - - _ - Public Property SQL_PROVIDER() As String - Get - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) - End Get - Set - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + Me(Me.tableTBPROFILE_USER.NAMEColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property USERNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPROFILE_USER.USERNAMEColumn),String) End Get Set - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + Me(Me.tableTBPROFILE_USER.USERNAMEColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property EMAIL() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.EMAILColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + Me(Me.tableTBPROFILE_USER.EMAILColumn) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + Me(Me.tableTBPROFILE_USER.COMMENTColumn) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = value End Set End Property _ - Public Property AKTIV() As Boolean - Get - Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value - End Set - End Property + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.PRENAMEColumn) + End Function _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) - End Get - Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value - End Set - End Property + Public Sub SetPRENAMENull() + Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property ERSTELLTWANN() As Date + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBPROFILE_USER.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.SHORTNAMEColumn) + End Function + + _ + Public Sub SetSHORTNAMENull() + Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILE_FILESRow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE_FILES = CType(Me.Table,TBPM_PROFILE_FILESDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property FILE_PATH() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_PATH in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property DMS_ERSTELLT_DATE() As Date Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DMS_ERSTELLT_DATE in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = value End Set End Property _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + Public Function IsFILE_PATHNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) End Function _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + Public Sub SetFILE_PATHNull() + Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + Public Function IsDMS_ERSTELLT_DATENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) End Function _ - Public Sub SetSERVERNull() - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + Public Sub SetDMS_ERSTELLT_DATENull() + Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE As TBPM_PROFILEDataTable _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) - End Function + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) + End Sub _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPM_PROFILE.GUIDColumn) = value + End Set + End Property _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) - End Function - - _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) - End Function - - _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) - End Function - - _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.NAMEColumn) = value + End Set + End Property _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) - End Function + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.TITLEColumn) = value + End Set + End Property _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull - End Sub + Public Property PRIORITY() As Integer + Get + Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) + End Get + Set + Me(Me.tableTBPM_PROFILE.PRIORITYColumn) = value + End Set + End Property _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) - End Function + Public Property DESCRIPTION() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = value + End Set + End Property _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull - End Sub + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.ACTIVEColumn) = value + End Set + End Property _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) - End Function + Public Property WD_SEARCH() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn) = value + End Set + End Property _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPROFILE_USERRow - Inherits Global.System.Data.DataRow - - Private tableTBPROFILE_USER As TBPROFILE_USERDataTable + Public Property NO_OF_DOCUMENTS() As Integer + Get + Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) + End Get + Set + Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPROFILE_USER = CType(Me.Table,TBPROFILE_USERDataTable) - End Sub + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPROFILE_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPROFILE_USER.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.PRENAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = value + Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPROFILE_USER.NAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.NAMEColumn) = value + Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property FINAL_PROFILE() As Boolean Get - Return CType(Me(Me.tableTBPROFILE_USER.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) End Get Set - Me(Me.tableTBPROFILE_USER.USERNAMEColumn) = value + Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property FINAL_TEXT() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.EMAILColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.EMAILColumn) = value + Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property MOVE2FOLDER() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.COMMENTColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2FOLDER in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.COMMENTColumn) = value + Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = value End Set End Property _ - Public Property SHORTNAME() As String + Public Property TYPE() As Short Get - Try - Return CType(Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBPROFILE_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) End Get Set - Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = value + Me(Me.tableTBPM_PROFILE.TYPEColumn) = value End Set End Property _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.PRENAMEColumn) - End Function + Public Property WD_OBJECTTYPE() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn) = value + End Set + End Property _ - Public Sub SetPRENAMENull() - Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property SORT_BY_LATEST() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn) = value + End Set + End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.NAMEColumn) - End Function + Public Property PM_VEKTOR_INDEX() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value + End Set + End Property _ - Public Sub SetNAMENull() - Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property LOG_INDEX() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn) = value + End Set + End Property _ - Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) - End Function + Public Property SQL_VIEW() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value + End Set + End Property _ - Public Sub SetEMAILNull() - Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull - End Sub + Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value + End Set + End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBPROFILE_USER.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.SHORTNAMEColumn) - End Function - - _ - Public Sub SetSHORTNAMENull() - Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPM_PROFILE_FILESRow - Inherits Global.System.Data.DataRow - - Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_PROFILE_FILES = CType(Me.Table,TBPM_PROFILE_FILESDataTable) - End Sub - - _ - Public Property GUID() As Integer + Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value End Set End Property _ - Public Property FILE_PATH() As String + Public Property WORK_HISTORY_ENTRY() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_PATH in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = value + Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value End Set End Property _ - Public Property DMS_ERSTELLT_DATE() As Date + Public Property DISPLAY_MODE() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DMS_ERSTELLT_DATE in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = value + Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn) = value End Set End Property _ - Public Function IsFILE_PATHNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) + Public Property TBPM_TYPERow() As TBPM_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")) + End Set + End Property + + _ + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) End Function _ - Public Sub SetFILE_PATHNull() - Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = Global.System.Convert.DBNull + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDMS_ERSTELLT_DATENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) End Function _ - Public Sub SetDMS_ERSTELLT_DATENull() - Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFINAL_TEXTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) + End Function + + _ + Public Sub SetFINAL_TEXTNull() + Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMOVE2FOLDERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) + End Function + + _ + Public Sub SetMOVE2FOLDERNull() + Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWORK_HISTORY_ENTRYNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) + End Function + + _ + Public Sub SetWORK_HISTORY_ENTRYNull() + Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function GetTBPM_ERROR_LOGRows() As TBPM_ERROR_LOGRow() + If (Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1") Is Nothing) Then + Return New TBPM_ERROR_LOGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_ERROR_LOGRow()) + End If + End Function + + _ + Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() + If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1") Is Nothing) Then + Return New TBPM_PROFILE_CONTROLSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILE_CONTROLSRow()) + End If + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_PROFILERow + Partial Public Class TBWH_CHECK_PROFILE_CONTROLSRow Inherits Global.System.Data.DataRow - Private tableTBPM_PROFILE As TBPM_PROFILEDataTable + Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) + Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.GUIDColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn) = value End Set End Property @@ -10558,599 +9799,779 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE.NAMEColumn) = value - End Set - End Property - - _ - Public Property TITLE() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.TITLEColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn) = value End Set End Property _ - Public Property PRIORITY() As Integer + Public Property CTRL_TYPE() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.PRIORITYColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn) = value End Set End Property _ - Public Property DESCRIPTION() As String + Public Property INDEX_NAME() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn),String) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE.ACTIVEColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = value End Set End Property _ - Public Property WD_SEARCH() As String + Public Property TYP() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = value End Set End Property _ - Public Property NO_OF_DOCUMENTS() As Integer + Public Property VALIDATION() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property CHOICE_LIST() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull"& _ + ".", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNu"& _ + "ll.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property SQL_UEBERPRUEFUNG() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist "& _ + "DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Public Function IsINDEX_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) + End Function + + _ + Public Sub SetINDEX_NAMENull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) + End Function + + _ + Public Sub SetTYPNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) + End Function + + _ + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + End Function + + _ + Public Sub SetSQL_UEBERPRUEFUNGNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() + If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then + Return New TBPM_CONTROL_TABLERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBPM_CONTROL_TABLERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILE_CONTROLSRow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn) = value End Set End Property _ - Public Property FINAL_PROFILE() As Boolean + Public Property PROFIL_ID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn) = value End Set End Property _ - Public Property FINAL_TEXT() As String + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn) = value End Set End Property _ - Public Property MOVE2FOLDER() As String + Public Property CTRL_TYPE() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2FOLDER in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn) = value End Set End Property _ - Public Property TYPE() As Short + Public Property CTRL_TEXT() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.TYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value End Set End Property _ - Public Property WD_OBJECTTYPE() As String + Public Property X_LOC() As Double Get - Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) End Get Set - Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn) = value End Set End Property _ - Public Property SORT_BY_LATEST() As Boolean + Public Property Y_LOC() As Double Get - Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) End Get Set - Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn) = value End Set End Property _ - Public Property PM_VEKTOR_INDEX() As String + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn) = value End Set End Property _ - Public Property LOG_INDEX() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn) = value End Set End Property _ - Public Property SQL_VIEW() As String + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = value End Set End Property _ - Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = value End Set End Property _ - Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean + Public Property INDEX_NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = value End Set End Property _ - Public Property WORK_HISTORY_ENTRY() As String + Public Property TYP() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = value End Set End Property _ - Public Property DISPLAY_MODE() As String + Public Property VALIDATION() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn) = value End Set End Property _ - Public Property TBPM_TYPERow() As TBPM_TYPERow + Public Property CHOICE_LIST() As String Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_TYPERow) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")) + Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = value End Set End Property _ - Public Function IsDESCRIPTIONNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) - End Function - - _ - Public Sub SetDESCRIPTIONNull() - Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull - End Sub + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + End Set + End Property _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) - End Function + Public Property SQL_UEBERPRUEFUNG() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBPM_PROFILE_CONTROLS ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value + End Set + End Property _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Public Property HEIGHT() As Short + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn) = value + End Set + End Property _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFINAL_TEXTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) - End Function - - _ - Public Sub SetFINAL_TEXTNull() - Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsMOVE2FOLDERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) - End Function + Public Property WIDTH() As Short + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn) = value + End Set + End Property _ - Public Sub SetMOVE2FOLDERNull() - Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull - End Sub + Public Property FONT_STYLE() As Short + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = value + End Set + End Property _ - Public Function IsWORK_HISTORY_ENTRYNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) - End Function + Public Property FONT_SIZE() As Short + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = value + End Set + End Property _ - Public Sub SetWORK_HISTORY_ENTRYNull() - Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull - End Sub + Public Property FONT_FAMILY() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = value + End Set + End Property _ - Public Function GetTBPM_ERROR_LOGRows() As TBPM_ERROR_LOGRow() - If (Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1") Is Nothing) Then - Return New TBPM_ERROR_LOGRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_ERROR_LOGRow()) - End If - End Function + Public Property FONT_COLOR() As Long + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = value + End Set + End Property _ - Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() - If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1") Is Nothing) Then - Return New TBPM_PROFILE_CONTROLSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILE_CONTROLSRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_CHECK_PROFILE_CONTROLSRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable + Public Property READ_ONLY() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) - End Sub + Public Property LOAD_IDX_VALUE() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property DEFAULT_VALUE() As String Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property MULTISELECT() As Boolean Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn) = value End Set End Property _ - Public Property CTRL_TYPE() As String + Public Property VKT_ADD_ITEM() As Boolean Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull."& _ - "", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property REGEX_MATCH() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property REGEX_MESSAGE_DE() As String Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property REGEX_MESSAGE_EN() As String Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull"& _ - ".", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNu"& _ - "ll.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILERow) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")) End Set End Property _ - Public Property SQL_UEBERPRUEFUNG() As String - Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist "& _ - "DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value - End Set - End Property + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ Public Sub SetINDEX_NAMENull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) End Function _ Public Sub SetTYPNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) End Function _ Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() - If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then + Public Function IsFONT_STYLENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) + End Function + + _ + Public Sub SetFONT_STYLENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFONT_SIZENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) + End Function + + _ + Public Sub SetFONT_SIZENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFONT_FAMILYNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) + End Function + + _ + Public Sub SetFONT_FAMILYNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFONT_COLORNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) + End Function + + _ + Public Sub SetFONT_COLORNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDEFAULT_VALUENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) + End Function + + _ + Public Sub SetDEFAULT_VALUENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsREGEX_MATCHNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) + End Function + + _ + Public Sub SetREGEX_MATCHNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() + If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1") Is Nothing) Then Return New TBPM_CONTROL_TABLERow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBPM_CONTROL_TABLERow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_CONTROL_TABLERow()) End If End Function End Class @@ -11158,3022 +10579,1884 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_PROFILE_CONTROLSRow + Partial Public Class TBPM_CONTROL_TABLERow Inherits Global.System.Data.DataRow - Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable + Private tableTBPM_CONTROL_TABLE As TBPM_CONTROL_TABLEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) + Me.tableTBPM_CONTROL_TABLE = CType(Me.Table,TBPM_CONTROL_TABLEDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFIL_ID() As Integer - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property CONTROL_ID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn) = value End Set End Property _ - Public Property CTRL_TYPE() As String + Public Property SPALTENNAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn) = value End Set End Property _ - Public Property CTRL_TEXT() As String + Public Property SPALTEN_HEADER() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn) = value End Set End Property _ - Public Property X_LOC() As Double + Public Property SPALTENBREITE() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn) = value End Set End Property _ - Public Property Y_LOC() As Double + Public Property VALIDATION() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property CHOICE_LIST() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property SQL_COMMAND() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property READ_ONLY() As Boolean Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property LOAD_IDX_VALUE() As Boolean Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property SQL_UEBERPRUEFUNG() As String + Public Property REGEX_MATCH() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBPM_PROFILE_CONTROLS ist DBNull"& _ - ".", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn) = value End Set End Property _ - Public Property HEIGHT() As Short + Public Property REGEX_MESSAGE_EN() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn) = value End Set End Property _ - Public Property WIDTH() As Short + Public Property REGEX_MESSAGE_DE() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn) = value End Set End Property _ - Public Property FONT_STYLE() As Short + Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_PROFILE_CONTROLSRow) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")) End Set End Property _ - Public Property FONT_SIZE() As Short + Public Property TBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBWH_CHECK_PROFILE_CONTROLSRow) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")) End Set End Property _ - Public Property FONT_FAMILY() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = value - End Set - End Property + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) + End Function _ - Public Property FONT_COLOR() As Long + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_COMMANDNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) + End Function + + _ + Public Sub SetSQL_COMMANDNull() + Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = value + Me(Me.tableTBDD_GROUPS.GUIDColumn) = value End Set End Property _ - Public Property READ_ONLY() As Boolean + Public Property NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) + Try + Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn) = value + Me(Me.tableTBDD_GROUPS.NAMEColumn) = value End Set End Property _ - Public Property LOAD_IDX_VALUE() As Boolean + Public Property ECM_FK_ID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) + Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn) = value + Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value End Set End Property _ - Public Property DEFAULT_VALUE() As String + Public Property AD_SYNC() As Boolean Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = value + Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value End Set End Property _ - Public Property MULTISELECT() As Boolean + Public Property INTERNAL() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) + Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn) = value + Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value End Set End Property _ - Public Property VKT_ADD_ITEM() As Boolean + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) + Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn) = value + Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value End Set End Property _ - Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) + Try + Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value End Set End Property _ - Public Property REGEX_MATCH() As String + Public Property ADDED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value End Set End Property _ - Public Property REGEX_MESSAGE_DE() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn) = value + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value End Set End Property _ - Public Property REGEX_MESSAGE_EN() As String + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn) = value + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value End Set End Property _ - Public Property TBPM_PROFILERow() As TBPM_PROFILERow + Public Property CHANGED_WHEN() As Date Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILERow) + Try + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")) + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ - Public Sub SetINDEX_NAMENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) End Function _ - Public Sub SetTYPNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) End Function _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPROFILE_GROUPRow + Inherits Global.System.Data.DataRow - _ - Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) - End Function + Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable _ - Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) End Sub _ - Public Function IsFONT_STYLENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) - End Function + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPROFILE_GROUP.GUIDColumn) = value + End Set + End Property _ - Public Sub SetFONT_STYLENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull - End Sub + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = value + End Set + End Property _ - Public Function IsFONT_SIZENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) End Function _ - Public Sub SetFONT_SIZENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFONT_FAMILYNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) End Function _ - Public Sub SetFONT_FAMILYNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFONT_COLORNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) End Function _ - Public Sub SetFONT_COLORNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDEFAULT_VALUENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) End Function _ - Public Sub SetDEFAULT_VALUENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsREGEX_MATCHNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) End Function _ - Public Sub SetREGEX_MATCHNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() - If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1") Is Nothing) Then - Return New TBPM_CONTROL_TABLERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_CONTROL_TABLERow()) - End If + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_CONTROL_TABLERow + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILERow Inherits Global.System.Data.DataRow - Private tableTBPM_CONTROL_TABLE As TBPM_CONTROL_TABLEDataTable + Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_CONTROL_TABLE = CType(Me.Table,TBPM_CONTROL_TABLEDataTable) + Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) End Sub _ - Public Property GUID() As Integer + Public Property SequentialOrder() As Integer Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn),Integer) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn) = value End Set End Property _ - Public Property CONTROL_ID() As Integer + Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn),Integer) + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNull."& _ + "", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = value End Set End Property _ - Public Property SPALTENNAME() As String + Public Property USER_NAME() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn),String) + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_NAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNul"& _ + "l.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = value End Set End Property _ - Public Property SPALTEN_HEADER() As String + Public Property USER_PRENAME() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn),String) + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = value End Set End Property _ - Public Property SPALTENBREITE() As Integer + Public Property USER_SURNAME() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn),Integer) + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property USER_SHORTNAME() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn),Boolean) + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SHORTNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist "& _ + "DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property USER_EMAIL() As String Get Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_EMAIL in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property USER_LANGUAGE() As String Get Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_LANGUAGE in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = value End Set End Property _ - Public Property SQL_COMMAND() As String + Public Property USER_COMMENT() As String Get Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_COMMENT in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = value End Set End Property _ - Public Property READ_ONLY() As Boolean - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn) = value - End Set - End Property - - _ - Public Property LOAD_IDX_VALUE() As Boolean - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = value - End Set - End Property + Public Function IsUSER_IDNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) + End Function _ - Public Property REGEX_MATCH() As String - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn),String) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn) = value - End Set - End Property + Public Sub SetUSER_IDNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property REGEX_MESSAGE_EN() As String - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn),String) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn) = value - End Set - End Property + Public Function IsUSER_NAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) + End Function _ - Public Property REGEX_MESSAGE_DE() As String - Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn),String) - End Get - Set - Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn) = value - End Set - End Property + Public Sub SetUSER_NAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_PROFILE_CONTROLSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")) - End Set - End Property + Public Function IsUSER_PRENAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) + End Function _ - Public Property TBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBWH_CHECK_PROFILE_CONTROLSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")) - End Set - End Property + Public Sub SetUSER_PRENAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) + Public Function IsUSER_SURNAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) End Function _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_SURNAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) + Public Function IsUSER_SHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_SHORTNAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL_COMMANDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) + Public Function IsUSER_EMAILNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) End Function _ - Public Sub SetSQL_COMMANDNull() - Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_EMAILNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) + Public Function IsUSER_LANGUAGENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_LANGUAGENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) + Public Function IsUSER_COMMENTNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_COMMENTNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_GROUPSRow + Partial Public Class TBWH_CONNECTIONRow Inherits Global.System.Data.DataRow - Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) + Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) End Sub _ - Public Property GUID() As Integer + Public Property GUID() As Short Get - Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) End Get Set - Me(Me.tableTBDD_GROUPS.GUIDColumn) = value + Me(Me.tableTBWH_CONNECTION.GUIDColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property BEZEICHNUNG() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) + Return CType(Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.NAMEColumn) = value + Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ - Public Property ECM_FK_ID() As Integer + Public Property SQL_PROVIDER() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value + Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property AD_SYNC() As Boolean + Public Property SERVER() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) + Try + Return CType(Me(Me.tableTBWH_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value + Me(Me.tableTBWH_CONNECTION.SERVERColumn) = value End Set End Property _ - Public Property INTERNAL() As Boolean + Public Property DATENBANK() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) + Try + Return CType(Me(Me.tableTBWH_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value + Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = value End Set End Property _ - Public Property ACTIVE() As Boolean + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) + Try + Return CType(Me(Me.tableTBWH_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value + Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property PASSWORD() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Return CType(Me(Me.tableTBWH_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBWH_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value + Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property BEMERKUNG() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value + Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property AKTIV() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) End Get Set - Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value + Me(Me.tableTBWH_CONNECTION.AKTIVColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ERSTELLTWER() As String Get - Try - Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value + Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property ERSTELLTWANN() As Date + Get + Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) + End Get + Set + Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBWH_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value + Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetSERVERNull() + Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetDATENBANKNull() + Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetUSERNAMENull() + Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetPASSWORDNull() + Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBPROFILE_GROUPRow - Inherits Global.System.Data.DataRow + _ + Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent + Inherits Global.System.EventArgs - Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable + Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) + Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property GUID() As Integer + Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow Get - Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) + Return Me.eventRow End Get - Set - Me(Me.tableTBPROFILE_GROUP.GUIDColumn) = value - End Set End Property _ - Public Property NAME() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_KONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_KONFIGURATIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property COMMENT() As String + Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property Row() As TBDD_USERRow Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_TYPERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) - End Function + Public ReadOnly Property Row() As TBPM_TYPERow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_ERROR_LOGRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) - End Function + Private eventRow As TBPM_ERROR_LOGRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) - End Function + Public ReadOnly Property Row() As TBPM_ERROR_LOGRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) - End Function + Private eventRow As TBDD_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) - End Function + Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILERow - Inherits Global.System.Data.DataRow + _ + Public Class TBPROFILE_USERRowChangeEvent + Inherits Global.System.EventArgs - Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Private eventRow As TBPROFILE_USERRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) + Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property SequentialOrder() As Integer + Public ReadOnly Property Row() As TBPROFILE_USERRow Get - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) + Return Me.eventRow End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn) = value - End Set End Property _ - Public Property USER_ID() As Integer + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNull."& _ - "", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILE_FILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_PROFILE_FILESRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property USER_NAME() As String - Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_NAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNul"& _ - "l.", e) - End Try - End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property USER_PRENAME() As String + Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ - "Null.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = value - End Set End Property _ - Public Property USER_SURNAME() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ - "Null.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property USER_SHORTNAME() As String - Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SHORTNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist "& _ - "DBNull.", e) - End Try - End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property USER_EMAIL() As String + Public ReadOnly Property Row() As TBPM_PROFILERow Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_EMAIL in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNu"& _ - "ll.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = value - End Set End Property _ - Public Property USER_LANGUAGE() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_LANGUAGE in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist D"& _ - "BNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Property USER_COMMENT() As String - Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_COMMENT in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ - "Null.", e) - End Try - End Get - Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = value - End Set - End Property + Private eventRow As TBWH_CHECK_PROFILE_CONTROLSRow - _ - Public Function IsUSER_IDNull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) - End Function + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetUSER_IDNull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsUSER_NAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) - End Function + Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetUSER_NAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILE_CONTROLSRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsUSER_PRENAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) - End Function + Private eventRow As TBPM_PROFILE_CONTROLSRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetUSER_PRENAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsUSER_SURNAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) - End Function + Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetUSER_SURNAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_CONTROL_TABLERowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsUSER_SHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) - End Function + Private eventRow As TBPM_CONTROL_TABLERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetUSER_SHORTNAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsUSER_EMAILNull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) - End Function + Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetUSER_EMAILNull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GROUPSRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsUSER_LANGUAGENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) - End Function + Private eventRow As TBDD_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetUSER_LANGUAGENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsUSER_COMMENTNull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) - End Function + Public ReadOnly Property Row() As TBDD_GROUPSRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetUSER_COMMENTNull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBWH_CONNECTIONRow - Inherits Global.System.Data.DataRow + _ + Public Class TBPROFILE_GROUPRowChangeEvent + Inherits Global.System.EventArgs - Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable + Private eventRow As TBPROFILE_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) + Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property GUID() As Short + Public ReadOnly Property Row() As TBPROFILE_GROUPRow Get - Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) + Return Me.eventRow End Get - Set - Me(Me.tableTBWH_CONNECTION.GUIDColumn) = value - End Set End Property _ - Public Property BEZEICHNUNG() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent + Inherits Global.System.EventArgs - _ - Public Property SQL_PROVIDER() As String - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = value - End Set - End Property + Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property SERVER() As String - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.SERVERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.SERVERColumn) = value - End Set - End Property + Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property DATENBANK() As String + Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.DATENBANKColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property PASSWORD() As String - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.PASSWORDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = value - End Set - End Property - - _ - Public Property BEMERKUNG() As String - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = value - End Set - End Property - - _ - Public Property AKTIV() As Boolean - Get - Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) - End Get - Set - Me(Me.tableTBWH_CONNECTION.AKTIVColumn) = value - End Set - End Property - - _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) - End Get - Set - Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn) = value - End Set - End Property - - _ - Public Property ERSTELLTWANN() As Date - Get - Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) - End Get - Set - Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn) = value - End Set - End Property - - _ - Public Property GEANDERTWER() As String - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = value - End Set - End Property - - _ - Public Property GEAENDERTWANN() As Date - Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = value - End Set - End Property - - _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) - End Function - - _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) - End Function - - _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) - End Function - - _ - Public Sub SetSERVERNull() - Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) - End Function - - _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) - End Function - - _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) - End Function - - _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) - End Function - - _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) - End Function - - _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) - End Function - - _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow - Get - Return Me.eventRow + Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_KONFIGURATIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_KONFIGURATIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_USERRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_TYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_TYPERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_TYPERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_ERROR_LOGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_ERROR_LOGRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_ERROR_LOGRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWPM_CONTROL_INDEXRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWPM_CONTROL_INDEXRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWPM_CONTROL_INDEXRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWPM_CONTROL_INDEXRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_CONNECTIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_CONNECTIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPROFILE_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPROFILE_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPROFILE_USERRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILE_FILESRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_FILESRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_CHECK_PROFILE_CONTROLSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILE_CONTROLSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_CONTROLSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_CONTROL_TABLERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_CONTROL_TABLERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_GROUPSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_GROUPSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_GROUPSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPROFILE_GROUPRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPROFILE_GROUPRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPROFILE_GROUPRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_CONNECTIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWH_CONNECTIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class -End Class - -Namespace DD_DMSLiteDataSetTableAdapters - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_PROFILE_FINAL_INDEXING" - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("IF_VEKTOR_BEHAVIOUR", "IF_VEKTOR_BEHAVIOUR") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ - "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ - "IF_VEKTOR_BEHAVIOUR)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING."& _ - "VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ - "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ - "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ - "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ - "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ - "_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE"& _ - " ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBP"& _ - "M_PROFILE.NAME = @name)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ - "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ - "IF_VEKTOR_BEHAVIOUR)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ - "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ - " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROFIL_ID = @Copy_Profil_ID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONNECTION_ID = @CON"& _ - "_ID, SQL_COMMAND = @COMMAND, CHANGED_WHO = @WHO, IF_VEKTOR_BEHAVIOUR = @IF_VEKTO"& _ - "R_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CON_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING"& _ - ".ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXIN"& _ - "G.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM"& _ - "_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFI"& _ - "LE_FINAL_INDEXING.SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_IND"& _ - "EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROF"& _ - "ILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ - "TBPM_PROFILE.GUID = @ID)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) - End If - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(6) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(6) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(guid,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal IF_VEKTOR_BEHAVIOUR As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - command.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("VALUE") - Else - command.Parameters(2).Value = CType(VALUE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - command.Parameters(3).Value = CType(ADDED_WHO,String) - End If - command.Parameters(4).Value = CType(CONNECTION_ID,Short) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - command.Parameters(5).Value = CType(SQL_COMMAND,String) - End If - If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then - Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") - Else - command.Parameters(6).Value = CType(IF_VEKTOR_BEHAVIOUR,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - If (NEW_PROFIL_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") - Else - command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) - End If - If (User Is Nothing) Then - Throw New Global.System.ArgumentNullException("User") - Else - command.Parameters(1).Value = CType(User,String) - End If - command.Parameters(2).Value = CType(Copy_Profil_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Row() As TBWH_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - command.Parameters(0).Value = CType(CON_ID,Short) - If (COMMAND1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMAND1") - Else - command.Parameters(1).Value = CType(COMMAND1,String) - End If - If (WHO Is Nothing) Then - command.Parameters(2).Value = Global.System.DBNull.Value - Else - command.Parameters(2).Value = CType(WHO,String) - End If - If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then - Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") - Else - command.Parameters(3).Value = CType(IF_VEKTOR_BEHAVIOUR,String) - End If - command.Parameters(4).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class +End Class + +Namespace DD_DMSLiteDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -14184,7 +12467,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPM_KONFIGURATIONTableAdapter + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -14301,72 +12584,43 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_KONFIGURATION" + tableMapping.DataSetTable = "TBPM_PROFILE_FINAL_INDEXING" + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("LIZENZEN", "LIZENZEN") - tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") - tableMapping.ColumnMappings.Add("INTERVALL_CKECK_NO_OF_FILES", "INTERVALL_CKECK_NO_OF_FILES") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") - tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") - tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") - tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") - tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") - tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") - tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") - tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("IF_VEKTOR_BEHAVIOUR", "IF_VEKTOR_BEHAVIOUR") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_KONFIGURATION] WHERE (([GUID] = @Original_GUID))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_KONFIGURATION] ([GUID], [LIZENZEN], [ERFASSTWER], [ERSTELLTWER]"& _ - ", [ERSTELLTWANN], [GEAENDERTWER], [INTERVALL_CKECK_NO_OF_FILES], [GEAENDERTWANN]"& _ - ") VALUES (@GUID, @LIZENZEN, @ERFASSTWER, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERT"& _ - "WER, @INTERVALL_CKECK_NO_OF_FILES, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, ERFA"& _ - "SSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GE"& _ - "AENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ + "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ + "IF_VEKTOR_BEHAVIOUR)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LIZENZEN = @LIZENZEN, GEAENDE"& _ - "RTWER = @GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES = @INTERVALL_CKECK_NO_OF_FILE"& _ - "S, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "& _ - "EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL"& _ - "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, VEKTOR_DELIMITER = @VEKTOR_DELIMITER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, ERFASSTWER, "& _ - "ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GEAENDERTW"& _ - "ANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, LIZENZEN, ERFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER"& _ - ", INTERVALL_CKECK_NO_OF_FILES, GEAENDERTWANN, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ - "TP, EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_PW, EMAIL_REMINDER_HEADER, EMAI"& _ - "L_REMINDER_FOOTER, VEKTOR_DELIMITER, ADMIN_PW, ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ - "BPM_KONFIGURATION" + Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING."& _ + "VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ + "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ + "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ + "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ + "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ + "_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE"& _ + " ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBP"& _ + "M_PROFILE.NAME = @name)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _ - "1)" + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (G"& _ - "UID = 1)" + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT VEKTOR_DELIMITER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - "(GUID = 1)" + Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ + "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ + "IF_VEKTOR_BEHAVIOUR)" Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)" + Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ + "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @Copy_Profil_ID)" Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ADMIN_PW = @ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = 1)" + Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONNECTION_ID = @CON"& _ + "_ID, SQL_COMMAND = @COMMAND, CHANGED_WHO = @WHO, IF_VEKTOR_BEHAVIOUR = @IF_VEKTO"& _ + "R_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CON_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ - " EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMT"& _ - "P, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EM"& _ - "AIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER = @EMAIL_REM"& _ - "INDER_FOOTER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, E"& _ - "RFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES,"& _ - " GEAENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._commandCollection(6).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING"& _ + ".ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXIN"& _ + "G.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM"& _ + "_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFI"& _ + "LE_FINAL_INDEXING.SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_IND"& _ + "EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROF"& _ + "ILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ + "TBPM_PROFILE.GUID = @ID)" Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(7).Connection = Me.Connection - Me._commandCollection(7).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ - " LIZENZEN = @LIZENZEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" - Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -14459,156 +12731,102 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable + Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable = New DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable() + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) + End If + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_KONFIGURATION") + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer + Return Me.Adapter.Update(dataTable) End Function _ - Public Overloads Overridable Function cmdGetAdminPW() As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") End Function _ - Public Overloads Overridable Function cmdGetAdminSecurity() As Global.System.Nullable(Of Boolean) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Boolean)() - Else - Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) - End If + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ - Public Overloads Overridable Function cmdGetDelimiter() As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) End Function _ - Public Overloads Overridable Function cmdGetLizenz() As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(guid,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Object + Dim returnValue As Integer Try - returnValue = command.ExecuteScalar + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Return returnValue End Function _ - Public Overloads Overridable Function cmdSetAdminPW(ByVal ADMIN_PW As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - If (ADMIN_PW Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(ADMIN_PW,String) - End If + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -14627,48 +12845,68 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function cmdUpdateEmail(ByVal GEAENDERTWER As String, ByVal EMAIL_ACTIVE As Boolean, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal EMAIL_REMINDER_HEADER As String, ByVal EMAIL_REMINDER_FOOTER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) - If (GEAENDERTWER Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal IF_VEKTOR_BEHAVIOUR As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") Else - command.Parameters(0).Value = CType(GEAENDERTWER,String) + command.Parameters(1).Value = CType(INDEXNAME,String) End If - command.Parameters(1).Value = CType(EMAIL_ACTIVE,Boolean) - If (EMAIL_FROM Is Nothing) Then - command.Parameters(2).Value = Global.System.DBNull.Value + If (VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("VALUE") Else - command.Parameters(2).Value = CType(EMAIL_FROM,String) + command.Parameters(2).Value = CType(VALUE,String) End If - If (EMAIL_SMTP Is Nothing) Then - command.Parameters(3).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - command.Parameters(3).Value = CType(EMAIL_SMTP,String) + command.Parameters(3).Value = CType(ADDED_WHO,String) End If - If (EMAIL_USER Is Nothing) Then - command.Parameters(4).Value = Global.System.DBNull.Value + command.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else - command.Parameters(4).Value = CType(EMAIL_USER,String) + command.Parameters(5).Value = CType(SQL_COMMAND,String) End If - If (EMAIL_PW Is Nothing) Then - command.Parameters(5).Value = Global.System.DBNull.Value + If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then + Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") Else - command.Parameters(5).Value = CType(EMAIL_PW,String) + command.Parameters(6).Value = CType(IF_VEKTOR_BEHAVIOUR,String) End If - If (EMAIL_REMINDER_HEADER Is Nothing) Then - command.Parameters(6).Value = Global.System.DBNull.Value + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + If (NEW_PROFIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") Else - command.Parameters(6).Value = CType(EMAIL_REMINDER_HEADER,String) + command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) End If - If (EMAIL_REMINDER_FOOTER Is Nothing) Then - command.Parameters(7).Value = Global.System.DBNull.Value + If (User Is Nothing) Then + Throw New Global.System.ArgumentNullException("User") Else - command.Parameters(7).Value = CType(EMAIL_REMINDER_FOOTER,String) + command.Parameters(1).Value = CType(User,String) End If - command.Parameters(8).Value = CType(Original_GUID,Byte) - command.Parameters(9).Value = CType(GUID,Byte) + command.Parameters(2).Value = CType(Copy_Profil_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -14687,20 +12925,26 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function CmdUpdateLizenz(ByVal GEAENDERTWER As String, ByVal LIZENZEN As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) - If (GEAENDERTWER Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + command.Parameters(0).Value = CType(CON_ID,Short) + If (COMMAND1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COMMAND1") Else - command.Parameters(0).Value = CType(GEAENDERTWER,String) + command.Parameters(1).Value = CType(COMMAND1,String) End If - If (LIZENZEN Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value + If (WHO Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value Else - command.Parameters(1).Value = CType(LIZENZEN,String) + command.Parameters(2).Value = CType(WHO,String) + End If + If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then + Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") + Else + command.Parameters(3).Value = CType(IF_VEKTOR_BEHAVIOUR,String) End If + command.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -14727,7 +12971,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_USERTableAdapter + Partial Public Class TBPM_KONFIGURATIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -14844,84 +13088,72 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER" + tableMapping.DataSetTable = "TBPM_KONFIGURATION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("LIZENZEN", "LIZENZEN") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("INTERVALL_CKECK_NO_OF_FILES", "INTERVALL_CKECK_NO_OF_FILES") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") + tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") + tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") + tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ - "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ - "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ - "l_USERNAME) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original"& _ - "_EMAIL)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ - "D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_"& _ - "CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED"& _ - "_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_W"& _ - "HEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL)"& _ - " OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME]"& _ - " IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_KONFIGURATION] WHERE (([GUID] = @Original_GUID))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ - "ADDED_WHO, COMMENT, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@"& _ - "ADDED_WHO,@COMMENT,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, A"& _ - "DDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME FROM TBDD_US"& _ - "ER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_KONFIGURATION] ([GUID], [LIZENZEN], [ERFASSTWER], [ERSTELLTWER]"& _ + ", [ERSTELLTWANN], [GEAENDERTWER], [INTERVALL_CKECK_NO_OF_FILES], [GEAENDERTWANN]"& _ + ") VALUES (@GUID, @LIZENZEN, @ERFASSTWER, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERT"& _ + "WER, @INTERVALL_CKECK_NO_OF_FILES, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, ERFA"& _ + "SSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GE"& _ + "AENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ - "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"& _ - ", SHORTNAME = @SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, P"& _ - "RENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ - " COMMENT, SHORTNAME FROM TBDD_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LIZENZEN = @LIZENZEN, GEAENDE"& _ + "RTWER = @GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES = @INTERVALL_CKECK_NO_OF_FILE"& _ + "S, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "& _ + "EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL"& _ + "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, VEKTOR_DELIMITER = @VEKTOR_DELIMITER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, ERFASSTWER, "& _ + "ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GEAENDERTW"& _ + "ANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN, COMMENT, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_USER_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (SHORT_NAME = 'PM')))))" + Me._commandCollection(0).CommandText = "SELECT GUID, LIZENZEN, ERFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER"& _ + ", INTERVALL_CKECK_NO_OF_FILES, GEAENDERTWANN, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ + "TP, EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_PW, EMAIL_REMINDER_HEADER, EMAI"& _ + "L_REMINDER_FOOTER, VEKTOR_DELIMITER, ADMIN_PW, ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BPM_KONFIGURATION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.EMAIL, T1.ADDED_WHO, "& _ - "T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN, T1.COMMENT, T1.SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_USER_MODULES AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER "& _ - "AS T1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD"& _ - "_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (SHORT_NAME = 'PM'))) AND "& _ - "(T.USER_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (PROFIL_ID = @PROFILE_ID)))" + Me._commandCollection(1).CommandText = "SELECT ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _ + "1)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (G"& _ + "UID = 1)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT VEKTOR_DELIMITER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = 1)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ADMIN_PW = @ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = 1)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ + " EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMT"& _ + "P, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EM"& _ + "AIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER = @EMAIL_REM"& _ + "INDER_FOOTER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, E"& _ + "RFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES,"& _ + " GEAENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ + " LIZENZEN = @LIZENZEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -14978,35 +13246,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_USERDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable = New DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -15014,7 +13256,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -15022,7 +13264,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER") + Return Me.Adapter.Update(dataSet, "TBPM_KONFIGURATION") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COMMENT As String, ByVal Original_SHORTNAME As String) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_PRENAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) - End If - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NAME,String) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function cmdGetAdminPW() As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (Original_USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USERNAME") + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) + Return CType(returnValue,String) End If - If (Original_EMAIL Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EMAIL,String) + End Function + + _ + Public Overloads Overridable Function cmdGetAdminSecurity() As Global.System.Nullable(Of Boolean) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Boolean)() Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End Function + + _ + Public Overloads Overridable Function cmdGetDelimiter() As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + Return CType(returnValue,String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End Function + + _ + Public Overloads Overridable Function cmdGetLizenz() As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COMMENT,String) + Return CType(returnValue,String) End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + End Function + + _ + Public Overloads Overridable Function cmdSetAdminPW(ByVal ADMIN_PW As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + If (ADMIN_PW Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_SHORTNAME,String) + command.Parameters(0).Value = CType(ADMIN_PW,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function _ - Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _ + Public Overloads Overridable Function cmdUpdateEmail(ByVal GEAENDERTWER As String, ByVal EMAIL_ACTIVE As Boolean, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal EMAIL_REMINDER_HEADER As String, ByVal EMAIL_REMINDER_FOOTER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + command.Parameters(0).Value = CType(GEAENDERTWER,String) End If - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + command.Parameters(1).Value = CType(EMAIL_ACTIVE,Boolean) + If (EMAIL_FROM Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + command.Parameters(2).Value = CType(EMAIL_FROM,String) End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + If (EMAIL_SMTP Is Nothing) Then + command.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + command.Parameters(3).Value = CType(EMAIL_SMTP,String) End If - If (EMAIL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (EMAIL_USER Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + command.Parameters(4).Value = CType(EMAIL_USER,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (EMAIL_PW Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + command.Parameters(5).Value = CType(EMAIL_PW,String) End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + If (EMAIL_REMINDER_HEADER Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) + command.Parameters(6).Value = CType(EMAIL_REMINDER_HEADER,String) End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + If (EMAIL_REMINDER_FOOTER Is Nothing) Then + command.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) + command.Parameters(7).Value = CType(EMAIL_REMINDER_FOOTER,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + command.Parameters(8).Value = CType(Original_GUID,Byte) + command.Parameters(9).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function _ - Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _ + Public Overloads Overridable Function CmdUpdateLizenz(ByVal GEAENDERTWER As String, ByVal LIZENZEN As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) + command.Parameters(0).Value = CType(GEAENDERTWER,String) End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + If (LIZENZEN Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) + command.Parameters(1).Value = CType(LIZENZEN,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function End Class @@ -15248,7 +13514,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPM_TYPETableAdapter + Partial Public Class TBDD_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -15365,68 +13631,84 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_TYPE" + tableMapping.DataSetTable = "TBDD_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Or"& _ - "iginal_BEZEICHNUNG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = "& _ - "@Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O"& _ - "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ - "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ + "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ + "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ + "l_USERNAME) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original"& _ + "_EMAIL)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ + "D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_"& _ + "CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED"& _ + "_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_W"& _ + "HEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL)"& _ + " OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME]"& _ + " IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_TYPE] ([BEZEICHNUNG], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO],"& _ - " [CHANGED_WHEN]) VALUES (@BEZEICHNUNG, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @C"& _ - "HANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ - "NGED_WHEN FROM TBPM_TYPE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "ADDED_WHO, COMMENT, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@"& _ + "ADDED_WHO,@COMMENT,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, A"& _ + "DDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME FROM TBDD_US"& _ + "ER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_TYPE] SET [BEZEICHNUNG] = @BEZEICHNUNG, [ADDED_WHO] = @ADDED_WHO, [A"& _ - "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ - "D_WHEN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNU"& _ - "NG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_"& _ - "WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO]"& _ - " = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS "& _ - "NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG,"& _ - " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPM_TYPE WHERE (GUID = @"& _ - "GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"& _ + ", SHORTNAME = @SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, P"& _ + "RENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ + " COMMENT, SHORTNAME FROM TBDD_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_TYPE" + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN, COMMENT, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_USER_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (SHORT_NAME = 'PM')))))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.EMAIL, T1.ADDED_WHO, "& _ + "T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN, T1.COMMENT, T1.SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_USER_MODULES AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER "& _ + "AS T1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD"& _ + "_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (SHORT_NAME = 'PM'))) AND "& _ + "(T.USER_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (PROFIL_ID = @PROFILE_ID)))" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -15463,9 +13765,35 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_TYPEDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable = New DD_DMSLiteDataSet.TBPM_TYPEDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -15473,7 +13801,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -15481,7 +13809,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_TYPE") + Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) - If (Original_BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COMMENT As String, ByVal Original_SHORTNAME As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_PRENAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) + End If + If (Original_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NAME,String) + End If + If (Original_USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USERNAME") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BEZEICHNUNG,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) + End If + If (Original_EMAIL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EMAIL,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COMMENT,String) + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_SHORTNAME,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -15548,27 +13917,41 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + If (SHORTNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -15589,55 +13972,44 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Short) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Short) - If (Original_BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Short) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -15652,14 +14024,6 @@ Namespace DD_DMSLiteDataSetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_BEZEICHNUNG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function End Class ''' @@ -15671,7 +14035,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPM_ERROR_LOGTableAdapter + Partial Public Class TBPM_TYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -15788,47 +14152,68 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_ERROR_LOG" + tableMapping.DataSetTable = "TBPM_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") - tableMapping.ColumnMappings.Add("ERROR_MSG", "ERROR_MSG") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Or"& _ + "iginal_BEZEICHNUNG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = "& _ + "@Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O"& _ + "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ + "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, ERROR_MSG, ADDED"& _ - "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@ERROR_MSG,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_I"& _ - "D, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERROR_LOG WHERE (GUID = SCOPE_IDEN"& _ - "TITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_TYPE] ([BEZEICHNUNG], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO],"& _ + " [CHANGED_WHEN]) VALUES (@BEZEICHNUNG, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @C"& _ + "HANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ + "NGED_WHEN FROM TBPM_TYPE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_ERROR_LOG] SET [PROFIL_ID] = @PROFIL_ID, [ERROR_MSG] = @ERROR_MSG, ["& _ - "ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_G"& _ - "UID) AND ([PROFIL_ID] = @Original_PROFIL_ID) AND ([ERROR_MSG] = @Original_ERROR_"& _ - "MSG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED"& _ - "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERR"& _ - "OR_LOG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_TYPE] SET [BEZEICHNUNG] = @BEZEICHNUNG, [ADDED_WHO] = @ADDED_WHO, [A"& _ + "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ + "D_WHEN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNU"& _ + "NG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_"& _ + "WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO]"& _ + " = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS "& _ + "NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPM_TYPE WHERE (GUID = @"& _ + "GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - "TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ADDED_WHEN DESC" + Me._commandCollection(0).CommandText = "SELECT TBPM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_TYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_ERROR_LOG" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROF_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -15875,9 +14250,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_TYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable = New DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable = New DD_DMSLiteDataSet.TBPM_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -15885,7 +14260,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -15893,7 +14268,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_ERROR_LOG") + Return Me.Adapter.Update(dataSet, "TBPM_TYPE") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -15935,17 +14335,27 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (ERROR_MSG Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERROR_MSG") + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ERROR_MSG,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -15966,25 +14376,33 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (ERROR_MSG Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERROR_MSG") + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ERROR_MSG,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_PROFIL_ID,Integer) - If (Original_ERROR_MSG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ERROR_MSG") + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ERROR_MSG,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Short) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BEZEICHNUNG,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") @@ -15992,7 +14410,21 @@ Namespace DD_DMSLiteDataSetTableAdapters Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -16012,53 +14444,8 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date) As Integer - Return Me.Update(PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_PROFIL_ID, Original_ERROR_MSG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) - End Function - - _ - Public Overloads Overridable Function CmdDelete() As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function DeletePROFIL(ByVal PROF_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROF_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_BEZEICHNUNG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -16071,7 +14458,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPM_CONTROL_INDEXTableAdapter + Partial Public Class TBPM_ERROR_LOGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -16188,35 +14575,47 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWPM_CONTROL_INDEX" + tableMapping.DataSetTable = "TBPM_ERROR_LOG" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") - tableMapping.ColumnMappings.Add("PROFIL_NAME", "PROFIL_NAME") - tableMapping.ColumnMappings.Add("CTRL_NAME", "CTRL_NAME") - tableMapping.ColumnMappings.Add("CTRL_TYPE", "CTRL_TYPE") - tableMapping.ColumnMappings.Add("CTRL_TEXT", "CTRL_TEXT") - tableMapping.ColumnMappings.Add("X_LOC", "X_LOC") - tableMapping.ColumnMappings.Add("Y_LOC", "Y_LOC") - tableMapping.ColumnMappings.Add("INDEX_NAME", "INDEX_NAME") - tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") - tableMapping.ColumnMappings.Add("TYP", "TYP") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_UEBERPRUEFUNG", "SQL_UEBERPRUEFUNG") - tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") - tableMapping.ColumnMappings.Add("FONT_COLOR", "FONT_COLOR") - tableMapping.ColumnMappings.Add("FONT_FAMILY", "FONT_FAMILY") - tableMapping.ColumnMappings.Add("FONT_SIZE", "FONT_SIZE") - tableMapping.ColumnMappings.Add("FONT_STYLE", "FONT_STYLE") - tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") - tableMapping.ColumnMappings.Add("HEIGHT", "HEIGHT") - tableMapping.ColumnMappings.Add("READ_ONLY", "READ_ONLY") - tableMapping.ColumnMappings.Add("LOAD_IDX_VALUE", "LOAD_IDX_VALUE") - tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX") - tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") - tableMapping.ColumnMappings.Add("REGEX_MATCH", "REGEX_MATCH") - tableMapping.ColumnMappings.Add("REGEX_MESSAGE_DE", "REGEX_MESSAGE_DE") - tableMapping.ColumnMappings.Add("REGEX_MESSAGE_EN", "REGEX_MESSAGE_EN") + tableMapping.ColumnMappings.Add("ERROR_MSG", "ERROR_MSG") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, ERROR_MSG, ADDED"& _ + "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@ERROR_MSG,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_I"& _ + "D, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERROR_LOG WHERE (GUID = SCOPE_IDEN"& _ + "TITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_ERROR_LOG] SET [PROFIL_ID] = @PROFIL_ID, [ERROR_MSG] = @ERROR_MSG, ["& _ + "ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_G"& _ + "UID) AND ([PROFIL_ID] = @Original_PROFIL_ID) AND ([ERROR_MSG] = @Original_ERROR_"& _ + "MSG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED"& _ + "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERR"& _ + "OR_LOG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LO"& _ - "C, Y_LOC, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, INDEX_N"& _ - "AME, VALIDATION, CHOICE_LIST, TYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_ID, SQL"& _ - "_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE, REGEX_MATCH"& _ - ", REGEX_MESSAGE_DE, REGEX_MESSAGE_EN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CONTROL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (LOWER(PROFIL_NAME) = LOWER(@Profil))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC" + Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + "TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ADDED_WHEN DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CONTROL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID ="& _ - " @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)" + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_ERROR_LOG" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRoFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRLNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT INDEX_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CONTROL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFI"& _ - "L_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)" + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROF_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRoFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRLNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT CTRL_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CONTROL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL"& _ - "_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRoFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRLNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "SELECT LOAD_IDX_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CONTROL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (P"& _ - "ROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRoFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRLNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "SELECT GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LO"& _ - "C, Y_LOC, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, INDEX_N"& _ - "AME, VALIDATION, CHOICE_LIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TYP, CONNECTION_ID, SQL"& _ - "_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CONTR"& _ - "OL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable, ByVal Profil As String) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Profil Is Nothing) Then - Throw New Global.System.ArgumentNullException("Profil") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil,String) - End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -16301,170 +14662,190 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal Profil As String) As DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Profil Is Nothing) Then - Throw New Global.System.ArgumentNullException("Profil") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil,String) - End If - Dim dataTable As DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable = New DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable = New DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function FillByPROFIL_ID(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable, ByVal PROFIL_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(5) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_ERROR_LOG") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) End Function _ - Public Overloads Overridable Function GetDataByPROFIL_ID(ByVal PROFIL_ID As Integer) As DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(5) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable = New DD_DMSLiteDataSet.VWPM_CONTROL_INDEXDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try End Function _ - Public Overloads Overridable Function cmdGetControlID(ByVal PRoFIL_ID As Integer, ByVal CTRLNAME As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(PRoFIL_ID,Integer) - If (CTRLNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRLNAME") + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (ERROR_MSG Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERROR_MSG") Else - command.Parameters(1).Value = CType(CTRLNAME,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ERROR_MSG,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If End Function _ - Public Overloads Overridable Function CMDGetINDEX_NAME(ByVal PRoFIL_ID As Integer, ByVal CTRLNAME As String) As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PRoFIL_ID,Integer) - If (CTRLNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRLNAME") + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (ERROR_MSG Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERROR_MSG") Else - command.Parameters(1).Value = CType(CTRLNAME,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ERROR_MSG,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_PROFIL_ID,Integer) + If (Original_ERROR_MSG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERROR_MSG") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ERROR_MSG,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If End Function _ - Public Overloads Overridable Function cmdGetType(ByVal PRoFIL_ID As Integer, ByVal CTRLNAME As String) As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(PRoFIL_ID,Integer) - If (CTRLNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRLNAME") - Else - command.Parameters(1).Value = CType(CTRLNAME,String) - End If + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date) As Integer + Return Me.Update(PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_PROFIL_ID, Original_ERROR_MSG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function CmdDelete() As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Object + Dim returnValue As Integer Try - returnValue = command.ExecuteScalar + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Return returnValue End Function _ - Public Overloads Overridable Function cmdLoadIDX(ByVal PRoFIL_ID As Integer, ByVal CTRLNAME As String) As Global.System.Nullable(Of Boolean) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - command.Parameters(0).Value = CType(PRoFIL_ID,Integer) - If (CTRLNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRLNAME") - Else - command.Parameters(1).Value = CType(CTRLNAME,String) - End If + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function DeletePROFIL(ByVal PROF_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROF_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Object + Dim returnValue As Integer Try - returnValue = command.ExecuteScalar + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Boolean)() - Else - Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) - End If + Return returnValue End Function End Class @@ -22242,57 +20623,57 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -22338,51 +20719,51 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(addedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -22396,51 +20777,51 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 10948aa..8c2adb1 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -639,121 +639,6 @@ WHERE (PROFIL_ID = @PROF_ID) - - - - - - 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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT GUID -FROM VWPM_CONTROL_INDEX -WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME) - - - - - - - - - - - SELECT INDEX_NAME -FROM VWPM_CONTROL_INDEX -WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME) - - - - - - - - - - - SELECT CTRL_TYPE -FROM VWPM_CONTROL_INDEX -WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME) - - - - - - - - - - - SELECT LOAD_IDX_VALUE -FROM VWPM_CONTROL_INDEX -WHERE (PROFIL_ID = @PRoFIL_ID) AND (CTRL_NAME = @CTRLNAME) - - - - - - - - - - - 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 - - - - - - - - @@ -2330,117 +2215,6 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -3169,11 +2943,6 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - - - - - diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 9cc50b0..45ed699 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,28 +4,27 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - + - - - - + + + - + - + - + - + - + 549 @@ -37,7 +36,7 @@ - + 175 @@ -53,7 +52,7 @@ - + 603 @@ -65,7 +64,7 @@ - + 1248 @@ -77,7 +76,7 @@ - + 141 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index a6c0d71..a67bdb6 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -141,6 +141,9 @@ False D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraTreeList.v18.1.dll + + ..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll + False ..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll @@ -157,9 +160,12 @@ P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll + + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll + False - P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll + ..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\Independentsoft.Msg.dll @@ -212,6 +218,7 @@ + diff --git a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb index 6358fdb..0ce0cd1 100644 --- a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ModuleMySettings.vb b/app/DD_PM_WINDREAM/ModuleMySettings.vb index fdd1270..b7b312a 100644 --- a/app/DD_PM_WINDREAM/ModuleMySettings.vb +++ b/app/DD_PM_WINDREAM/ModuleMySettings.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index c8c7479..4a03bb1 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -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) diff --git a/app/DD_PM_WINDREAM/clsPatterns.vb b/app/DD_PM_WINDREAM/clsPatterns.vb index f26c9c0..7ec6b67 100644 --- a/app/DD_PM_WINDREAM/clsPatterns.vb +++ b/app/DD_PM_WINDREAM/clsPatterns.vb @@ -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) diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 8f06f2f..b069130 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 42ad94f..ac43792 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -247,7 +247,7 @@ 58 - 901, 266 + 901, 272 3 @@ -264,6 +264,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -397,7 +415,7 @@ 58 - 901, 231 + 901, 239 5 @@ -414,6 +432,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -463,10 +499,10 @@ 1 - 901, 551 + 901, 565 - 291 + 297 0 @@ -483,69 +519,6 @@ 0 - - 206, 17 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel2 - - - 0 - Fill @@ -592,7 +565,7 @@ 58 - 901, 264 + 901, 271 3 @@ -609,6 +582,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -694,7 +688,7 @@ 58 - 901, 233 + 901, 240 0 @@ -711,6 +705,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -760,10 +775,10 @@ 1 - 901, 551 + 901, 565 - 289 + 296 1 @@ -780,72 +795,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - - - Label22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel3 - - - 0 - - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - - - Label23 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel4 - - - 0 - False @@ -1925,7 +1874,7 @@ TabPage5 - 0 + 1 174, 56 @@ -1952,11 +1901,20 @@ TabPage5 - 2 + 3 + + + Segoe UI, 9pt + + + 9, 21 + + + 862, 23 + + + 0 - - 174, 56 - MOVE2FOLDERTextBox @@ -1969,6 +1927,21 @@ 0 + + Segoe UI, 9.75pt, style=Bold + + + 877, 19 + + + 29, 23 + + + 72 + + + ... + btnmovetoFolderDialog @@ -2008,65 +1981,14 @@ 3 - - Segoe UI, 9pt - - - 9, 21 + + Tahoma, 9.75pt - - 862, 23 + + 693, 12 - - 0 - - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Segoe UI, 9.75pt, style=Bold - - - 877, 19 - - - 29, 23 - - - 72 - - - ... - - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Tahoma, 9.75pt - - - 693, 12 - - - 55, 23 + + 55, 23 5 @@ -2398,17 +2320,23 @@ True - - Label9 + + True - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Tahoma, 9.75pt - - TabPage5 + + 15, 161 - - 1 + + 130, 16 + + + 88 + + + Use Vektor for Index: Label4 @@ -2420,7 +2348,58 @@ TabPage5 - 3 + 0 + + + True + + + Tahoma, 9.75pt + + + 16, 191 + + + 136, 16 + + + 87 + + + Vektor Wertänderung: + + + Label9 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 2 + + + Tahoma, 9.75pt + + + Overview and Detail + + + Overview + + + Detail + + + 202, 42 + + + 345, 24 + + + 85 DISPLAY_MODEComboBox @@ -2434,6 +2413,15 @@ 7 + + 202, 188 + + + 345, 24 + + + 83 + cmbLOGIndex @@ -2446,6 +2434,15 @@ 8 + + 202, 158 + + + 345, 24 + + + 81 + PM_VEKTOR_INDEXComboBox @@ -2468,7 +2465,7 @@ 3, 3, 3, 3 - 970, 383 + 970, 473 0 @@ -2491,6 +2488,9 @@ True + + Top, Bottom, Left, Right + 17, 251 @@ -2573,7 +2573,7 @@ 6 - 627, 269 + 627, 275 93 @@ -2600,7 +2600,7 @@ 627, 0 - 323, 269 + 323, 275 91 @@ -2617,14 +2617,11 @@ 1 - - Bottom - - 3, 76 + 3, 166 - 950, 269 + 950, 275 94 @@ -2930,6 +2927,9 @@ 5 + + Tahoma, 9pt + 4, 25 @@ -2937,7 +2937,7 @@ 3, 3, 3, 3 - 956, 348 + 956, 438 0 @@ -3063,7 +3063,7 @@ 3, 3, 3, 3 - 956, 348 + 956, 441 1 @@ -3090,7 +3090,7 @@ 3, 3 - 964, 377 + 964, 467 92 @@ -3114,7 +3114,7 @@ 3, 3, 3, 3 - 970, 383 + 970, 473 1 @@ -3138,7 +3138,7 @@ 288, 98 - 978, 412 + 978, 502 79 @@ -3180,7 +3180,7 @@ 129 - 276, 510 + 276, 600 84 @@ -3231,7 +3231,7 @@ 3, 3, 3, 3 - 1272, 516 + 1272, 606 0 @@ -3251,425 +3251,89 @@ 0 - - SplitContainerProfilzuordnung - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Fill - - TabPage2 + + 3, 3 - - 0 + + Fill - - 4, 25 + + 0, 25 - - 3, 3, 3, 3 + + Name - - 1272, 592 + + True - + 1 - - Profilzuordnung - - - TabPage2 + + 58 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Beschreibung - - TabControl1 + + True - - 1 + + 0 - - btnSQLProfilehome + + 58 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 347, 575 - - TabPage3 + + 2 - - 0 + + gridAvailableProfiles - - btnUserManager + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + SplitContainerProfilzuordnung.Panel1 - - TabPage3 + + 0 - - 1 + + Top - - Button2 + + 0, 0 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 347, 25 - - TabPage3 + + 3 - - 2 + + Verfügbare Profile: - - VEKTOR_DELIMITERTextBox + + MiddleLeft - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Label21 - - TabPage3 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 4 + + SplitContainerProfilzuordnung.Panel1 - - btnConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - btnlicensemanager_open - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - INTERVALL_CKECK_NO_OF_FILESNumericUpDown - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 11 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - GEAENDERTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - GEAENDERTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - btnSaveKonfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 17 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 2 - - - Grundeinstellungen - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - Fill - - - 0, 0 - - - 1280, 545 - - - 3 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlMain - - - 0 - - - Tahoma, 9.75pt - - - Overview and Detail - - - Overview - - - Detail - - - 202, 42 - - - 345, 24 - - - 85 - - - DISPLAY_MODEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - 202, 188 - - - 345, 24 - - - 83 - - - cmbLOGIndex - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 8 - - - 202, 158 - - - 345, 24 - - - 81 - - - PM_VEKTOR_INDEXComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - 677, 212 - - - Fill - - - 3, 3 - - - Fill - - - 0, 25 - - - Name - - - True - - - 1 - - - 58 - - - Beschreibung - - - True - - - 0 - - - 58 - - - 347, 561 - - - 2 - - - gridAvailableProfiles - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerProfilzuordnung.Panel1 - - - 0 - - - Top - - - 0, 0 - - - 347, 25 - - - 3 - - - Verfügbare Profile: - - - MiddleLeft - - - Label21 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung.Panel1 - - - 1 + + 1 SplitContainerProfilzuordnung.Panel1 @@ -3683,6 +3347,21 @@ 0 + + 4, 25 + + + 3, 3, 3, 3 + + + 907, 571 + + + 0 + + + Benutzer + TabPage7 @@ -3695,6 +3374,21 @@ 0 + + 4, 25 + + + 3, 3, 3, 3 + + + 907, 571 + + + 1 + + + Gruppen + TabPage8 @@ -3714,7 +3408,7 @@ 0, 0 - 915, 586 + 915, 600 1 @@ -3744,7 +3438,7 @@ 1 - 1266, 586 + 1266, 600 347 @@ -3764,58 +3458,31 @@ 0 - - 4, 25 - - - 3, 3, 3, 3 - - - 907, 557 - - - 0 - - - Benutzer - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 0 - - + 4, 25 - + 3, 3, 3, 3 - - 907, 557 + + 1272, 606 - + 1 - - Gruppen + + Profilzuordnung - - TabPage8 + + TabPage2 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabControl1 - + 1 @@ -3938,9 +3605,6 @@ 4 - - 234, 95 - MiddleLeft @@ -3975,226 +3639,55 @@ MiddleLeft - 649, 104 - - - 172, 30 - - - 12 - - - SQL-Admin - - - MiddleRight - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - 463, 32 - - - 162, 24 - - - 11 - - - Email Meldungen Aktiv - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 0 - - - EMAIL_REMINDER_FOOTERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 2 - - - EMAIL_REMINDER_HEADERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 4 - - - EMAIL_PWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 6 - - - EMAIL_USERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 8 - - - EMAIL_SMTPTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 10 - - - EMAIL_FROMTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 12 - - - False - - - 21, 90 - - - 622, 324 - - - 1 - - - E-Mail Konfiguration - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - txtemailEmpfaenger - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 0 + 649, 104 - - Label8 + + 172, 30 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 12 - - GroupBox5 + + SQL-Admin - - 1 + + MiddleRight - - btnTest_Email + + btnopen_SQLAdmin - + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox5 + + TabPage3 - - 2 + + 6 - - 307, 23 + + 463, 32 - - 303, 87 + + 162, 24 - - 21 + + 11 - - Email testen + + Email Meldungen Aktiv - - GroupBox5 + + EMAIL_ACTIVECheckBox - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpbxEmail + + TabPage3 - - 0 + + 7 112, 19 @@ -4277,6 +3770,30 @@ 2 + + 307, 23 + + + 303, 87 + + + 21 + + + Email testen + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 0 + 10, 258 @@ -4409,6 +3926,33 @@ 12 + + False + + + 21, 90 + + + 622, 324 + + + 1 + + + E-Mail Konfiguration + + + grpbxEmail + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 8 + MiddleLeft @@ -4559,6 +4103,57 @@ 17 + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 606 + + + 2 + + + Grundeinstellungen + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + Fill + + + 0, 0 + + + 1280, 635 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + 775, 134 @@ -4568,8 +4163,14 @@ 754, 95 + + 20, 20 + + + False + - 0, 545 + 0, 635 1280, 22 @@ -4592,12 +4193,6 @@ 1 - - 20, 20 - - - False - 17, 95 @@ -4614,7 +4209,7 @@ 0, 0 - 1280, 545 + 1280, 635 4 @@ -4658,66 +4253,6 @@ 826, 212 - - True - - - Tahoma, 9.75pt - - - 16, 161 - - - 107, 16 - - - 86 - - - Vektor Metadata: - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 3 - - - True - - - Tahoma, 9.75pt - - - 16, 191 - - - 136, 16 - - - 87 - - - Vektor Wertänderung: - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - 327, 251 @@ -4725,13 +4260,13 @@ True - 184 + 66 7, 16 - 1280, 567 + 1280, 657 Tahoma, 9.75pt @@ -5143,18 +4678,6 @@ System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GridView1 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colNAME - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - TBPM_PROFILE_FINAL_INDEXINGBindingSource @@ -5341,6 +4864,18 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GridView1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colNAME + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + viewAvailableProfiles diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 1632d35..7eb7260 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmAnnotations.vb b/app/DD_PM_WINDREAM/frmAnnotations.vb index 3ee4b9a..c873d5b 100644 --- a/app/DD_PM_WINDREAM/frmAnnotations.vb +++ b/app/DD_PM_WINDREAM/frmAnnotations.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmConnection.vb b/app/DD_PM_WINDREAM/frmConnection.vb index f1e3b51..6cb17cb 100644 --- a/app/DD_PM_WINDREAM/frmConnection.vb +++ b/app/DD_PM_WINDREAM/frmConnection.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.vb b/app/DD_PM_WINDREAM/frmControl_Detail.vb index 976f437..feff57d 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.vb +++ b/app/DD_PM_WINDREAM/frmControl_Detail.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 5197d1c..2a55201 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -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 + + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") + 'End Try - 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 - - 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 ''' 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 diff --git a/app/DD_PM_WINDREAM/frmLicense.vb b/app/DD_PM_WINDREAM/frmLicense.vb index ee94bf4..4074bc5 100644 --- a/app/DD_PM_WINDREAM/frmLicense.vb +++ b/app/DD_PM_WINDREAM/frmLicense.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 3da0b43..050ee40 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -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" ' diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 6b5ecd6..fea07b2 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAVQBBAFUAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAVwBBAFcAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index a28a7c8..7587ac1 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -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) diff --git a/app/DD_PM_WINDREAM/frmMassValidator.vb b/app/DD_PM_WINDREAM/frmMassValidator.vb index 6e7777a..afb470a 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index 3e83c44..867eac7 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 8c102a9..8d3755e 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -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 diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index b90aea2..574e648 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -130,35 +130,6 @@ 608, 17 - - 0, 621 - - - - 1, 0, 16, 0 - - - 962, 22 - - - - 4 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - Segoe UI, 9pt, style=Bold @@ -168,6 +139,7 @@ sss + False @@ -183,81 +155,34 @@ Document-ID: - - TITLELabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 + + 0, 621 - - btnSave + + + 1, 0, 16, 0 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 962, 22 - - Panel1 + + 4 - - 1 + + StatusStrip1 - - DESCRIPTIONLabel + + StatusStrip1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Panel1 + + $this - + 2 - - pnldesigner - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 3 - - - Fill - - - 0, 0 - - - 3, 4, 3, 4 - - - 477, 593 - - - 24 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel1 - - - 0 - Top, Left, Right @@ -387,6 +312,33 @@ 3 + + Fill + + + 0, 0 + + + 3, 4, 3, 4 + + + 477, 593 + + + 24 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel1 + + + 0 + 725, 17 @@ -394,46 +346,40 @@ 887, 17 - 1075, 56 + 261, 95 - 278, 134 + 1004, 134 - 1183, 95 + 486, 134 - 558, 56 + 826, 56 - 262, 95 + 744, 95 - 714, 95 - - - 1060, 17 - - - 17, 56 + 17, 134 - 279, 56 + 547, 56 - 831, 56 + 17, 95 - 17, 95 + 499, 95 - 502, 95 + 984, 95 - 920, 95 + 223, 134 - 17, 134 + 743, 134 Top, Right @@ -445,7 +391,7 @@ 0, 141 - 955, 134 + 282, 173 Top @@ -544,11 +490,74 @@ 962, 643 - 17, 173 + 672, 173 Segoe UI, 9.75pt + + 156, 22 + + + Datei öffnen + + + 156, 22 + + + Info + + + 156, 22 + + + Eigenschaften + + + Magenta + + + 67, 22 + + + Datei + + + Magenta + + + 212, 22 + + + Zusätzliche Suchen aktualisieren + + + Magenta + + + 165, 22 + + + Datei überspringen (F4) + + + Magenta + + + 106, 22 + + + Datei löschen + + + Magenta + + + 105, 22 + + + Annotationen + 0, 0 @@ -619,8 +628,14 @@ 0 - 1228, 134 + 555, 173 + + 120, 17 + + + ToolStripStatusLabel1 + 3, 75 @@ -669,6 +684,21 @@ 0 + + Fill + + + Segoe UI, 9.75pt, style=Italic + + + 3, 21 + + + 194, 25 + + + 0 + txtBetreff @@ -1003,18 +1033,6 @@ DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - VWPM_CONTROL_INDEXBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - VWPM_CONTROL_INDEXTableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TBPM_PROFILE_CONTROLSBindingSource @@ -1481,7 +1499,7 @@ 0 - 690, 134 + 17, 173 Segoe UI Semibold, 9pt, style=Bold, Italic @@ -1571,117 +1589,21 @@ 1 - 807, 134 + 134, 173 - 1080, 134 + 407, 173 - - 119, 17 - - - ToolStripStatusLabel1 - - - Fill - - - Segoe UI, 9.75pt, style=Italic - - - 3, 21 - - - 194, 25 - - - 0 - - - txtBetreff - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpBetreff - - - 0 - - - Magenta - - - 67, 22 - - - Datei - - - 156, 22 - - - Datei öffnen - - - 156, 22 - - - Info - - - 156, 22 - - - Eigenschaften - - - Magenta - - - 178, 22 - - - Zusätzliche Suchen reload - - - Magenta - - - 165, 22 - - - Datei überspringen (F4) - - - Magenta - - - 106, 22 - - - Datei löschen - - - Magenta - - - 105, 22 - - - Annotationen - - 124, 173 + 779, 173 - 273, 173 + 928, 173 - 583, 173 + 17, 212 - 888, 173 + 322, 212 \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 020a63b..2305491 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -9,6 +9,8 @@ Imports System.ComponentModel Imports DD_LIB_Standards Imports DigitalData.Controls.LookupGrid Imports DevExpress.XtraGrid +Imports DigitalData.Controls.DocumentViewer +Imports System.Reflection Public Class frmValidator Dim viewerID @@ -53,11 +55,12 @@ Public Class frmValidator Dim sumatra As Boolean = False Private _CURRENT_INDEX_ARRAY(100, 250) As String - + Dim MyDocViewer As DocumentViewer Private _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1 Private _dependingControl_in_action As Boolean = False Private DTCONTROLS As DataTable + Private DTVWCONTROL_INDEX As DataTable Private FormLoaded As Boolean = False Private ControlHandleStarted As Boolean = False @@ -87,6 +90,148 @@ Public Class frmValidator End Try End Function + Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load + SplitContainer1.Panel2Collapsed = True + docCounter = 1 + OLD_Document_Path = "" + first_control = Nothing + me_closing = False + pdfxchange = False + sumatra = False + FormLoaded = False + If My.Settings.frmValidatorPosition.IsEmpty = False Then + If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then + Location = My.Settings.frmValidatorPosition + End If + End If + If My.Settings.frmValidatorSize.IsEmpty = False Then + Size = My.Settings.frmValidatorSize + End If + Dim _step = 0 + Try + MyDocViewer = New DocumentViewer + MyDocViewer.Init(LOGCONFIG, "21182889975216572111813147150675976632") + Catch ex As Exception + LOGGER.Error(ex) + End Try + Try + _step = 1 + + TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING + _step = 2 + Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" + DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL) + 'VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) + _step = 3 + TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) + _step = 4 + TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE) + + LOGGER.Debug("Profile Data geladen") + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING profile-data: " & ex.Message, USER_USERNAME) + LOGGER.Info(">> Fehler in LOADING profile-data: " & ex.Message, True) + Me.Close() + End Try + + Try + Delimiter = TBPM_KONFIGURATIONTableAdapter.cmdGetDelimiter + + + If CURRENT_DT_PROFILE.Rows.Count = 0 Then + LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True) + MsgBox("Achtung: Profildaten konnten nicht übergeben oder geladen werden.", MsgBoxStyle.Critical, "Achtung:") + Me.Close() + End If + If CURRENT_DT_PROFILE.Rows.Count > 1 Then + MsgBox("Es wurde mehr als 1 Profil (" & CURRENT_DT_PROFILE.Rows.Count & ") zurückgegeben!!", MsgBoxStyle.Critical, "Achtung:") + Else + If CURRENT_DT_PROFILE.Rows.Count = 1 Then + For Each dr As DataRow In CURRENT_DT_PROFILE.Rows + PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX") + PROFIL_LOGINDEX = dr.Item("LOG_INDEX") + Me.Text = "Process Manager - " & dr.Item("TITLE") + + TITLELabel1.Text = dr.Item("TITLE") + DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION")) + If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then + PROFIL_VEKTORINDEX = "" + End If + If PROFIL_LOGINDEX.GetType.ToString.ToLower = "system.dbnull" Then + PROFIL_LOGINDEX = "" + End If + + WD_Search = dr.Item("WD_SEARCH") + finalProfile = dr.Item("FINAL_PROFILE") + Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder")) + Try + If finalProfile = True Then + + Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT")) + If text <> "" Then + btnSave.Text = text + Else + btnSave.Text = "Validierung speichern - Nächstes Dokument" + End If + Else + btnSave.Text = "Validierung speichern - Nächstes Dokument" + End If + LOGGER.Debug("Final profile Text geladen") + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error loading final profile text: " & ex.Message, USER_USERNAME) + LOGGER.Info(">> Fehler in loading final profile text: " & ex.Message, True) + End Try + ToolStripButtonJumpFile.Enabled = True + If CURRENT_JUMP_DOC_GUID <> 0 Then + ToolStripButtonJumpFile.Enabled = False + Anzahl_ValDoks = 1 + Else + + Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID) + End If + + Next + If LOG_ERRORS_ONLY = False Then + LOGGER.Info(" >> Profildaten gespeichert") + LOGGER.Info(" >> WD_Search: " & WD_Search) + LOGGER.Info(" >> finalProfile: " & finalProfile) + LOGGER.Info(" >> Move2Folder: " & Move2Folder) + LOGGER.Info(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE) + End If + + PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST") + LOGGER.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) + 'Delete Button anzeigen ja/nein + If USER_RIGHT_FILE_DELETE = True Then + ToolStripButtonDeleteFile.Enabled = True + Else + ToolStripButtonDeleteFile.Enabled = False + End If + + LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) + Load_Controls() + + + End If + End If + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING(2) Profile-Data: " & ex.Message, USER_USERNAME) + LOGGER.Info(">> Fehler in LOADING(2) Profile-Data: " & ex.Message, True) + End Try + + End Sub Private Sub frmValidation_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Try me_closing = True @@ -139,12 +284,15 @@ Public Class frmValidator TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID) Catch ex As Exception LOGGER.Error(ex) - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME) End Try End If If VIEWER_ALL = "docview" Then - CloseWDDocview() + If IDB_ACTIVE = False Then + CloseWDDocview() + End If + End If If VIEWER_PDF = "system" Then @@ -227,7 +375,7 @@ Public Class frmValidator ' If proc("Name").ToString = processname Then ' Dim s(1) As String ' proc.InvokeMethod("GetOwner", CType(s, Object())) - ' If CStr(s(0)).ToLower.Contains(Environment.UserName.ToLower) Then + ' If CStr(s(0)).ToLower.Contains(USER_USERNAME.ToLower) Then ' proc.InvokeMethod("Terminate", Nothing) ' End If ' End If @@ -286,6 +434,14 @@ Public Class frmValidator LOGGER.Info(ex.Message) End Try End Sub + Private Function Init_IDB() + Try + IDBData = New ClassIDBData + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + End Try + End Function Private Function Init_windream() Try WINDREAM = New ClassPMWindream() @@ -295,232 +451,93 @@ Public Class frmValidator Catch ex As Exception LOGGER.Error(ex) MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Init _windream: " & ex.Message, Environment.UserName) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Init _windream: " & ex.Message, USER_USERNAME) LOGGER.Info(">> Fehler in Init_windream: " & ex.Message, True) Return False End Try End Function - Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load - SplitContainer1.Panel2Collapsed = True - docCounter = 1 - OLD_Document_Path = "" - first_control = Nothing - me_closing = False - pdfxchange = False - sumatra = False - FormLoaded = False - - If My.Settings.frmValidatorPosition.IsEmpty = False Then - If My.Settings.frmValidatorPosition.X > 0 And My.Settings.frmValidatorPosition.Y > 0 Then - Location = My.Settings.frmValidatorPosition + Public Sub Load_Additional_Searches() + If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + Dim oDocResultCommand As String + Dim oDatatableDocResult As DataTable + Dim oDataResultCommand As String + Dim oDatatableDataResult As DataTable + If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + 'Check whether DocData is there + Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") + oDataResultCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") + oDataResultCommand = clsPatterns.ReplaceAllValues(oDataResultCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + oDatatableDataResult = ClassDatabase.Return_Datatable(oDataResultCommand) + End If + If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + 'Check whether DocData is there + Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") + oDocResultCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") + oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + oDatatableDocResult = ClassDatabase.Return_Datatable(oDocResultCommand) End If - End If - If My.Settings.frmValidatorSize.IsEmpty = False Then - Size = My.Settings.frmValidatorSize - End If - Dim _step = 0 - Try - _step = 1 - TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING - _step = 2 - VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) - _step = 3 - TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) - _step = 4 - TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE) + Dim oDataResultsExist As Boolean = False + Dim oDocResultsExist As Boolean = False - LOGGER.Debug("Profile Data geladen") - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING profile-data: " & ex.Message, Environment.UserName) - LOGGER.Info(">> Fehler in LOADING profile-data: " & ex.Message, True) - Me.Close() - End Try + If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + If Not IsNothing(oDatatableDataResult) Then + If oDatatableDataResult.Rows.Count > 0 Then + oDataResultsExist = True + End If + End If - Try - Delimiter = TBPM_KONFIGURATIONTableAdapter.cmdGetDelimiter + End If + If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + If Not IsNothing(oDatatableDocResult) Then + If oDatatableDocResult.Rows.Count > 0 Then + oDocResultsExist = True + End If + End If + End If + + If oDataResultsExist = True Or oDocResultsExist = True Then + ToolStripButtonSearchesReload.Enabled = True + frmValidatorSearch.Show() + _frmValidatorSearch = frmValidatorSearch + Dim oPnl1Collapsed As Boolean = True + Dim oPnl2Collapsed As Boolean = True + If oDataResultsExist = True Then + oPnl1Collapsed = False + Else + oPnl1Collapsed = True + End If + If oDocResultsExist = True Then + oPnl2Collapsed = False + Else + oPnl2Collapsed = True + End If + _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count, + CURRENT_DT_PROFILE_SEARCHES_SQL, CURRENT_DT_PROFILE_SEARCHES_DOC) + If oDataResultsExist Then + _frmValidatorSearch._DTSQLSearches = CURRENT_DT_PROFILE_SEARCHES_SQL + Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") + Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") + oCommand = clsPatterns.ReplaceAllValues(oCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) + End If + If oDocResultsExist Then + _frmValidatorSearch._DTDocSearches = CURRENT_DT_PROFILE_SEARCHES_DOC + Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") + Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") + oCommand = clsPatterns.ReplaceAllValues(oCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - If CURRENT_DT_PROFILE.Rows.Count = 0 Then - LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True) - MsgBox("Achtung: Profildaten konnten nicht übergeben oder geladen werden.", MsgBoxStyle.Critical, "Achtung:") - Me.Close() - End If - If CURRENT_DT_PROFILE.Rows.Count > 1 Then - MsgBox("Es wurde mehr als 1 Profil (" & CURRENT_DT_PROFILE.Rows.Count & ") zurückgegeben!!", MsgBoxStyle.Critical, "Achtung:") - Else - If CURRENT_DT_PROFILE.Rows.Count = 1 Then - For Each dr As DataRow In CURRENT_DT_PROFILE.Rows - PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX") - PROFIL_LOGINDEX = dr.Item("LOG_INDEX") - Me.Text = "Process Manager - " & dr.Item("TITLE") - - TITLELabel1.Text = dr.Item("TITLE") - DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION")) - If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then - PROFIL_VEKTORINDEX = "" - End If - If PROFIL_LOGINDEX.GetType.ToString.ToLower = "system.dbnull" Then - PROFIL_LOGINDEX = "" - End If - - WD_Search = dr.Item("WD_SEARCH") - finalProfile = dr.Item("FINAL_PROFILE") - Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder")) - Try - If finalProfile = True Then - - Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT")) - If text <> "" Then - btnSave.Text = text - Else - btnSave.Text = "Validierung speichern - Nächstes Dokument" - End If - Else - btnSave.Text = "Validierung speichern - Nächstes Dokument" - End If - LOGGER.Debug("Final profile Text geladen") - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error loading final profile text: " & ex.Message, Environment.UserName) - LOGGER.Info(">> Fehler in loading final profile text: " & ex.Message, True) - End Try - ToolStripButtonJumpFile.Enabled = True - If CURRENT_JUMP_DOC_GUID <> 0 Then - ToolStripButtonJumpFile.Enabled = False - Anzahl_ValDoks = 1 - Else - - Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID) - End If - - Next - If LOG_ERRORS_ONLY = False Then - LOGGER.Info(" >> Profildaten gespeichert") - LOGGER.Info(" >> WD_Search: " & WD_Search) - LOGGER.Info(" >> finalProfile: " & finalProfile) - LOGGER.Info(" >> Move2Folder: " & Move2Folder) - LOGGER.Info(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE) - End If - - PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST") - LOGGER.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) - 'Delete Button anzeigen ja/nein - If USER_RIGHT_FILE_DELETE = True Then - ToolStripButtonDeleteFile.Enabled = True - Else - ToolStripButtonDeleteFile.Enabled = False - End If - - LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) - Load_Controls() - - - End If - End If - - - - - - - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING(2) Profile-Data: " & ex.Message, Environment.UserName) - LOGGER.Info(">> Fehler in LOADING(2) Profile-Data: " & ex.Message, True) - End Try - - End Sub - Public Sub Load_Additional_Searches() - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then - Dim oDocResultCommand As String - Dim oDatatableDocResult As DataTable - Dim oDataResultCommand As String - Dim oDatatableDataResult As DataTable - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then - 'Check whether DocData is there - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") - oDataResultCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") - oDataResultCommand = clsPatterns.ReplaceAllValues(oDataResultCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - oDatatableDataResult = ClassDatabase.Return_Datatable(oDataResultCommand) - End If - If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then - 'Check whether DocData is there - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") - oDocResultCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") - oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - oDatatableDocResult = ClassDatabase.Return_Datatable(oDocResultCommand) - End If - - Dim oDataResultsExist As Boolean = False - Dim oDocResultsExist As Boolean = False - - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then - If Not IsNothing(oDatatableDataResult) Then - If oDatatableDataResult.Rows.Count > 0 Then - oDataResultsExist = True - End If - End If - - End If - If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then - If Not IsNothing(oDatatableDocResult) Then - If oDatatableDocResult.Rows.Count > 0 Then - oDocResultsExist = True - End If - End If - End If - - If oDataResultsExist = True Or oDocResultsExist = True Then - frmValidatorSearch.Show() - _frmValidatorSearch = frmValidatorSearch - ToolStripButtonSearchesReload.Visible = True - Dim oPnl1Collapsed As Boolean = True - Dim oPnl2Collapsed As Boolean = True - If oDataResultsExist = True Then - oPnl1Collapsed = False - Else - oPnl1Collapsed = True - End If - If oDocResultsExist = True Then - oPnl2Collapsed = False - Else - oPnl2Collapsed = True - End If - _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count, - CURRENT_DT_PROFILE_SEARCHES_SQL, CURRENT_DT_PROFILE_SEARCHES_DOC) - If oDataResultsExist Then - _frmValidatorSearch._DTSQLSearches = CURRENT_DT_PROFILE_SEARCHES_SQL - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") - oCommand = clsPatterns.ReplaceAllValues(oCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - - _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) - End If - If oDocResultsExist Then - _frmValidatorSearch._DTDocSearches = CURRENT_DT_PROFILE_SEARCHES_DOC - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") - oCommand = clsPatterns.ReplaceAllValues(oCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - - _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) - End If + _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) + End If + Else + LOGGER.Info("Not loading AdditionalSearches...!") + ToolStripButtonSearchesReload.Enabled = False End If Else LOGGER.Info("Not loading AdditionalSearches...!") - ToolStripButtonSearchesReload.Visible = False + ToolStripButtonSearchesReload.Enabled = False End If End Sub Sub LoadSQLData(control As Control, controlId As Integer) @@ -550,7 +567,7 @@ Public Class frmValidator sql = clsPatterns.ReplaceInternalValues(sql) LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql) 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) - dt = ClassDatabase.Return_Datatable_CS(sql, connectionId) + dt = ClassDatabase.Return_Datatable_ConId(sql, connectionId) If IsNothing(dt) Then MsgBox($"SQL-Query for control {control.Name} is invalid.") @@ -632,7 +649,15 @@ Public Class frmValidator clsLogger.Add("Error in LoadSimpleData: " & ex.Message) End Try End Sub - + Private Function PreventNulletc(myObject As Object) + If IsDBNull(myObject) Then + Return String.Empty + ElseIf IsNothing(myObject) Then + Return String.Empty + Else + Return myObject + End If + End Function Sub Load_Controls() Try pnldesigner.Controls.Clear() @@ -645,6 +670,7 @@ Public Class frmValidator For Each oControlRow As DataRow In DTCONTROLS.Rows Dim oMyControl As Control + Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper Case "TXT" LOGGER.Debug("Versuch TXT zu laden") @@ -680,16 +706,16 @@ Public Class frmValidator End Sub #Region "CONTROL LIST" - Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name) + Dim ControlID = DirectCast(cmb.Tag, ClassControlCreator.ControlMetadata).Guid ' TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name) LOGGER.Debug("In add_ComboBox - GUID: " & ControlID) If ControlID > 0 Then LOGGER.Debug(" >>ControlID > 0") - Dim ConID = Me.TBPM_PROFILE_CONTROLSTableAdapter.cmdgetConnectionID(ControlID) - If ConID Is Nothing = False Then - Dim commandsql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) - LOGGER.Debug("ConID Is Nothing = False") - If ConID > 0 And commandsql <> "" Then - LOGGER.Debug("CConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)") + Dim ConID = PreventNulletc(oControlRow.Item("CONNECTION_ID")) ' Me.TBPM_PROFILE_CONTROLSTableAdapter.cmdgetConnectionID(ControlID) + If ConID <> String.Empty Then + Dim commandsql = PreventNulletc(oControlRow.Item("SQL_UEBERPRUEFUNG")) 'TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) + LOGGER.Debug("ConID <> String.Empty") + If ConID > 0 And commandsql <> String.Empty Then + LOGGER.Debug("ConID > 0 And commandsql <> String.Empty") Dim connectionString As String TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, ConID) Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION @@ -734,7 +760,7 @@ Public Class frmValidator Dim sql As String - sql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) + sql = PreventNulletc(oControlRow.Item("SQL_UEBERPRUEFUNG")) 'TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) 'sql = ClassPatterns.ReplaceAllValues(sql, pnldesigner, CURRENT_WMFILE) @@ -881,7 +907,7 @@ Public Class frmValidator Select r).ToList() Dim oGrid = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False) - + AddHandler oGrid.ProcessGridKey, Sub(ByVal _sender As Object, ByVal e As KeyEventArgs) @@ -914,18 +940,18 @@ Public Class frmValidator oMyControl.TabIndex = oCount End If - + ' oMyControl.Tag = CInt(oControlRow.Item("GUID")) pnldesigner.Controls.Add(oMyControl) oCount += 1 Next LOGGER.Debug("Controls geladen") - LOGGER.Info("") + LOGGER.Debug("") Catch ex As Exception LOGGER.Error(ex) If LOG_ERRORS_ONLY = False Then MsgBox("Error Load_Controls: " & ex.Message, MsgBoxStyle.Critical, "Attention error:") - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Load_Controls: " & ex.Message, Environment.UserName) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Load_Controls: " & ex.Message, USER_USERNAME) LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message) LOGGER.Info("") @@ -973,6 +999,13 @@ Public Class frmValidator box.BackColor = Color.White End If End Sub + Private Function GetControlID(ByVal PROFILEID As Integer, Controlname As String) + For Each oROW As DataRow In DTVWCONTROL_INDEX.Rows + + Next + End Function + + Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs) If ControlHandleStarted = True Then ControlHandleStarted = False @@ -983,7 +1016,7 @@ Public Class frmValidator If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then Try - Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, box.Name) + Dim CONTROL_ID = DirectCast(box.Tag, ClassControlCreator.ControlMetadata).Guid 'VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, box.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, box.Name) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If Not IsNothing(DT) And DT.Rows.Count > 0 Then @@ -1053,7 +1086,7 @@ Public Class frmValidator Public Sub onDGVRowValidating(ByVal sender As Object, ByVal e As DataGridViewCellCancelEventArgs) Dim dgv As DataGridView = sender Try - Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, dgv.Name) + Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid ' VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, dgv.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, dgv.Name) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If Not IsNothing(DT) And DT.Rows.Count > 0 Then @@ -1064,7 +1097,7 @@ Public Class frmValidator 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_ConId(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 @@ -1180,7 +1213,7 @@ Public Class frmValidator 'Abschluss() Else Try - Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, cmb.Name) + Dim CONTROL_ID = DirectCast(cmb.Tag, ClassControlCreator.ControlMetadata).Guid 'VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, cmb.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, cmb.Name) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If Not IsNothing(DT) And DT.Rows.Count > 0 Then @@ -1256,7 +1289,7 @@ Public Class frmValidator 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 @@ -1311,8 +1344,8 @@ Public Class frmValidator End Sub Private Function CheckValueExists(ByVal control As Control) Try - Dim dt As DataTable = DD_DMSLiteDataSet.VWPM_CONTROL_INDEX - For Each dr As DataRow In dt.Rows + + For Each dr As DataRow In DTVWCONTROL_INDEX.Rows If dr.Item("PROFIL_ID") = CURRENT_ProfilGUID And dr.Item("CTRL_NAME") = control.Name Then Dim check = dr.Item("SQL_UEBERPRUEFUNG") If IsDBNull(check) Then @@ -1421,36 +1454,11 @@ Public Class frmValidator Replace("W:", "\\windream\objects"). Replace("K:", "\\windream\objects") End Function - - 'Function Next_GUID() As Integer - ' 'Dim id = CURRENT_DOC_GUID - ' 'Dim oFilePath = ReplaceWindreamDriveLetter(Filepath).ToUpper() - ' Dim oSQL = $"SELECT [dbo].[FNPM_GET_NEXT_DOC_GUID] ({CURRENT_ProfilGUID},{PROFIL_sortbynewest},{CURRENT_DOC_GUID},'{USER_USERNAME}')" - - ' 'SELECT GUID FROM TBPM_PROFILE_FILES WHERE - ' ' PROFIL_ID = {CURRENT_ProfilGUID} AND EDIT = 0 AND IN_WORK = 0 AND - ' ' UPPER(REPLACE(FILE_PATH, 'W:','\\windream\objects')) <> '{oFilePath}' AND - ' ' UPPER(REPLACE(FILE_PATH, 'W:','\\windream\objects')) NOT IN ( - ' ' SELECT UPPER(FILE_PATH) - ' ' FROM TBPM_FILES_USER_NOT_INDEXED - ' ' WHERE (PROFIL_ID = {ProfilId}) AND (UPPER(USR_NAME) = UPPER('{Environment.UserName}')) - ' ' ) - ' ' {IIf(OrderByNewest, " ORDER BY DMS_ERSTELLT_DATE DESC", "")} - ' ' " - - ' Return ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, True) - 'End Function - Function Get_Next_GUID() As Integer Try LOGGER.Debug("Get_Next_GUID...") Dim newGUID As Integer - 'If PROFIL_sortbynewest = True Then - ' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdgetNextFile_GUID_Newest(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName) - 'Else - ' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdGetNextFile_GUID(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName) - 'End If LOGGER.Debug("Old Document_Path: " & OLD_Document_Path) Dim oBIT As Integer = 0 If PROFIL_sortbynewest = True Then @@ -1549,7 +1557,7 @@ Public Class frmValidator Catch ex As Exception Dim _err1 As Boolean = False LOGGER.Error(ex) - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "error in creating WMObject - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "error in creating WMObject - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME) LOGGER.Info("Unexpected error creating WMObject(1) in GetWMDocFileString: " & ex.Message) LOGGER.Info("Error Number: " & Err.Number.ToString) errormessage = $"Could not create a WMObject(1) for [{oWMOwnPath}]!" @@ -1563,16 +1571,21 @@ Public Class frmValidator Private Function GetWMDocPathWindows(_CheckStandard As Integer) Try Dim oResult As String - Dim oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},{_CheckStandard})" + Dim oSQL = $"SELECT dbo.FNPM_GET_FILEPATH ({CURRENT_DOC_GUID},{_CheckStandard})" oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) LOGGER.Debug($"Checking file [{oResult}] exists?...") If File.Exists(oResult) = False Then - LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") - oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)" - oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) - LOGGER.Debug($"Checking file [{oResult}] exists?...") - If File.Exists(oResult) = False Then - Return False + If USER_USERNAME = "SchreiberM" Then + oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" + Else + LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") + oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" + oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + LOGGER.Debug($"Checking file [{oResult}] exists?...") + If File.Exists(oResult) = False Then + LOGGER.Warn($"File {oResult} not existing!") + Return False + End If End If End If WMDocPathWindows = oResult @@ -1605,258 +1618,269 @@ Public Class frmValidator 'Me.lblerror.Visible = False _Indexe_Loaded = False LOGGER.Debug("In Load_Next_Document") - Try - If first = True Then - LOGGER.Debug("First Document") - CURRENT_WMFILE = Nothing - Else - LOGGER.Debug("Following Document ") - docCounter += 1 - End If + 'Try + If first = True Then + LOGGER.Debug("First Document") + CURRENT_WMFILE = Nothing + Else + LOGGER.Debug("Following Document ") + docCounter += 1 + End If - ' Controls nicht beim ersten Laden leeren - If first = False Then - Clear_all_Input() - End If + ' Controls nicht beim ersten Laden leeren + If first = False Then + Clear_all_Input() + End If - 'Select Case navtype - ' Case "next" - ' Case "previous" - ' Case "first" - ' Case "last" - 'End Select - LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") - If CURRENT_JUMP_DOC_GUID = 0 Then - CURRENT_DOC_GUID = Get_Next_GUID() - ElseIf first = False Then - CURRENT_DOC_GUID = 0 + 'Select Case navtype + ' Case "next" + ' Case "previous" + ' Case "first" + ' Case "last" + 'End Select + LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") + If CURRENT_JUMP_DOC_GUID = 0 Then + CURRENT_DOC_GUID = Get_Next_GUID() + ElseIf first = False Then + CURRENT_DOC_GUID = 0 + End If + LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") + If CURRENT_DOC_GUID > 0 Then + If GetWMDocPathWindows(0) = False Then + MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "") + Exit Sub End If - LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") - If CURRENT_DOC_GUID > 0 Then - If GetWMDocPathWindows(0) = False Then - Exit Sub - End If + If IDB_ACTIVE = False Then If CreateWMObject() = False Then Exit Sub End If - 'Beschriftung des Navigators - 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" - If WMDocPathWindows <> String.Empty Then - ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### - TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_GUID) - ' ############ Infos eintragen ################# - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID - ' txtDateipfad.Text = Document_Path - tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString - LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet") - - Dim oSQL = $"SELECT DOC_ID FROM TBPM_PROFILE_FILES WHERE GUID = {CURRENT_DOC_GUID}" - CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID - - LOGGER.Debug("WMDoc created...") + End If + 'Beschriftung des Navigators + 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" + If WMDocPathWindows <> String.Empty Then + ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### + TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, USER_USERNAME, CURRENT_DOC_GUID) + ' ############ Infos eintragen ################# + tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID + ' txtDateipfad.Text = Document_Path + tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString + LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet") + tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID + + LOGGER.Debug("AllDocInfo created...") + If IDB_ACTIVE = False Then oErrorMessage = Windream_get_Doc_info() + Else + ' oErrorMessage = IDB_GetDocInfo() + End If - LOGGER.Debug("Windream-Dok Info geholt") - If oErrorMessage = "" Then - Me.grpbxMailBody.Visible = False - Me.grpBetreff.Visible = False - load_viewer() - If WMDocPathWindows.ToLower.EndsWith(".pdf") Then - ToolStripButtonAnnotation.Visible = True - Else - ToolStripButtonAnnotation.Visible = False - End If + If oErrorMessage = "" Then + Me.grpbxMailBody.Visible = False + Me.grpBetreff.Visible = False + + load_viewer() + + If WMDocPathWindows.ToLower.EndsWith(".pdf") Then + ToolStripButtonAnnotation.Visible = True + Else + ToolStripButtonAnnotation.Visible = False + End If - LOGGER.Debug("Viewer geladen") + LOGGER.Debug("Viewer geladen") - FillIndexValues(first) + FillIndexValues(first) - For Each oControl As Control In pnldesigner.Controls - LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) - Next + For Each oControl As Control In pnldesigner.Controls + LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) + Next - LOGGER.Debug("Indexmaske geladen") - LOGGER.Debug("") - - 'Nun im Vektoprindex loggen das das Profil geladen wurde - 'If PROFIL_VEKTORINDEX <> "" Then - ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & Environment.UserName & Delimiter & Now.ToString - ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then - ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") - ' 'Else - ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' ' My.Settings.Save() - ' ' frmError.ShowDialog() - ' ' _error = True - ' End If - 'End If - 'Nun loggen das das Profil geladen wurde - If PROFIL_LOGINDEX <> "" Then - Dim Profilstring = "DD-PMlog" & Delimiter & "In Profil: '" & CURRENT_ProfilName & "' geladen" & Delimiter & Environment.UserName & Delimiter & Now.ToString - If Indexiere_VektorfeldPM(Profilstring, PROFIL_LOGINDEX) = False Then - LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") - 'Else - ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' My.Settings.Save() - ' frmError.ShowDialog() - ' _error = True - End If + LOGGER.Debug("Indexmaske geladen") + LOGGER.Debug("") + + 'Nun im Vektoprindex loggen das das Profil geladen wurde + 'If PROFIL_VEKTORINDEX <> "" Then + ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & USER_NAME & Delimiter & Now.ToString + ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then + ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") + ' 'Else + ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' ' My.Settings.Save() + ' ' frmError.ShowDialog() + ' ' _error = True + ' End If + 'End If + 'Nun loggen das das Profil geladen wurde + If PROFIL_LOGINDEX <> "" Then + Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" + If IDB_ACTIVE = False Then + WMIndexVectofield(Profilstring, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring) + LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") + 'Else + ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' My.Settings.Save() + ' frmError.ShowDialog() + ' _error = True End If - activate_controls(True) - Me.BringToFront() - Else - errormessage = oErrorMessage - frmError.ShowDialog() End If + activate_controls(True) + Me.BringToFront() Else errormessage = oErrorMessage frmError.ShowDialog() End If Else - If oErrorMessage <> "" Then - errormessage = oErrorMessage - frmError.ShowDialog() - Else - LOGGER.Info(" >> Ende des Profils - Kein weiteres Dokument!") - LOGGER.Info("") - MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:") - activate_controls(True) - Me.Close() - End If - End If - - Catch ex As Exception - LOGGER.Error(ex) - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) - errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message - My.Settings.Save() - LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message) - frmError.ShowDialog() - End Try - End Sub - Sub load_viewer() - If VIEWER_ALL = "uviewer" Then - pdfxchange = False - sumatra = False - If WMDocPathWindows.ToLower.EndsWith(".msg") Then - Show_Email() - Else - ShowFile_UniversalViewer(WMDocPathWindows) + errormessage = oErrorMessage + frmError.ShowDialog() End If - ElseIf VIEWER_ALL = "docview" Then - PdfControls_visible(False) - If WMDocPathWindows.ToLower.EndsWith(".pdf") And VIEWER_PDF <> "none" Then - Select Case VIEWER_PDF - Case "internal" - SplitContainer1.Panel2Collapsed = False - PdfViewer1.LoadDocument(WMDocPathWindows) - LOGGER.Debug("Internal Viewer Path: " & WMDocPathWindows) - PdfControls_visible(True) - Me.Size = My.Settings.frmValidation_Size_PDFViewer - 'PdfViewer1.ZoomFactor = PDFViewer_ZoomMode - PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.FitToWidth - pdfxchange = False - sumatra = False - Case "pdfxchange" - SplitContainer1.Panel2Collapsed = True - Open_PDFXCHANGE(WMDocPathWindows) - pdfxchange = True - sumatra = False - System.Threading.Thread.Sleep(1000) - Me.Size = My.Settings.frmValidatorSize - Case "sumatra" - SplitContainer1.Panel2Collapsed = True - Open_Sumatra(WMDocPathWindows) - sumatra = True - pdfxchange = False - System.Threading.Thread.Sleep(1000) - Me.Size = My.Settings.frmValidatorSize - Case "system" - SplitContainer1.Panel2Collapsed = True - sumatra = False - pdfxchange = False - Open_PDF_withStandard() - System.Threading.Thread.Sleep(1000) - Me.Size = My.Settings.frmValidatorSize - End Select - ElseIf WMDocPathWindows.ToLower.EndsWith(".msg") Then - Show_Email() + Else + If oErrorMessage <> "" Then + errormessage = oErrorMessage + frmError.ShowDialog() Else - SplitContainer1.Panel2Collapsed = True - Me.Size = My.Settings.frmValidatorSize - pdfxchange = False - sumatra = False - DocView = Nothing - DocView = CreateObject("WMPViewXNG.Viewer") - ' open the viewer - viewer_string = CURRENT_WMFILE.aPath.ToString - DocView.ViewFile(viewer_string) + LOGGER.Info(" >> Ende des Profils - Kein weiteres Dokument!") + LOGGER.Info("") + MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:") + activate_controls(True) + Me.Close() End If - Else - SplitContainer1.Panel2Collapsed = True - PdfControls_visible(False) - Me.Size = My.Settings.frmValidatorSize - pdfxchange = False - sumatra = False - DocView = Nothing - DocView = CreateObject("WMPViewXNG.Viewer") - ' open the viewer - viewer_string = CURRENT_WMFILE.aPath.ToString - DocView.ViewFile(viewer_string) - End If - End Sub - Sub Show_Email() - - Me.grpBetreff.Dock = DockStyle.Top - Me.grpbxMailBody.Dock = DockStyle.Fill - Dim msg_email As New Msg.Message(WMDocPathWindows) - 'Eine tempfile generieren - Dim tempFilename = My.Computer.FileSystem.GetTempFileName() - Dim name = Path.GetFileNameWithoutExtension(tempFilename) - tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html") - 'tempfile löschen - If My.Computer.FileSystem.FileExists(tempFilename) Then - My.Computer.FileSystem.DeleteFile(tempFilename) End If - Me.txtBetreff.Text = msg_email.Subject - Try - Dim wFile As System.IO.FileStream - Dim byteData() As Byte - byteData = msg_email.BodyHtml - - ' MsgBox(msg_email.InternetCodePage) - ' wFile = New FileStream(tempFilename, FileMode.Append) - ' wFile.Write(byteData, 0, byteData.Length) - ' wFile.Close() - 'Catch ex As IOException - ' MsgBox(ex.ToString) - 'End Try - - Dim vIn() As Byte = msg_email.BodyHtml - Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn) - File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8) - - CURRENT_HTML_DOC = tempFilename - Me.tslblWebbrowser.Text = CURRENT_HTML_DOC - WebBrowser.Navigate("file:///" & CURRENT_HTML_DOC) - SplitContainer1.Panel2Collapsed = False - Me.Size = My.Settings.frmValidation_Size_Email - Me.grpbxMailBody.Visible = True - Me.grpBetreff.Visible = True - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei Show_Email:" & ex.Message - LOGGER.Info("Unvorhergesehener Fehler in Show_Email: " & ex.Message) - My.Settings.Save() - frmError.ShowDialog() - End Try + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME) + ' errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message + ' My.Settings.Save() + ' LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message) + ' frmError.ShowDialog() + 'End Try End Sub + Sub load_viewer() + MyDocViewer.LoadFile(WMDocPathWindows) + + 'If VIEWER_ALL = "uviewer" Then + ' pdfxchange = False + ' sumatra = False + ' If WMDocPathWindows.ToLower.EndsWith(".msg") Then + ' Show_Email() + ' Else + ' ShowFile_UniversalViewer(WMDocPathWindows) + ' End If + 'ElseIf VIEWER_ALL = "docview" Then + ' PdfControls_visible(False) + ' If WMDocPathWindows.ToLower.EndsWith(".pdf") And VIEWER_PDF <> "none" Then + ' Select Case VIEWER_PDF + ' Case "internal" + ' SplitContainer1.Panel2Collapsed = False + ' PdfViewer1.LoadDocument(WMDocPathWindows) + ' LOGGER.Debug("Internal Viewer Path: " & WMDocPathWindows) + ' PdfControls_visible(True) + ' Me.Size = My.Settings.frmValidation_Size_PDFViewer + ' 'PdfViewer1.ZoomFactor = PDFViewer_ZoomMode + ' PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.FitToWidth + ' pdfxchange = False + ' sumatra = False + ' Case "pdfxchange" + ' SplitContainer1.Panel2Collapsed = True + ' Open_PDFXCHANGE(WMDocPathWindows) + ' pdfxchange = True + ' sumatra = False + ' System.Threading.Thread.Sleep(1000) + ' Me.Size = My.Settings.frmValidatorSize + ' Case "sumatra" + ' SplitContainer1.Panel2Collapsed = True + ' Open_Sumatra(WMDocPathWindows) + ' sumatra = True + ' pdfxchange = False + ' System.Threading.Thread.Sleep(1000) + ' Me.Size = My.Settings.frmValidatorSize + ' Case "system" + ' SplitContainer1.Panel2Collapsed = True + ' sumatra = False + ' pdfxchange = False + ' Open_PDF_withStandard() + ' System.Threading.Thread.Sleep(1000) + ' Me.Size = My.Settings.frmValidatorSize + ' End Select + ' ElseIf WMDocPathWindows.ToLower.EndsWith(".msg") Then + ' Show_Email() + ' Else + ' SplitContainer1.Panel2Collapsed = True + ' Me.Size = My.Settings.frmValidatorSize + ' pdfxchange = False + ' sumatra = False + ' DocView = Nothing + ' DocView = CreateObject("WMPViewXNG.Viewer") + ' ' open the viewer + ' viewer_string = CURRENT_WMFILE.aPath.ToString + ' DocView.ViewFile(viewer_string) + ' End If + 'Else + + ' SplitContainer1.Panel2Collapsed = True + ' PdfControls_visible(False) + ' Me.Size = My.Settings.frmValidatorSize + ' pdfxchange = False + ' sumatra = False + ' DocView = Nothing + ' DocView = CreateObject("WMPViewXNG.Viewer") + ' ' open the viewer + ' viewer_string = CURRENT_WMFILE.aPath.ToString + ' DocView.ViewFile(viewer_string) + 'End If + End Sub + 'Sub Show_Email() + + ' Me.grpBetreff.Dock = DockStyle.Top + ' Me.grpbxMailBody.Dock = DockStyle.Fill + ' Dim msg_email As New Msg.Message(WMDocPathWindows) + ' 'Eine tempfile generieren + ' Dim tempFilename = My.Computer.FileSystem.GetTempFileName() + ' Dim name = Path.GetFileNameWithoutExtension(tempFilename) + ' tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html") + ' 'tempfile löschen + ' If My.Computer.FileSystem.FileExists(tempFilename) Then + ' My.Computer.FileSystem.DeleteFile(tempFilename) + ' End If + + ' Me.txtBetreff.Text = msg_email.Subject + ' Try + ' Dim wFile As System.IO.FileStream + ' Dim byteData() As Byte + ' byteData = msg_email.BodyHtml + + ' ' MsgBox(msg_email.InternetCodePage) + ' ' wFile = New FileStream(tempFilename, FileMode.Append) + ' ' wFile.Write(byteData, 0, byteData.Length) + ' ' wFile.Close() + ' 'Catch ex As IOException + ' ' MsgBox(ex.ToString) + ' 'End Try + + ' Dim vIn() As Byte = msg_email.BodyHtml + ' Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn) + ' File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8) + + ' CURRENT_HTML_DOC = tempFilename + ' Me.tslblWebbrowser.Text = CURRENT_HTML_DOC + ' WebBrowser.Navigate("file:///" & CURRENT_HTML_DOC) + ' SplitContainer1.Panel2Collapsed = False + ' Me.Size = My.Settings.frmValidation_Size_Email + ' Me.grpbxMailBody.Visible = True + ' Me.grpBetreff.Visible = True + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' errormessage = "Unvorhergesehener Fehler bei Show_Email:" & ex.Message + ' LOGGER.Info("Unvorhergesehener Fehler in Show_Email: " & ex.Message) + ' My.Settings.Save() + ' frmError.ShowDialog() + ' End Try + 'End Sub Sub activate_controls(status As Boolean) Me.pnldesigner.Enabled = status Me.btnSave.Enabled = status @@ -2144,285 +2168,306 @@ Public Class frmValidator End Function - Sub FillIndexValues(first As Boolean) - Dim oControlType As String - Dim oIndexName As String + Private Function GetVariableValuefromSource(oSourceIndexName) As Object Try - If DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.Rows.Count > 0 Then - Dim oCount As Integer = 0 - For Each oControl As Control In Me.pnldesigner.Controls - Dim oControlId = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid - Dim oControlRow = (From form In DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.AsEnumerable() - Select form - Where form.Item("GUID") = oControlId).Single() - - Dim oType As String = oControl.GetType.ToString - Dim oTyp As String = oControlRow.Item("CTRL_TYPE") - Dim oWMIndexName As String = oControlRow.Item("INDEX_NAME") - ' Wenn kein defaultValue existiert, leeren String setzen - Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty) - oIndexName = oWMIndexName - - Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE") - LOGGER.Debug("INDEX: " & oWMIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString) - - _CURRENT_INDEX_ARRAY(oCount, 0) = oWMIndexName - Select Case oType - Case "System.Windows.Forms.TextBox" - Try - oControlType = "Textbox" - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then - ' Wenn kein Index exisitiert, defaultValue laden - oControl.Text = oDefaultValue - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - LOGGER.Debug("Indexwert soll nicht geladen werden.") - Exit Select - End If - Dim wertWD - - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - wertWD = ReturnVektor_IndexValue(oWMIndexName) - Else - wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - If wertWD Is Nothing Then - wertWD = "" - Else - If wertWD.ToString = "System.Object[]" Then - LOGGER.Debug("TextBox with VektorField: " & oWMIndexName) - Try - LOGGER.Debug($"Length of Vektorarray: {wertWD.length}") - Catch ex As Exception - LOGGER.Info($"Error in gettin the lenth of vektorfield {oWMIndexName} - {ex.Message}") - End Try - If wertWD.length = 1 Then - wertWD = wertWD(0) - Else ' - LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used") - wertWD = wertWD(0) - End If - LOGGER.Debug($"wertWD has been saved...") - - End If - End If - - End If - Try - oControl.Text = NotNull(wertWD, oDefaultValue) - _CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(wertWD, oDefaultValue) - Catch ex As Exception - LOGGER.Info("ERROR while converting defaultValue [" & oDefaultValue & "]: " & ex.Message) - oControl.Text = "" - _CURRENT_INDEX_ARRAY(oCount, 1) = "" - End Try + Dim oValuefroMSource + If IDB_ACTIVE = False Then + oValuefroMSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) + Else + oValuefroMSource = IDBData.GetVariableValue(oSourceIndexName) + End If + Return oValuefroMSource + Catch ex As Exception + LOGGER.Error(ex) + Return Nothing + End Try + End Function + Sub FillIndexValues(first As Boolean) + Dim oControlType As String + Dim oIndexName As String + ' Try + If DTVWCONTROL_INDEX.Rows.Count > 0 Then + Dim oCount As Integer = 0 + For Each oControl As Control In Me.pnldesigner.Controls + Dim oValueFromSource + Dim oControlId = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid + Dim oControlRow = (From form In DTVWCONTROL_INDEX.AsEnumerable() + Select form + Where form.Item("GUID") = oControlId).Single() + + Dim oType As String = oControl.GetType.ToString + Dim oTyp As String = oControlRow.Item("CTRL_TYPE") + Dim oSourceIndexName As String = oControlRow.Item("INDEX_NAME") + ' Wenn kein defaultValue existiert, leeren String setzen + Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty) + oIndexName = oSourceIndexName + + Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE") + LOGGER.Debug("INDEX: " & oSourceIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString) + + _CURRENT_INDEX_ARRAY(oCount, 0) = oSourceIndexName + Select Case oType + Case "System.Windows.Forms.TextBox" + Try + oControlType = "Textbox" + If oSourceIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oSourceIndexName Is Nothing = False Then + If oLoadIndex = False Or oSourceIndexName = "DD PM-ONLY FOR DISPLAY" Then + ' Wenn kein Index exisitiert, defaultValue laden + oControl.Text = oDefaultValue + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Exit Select End If - Catch ex As Exception - LOGGER.Error(ex) - errormessage = $"Unvorhergesehener Fehler bei FillIndexValues TextBox [{oControl.Name}]:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" - My.Settings.Save() - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValuesTextBox: " & ex.Message, True) - LOGGER.Info(">> Controltype: " & oControlType) - LOGGER.Info(">> Indexname windream: " & oIndexName) - Exit Sub - End Try - Case "System.Windows.Forms.ComboBox" - oControlType = "ComboBox" - Dim oMyCombobox As ComboBox = oControl - Try - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then - If oDefaultValue = String.Empty Then - oMyCombobox.SelectedIndex = -1 - Else - oMyCombobox.Text = oDefaultValue - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - End If - LOGGER.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.") - Exit Select - End If - Dim wertWD - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - wertWD = ReturnVektor_IndexValue(oWMIndexName) - Else - wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - End If - If wertWD Is Nothing Then + If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) + Else + oValueFromSource = GetVariableValuefromSource(oSourceIndexName) - LOGGER.Debug($"oMyComboBox {oMyCombobox.Name} - Indexvalue from index {oWMIndexName}: Nothing") - If oDefaultValue = String.Empty Then - LOGGER.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wurde nicht gefunden") - oMyCombobox.SelectedIndex = -1 - Else - LOGGER.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wird geladen") - oMyCombobox.Text = oDefaultValue - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - 'cmb.SelectedIndex = cmb.FindStringExact(defaultValue) - End If + If oValueFromSource Is Nothing Then + oValueFromSource = "" Else - If wertWD.ToString = "System.Object[]" Then - LOGGER.Debug($"oMyComboBox {oMyCombobox.Name} - Combobox with VektorField: " & oWMIndexName) + If oValueFromSource.ToString = "System.Object[]" Then + LOGGER.Debug("TextBox with VektorField: " & oSourceIndexName) Try - LOGGER.Debug($"Length of Vektorarray: {wertWD.length}") + LOGGER.Debug($"Length of Vektorarray: {oValueFromSource.length}") Catch ex As Exception - LOGGER.Info($"Error in gettin the length of vektorfield {oWMIndexName} - {ex.Message}") + LOGGER.Info($"Error in gettin the lenth of vektorfield {oSourceIndexName} - {ex.Message}") End Try - If wertWD.length = 1 Then - wertWD = wertWD(0) + If oValueFromSource.length = 1 Then + oValueFromSource = oValueFromSource(0) Else ' - LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used") - wertWD = wertWD(0) + LOGGER.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") + oValueFromSource = oValueFromSource(0) End If LOGGER.Debug($"wertWD has been saved...") - Else - - End If - LOGGER.Debug($"Indexwert from Index {oWMIndexName}: {wertWD}") - LOGGER.Debug($"Items in Combobox: {oMyCombobox.Items.Count}") - - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD - LOGGER.Debug($"_CURRENT_INDEX_ARRAY set...") - If oMyCombobox.Items.Count = 0 Then - ' If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde gesetzt") - oMyCombobox.Text = wertWD - Else - ' If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde ausgewählt") - oMyCombobox.SelectedIndex = oMyCombobox.FindStringExact(wertWD) - LOGGER.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}") End If End If + End If - LOGGER.Debug("") - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & ex.Message, True) - LOGGER.Info(">> Controltype: " & oControlType) - LOGGER.Info(">> Indexname windream: " & oIndexName) - errormessage = "Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" - My.Settings.Save() - frmError.ShowDialog() + Try + oControl.Text = NotNull(oValueFromSource, oDefaultValue) + _CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(oValueFromSource, oDefaultValue) + Catch ex As Exception + LOGGER.Info("ERROR while converting defaultValue [" & oDefaultValue & "]: " & ex.Message) + oControl.Text = "" + _CURRENT_INDEX_ARRAY(oCount, 1) = "" + End Try - End Try - Case "System.Windows.Forms.DataGridView" - oControlType = "DataGridView" - Dim dgv As DataGridView = oControl - If oWMIndexName = "" Then + End If + Catch ex As Exception + LOGGER.Error(ex) + errormessage = $"Unvorhergesehener Fehler bei FillIndexValues TextBox [{oControl.Name}]:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + My.Settings.Save() + frmError.ShowDialog() + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValuesTextBox: " & ex.Message, True) + LOGGER.Info(">> Controltype: " & oControlType) + LOGGER.Info(">> Indexname windream: " & oIndexName) + Exit Sub + End Try + + Case "System.Windows.Forms.ComboBox" + oControlType = "ComboBox" + Dim oMyCombobox As ComboBox = oControl + Try + If oSourceIndexName = "" Then MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) Exit For End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Then - LOGGER.Debug("Indexwert soll nicht geladen werden.") + If oSourceIndexName Is Nothing = False Then + If oLoadIndex = False Or oSourceIndexName = "DD PM-ONLY FOR DISPLAY" Then + If oDefaultValue = String.Empty Then + oMyCombobox.SelectedIndex = -1 + Else + oMyCombobox.Text = oDefaultValue + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue + End If + LOGGER.Debug($" oMyComboBox {oMyCombobox.Name}: Indexwert soll nicht geladen werden.") Exit Select End If - LOGGER.Debug($"getting wmValue for Index {oWMIndexName}...") - Dim wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - If wertWD Is Nothing = False Then - 'Es wird gegen ein Vektorfeld nachindexiert - If wertWD.GetType.ToString.Contains("System.Object") Then - Select Case oTyp - 'Tabellendarstellung - Case "TABLE" + If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) + Else + oValueFromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) + End If - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) - Dim SpaltenWerte As String() - LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") - If dt.Rows.Count > 1 Then - For Each Zeile As Object In wertWD - LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") - SpaltenWerte = Split(Zeile, Delimiter) - Select Case dt.Rows.Count - Case 1 - dgv.Rows.Add(New String() {Zeile.ToString}) - Case 2 - If SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) - End If - Case 3 - If SpaltenWerte.Length = 3 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - ElseIf SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - End If - Case 4 - If SpaltenWerte.Length = 4 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - ElseIf SpaltenWerte.Length = 3 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - ElseIf SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - End If + If oValueFromSource Is Nothing Then - End Select - Next - End If + LOGGER.Debug($"oMyComboBox {oMyCombobox.Name} - Indexvalue from index {oSourceIndexName}: Nothing") + If oDefaultValue = String.Empty Then + LOGGER.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wurde nicht gefunden") + oMyCombobox.SelectedIndex = -1 + Else + LOGGER.Debug($"oMyComboBox {oMyCombobox.Name}-defaultValue wird geladen") + oMyCombobox.Text = oDefaultValue + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue + 'cmb.SelectedIndex = cmb.FindStringExact(defaultValue) + End If + Else + If oValueFromSource.ToString = "System.Object[]" Then + LOGGER.Debug($"oMyComboBox {oMyCombobox.Name} - Combobox with VektorField: " & oSourceIndexName) + Try + LOGGER.Debug($"Length of Vektorarray: {oValueFromSource.length}") + Catch ex As Exception + LOGGER.Info($"Error in gettin the length of vektorfield {oSourceIndexName} - {ex.Message}") + End Try + If oValueFromSource.length = 1 Then + oValueFromSource = oValueFromSource(0) + Else ' + LOGGER.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") + oValueFromSource = oValueFromSource(0) + End If + LOGGER.Debug($"wertWD has been saved...") + Else - Case Else - 'es handelt sich um ein einfaches Vektorfeld mit einem Wert - For Each obj As Object In wertWD - If obj Is Nothing = False Then - dgv.Rows.Add(New String() {obj.ToString}) + End If + LOGGER.Debug($"Indexwert from Index {oSourceIndexName}: {oValueFromSource}") + LOGGER.Debug($"Items in Combobox: {oMyCombobox.Items.Count}") + + _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource + LOGGER.Debug($"_CURRENT_INDEX_ARRAY set...") + If oMyCombobox.Items.Count = 0 Then + ' If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde gesetzt") + oMyCombobox.Text = oValueFromSource + Else + ' If LogErrorsOnly = False Then LOGGER.Info($"Index Wert wurde ausgewählt") + oMyCombobox.SelectedIndex = oMyCombobox.FindStringExact(oValueFromSource) + LOGGER.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}") - End If + End If + End If + End If + LOGGER.Debug("") + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & ex.Message, True) + LOGGER.Info(">> Controltype: " & oControlType) + LOGGER.Info(">> Indexname windream: " & oIndexName) + errormessage = "Unvorhergesehener Fehler bei FillIndexValues(Combobox: " & oMyCombobox.Name & "): " & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + My.Settings.Save() + frmError.ShowDialog() + + End Try + Case "System.Windows.Forms.DataGridView" + oControlType = "DataGridView" + Dim dgv As DataGridView = oControl + If oSourceIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oSourceIndexName Is Nothing = False Then + If oLoadIndex = False Then + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Exit Select + End If + LOGGER.Debug($"getting wmValue for Index {oSourceIndexName}...") + Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) + + If wertWD Is Nothing = False Then + 'Es wird gegen ein Vektorfeld nachindexiert + If wertWD.GetType.ToString.Contains("System.Object") Then + Select Case oTyp + 'Tabellendarstellung + Case "TABLE" + + Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) + Dim SpaltenWerte As String() + LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") + If dt.Rows.Count > 1 Then + For Each Zeile As Object In wertWD + LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") + SpaltenWerte = Split(Zeile, Delimiter) + Select Case dt.Rows.Count + Case 1 + dgv.Rows.Add(New String() {Zeile.ToString}) + Case 2 + If SpaltenWerte.Length = 2 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + Else + dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) + End If + Case 3 + If SpaltenWerte.Length = 3 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + ElseIf SpaltenWerte.Length = 2 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) + Else + dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) + End If + Case 4 + If SpaltenWerte.Length = 4 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + ElseIf SpaltenWerte.Length = 3 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) + ElseIf SpaltenWerte.Length = 2 Then + dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) + Else + dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) + End If + + End Select Next - End Select + End If + + Case Else + 'es handelt sich um ein einfaches Vektorfeld mit einem Wert + For Each obj As Object In wertWD + If obj Is Nothing = False Then + dgv.Rows.Add(New String() {obj.ToString}) + + End If + + Next + End Select - End If End If End If - Case "DevExpress.XtraGrid.GridControl" - oControlType = "DataGridView" - Dim dgv As GridControl = oControl - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For + End If + Case "DevExpress.XtraGrid.GridControl" + oControlType = "DataGridView" + Dim dgv As GridControl = oControl + If oSourceIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oSourceIndexName Is Nothing = False Then + If oLoadIndex = False Then + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Exit Select End If - If oWMIndexName Is Nothing = False Then - If oLoadIndex = False Then - LOGGER.Debug("Indexwert soll nicht geladen werden.") - Exit Select - End If - LOGGER.Debug($"getting wmValue for Index {oWMIndexName}...") - Dim wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - - If wertWD Is Nothing = False Then - 'Es wird gegen ein Vektorfeld nachindexiert - If wertWD.GetType.ToString.Contains("System.Object") Then - Select Case oTyp + LOGGER.Debug($"getting wmValue for Index {oSourceIndexName}...") + ' Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) + oValueFromSource = GetVariableValuefromSource(oSourceIndexName) + + If oValueFromSource Is Nothing = False Then + Dim omytype = oValueFromSource.GetType.ToString + 'Es wird gegen ein Vektorfeld nachindexiert + If omytype.Contains("System.Object") Or omytype = "System.Data.DataTable" Or omytype = "System.String" Then + Select Case oTyp 'Tabellendarstellung - Case "TABLE" - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) + Case "TABLE" + Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) - Dim SpaltenWerte As String() - LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") - If dt.Rows.Count >= 1 Then - Dim oDataSource As DataTable = dgv.DataSource - oDataSource.Rows.Clear() + Dim SpaltenWerte As String() + LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") + If dt.Rows.Count >= 1 Then + Dim oDataSource As DataTable = dgv.DataSource + oDataSource.Rows.Clear() - For Each Zeile As Object In wertWD + If IDB_ACTIVE = False Then + For Each Zeile As Object In oValueFromSource LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") SpaltenWerte = Split(Zeile, Delimiter) @@ -2430,6 +2475,9 @@ Public Class frmValidator Select Case dt.Rows.Count Case 1 + If SpaltenWerte.Length = 2 Then + + End If oDataSource.Rows.Add(New String() {Zeile.ToString}) 'dgv.Rows.Add(New String() {Zeile.ToString}) Case 2 @@ -2468,253 +2516,335 @@ Public Class frmValidator End Select Next + Else + If omytype = "System.String" Then + SpaltenWerte = Split(oValueFromSource.ToString, Delimiter) + Select Case SpaltenWerte.Length + Case 2 + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + Case 3 + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + Case 4 + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + End Select + ElseIf omytype = "System.Data.DataTable" Then + Dim oMyDatatable As DataTable = oValueFromSource + For Each oRow As DataRow In oMyDatatable.Rows + LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") + SpaltenWerte = Split(oRow.Item(0).ToString, Delimiter) + + Select Case SpaltenWerte.Length + Case 2 + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + Case 3 + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + Case 4 + oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + End Select + 'Select Case oMyDatatable.Rows.Count + ' Case 1 + ' oDataSource.Rows.Add(New String() {oRow.Item(0).ToString}) + ' 'dgv.Rows.Add(New String() {Zeile.ToString}) + ' Case 2 + ' If SpaltenWerte.Length = 2 Then + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) + ' Else + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) + ' End If + ' Case 3 + ' If SpaltenWerte.Length = 3 Then + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) + ' ElseIf SpaltenWerte.Length = 2 Then + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) + ' Else + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) + ' End If + ' Case 4 + ' If SpaltenWerte.Length = 4 Then + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) + ' ElseIf SpaltenWerte.Length = 3 Then + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) + ' ElseIf SpaltenWerte.Length = 2 Then + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) + ' Else + ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) + ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) + ' End If + + 'End Select + Next + End If + End If - Case Else - 'es handelt sich um ein einfaches Vektorfeld mit einem Wert - Dim oDataSource As DataTable = dgv.DataSource - For Each obj As Object In wertWD - If obj Is Nothing = False Then - oDataSource.Rows.Add(New String() {obj.ToString}) - 'dgv.Rows.Add(New String() {obj.ToString}) + End If - End If + Case Else + 'es handelt sich um ein einfaches Vektorfeld mit einem Wert + Dim oDataSource As DataTable = dgv.DataSource + For Each obj As Object In oValueFromSource + If obj Is Nothing = False Then + oDataSource.Rows.Add(New String() {obj.ToString}) + 'dgv.Rows.Add(New String() {obj.ToString}) - Next - End Select + End If + Next + End Select - End If - Else - If first = False Then - Dim oDataSource As DataTable = dgv.DataSource + End If - If oDataSource.Rows.Count > 0 Then - oDataSource.Rows.Clear() - End If + Else + If first = False Then + Dim oDataSource As DataTable = dgv.DataSource + If oDataSource.Rows.Count > 0 Then + oDataSource.Rows.Clear() End If + End If End If - Case "System.Windows.Forms.CheckBox" - LOGGER.Debug("Loading checkbox.") - oControlType = "CheckBox" - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then + End If + Case "System.Windows.Forms.CheckBox" + LOGGER.Debug("Loading checkbox.") + oControlType = "CheckBox" + If oSourceIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oSourceIndexName Is Nothing = False Then - Dim chk As CheckBox = oControl + Dim chk As CheckBox = oControl - If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then - LOGGER.Debug("Indexwert soll nicht geladen werden.") - Else + If oLoadIndex = False Or oSourceIndexName = "DD PM-ONLY FOR DISPLAY" Then + LOGGER.Debug("Indexwert soll nicht geladen werden.") + Else - If oDefaultValue <> String.Empty Then - Dim result = False - _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue - If Boolean.TryParse(oDefaultValue, result) Then - chk.Checked = result - Exit Select - End If + If oDefaultValue <> String.Empty Then + Dim result = False + _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue + If Boolean.TryParse(oDefaultValue, result) Then + chk.Checked = result + Exit Select End If - End If + End If - LOGGER.Debug("Loading Bool-Value from Windream.") - Dim wertWD - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - wertWD = ReturnVektor_IndexValue(oWMIndexName) - Else - Try - LOGGER.Debug($"..Now GetVariableValue({oWMIndexName})...") - wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - Catch ex As Exception - LOGGER.Warn($"Could not get the windreamValue for CheckboxIndex: {oWMIndexName} [{ex.Message}]") - End Try - End If + LOGGER.Debug("Loading Bool-Value from Windream.") + + If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) + Else + Try + LOGGER.Debug($"..Now GetVariableValue({oSourceIndexName})...") + oValueFromSource = GetVariableValuefromSource(oSourceIndexName) + Catch ex As Exception + LOGGER.Warn($"Could not get the windreamValue for CheckboxIndex: {oSourceIndexName} [{ex.Message}]") + End Try + End If - If wertWD Is Nothing Then - LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue") - chk.Checked = False - Else - LOGGER.Debug("Index value loaded: " & wertWD.ToString) - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString - If wertWD.ToString = "" Then - LOGGER.Info(">> Versuch, default Value zu laden") - If oDefaultValue <> String.Empty Then - Dim result = False - If Boolean.TryParse(oDefaultValue, result) Then - LOGGER.Info(">> defaultValue wurde geladen") - chk.Checked = result - Else - chk.Checked = False - End If + If oValueFromSource Is Nothing Then + LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue") + + chk.Checked = False + Else + LOGGER.Debug("Index value loaded: " & oValueFromSource.ToString) + _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString + If oValueFromSource.ToString = "" Then + LOGGER.Info(">> Versuch, default Value zu laden") + If oDefaultValue <> String.Empty Then + Dim result = False + If Boolean.TryParse(oDefaultValue, result) Then + LOGGER.Info(">> defaultValue wurde geladen") + chk.Checked = result Else - LOGGER.Info(">> defaultValue war leer") chk.Checked = False End If Else - Dim _value - If wertWD.ToString = "System.Object[]" Then - LOGGER.Debug("CheckBoxValue with VectorField: " & oWMIndexName) - If wertWD.length = 1 Then - _value = wertWD(0) - Else ' - LOGGER.Info(" >> Vectorfield " & oWMIndexName & "' contains more then one value - First value will be used") - _value = wertWD(0) - End If - Else - LOGGER.Debug("Value is not nothing and also not System.Object[]...") - _value = wertWD + LOGGER.Info(">> defaultValue war leer") + chk.Checked = False + End If + Else + Dim _value + If oValueFromSource.ToString = "System.Object[]" Then + LOGGER.Debug("CheckBoxValue with VectorField: " & oSourceIndexName) + If oValueFromSource.length = 1 Then + _value = oValueFromSource(0) + Else ' + LOGGER.Info(" >> Vectorfield " & oSourceIndexName & "' contains more then one value - First value will be used") + _value = oValueFromSource(0) End If - Try - Select Case CBool(_value) - Case True - LOGGER.Info(">> CBool(_value) = True") - chk.Checked = True - Case Else - LOGGER.Info(">> CBool(_value) = False") - chk.Checked = False - End Select - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(">> Unvorhergesehener Fehler bei CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString, True) - chk.Checked = False - End Try + Else + LOGGER.Debug("Value is not nothing and also not System.Object[]...") + _value = oValueFromSource End If + Try + Select Case CBool(_value) + Case True + LOGGER.Info(">> CBool(_value) = True") + chk.Checked = True + Case Else + LOGGER.Info(">> CBool(_value) = False") + chk.Checked = False + End Select + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info(">> Unvorhergesehener Fehler bei CBool(wertWD) - CheckBox: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString, True) + chk.Checked = False + End Try End If - End If - Case "DigitalData.Controls.LookupGrid.LookupControl2" + + End If + Case "DigitalData.Controls.LookupGrid.LookupControl2" + Try + Dim oLookup As LookupControl2 = oControl + oValueFromSource = GetVariableValuefromSource(oSourceIndexName) + 'Dim oWindreamValue = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) Try - Dim oLookup As LookupControl2 = oControl - Dim oWindreamValue = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - Try - oLookup.SelectedValues = Nothing - oLookup.SelectedValues = New List(Of String) - Catch ex As Exception + oLookup.SelectedValues = Nothing + oLookup.SelectedValues = New List(Of String) + Catch ex As Exception - End Try - If Not IsNothing(oWindreamValue) Then - If oWindreamValue.GetType.ToString.Contains("System.Object") Then - Dim oArrlist As New List(Of String) - For Each oVectorRow As Object In oWindreamValue + End Try + If Not IsNothing(oValueFromSource) Then + Dim oMyType = oValueFromSource.GetType.ToString + If oMyType.Contains("System.Object") Or oMyType = "System.Data.DataTable" Then + Dim oArrlist As New List(Of String) + If IDB_ACTIVE = False Then + For Each oVectorRow As Object In oValueFromSource Dim Ocontent = oVectorRow.ToString oArrlist.Add(Ocontent) Next - oLookup.SelectedValues = oArrlist - _CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString Else - Dim oArrlist As New List(Of String) - oArrlist.Add(oWindreamValue.ToString) - oLookup.SelectedValues = oArrlist - _CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString + Dim myDT As DataTable = oValueFromSource + For Each oVectorRow As DataRow In myDT.Rows + Dim Ocontent = oVectorRow.Item(0) + oArrlist.Add(Ocontent) + Next End If + + oLookup.SelectedValues = oArrlist + _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString Else - If Not IsNothing(oLookup.SelectedValues) Then - If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then - Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() - oLookup.SelectedValues = oValues - End If + Dim oArrlist As New List(Of String) + oArrlist.Add(oValueFromSource.ToString) + oLookup.SelectedValues = oArrlist + _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString + End If + Else + If Not IsNothing(oLookup.SelectedValues) Then + If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then + Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() + oLookup.SelectedValues = oValues End If End If + End If - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl2:") - End Try + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl2:") + End Try - Case "System.Windows.Forms.DateTimePicker" - oControlType = "DateTimePicker" - Dim DTP As DateTimePicker = oControl - If oWMIndexName = "" Then - MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) - Exit For - End If - If oWMIndexName Is Nothing = False Then - Dim wertWD - Try - If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then - LOGGER.Debug("DATE über PM-Vektor holen") - wertWD = ReturnVektor_IndexValue(oWMIndexName) - LOGGER.Info(">> DTP is """) - Else - wertWD = CURRENT_WMFILE.GetVariableValue(oWMIndexName) - End If + Case "System.Windows.Forms.DateTimePicker" + oControlType = "DateTimePicker" + Dim DTP As DateTimePicker = oControl + If oSourceIndexName = "" Then + MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + Exit For + End If + If oSourceIndexName Is Nothing = False Then - If wertWD Is Nothing Then wertWD = "" - Dim tempdate As Date = CDate("01.01.0001 00:00:00") - If wertWD.ToString.Length > 0 Then - Try - tempdate = CDate(wertWD) - LOGGER.Debug("DATE konnte umgewandelt werden") - Catch ex As Exception - LOGGER.Error(ex) - ValueDTP = tempdate - LOGGER.Debug("DATE wurde auf heute gesetzt") - End Try - DTP.Text = tempdate - Else - LOGGER.Debug("DATE ist leer") + Try + If oSourceIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then + LOGGER.Debug("DATE über PM-Vektor holen") + + oValueFromSource = ReturnVektor_IndexValue(oSourceIndexName) + LOGGER.Info(">> DTP is """) + Else + oValueFromSource = GetVariableValuefromSource(oSourceIndexName) + + End If + + If oValueFromSource Is Nothing Then oValueFromSource = "" + Dim tempdate As Date = CDate("01.01.0001 00:00:00") + If oValueFromSource.ToString.Length > 0 Then + Try + tempdate = CDate(oValueFromSource) + LOGGER.Debug("DATE konnte umgewandelt werden") + Catch ex As Exception + LOGGER.Error(ex) ValueDTP = tempdate - DTP.Text = tempdate - End If - _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString + LOGGER.Debug("DATE wurde auf heute gesetzt") + End Try + DTP.Text = tempdate + Else + LOGGER.Debug("DATE ist leer") + ValueDTP = tempdate + DTP.Text = tempdate + End If + _CURRENT_INDEX_ARRAY(oCount, 1) = oValueFromSource.ToString - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message + Catch ex As Exception + LOGGER.Error(ex) + errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString & vbNewLine & "Indexname: " & oWMIndexName, True) - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message, True) - End Try + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & oValueFromSource.ToString & vbNewLine & "Indexname: " & oSourceIndexName, True) + frmError.ShowDialog() + LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message, True) + End Try - End If - 'Case Else - ' MsgBox(Type) - End Select - oCount += 1 - Next - set_foreground() - If first_control Is Nothing = False Then first_control.Focus() - 'Flag setzen das Indexe geladen sind - _Indexe_Loaded = True - Load_Additional_Searches() - Else - MsgBox("Für dieses Profil wurde noch keine Eingabemaske definiert!" & vbNewLine & "Informieren Sie Ihren PM-Administrator!" & vbNewLine & "Das Fenster wird geschlossen!", MsgBoxStyle.Exclamation, "Achtung:") - Me.Close() - End If + End If + 'Case Else + ' MsgBox(Type) + End Select + oCount += 1 + Next + set_foreground() + If first_control Is Nothing = False Then first_control.Focus() + 'Flag setzen das Indexe geladen sind + _Indexe_Loaded = True + Load_Additional_Searches() + Else + MsgBox("Für dieses Profil wurde noch keine Eingabemaske definiert!" & vbNewLine & "Informieren Sie Ihren PM-Administrator!" & vbNewLine & "Das Fenster wird geschlossen!", MsgBoxStyle.Exclamation, "Achtung:") + Me.Close() + End If - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" - My.Settings.Save() - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True) - LOGGER.Info(">> Controltype: " & oControlType) - LOGGER.Info(">> Indexname windream: " & oIndexName) - LOGGER.Info(">> Stacktrace: " & ex.StackTrace) + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" + ' My.Settings.Save() + ' frmError.ShowDialog() + ' LOGGER.Info(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True) + ' LOGGER.Info(">> Controltype: " & oControlType) + ' LOGGER.Info(">> Indexname windream: " & oIndexName) + ' LOGGER.Info(">> Stacktrace: " & ex.StackTrace) - End Try + 'End Try End Sub Private Sub frmValidation_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown - Refresh_FileList() + ' Refresh_FileList() Load_Next_Document(True) _dependingControl_in_action = False FormLoaded = True @@ -2756,54 +2886,56 @@ Public Class frmValidator End Sub Sub Abschluss() btnSave.Enabled = False - LOGGER.Debug("Abschluss für Dok: " & CURRENT_WMFILE.aName & " gestartet") + LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") 'Eingaben auf Form überprüfen If Check_UpdateIndexe() = False Then 'lblerror.Visible = False - Try - Dim oErrorOcurred As Boolean = False + 'Try + Dim oErrorOcurred As Boolean = False - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING If oDTFinalIndexes.Rows.Count > 0 Then 'Jetzt finale Indexe setzen - LOGGER.Debug("Finale(r) Index(e) für Dok: " & CURRENT_WMFILE.aName & " soll gesetzt werden") + LOGGER.Debug("FINAL INDEXING STARTING...") For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows - Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString - Dim oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) - - If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### - LOGGER.Debug("Indexierung mit dynamischem SQL!") - Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") - - LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand) - oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - If IsNothing(oSQLCommand) Then - errormessage = "Error while replacing Values in final indexing - Check the log" - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True - End If - If Not IsNothing(oSQLCommand) Then - LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand) - Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) + Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString + Dim oIndexType = 0 + If IDB_ACTIVE = False Then + oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) + End If + If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### + LOGGER.Debug("Indexierung mit dynamischem SQL!") + Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") + + LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand) + oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + If IsNothing(oSQLCommand) Then + errormessage = "Error while replacing Values in final indexing - Check the log" + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + End If + If Not IsNothing(oSQLCommand) Then + LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand) + Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) - If Not IsNothing(dynamic_value) Then - LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString) - oValue = dynamic_value - Else - LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") - End If + If Not IsNothing(dynamic_value) Then + LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString) + oValue = dynamic_value + Else + LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") End If + End If - Else - If oValue.StartsWith("v") Then + Else + If oValue.StartsWith("v") Then Select Case oFinalIndexRow.Item("VALUE").ToString Case "vDate" oValue = Now.ToShortDateString Case "vUserName" - oValue = Environment.UserName - Case Else + oValue = USER_USERNAME + Case Else oValue = oFinalIndexRow.Item("VALUE") End Select End If @@ -2820,7 +2952,7 @@ Public Class frmValidator 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then + If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT") Else errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message @@ -2829,21 +2961,36 @@ Public Class frmValidator oErrorOcurred = True End If Else - LOGGER.Debug("Jetzt das indexieren") - If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then - LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") - - 'Nun das Logging + LOGGER.Debug("Now the final indexing...") + Dim oFIResult As Boolean = False + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then + oFIResult = True + LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") + + 'Nun das Logging + If PROFIL_LOGINDEX <> "" Then + Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) + WMIndexVectofield(logstr, PROFIL_LOGINDEX) + End If + End If + Else + If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then + oFIResult = True + LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB") If PROFIL_LOGINDEX <> "" Then Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) - Indexiere_VektorfeldPM(logstr, PROFIL_LOGINDEX) + oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr) End If - Else - errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + End If + End If + If oFIResult = False Then + errormessage = "Error in final indexing:" & vbNewLine & idxerr_message My.Settings.Save() frmError.ShowDialog() oErrorOcurred = True End If + End If If oErrorOcurred = True Then Exit For @@ -2853,10 +3000,9 @@ Public Class frmValidator ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde If oErrorOcurred = False Then - LOGGER.Debug("Tabelle updaten und co") - 'Das Dokument freigeben und als editiert markieren - Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID) - ClassDatabase.Execute_non_Query(sql) + 'Das Dokument freigeben und als editiert markieren + Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID) + ClassDatabase.Execute_non_Query(sql) 'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID) ''Das Dokument 'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID) @@ -2887,11 +3033,17 @@ Public Class frmValidator LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value) Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3) CTRL_ID = CTRL_ID.Replace("CTRLID", "") - Dim value_from_control + Dim value_from_control + If IsNumeric(CTRL_ID) Then For Each oControl As Control In Me.pnldesigner.Controls - If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then + Try + If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then + Continue For + End If + Catch ex As Exception Continue For - End If + End Try + If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then '###### Dim Type As String = oControl.GetType.ToString @@ -2933,7 +3085,9 @@ Public Class frmValidator End If Next - If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then + End If + + If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control) End If Catch ex As Exception @@ -2942,17 +3096,17 @@ Public Class frmValidator End Try Next If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then - WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString) - End If + WORK_HISTORY_ENTRY = 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) - End If + WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME) + End If Else WORK_HISTORY_ENTRY = "" End If End If - Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, Environment.UserName, Environment.MachineName, WORK_HISTORY_ENTRY) - ClassDatabase.Execute_non_Query(ins) + 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) Close_document_viewer() If WMDocPathWindows.ToLower.EndsWith(".pdf") Then @@ -2963,7 +3117,7 @@ Public Class frmValidator 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 @@ -2977,7 +3131,7 @@ Public Class frmValidator For Each rw As DataRow In DT_ENTRIES.Rows AnnotationString = AnnotationString & rw.Item("WORKED_WHEN") & " " & rw.Item("WORKED_BY") & ": " & rw.Item("STATUS_COMMENT") & vbNewLine Next - ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, 10, 40) + ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, False, 10, 40) End If End If End If @@ -2994,10 +3148,10 @@ Public Class frmValidator oErrorOcurred = True End If End If - 'Validierungsfile löschen wenn vorhanden - allgFunk.Delete_xffres(WMDocPathWindows, _windream) - LOGGER.Debug("Delete_xffres ausgeführt") - LOGGER.Debug("All Input clear") + 'Validierungsfile löschen wenn vorhanden + 'allgFunk.Delete_xffres(WMDocPathWindows, _windream) + 'LOGGER.Debug("Delete_xffres ausgeführt") + LOGGER.Debug("All Input clear") Anzahl_validierte_Dok += 1 'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID) LOGGER.Debug("Anzahl hochgesetzt") @@ -3015,14 +3169,14 @@ Public Class frmValidator End If - Catch ex As Exception - LOGGER.Error(ex) - errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message - My.Settings.Save() - frmError.ShowDialog() - LOGGER.Info(">> Unvorhergesehener Fehler bei Abschluss: " & ex.Message, True) - End Try - Else + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' errormessage = "Unexpected error in Finish:" & ex.Message + ' My.Settings.Save() + ' frmError.ShowDialog() + ' LOGGER.Info("Unexpected error in Finish: " & ex.Message, True) + 'End Try + Else 'lblerror.Visible = True 'lblerror.Text = errmessage errormessage = oErrorMessage @@ -3043,7 +3197,7 @@ Public Class frmValidator 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) @@ -3056,9 +3210,9 @@ Public Class frmValidator 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 & "' - OLD: '" & old & "'" & Delimiter & Environment.UserName & Delimiter & Now.ToString + PM_String = $"DD-PMLog-CHG{Delimiter}{indexname}{Delimiter}NEW: [{input}] - OLD: [{old}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" End If Catch ex As Exception @@ -3069,7 +3223,7 @@ Public Class frmValidator Return PM_String End Function - Private Function Indexiere_VektorfeldPM(input As String, NameVKTIndex As String, Optional PreventDuplicates As Boolean = False, Optional AllowAddNewValues As Boolean = True, Optional IndexBehaviour As String = "Add") + Private Function WMIndexVectofield(input As String, NameVKTIndex As String, Optional PreventDuplicates As Boolean = False, Optional AllowAddNewValues As Boolean = True, Optional IndexBehaviour As String = "Add") Dim oOldValue As Object = CURRENT_WMFILE.GetVariableValue(NameVKTIndex) Dim oValueList As New List(Of Object) Dim oNewValue As Object() @@ -3107,19 +3261,28 @@ Public Class frmValidator Return oMissing End Function + Function DT_FOR_ARRAY(pArr As String()) As DataTable + Dim odt As New DataTable + odt.Columns.Add("ID", GetType(Integer)) + odt.Columns.Add("Result", GetType(String)) + Dim N As Integer = odt.Columns("ID").AutoIncrement + + For Each oStr In pArr + odt.Rows.Add(N, oStr) + Next + Return odt + End Function Function Check_UpdateIndexe() Dim oControlName Dim oControlId As String Try - Dim dt As DataTable = DD_DMSLiteDataSet.VWPM_CONTROL_INDEX Dim oMissing As Boolean = False - 'Jedes Control auf panel durchlaufen For Each oControl As Control In Me.pnldesigner.Controls 'Der input der Box,Cmb muss jedes mal geleert werden - Dim input As String = "" + Dim oMyInput As String = "" 'Jedes Control in Konfig Tab durchlaufn - For Each dr As DataRow In dt.Rows + For Each dr As DataRow In DTVWCONTROL_INDEX.Rows If dr.Item("CTRL_TYPE") = "LBL" Or dr.Item("CTRL_TYPE") = "LINE" Then Continue For End If @@ -3147,9 +3310,6 @@ Public Class frmValidator Case "DigitalData.Controls.LookupGrid.LookupControl2" Try Dim lookup As LookupControl2 = oControl - If oControl.Name = "DGV_ca94be19" Then - 'MsgBox("attebt") - End If If lookup.SelectedValues.Count = 0 And oIsRequired = True Then oMissing = True oErrorMessage = $"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'" @@ -3175,77 +3335,106 @@ Public Class frmValidator End If Next - 'Jetzt die Datei indexieren - If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + + If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message + Exit For + End If + Else + Dim oMyDT = DT_FOR_ARRAY(myVektorArr) + If IDBData.SetVariableValue(oIndexName, oMyDT, True) = False Then + oMissing = True + oErrorMessage = "Error while indexing IDB-Object LookupGrid" + Exit For + End If End If + 'Jetzt die Datei indexieren + Else Dim oValues As New List(Of Object) From {String.Empty} - If Indexiere_File(CURRENT_WMFILE, oIndexName, oValues.ToArray) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, oValues.ToArray) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message + Exit For + End If + End If + End If Else - input = lookup.SelectedValues.FirstOrDefault() - If IsNothing(input) And oIsRequired = True Then + oMyInput = lookup.SelectedValues.FirstOrDefault() + If IsNothing(oMyInput) And oIsRequired = True Then oMissing = True oErrorMessage = $"Could not get FirstOrDefault-Value of LookUpGrid! - LookUPGridName: {lookup.Name}" Exit For - ElseIf IsNothing(input) And oIsRequired = False Then + ElseIf IsNothing(oMyInput) And oIsRequired = False Then Continue For End If 'den aktuellen Wert in windream auslesen - Dim wertWD + Dim oValueFromObject If oIndexName.StartsWith("[%VKT") Then - wertWD = ReturnVektor_IndexValue(oIndexName) + oValueFromObject = ReturnVektor_IndexValue(oIndexName) Else - wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) - If Not IsNothing(wertWD) Then - If wertWD.ToString = "System.Object[]" Then - If wertWD.Length = 1 Then - wertWD = wertWD(0) - Else ' - LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") - wertWD = wertWD(0) + oValueFromObject = GetVariableValuefromSource(oIndexName) + If Not IsNothing(oValueFromObject) Then + If IDB_ACTIVE = False Then + If oValueFromObject.ToString = "System.Object[]" Then + If oValueFromObject.Length = 1 Then + oValueFromObject = oValueFromObject(0) + Else ' + LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") + oValueFromObject = oValueFromObject(0) + End If End If End If Else - wertWD = "" + oValueFromObject = "" End If 'wenn Wert in Windream <> der Eingabe darf indexiert werden - If IsNothing(wertWD) Or wertWD <> input Then + If IsNothing(oValueFromObject) Or oValueFromObject <> oMyInput Then 'Wenn der Wert in ein Vektorfeld geschrieben wird If oIndexName.StartsWith("[%VKT") Then - input = Return_PM_VEKTOR(input, oIndexName) + oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName) 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then + If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrorMessage = "Fehler beim Indexieren Textbox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else - Dim result() As String - ReDim Preserve result(0) - result(0) = input - If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + Dim result() As String + ReDim Preserve result(0) + result(0) = oMyInput + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message + Exit For + End If Else - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - input = Return_LOGString(input, wertWD, oIndexName) - Indexiere_VektorfeldPM(input, PROFIL_LOGINDEX) + If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then + Exit For + End If + End If + + 'Nun das Logging + If PROFIL_LOGINDEX <> "" Then + Dim oLogStr = Return_LOGString(oMyInput, oValueFromObject, oIndexName) + If IDB_ACTIVE = False Then + WMIndexVectofield(oLogStr, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogStr) End If + End If + End If End If End If @@ -3288,52 +3477,63 @@ Public Class frmValidator oControl.BackColor = Color.Red Exit For Else - input = oControl.Text + oMyInput = oControl.Text 'den aktuellen Wert in windream auslesen - Dim wertWD + Dim oSourceValue = GetVariableValuefromSource(oIndexName) + If oIndexName.StartsWith("[%VKT") Then - wertWD = ReturnVektor_IndexValue(oIndexName) + oSourceValue = ReturnVektor_IndexValue(oIndexName) Else - wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) - If Not IsNothing(wertWD) Then - If wertWD.ToString = "System.Object[]" Then - If wertWD.Length = 1 Then - wertWD = wertWD(0) + 'wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) + If Not IsNothing(oSourceValue) Then + If oSourceValue.ToString = "System.Object[]" Then + If oSourceValue.Length = 1 Then + oSourceValue = oSourceValue(0) Else ' LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") - wertWD = wertWD(0) + oSourceValue = oSourceValue(0) End If End If Else - wertWD = "" + oSourceValue = "" End If End If 'wenn Wert in Windream <> der Eingabe darf indexiert werden - If IsNothing(wertWD) Or wertWD <> input Then + If IsNothing(oSourceValue) Or oSourceValue <> oMyInput Then 'Wenn der Wert in ein Vektorfeld geschrieben wird If oIndexName.StartsWith("[%VKT") Then - input = Return_PM_VEKTOR(input, oIndexName) + oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName) 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then + If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrorMessage = "Fehler beim Indexieren Textbox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else - Dim result() As String - ReDim Preserve result(0) - result(0) = input - If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + Dim result() As String + ReDim Preserve result(0) + result(0) = oMyInput + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message + Exit For + End If Else - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - input = Return_LOGString(input, wertWD, oIndexName) - Indexiere_VektorfeldPM(input, PROFIL_LOGINDEX) + If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then + Exit For + End If + End If + + If PROFIL_LOGINDEX <> "" Then + Dim oMyLogString = Return_LOGString(oMyInput, oSourceValue, oIndexName) + If IDB_ACTIVE = False Then + WMIndexVectofield(oMyLogString, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, oMyLogString) End If + End If End If @@ -3361,14 +3561,14 @@ Public Class frmValidator Exit For 'ElseIf cmb.SelectedIndex <> -1 Then Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben - input = cmb.Text + oMyInput = cmb.Text LOGGER.Debug($"inputvalue Combobox: {cmb.Text}") Dim oWMValue 'den aktuellen Wert in windream auslesen If oIndexName.StartsWith("[%VKT") Then oWMValue = ReturnVektor_IndexValue(oIndexName) Else - oWMValue = CURRENT_WMFILE.GetVariableValue(oIndexName) + oWMValue = GetVariableValuefromSource(oIndexName) End If LOGGER.Debug($"Got a WMValue...") If IsNothing(oWMValue) Then @@ -3395,7 +3595,7 @@ Public Class frmValidator LOGGER.Debug($"WMValue is a regular item...") Dim oitsadifference As Boolean = False Try - If oWMValue.ToString <> input.ToString Then + If oWMValue.ToString <> oMyInput.ToString Then oitsadifference = True End If Catch ex As Exception @@ -3408,29 +3608,44 @@ Public Class frmValidator LOGGER.Debug($"Index with ID{oControlId} will now be indexed...") 'Wenn der Wert in ein Vektorfeld geschrieben wird If oIndexName.StartsWith("[%VKT") Then - input = Return_PM_VEKTOR(input, oIndexName) + oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName) 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then + If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrorMessage = "Fehler beim Indexieren Combobox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else - Dim result() As String - ReDim Preserve result(0) - result(0) = input - If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then - cmb.DroppedDown = True - oMissing = True - oErrorMessage = "Fehler beim Indexieren Combobox - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + Dim result() As String + ReDim Preserve result(0) + result(0) = oMyInput + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then + cmb.DroppedDown = True + oMissing = True + oErrorMessage = "Fehler beim Indexieren Combobox - ERROR: " & idxerr_message + Exit For + End If Else - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - input = Return_LOGString(input, oWMValue, oIndexName) - Indexiere_VektorfeldPM(input, PROFIL_LOGINDEX) + If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then + cmb.DroppedDown = True + oMissing = True + oErrorMessage = "Error indexing combobox idb" + Exit For + End If + End If + + 'Nun das Logging + If PROFIL_LOGINDEX <> "" Then + Dim ologStr = Return_LOGString(oMyInput, oWMValue, oIndexName) + If IDB_ACTIVE = False Then + WMIndexVectofield(ologStr, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, ologStr) End If + End If + End If Else LOGGER.Debug($"oitsadifference = False...Index with ID{oControlId} will not be indexed...") @@ -3458,49 +3673,61 @@ Public Class frmValidator oErrorMessage = "Please Choose DateValue for field'" & dtp.Name & "'" Exit For ElseIf dtp.Value.ToString <> "01.01.0001 00:00:00" Then - input = CDate(dtp.Value) + oMyInput = CDate(dtp.Value) 'den aktuellen Wert in windream auslesen ' Dim wertWD As String = CURRENT_WMFILE.GetVariableValue(_IDXName) - Dim wertWD As String + Dim oObjectValue If oIndexName.StartsWith("[%VKT") Then - wertWD = ReturnVektor_IndexValue(oIndexName) + oObjectValue = ReturnVektor_IndexValue(oIndexName) Else - wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName) + oObjectValue = GetVariableValuefromSource(oIndexName) End If - If IsNothing(wertWD) Then - wertWD = CDate("01.01.1900") + If IsNothing(oObjectValue) Then + oObjectValue = CDate("01.01.1900") End If 'wenn Wert in Windream <> der Eingabe darf indexiert werden - If wertWD <> input Then + If oObjectValue <> oMyInput Then 'Wenn der WErt in ein Vektorfeld geschrieben wird If oIndexName.StartsWith("[%VKT") Then 'Input = die String komponente als String - input = Return_PM_VEKTOR(input, oIndexName) + oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName) 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then + If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrorMessage = "Fehler beim Indexieren DatePicker als VEKTOR - ERROR: " & idxerr_message Exit For End If Else - Dim result() - ReDim Preserve result(0) - result(0) = CDate(input) - 'MsgBox(_IDXName) - If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren DatePicker- ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + Dim result() + ReDim Preserve result(0) + result(0) = CDate(oMyInput) + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren DatePicker- ERROR: " & idxerr_message + Exit For + End If Else - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - input = Return_LOGString(input, wertWD, oIndexName) - Indexiere_VektorfeldPM(input, PROFIL_LOGINDEX) + If IDBData.SetVariableValue(oIndexName, oObjectValue) = False Then + oMissing = True + oErrorMessage = "Error indexing datepicker idb" + Exit For + End If + End If + + If PROFIL_LOGINDEX <> "" Then + Dim oLogstr = Return_LOGString(oMyInput, oObjectValue, oIndexName) + If IDB_ACTIVE = False Then + WMIndexVectofield(oLogstr, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogstr) End If + End If + End If Else - LOGGER.Debug("Value WD ('" & wertWD.ToString & "') = Input-value ('" & input.ToString & "')") + LOGGER.Debug("Value WD ('" & oObjectValue.ToString & "') = Input-value ('" & oMyInput.ToString & "')") End If Else @@ -3508,7 +3735,7 @@ Public Class frmValidator End If Case "System.Windows.Forms.CheckBox" Dim chk As CheckBox = oControl - input = chk.Checked.ToString + oMyInput = chk.Checked.ToString 'If chk.Checked = False And oIsRequired = True Then ' oMissing = True @@ -3518,31 +3745,32 @@ Public Class frmValidator 'den aktuellen Wert in windream auslesen Dim WertWD As String - Dim Bool_WD As Boolean + Dim oBoolValue As Boolean If oIndexName.StartsWith("[%VKT") Then WertWD = ReturnVektor_IndexValue(oIndexName) If WertWD = "" Then - Bool_WD = False + oBoolValue = False Else - Bool_WD = CBool(WertWD) + oBoolValue = CBool(WertWD) End If Else Dim _Value - Dim ValueWD = CURRENT_WMFILE.GetVariableValue(oIndexName) - If IsNothing(ValueWD) Then - Bool_WD = False + Dim oObjectCheck = GetVariableValuefromSource(oIndexName) + + If IsNothing(oObjectCheck) Then + oBoolValue = False Else - If ValueWD.ToString = "System.Object[]" Then - If ValueWD.Length = 1 Then - _Value = ValueWD(0) + If oObjectCheck.ToString = "System.Object[]" Then + If oObjectCheck.Length = 1 Then + _Value = oObjectCheck(0) Else ' LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") - _Value = ValueWD(0) + _Value = oObjectCheck(0) End If Else - _Value = ValueWD + _Value = oObjectCheck End If - Bool_WD = CBool(_Value) + oBoolValue = CBool(_Value) End If End If @@ -3551,7 +3779,7 @@ Public Class frmValidator ' Dim Bool_WD = CBool(CURRENT_WMFILE.GetVariableValue(_IDXName)) 'wenn Wert in Windream <> der Eingabe darf indexiert werden - If Bool_WD <> chk.Checked Then + If oBoolValue <> chk.Checked Then Dim result() As String ReDim Preserve result(0) If chk.Checked Then @@ -3562,24 +3790,35 @@ Public Class frmValidator If oIndexName.StartsWith("[%VKT") Then 'Input = die String komponente mit Boolean als String - input = Return_PM_VEKTOR(chk.Checked.ToString, oIndexName) + oMyInput = Return_PM_VEKTOR(chk.Checked.ToString, oIndexName) 'Hier muss nun separat als Vektorfeld indexiert werden - If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then + If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then oMissing = True oErrorMessage = "Fehler beim Indexieren Checkbox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else - If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren Checkbox - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren Checkbox - ERROR: " & idxerr_message + Exit For + End If Else - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - input = Return_LOGString(CBool(result(0)).ToString, WertWD, oIndexName) - Indexiere_VektorfeldPM(input, PROFIL_LOGINDEX) + If IDBData.SetVariableValue(oIndexName, chk.Checked.ToString) Then + oErrorMessage = "error indexing checkboxidb" + Exit For + End If + End If + + If PROFIL_LOGINDEX <> "" Then + Dim oLogstr = Return_LOGString(CBool(result(0)).ToString, WertWD, oIndexName) + If IDB_ACTIVE = False Then + WMIndexVectofield(oLogstr, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogstr) End If + End If End If End If @@ -3641,12 +3880,23 @@ Public Class frmValidator End Select Next - 'Jetzt die Datei indexieren - If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message + Exit For + End If + Else + Dim oDT As DataTable = DT_FOR_ARRAY(myVektorArr) + If oDT.Rows.Count > 0 Then + If IDBData.SetVariableValue(oIndexName, oDT, True) = False Then + oMissing = True + oErrorMessage = "Error indexing Datagridview idb" + Exit For + End If + End If End If + 'Jetzt die Datei indexieren End If Case "DevExpress.XtraGrid.GridControl" @@ -3702,21 +3952,38 @@ Public Class frmValidator End Select Next - 'Jetzt die Datei indexieren - If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message - Exit For + + + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then + oMissing = True + oErrorMessage = $"Error while indexing table (1) {dgv.Name} - ERROR: " & idxerr_message + Exit For + End If + Else + Dim oMyDT = DT_FOR_ARRAY(myVektorArr) + If oMyDT.Rows.Count > 0 Then + If IDBData.SetVariableValue(oIndexName, oMyDT, True) = False Then + oMissing = True + oErrorMessage = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message + Exit For + End If + End If End If + + Else Dim oValue As New List(Of Object) From {String.Empty} - 'Jetzt die Datei indexieren - If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then - oMissing = True - oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message - Exit For + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then + oMissing = True + 'oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message + oErrorMessage = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message + Exit For + End If End If + End If End Select End If 'End If für Control und ReadOnly = False @@ -3772,14 +4039,14 @@ Public Class frmValidator 'File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue) File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue) If File_indexiert = False Then - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & idxerr_message, Environment.UserName) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & idxerr_message, USER_USERNAME) End If Return File_indexiert End If Catch ex As Exception LOGGER.Error(ex) - allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & ex.Message, Environment.UserName) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & ex.Message, USER_USERNAME) idxerr_message = "unvorhergesehener Fehler in Indexiere_File: " & ex.Message.ToString LOGGER.Info(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True) Return False @@ -4000,14 +4267,14 @@ Public Class frmValidator End Sub Private Sub frmValidator_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp - If (e.Control AndAlso e.KeyCode = Keys.S) Then - btnSave.Enabled = False - Abschluss() - btnSave.Enabled = True - ElseIf e.KeyCode = Keys.F4 Then + If e.KeyCode = Keys.F4 Then Datei_ueberspringen() End If - + '(e.Control AndAlso e.KeyCode = Keys.S) Then + ' btnSave.Enabled = False + 'Abschluss() + 'btnSave.Enabled = True + 'Else End Sub Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButtonJumpFile.Click @@ -4078,11 +4345,11 @@ Public Class frmValidator End Sub Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover - Dim msg = "strg & s für speichern" - If USER_LANGUAGE <> "de-DE" Then - msg = "ctrl & s for saving" - End If - ToolTip1.Show(msg, btnSave) + 'Dim msg = "strg & s für speichern" + 'If USER_LANGUAGE <> "de-DE" Then + ' msg = "ctrl & s for saving" + 'End If + 'ToolTip1.Show(msg, btnSave) End Sub Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.vb index ac93b32..e618753 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.vb @@ -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