diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 7d22320..67448b1 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -356,7 +356,6 @@ Public Class ClassControlCreator .Last.Visible = False .Next.Visible = False .NextPage.Visible = False - .Append.Visible = False .PrevPage.Visible = False .Prev.Visible = False End With diff --git a/app/DD_PM_WINDREAM/ClassRegexEditor.vb b/app/DD_PM_WINDREAM/ClassRegexEditor.vb new file mode 100644 index 0000000..9b73fd9 --- /dev/null +++ b/app/DD_PM_WINDREAM/ClassRegexEditor.vb @@ -0,0 +1,27 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports System.Windows.Forms.Design + +Public Class ClassRegexEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim oRegexString As String = NotNull(value, String.Empty) + + If oService IsNot Nothing Then + Using oform As New frmRegexEditor() + oform.RegexString = oRegexString + If oService.ShowDialog(oform) = DialogResult.OK Then + value = oform.RegexString + End If + End Using + End If + + Return value + End Function +End Class diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index bf3fbc5..4032dae 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -2947,6 +2947,8 @@ Partial Public Class DD_DMSLiteDataSet Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + Private columnREGEX_MATCH As Global.System.Data.DataColumn + _ Public Sub New() @@ -3174,6 +3176,14 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MATCH + End Get + End Property + _ @@ -3235,9 +3245,10 @@ Partial Public Class DD_DMSLiteDataSet ByVal READ_ONLY As Boolean, _ ByVal LOAD_IDX_VALUE As Boolean, _ ByVal LOG_INDEX As String, _ - ByVal DEFAULT_VALUE As String) As VWPM_CONTROL_INDEXRow + ByVal DEFAULT_VALUE As String, _ + ByVal REGEX_MATCH 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} + 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} rowVWPM_CONTROL_INDEXRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPM_CONTROL_INDEXRow) Return rowVWPM_CONTROL_INDEXRow @@ -3290,6 +3301,7 @@ Partial Public Class DD_DMSLiteDataSet 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") End Sub _ Public Sub New() @@ -6194,6 +6211,14 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MATCH + End Get + End Property + _ @@ -6259,9 +6284,10 @@ Partial Public Class DD_DMSLiteDataSet ByVal DEFAULT_VALUE As String, _ ByVal MULTISELECT As Boolean, _ ByVal VKT_ADD_ITEM As Boolean, _ - ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As TBPM_PROFILE_CONTROLSRow + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal REGEX_MATCH As String) As TBPM_PROFILE_CONTROLSRow Dim rowTBPM_PROFILE_CONTROLSRow As TBPM_PROFILE_CONTROLSRow = CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES} + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH} If (Not (parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1) Is Nothing) Then columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1(0) End If @@ -6322,6 +6348,7 @@ Partial Public Class DD_DMSLiteDataSet Me.columnMULTISELECT = MyBase.Columns("MULTISELECT") Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM") Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") + Me.columnREGEX_MATCH = MyBase.Columns("REGEX_MATCH") End Sub _ + Public Property REGEX_MATCH() As String + Get + Try + Return CType(Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MATCHColumn),String) + 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) + End Try + End Get + Set + Me(Me.tableVWPM_CONTROL_INDEX.REGEX_MATCHColumn) = value + End Set + End Property + _ Public Function IsINDEX_NAMENull() As Boolean @@ -10046,6 +10091,18 @@ Partial Public Class DD_DMSLiteDataSet 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 ''' @@ -11717,6 +11774,21 @@ Partial Public Class DD_DMSLiteDataSet End Set End Property + _ + Public Property REGEX_MATCH() As String + Get + Try + 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 REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value + End Set + End Property + _ Public Property TBPM_PROFILERow() As TBPM_PROFILERow @@ -11872,6 +11944,18 @@ Partial Public Class DD_DMSLiteDataSet 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() @@ -16324,6 +16408,7 @@ Namespace DD_DMSLiteDataSetTableAdapters 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") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -16343,9 +16428,9 @@ Namespace DD_DMSLiteDataSetTableAdapters 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, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TYP, CONNECTION_ID, SQL"& _ - "_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_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 (PROFIL_NAME = @Profil)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X"& _ - "_LOC" + "_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE, REGEX_MATCH"& _ + ""&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_NAME = @Profil)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDE"& _ + "R BY Y_LOC, X_LOC" 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, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() @@ -19579,6 +19664,7 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT") tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") + tableMapping.ColumnMappings.Add("REGEX_MATCH", "REGEX_MATCH") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -19587,151 +19673,167 @@ Namespace DD_DMSLiteDataSetTableAdapters 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_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, NAME, CTR"& _ - "L_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FON"& _ - "T_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, SQL_UEBERPRUEFUNG, READ_ONLY,"& _ - " LOAD_IDX_VALUE, MULTISELECT, VKT_ADD_ITEM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VKT_PREVE"& _ - "NT_MULTIPLE_VALUES)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LO"& _ - "C,@Y_LOC,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@INDEX_NAME,@TYP,@VAL"& _ - "IDATION,@CHOICE_LIST,@CONNECTION_ID,@SQL_UEBERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYL"& _ - "E,@FONT_SIZE,@FONT_FAMILY,@FONT_COLOR,@READ_ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,"& _ - ",,,,,); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADD"& _ - "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOI"& _ - "CE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE,"& _ - " FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE FROM TBPM_PRO"& _ - "FILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY Y_LOC, X_LOC" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_PROFILE_CONTROLS] ([PROFIL_ID], [NAME], [CTRL_TYPE], [CTRL_TEXT"& _ + "], [X_LOC], [Y_LOC], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], ["& _ + "INDEX_NAME], [TYP], [VALIDATION], [CHOICE_LIST], [CONNECTION_ID], [SQL_UEBERPRUE"& _ + "FUNG], [HEIGHT], [WIDTH], [FONT_STYLE], [FONT_SIZE], [FONT_FAMILY], [FONT_COLOR]"& _ + ", [READ_ONLY], [LOAD_IDX_VALUE], [DEFAULT_VALUE], [MULTISELECT], [VKT_ADD_ITEM],"& _ + " [VKT_PREVENT_MULTIPLE_VALUES], [REGEX_MATCH]) VALUES (@PROFIL_ID, @NAME, @CTRL_"& _ + "TYPE, @CTRL_TEXT, @X_LOC, @Y_LOC, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGE"& _ + "D_WHEN, @INDEX_NAME, @TYP, @VALIDATION, @CHOICE_LIST, @CONNECTION_ID, @SQL_UEBER"& _ + "PRUEFUNG, @HEIGHT, @WIDTH, @FONT_STYLE, @FONT_SIZE, @FONT_FAMILY, @FONT_COLOR, @"& _ + "READ_ONLY, @LOAD_IDX_VALUE, @DEFAULT_VALUE, @MULTISELECT, @VKT_ADD_ITEM, @VKT_PR"& _ + "EVENT_MULTIPLE_VALUES, @REGEX_MATCH);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, "& _ + "CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX"& _ + "_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, W"& _ + "IDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE,"& _ + " DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MA"& _ + "TCH FROM TBPM_PROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY Y_LOC, X"& _ + "_LOC" 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("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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, 30, 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, 8, 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("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", 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_UEBERPRUEFUNG", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_UEBERPRUEFUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", 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, 0, 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("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", 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, 0, 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_UEBERPRUEFUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_UEBERPRUEFUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", 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_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFIL_ID = @PROFIL_ID, NA"& _ - "ME = @NAME, CTRL_TYPE = @CTRL_TYPE, CTRL_TEXT = @CTRL_TEXT, X_LOC = @X_LOC, Y_LO"& _ - "C = @Y_LOC, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, INDEX_NAME = "& _ - "@INDEX_NAME, TYP = @TYP, VALIDATION = @VALIDATION, CHOICE_LIST = @CHOICE_LIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_ID = @CONNECTION_ID, SQL_UEBERPRUEFUNG = @S"& _ - "QL_UEBERPRUEFUNG, HEIGHT = @HEIGHT, WIDTH = @WIDTH, FONT_STYLE = @FONT_STYLE, FO"& _ - "NT_SIZE = @FONT_SIZE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FONT_FAMILY = @FONT_FAMILY, FON"& _ - "T_COLOR = @FONT_COLOR, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE,"& _ - " DEFAULT_VALUE = @DEFAULT_VALUE, MULTISELECT = @MULTISELECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT"& _ - "_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID) AND (PROFIL_ID = @Origina"& _ - "l_PROFIL_ID) AND (NAME = @Original_NAME) AND (CTRL_TYPE = @Original_CTRL_TYPE) A"& _ - "ND (CTRL_TEXT = @Original_CTRL_TEXT) AND (X_LOC = @Original_X_LOC) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " AND (Y_LOC = @Original_Y_LOC) AND (ADDED_WHO = @Original_ADDED_WHO"& _ - ") AND (ADDED_WHEN = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND CHANG"& _ - "ED_WHO IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @Original_CHANGED_WHO)"& _ - " AND (@IsNull_CHANGED_WHEN = 1 AND CHANGED_WHEN IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " CHANGED_WHEN = @Original_CHANGED_WHEN) AND (@IsNull_INDEX_NAME = 1 AND INDE"& _ - "X_NAME IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" INDEX_NAME = @Original_INDEX_NAME) A"& _ - "ND (@IsNull_TYP = 1 AND TYP IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TYP = @Original"& _ - "_TYP) AND (VALIDATION = @Original_VALIDATION) AND (@IsNull_CHOICE_LIST = 1 AND C"& _ - "HOICE_LIST IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHOICE_LIST = @Original_CHOICE_L"& _ - "IST) AND (@IsNull_CONNECTION_ID = 1 AND CONNECTION_ID IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " CONNECTION_ID = @Original_CONNECTION_ID) AND (HEIGHT = @Original_HEIG"& _ - "HT) AND (WIDTH = @Original_WIDTH) AND (@IsNull_FONT_STYLE = 1 AND FONT_STYLE IS "& _ - "NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FONT_STYLE = @Original_FONT_STYLE) AND (@IsNul"& _ - "l_FONT_SIZE = 1 AND FONT_SIZE IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FONT_SIZE = @"& _ - "Original_FONT_SIZE) AND (@IsNull_FONT_FAMILY = 1 AND FONT_FAMILY IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FONT_FAMILY = @Original_FONT_FAMILY) AND (@IsNull_FONT_COL"& _ - "OR = 1 AND FONT_COLOR IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FONT_COLOR = @Origina"& _ - "l_FONT_COLOR) AND (READ_ONLY = @Original_READ_ONLY) AND (LOAD_IDX_VALUE = @Origi"& _ - "nal_LOAD_IDX_VALUE) AND (@IsNull_DEFAULT_VALUE = 1 AND DEFAULT_VALUE IS NULL OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DEFAULT_VALUE = @Original_DEFAULT_VALUE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ - "ID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "& _ - "CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_"& _ - "ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_C"& _ - "OLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE FROM TBPM_PROFILE_CONTROLS WHERE "& _ - "(GUID = @GUID) ORDER BY Y_LOC, X_LOC" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_PROFILE_CONTROLS] SET [PROFIL_ID] = @PROFIL_ID, [NAME] = @NAME, [CTR"& _ + "L_TYPE] = @CTRL_TYPE, [CTRL_TEXT] = @CTRL_TEXT, [X_LOC] = @X_LOC, [Y_LOC] = @Y_L"& _ + "OC, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANG"& _ + "ED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [INDEX_NAME] = @INDEX_NAME, [TYP] = @TYP"& _ + ", [VALIDATION] = @VALIDATION, [CHOICE_LIST] = @CHOICE_LIST, [CONNECTION_ID] = @C"& _ + "ONNECTION_ID, [SQL_UEBERPRUEFUNG] = @SQL_UEBERPRUEFUNG, [HEIGHT] = @HEIGHT, [WID"& _ + "TH] = @WIDTH, [FONT_STYLE] = @FONT_STYLE, [FONT_SIZE] = @FONT_SIZE, [FONT_FAMILY"& _ + "] = @FONT_FAMILY, [FONT_COLOR] = @FONT_COLOR, [READ_ONLY] = @READ_ONLY, [LOAD_ID"& _ + "X_VALUE] = @LOAD_IDX_VALUE, [DEFAULT_VALUE] = @DEFAULT_VALUE, [MULTISELECT] = @M"& _ + "ULTISELECT, [VKT_ADD_ITEM] = @VKT_ADD_ITEM, [VKT_PREVENT_MULTIPLE_VALUES] = @VKT"& _ + "_PREVENT_MULTIPLE_VALUES, [REGEX_MATCH] = @REGEX_MATCH WHERE (([GUID] = @Origina"& _ + "l_GUID) AND ([PROFIL_ID] = @Original_PROFIL_ID) AND ([NAME] = @Original_NAME) AN"& _ + "D ([CTRL_TYPE] = @Original_CTRL_TYPE) AND ([CTRL_TEXT] = @Original_CTRL_TEXT) AN"& _ + "D ([X_LOC] = @Original_X_LOC) AND ([Y_LOC] = @Original_Y_LOC) AND ([ADDED_WHO] ="& _ + " @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CH"& _ + "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ + "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ + "N] = @Original_CHANGED_WHEN)) AND ((@IsNull_INDEX_NAME = 1 AND [INDEX_NAME] IS N"& _ + "ULL) OR ([INDEX_NAME] = @Original_INDEX_NAME)) AND ((@IsNull_TYP = 1 AND [TYP] I"& _ + "S NULL) OR ([TYP] = @Original_TYP)) AND ([VALIDATION] = @Original_VALIDATION) AN"& _ + "D ((@IsNull_CHOICE_LIST = 1 AND [CHOICE_LIST] IS NULL) OR ([CHOICE_LIST] = @Orig"& _ + "inal_CHOICE_LIST)) AND ((@IsNull_CONNECTION_ID = 1 AND [CONNECTION_ID] IS NULL) "& _ + "OR ([CONNECTION_ID] = @Original_CONNECTION_ID)) AND ([HEIGHT] = @Original_HEIGHT"& _ + ") AND ([WIDTH] = @Original_WIDTH) AND ((@IsNull_FONT_STYLE = 1 AND [FONT_STYLE] "& _ + "IS NULL) OR ([FONT_STYLE] = @Original_FONT_STYLE)) AND ((@IsNull_FONT_SIZE = 1 A"& _ + "ND [FONT_SIZE] IS NULL) OR ([FONT_SIZE] = @Original_FONT_SIZE)) AND ((@IsNull_FO"& _ + "NT_FAMILY = 1 AND [FONT_FAMILY] IS NULL) OR ([FONT_FAMILY] = @Original_FONT_FAMI"& _ + "LY)) AND ((@IsNull_FONT_COLOR = 1 AND [FONT_COLOR] IS NULL) OR ([FONT_COLOR] = @"& _ + "Original_FONT_COLOR)) AND ([READ_ONLY] = @Original_READ_ONLY) AND ([LOAD_IDX_VAL"& _ + "UE] = @Original_LOAD_IDX_VALUE) AND ((@IsNull_DEFAULT_VALUE = 1 AND [DEFAULT_VAL"& _ + "UE] IS NULL) OR ([DEFAULT_VALUE] = @Original_DEFAULT_VALUE)) AND ([MULTISELECT] "& _ + "= @Original_MULTISELECT) AND ([VKT_ADD_ITEM] = @Original_VKT_ADD_ITEM) AND ([VKT"& _ + "_PREVENT_MULTIPLE_VALUES] = @Original_VKT_PREVENT_MULTIPLE_VALUES) AND ((@IsNull"& _ + "_REGEX_MATCH = 1 AND [REGEX_MATCH] IS NULL) OR ([REGEX_MATCH] = @Original_REGEX_"& _ + "MATCH)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOI"& _ + "CE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE,"& _ + " FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT,"& _ + " VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH FROM TBPM_PROFILE_CONTRO"& _ + "LS WHERE (GUID = @GUID) ORDER BY Y_LOC, X_LOC" 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, 4, 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("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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, 30, 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, 8, 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, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_UEBERPRUEFUNG", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_UEBERPRUEFUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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("@Original_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._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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, 30, 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, 8, 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("@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("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_UEBERPRUEFUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_UEBERPRUEFUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", 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_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_X_LOC", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Y_LOC", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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, 30, 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("@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, 8, 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("@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("@IsNull_INDEX_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TYP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHOICE_LIST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CONNECTION_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FONT_STYLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FONT_SIZE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FONT_FAMILY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FONT_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DEFAULT_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", 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("@Original_DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MULTISELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_REGEX_MATCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", 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 Global.System.Data.ConnectionState.Open) Then @@ -20115,6 +20229,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal MULTISELECT As Boolean, _ ByVal VKT_ADD_ITEM As Boolean, _ ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal REGEX_MATCH As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PROFIL_ID As Integer, _ ByVal Original_NAME As String, _ @@ -20140,6 +20255,10 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal Original_READ_ONLY As Boolean, _ ByVal Original_LOAD_IDX_VALUE As Boolean, _ ByVal Original_DEFAULT_VALUE As String, _ + ByVal Original_MULTISELECT As Boolean, _ + ByVal Original_VKT_ADD_ITEM As Boolean, _ + ByVal Original_VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal Original_REGEX_MATCH As String, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) If (NAME Is Nothing) Then @@ -20233,114 +20352,129 @@ Namespace DD_DMSLiteDataSetTableAdapters Me.Adapter.UpdateCommand.Parameters(25).Value = CType(MULTISELECT,Boolean) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(VKT_ADD_ITEM,Boolean) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_PROFIL_ID,Integer) + If (REGEX_MATCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(REGEX_MATCH,String) + End If + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_PROFIL_ID,Integer) If (Original_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME") Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_NAME,String) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_NAME,String) End If If (Original_CTRL_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CTRL_TYPE") Else - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CTRL_TYPE,String) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_CTRL_TYPE,String) End If If (Original_CTRL_TEXT Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CTRL_TEXT") Else - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_CTRL_TEXT,String) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CTRL_TEXT,String) End If - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_X_LOC,Double) - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Y_LOC,Double) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_X_LOC,Double) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_Y_LOC,Double) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value End If If (Original_INDEX_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_INDEX_NAME,String) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_INDEX_NAME,String) End If If (Original_TYP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_TYP,String) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_TYP,String) End If - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_VALIDATION,Boolean) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_VALIDATION,Boolean) If (Original_CHOICE_LIST Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_CHOICE_LIST,String) + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_CHOICE_LIST,String) End If If (Original_CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_CONNECTION_ID.Value,Short) + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_CONNECTION_ID.Value,Short) Else - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_HEIGHT,Short) - Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_WIDTH,Short) + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_HEIGHT,Short) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_WIDTH,Short) If (Original_FONT_STYLE.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_FONT_STYLE.Value,Short) + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_FONT_STYLE.Value,Short) Else - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Original_FONT_SIZE.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_FONT_SIZE.Value,Short) + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_FONT_SIZE.Value,Short) Else - Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value End If If (Original_FONT_FAMILY Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_FONT_FAMILY,String) + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_FONT_FAMILY,String) End If If (Original_FONT_COLOR.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_FONT_COLOR.Value,Long) + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_FONT_COLOR.Value,Long) Else - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_READ_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_LOAD_IDX_VALUE,Boolean) + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_READ_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_LOAD_IDX_VALUE,Boolean) If (Original_DEFAULT_VALUE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_DEFAULT_VALUE,String) + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_DEFAULT_VALUE,String) End If - Me.Adapter.UpdateCommand.Parameters(64).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_MULTISELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_VKT_ADD_ITEM,Boolean) + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_VKT_PREVENT_MULTIPLE_VALUES,Boolean) + If (Original_REGEX_MATCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_REGEX_MATCH,String) + End If + Me.Adapter.UpdateCommand.Parameters(70).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 @@ -20356,6 +20490,72 @@ Namespace DD_DMSLiteDataSetTableAdapters End Try End Function + _ + Public Overloads Overridable Function Update( _ + ByVal PROFIL_ID As Integer, _ + ByVal NAME As String, _ + ByVal CTRL_TYPE As String, _ + ByVal CTRL_TEXT As String, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + 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 INDEX_NAME As String, _ + ByVal TYP As String, _ + ByVal VALIDATION As Boolean, _ + ByVal CHOICE_LIST As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SQL_UEBERPRUEFUNG As String, _ + ByVal HEIGHT As Short, _ + ByVal WIDTH As Short, _ + ByVal FONT_STYLE As Global.System.Nullable(Of Short), _ + ByVal FONT_SIZE As Global.System.Nullable(Of Short), _ + ByVal FONT_FAMILY As String, _ + ByVal FONT_COLOR As Global.System.Nullable(Of Long), _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal REGEX_MATCH As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFIL_ID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_CTRL_TYPE As String, _ + ByVal Original_CTRL_TEXT As String, _ + ByVal Original_X_LOC As Double, _ + ByVal Original_Y_LOC As Double, _ + 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 Original_INDEX_NAME As String, _ + ByVal Original_TYP As String, _ + ByVal Original_VALIDATION As Boolean, _ + ByVal Original_CHOICE_LIST As String, _ + ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal Original_HEIGHT As Short, _ + ByVal Original_WIDTH As Short, _ + ByVal Original_FONT_STYLE As Global.System.Nullable(Of Short), _ + ByVal Original_FONT_SIZE As Global.System.Nullable(Of Short), _ + ByVal Original_FONT_FAMILY As String, _ + ByVal Original_FONT_COLOR As Global.System.Nullable(Of Long), _ + ByVal Original_READ_ONLY As Boolean, _ + ByVal Original_LOAD_IDX_VALUE As Boolean, _ + ByVal Original_DEFAULT_VALUE As String, _ + ByVal Original_MULTISELECT As Boolean, _ + ByVal Original_VKT_ADD_ITEM As Boolean, _ + ByVal Original_VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal Original_REGEX_MATCH As String) As Integer + Return Me.Update(PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, Original_GUID, Original_PROFIL_ID, Original_NAME, Original_CTRL_TYPE, Original_CTRL_TEXT, Original_X_LOC, Original_Y_LOC, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_INDEX_NAME, Original_TYP, Original_VALIDATION, Original_CHOICE_LIST, Original_CONNECTION_ID, Original_HEIGHT, Original_WIDTH, Original_FONT_STYLE, Original_FONT_SIZE, Original_FONT_FAMILY, Original_FONT_COLOR, Original_READ_ONLY, Original_LOAD_IDX_VALUE, Original_DEFAULT_VALUE, Original_MULTISELECT, Original_VKT_ADD_ITEM, Original_VKT_PREVENT_MULTIPLE_VALUES, Original_REGEX_MATCH, Original_GUID) + End Function + _ diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 486528d..75f1d05 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -622,7 +622,7 @@ 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 + TYP, CONNECTION_ID, SQL_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE, REGEX_MATCH FROM VWPM_CONTROL_INDEX WHERE (PROFIL_NAME = @Profil) ORDER BY Y_LOC, X_LOC @@ -658,6 +658,7 @@ ORDER BY Y_LOC, X_LOC + @@ -1435,56 +1436,56 @@ WHERE (PROFIL_ID = @P_ID) AND (CTRL_TYPE <> 'LBL') - + DELETE FROM TBPM_PROFILE_CONTROLS WHERE (GUID = @Original_GUID) - + - - INSERT INTO TBPM_PROFILE_CONTROLS - (PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, - HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, SQL_UEBERPRUEFUNG, READ_ONLY, LOAD_IDX_VALUE, MULTISELECT, VKT_ADD_ITEM, - VKT_PREVENT_MULTIPLE_VALUES) -VALUES (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@INDEX_NAME,@TYP,@VALIDATION,@CHOICE_LIST,@CONNECTION_ID,@SQL_UEBERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYLE,@FONT_SIZE,@FONT_FAMILY,@FONT_COLOR,@READ_ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,,,,,,); -SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE FROM TBPM_PROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY Y_LOC, X_LOC + + INSERT INTO [TBPM_PROFILE_CONTROLS] ([PROFIL_ID], [NAME], [CTRL_TYPE], [CTRL_TEXT], [X_LOC], [Y_LOC], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [INDEX_NAME], [TYP], [VALIDATION], [CHOICE_LIST], [CONNECTION_ID], [SQL_UEBERPRUEFUNG], [HEIGHT], [WIDTH], [FONT_STYLE], [FONT_SIZE], [FONT_FAMILY], [FONT_COLOR], [READ_ONLY], [LOAD_IDX_VALUE], [DEFAULT_VALUE], [MULTISELECT], [VKT_ADD_ITEM], [VKT_PREVENT_MULTIPLE_VALUES], [REGEX_MATCH]) VALUES (@PROFIL_ID, @NAME, @CTRL_TYPE, @CTRL_TEXT, @X_LOC, @Y_LOC, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @INDEX_NAME, @TYP, @VALIDATION, @CHOICE_LIST, @CONNECTION_ID, @SQL_UEBERPRUEFUNG, @HEIGHT, @WIDTH, @FONT_STYLE, @FONT_SIZE, @FONT_FAMILY, @FONT_COLOR, @READ_ONLY, @LOAD_IDX_VALUE, @DEFAULT_VALUE, @MULTISELECT, @VKT_ADD_ITEM, @VKT_PREVENT_MULTIPLE_VALUES, @REGEX_MATCH); +SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH FROM TBPM_PROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY Y_LOC, X_LOC - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, - VKT_PREVENT_MULTIPLE_VALUES + VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH FROM TBPM_PROFILE_CONTROLS WHERE (GUID = @guid) ORDER BY Y_LOC, X_LOC @@ -1494,93 +1495,81 @@ ORDER BY Y_LOC, X_LOC - - UPDATE TBPM_PROFILE_CONTROLS -SET PROFIL_ID = @PROFIL_ID, NAME = @NAME, CTRL_TYPE = @CTRL_TYPE, CTRL_TEXT = @CTRL_TEXT, X_LOC = @X_LOC, Y_LOC = @Y_LOC, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, - CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, INDEX_NAME = @INDEX_NAME, TYP = @TYP, VALIDATION = @VALIDATION, CHOICE_LIST = @CHOICE_LIST, - CONNECTION_ID = @CONNECTION_ID, SQL_UEBERPRUEFUNG = @SQL_UEBERPRUEFUNG, HEIGHT = @HEIGHT, WIDTH = @WIDTH, FONT_STYLE = @FONT_STYLE, FONT_SIZE = @FONT_SIZE, - FONT_FAMILY = @FONT_FAMILY, FONT_COLOR = @FONT_COLOR, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, DEFAULT_VALUE = @DEFAULT_VALUE, MULTISELECT = @MULTISELECT, - VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES -WHERE (GUID = @Original_GUID) AND (PROFIL_ID = @Original_PROFIL_ID) AND (NAME = @Original_NAME) AND (CTRL_TYPE = @Original_CTRL_TYPE) AND (CTRL_TEXT = @Original_CTRL_TEXT) AND (X_LOC = @Original_X_LOC) - AND (Y_LOC = @Original_Y_LOC) 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) AND (@IsNull_INDEX_NAME = 1 AND INDEX_NAME IS NULL OR - INDEX_NAME = @Original_INDEX_NAME) AND (@IsNull_TYP = 1 AND TYP IS NULL OR - TYP = @Original_TYP) AND (VALIDATION = @Original_VALIDATION) AND (@IsNull_CHOICE_LIST = 1 AND CHOICE_LIST IS NULL OR - CHOICE_LIST = @Original_CHOICE_LIST) AND (@IsNull_CONNECTION_ID = 1 AND CONNECTION_ID IS NULL OR - CONNECTION_ID = @Original_CONNECTION_ID) AND (HEIGHT = @Original_HEIGHT) AND (WIDTH = @Original_WIDTH) AND (@IsNull_FONT_STYLE = 1 AND FONT_STYLE IS NULL OR - FONT_STYLE = @Original_FONT_STYLE) AND (@IsNull_FONT_SIZE = 1 AND FONT_SIZE IS NULL OR - FONT_SIZE = @Original_FONT_SIZE) AND (@IsNull_FONT_FAMILY = 1 AND FONT_FAMILY IS NULL OR - FONT_FAMILY = @Original_FONT_FAMILY) AND (@IsNull_FONT_COLOR = 1 AND FONT_COLOR IS NULL OR - FONT_COLOR = @Original_FONT_COLOR) AND (READ_ONLY = @Original_READ_ONLY) AND (LOAD_IDX_VALUE = @Original_LOAD_IDX_VALUE) AND (@IsNull_DEFAULT_VALUE = 1 AND DEFAULT_VALUE IS NULL OR - DEFAULT_VALUE = @Original_DEFAULT_VALUE); -SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE FROM TBPM_PROFILE_CONTROLS WHERE (GUID = @GUID) ORDER BY Y_LOC, X_LOC + + UPDATE [TBPM_PROFILE_CONTROLS] SET [PROFIL_ID] = @PROFIL_ID, [NAME] = @NAME, [CTRL_TYPE] = @CTRL_TYPE, [CTRL_TEXT] = @CTRL_TEXT, [X_LOC] = @X_LOC, [Y_LOC] = @Y_LOC, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [INDEX_NAME] = @INDEX_NAME, [TYP] = @TYP, [VALIDATION] = @VALIDATION, [CHOICE_LIST] = @CHOICE_LIST, [CONNECTION_ID] = @CONNECTION_ID, [SQL_UEBERPRUEFUNG] = @SQL_UEBERPRUEFUNG, [HEIGHT] = @HEIGHT, [WIDTH] = @WIDTH, [FONT_STYLE] = @FONT_STYLE, [FONT_SIZE] = @FONT_SIZE, [FONT_FAMILY] = @FONT_FAMILY, [FONT_COLOR] = @FONT_COLOR, [READ_ONLY] = @READ_ONLY, [LOAD_IDX_VALUE] = @LOAD_IDX_VALUE, [DEFAULT_VALUE] = @DEFAULT_VALUE, [MULTISELECT] = @MULTISELECT, [VKT_ADD_ITEM] = @VKT_ADD_ITEM, [VKT_PREVENT_MULTIPLE_VALUES] = @VKT_PREVENT_MULTIPLE_VALUES, [REGEX_MATCH] = @REGEX_MATCH WHERE (([GUID] = @Original_GUID) AND ([PROFIL_ID] = @Original_PROFIL_ID) AND ([NAME] = @Original_NAME) AND ([CTRL_TYPE] = @Original_CTRL_TYPE) AND ([CTRL_TEXT] = @Original_CTRL_TEXT) AND ([X_LOC] = @Original_X_LOC) AND ([Y_LOC] = @Original_Y_LOC) 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)) AND ((@IsNull_INDEX_NAME = 1 AND [INDEX_NAME] IS NULL) OR ([INDEX_NAME] = @Original_INDEX_NAME)) AND ((@IsNull_TYP = 1 AND [TYP] IS NULL) OR ([TYP] = @Original_TYP)) AND ([VALIDATION] = @Original_VALIDATION) AND ((@IsNull_CHOICE_LIST = 1 AND [CHOICE_LIST] IS NULL) OR ([CHOICE_LIST] = @Original_CHOICE_LIST)) AND ((@IsNull_CONNECTION_ID = 1 AND [CONNECTION_ID] IS NULL) OR ([CONNECTION_ID] = @Original_CONNECTION_ID)) AND ([HEIGHT] = @Original_HEIGHT) AND ([WIDTH] = @Original_WIDTH) AND ((@IsNull_FONT_STYLE = 1 AND [FONT_STYLE] IS NULL) OR ([FONT_STYLE] = @Original_FONT_STYLE)) AND ((@IsNull_FONT_SIZE = 1 AND [FONT_SIZE] IS NULL) OR ([FONT_SIZE] = @Original_FONT_SIZE)) AND ((@IsNull_FONT_FAMILY = 1 AND [FONT_FAMILY] IS NULL) OR ([FONT_FAMILY] = @Original_FONT_FAMILY)) AND ((@IsNull_FONT_COLOR = 1 AND [FONT_COLOR] IS NULL) OR ([FONT_COLOR] = @Original_FONT_COLOR)) AND ([READ_ONLY] = @Original_READ_ONLY) AND ([LOAD_IDX_VALUE] = @Original_LOAD_IDX_VALUE) AND ((@IsNull_DEFAULT_VALUE = 1 AND [DEFAULT_VALUE] IS NULL) OR ([DEFAULT_VALUE] = @Original_DEFAULT_VALUE)) AND ([MULTISELECT] = @Original_MULTISELECT) AND ([VKT_ADD_ITEM] = @Original_VKT_ADD_ITEM) AND ([VKT_PREVENT_MULTIPLE_VALUES] = @Original_VKT_PREVENT_MULTIPLE_VALUES) AND ((@IsNull_REGEX_MATCH = 1 AND [REGEX_MATCH] IS NULL) OR ([REGEX_MATCH] = @Original_REGEX_MATCH))); +SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH FROM TBPM_PROFILE_CONTROLS WHERE (GUID = @GUID) ORDER BY Y_LOC, X_LOC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1616,6 +1605,7 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD + @@ -1754,12 +1744,7 @@ WHERE (GUID = @Original_GUID); - SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, - SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, - VKT_PREVENT_MULTIPLE_VALUES -FROM TBPM_PROFILE_CONTROLS -WHERE (PROFIL_ID = @profil_id) -ORDER BY Y_LOC, X_LOC + SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, CHOICE_LIST, CONNECTION_ID, CTRL_TEXT, CTRL_TYPE, DEFAULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, GUID, HEIGHT, INDEX_NAME, LOAD_IDX_VALUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH, SQL_UEBERPRUEFUNG, TYP, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, REGEX_MATCH FROM TBPM_PROFILE_CONTROLS WHERE (PROFIL_ID = @profil_id) ORDER BY Y_LOC, X_LOC @@ -1910,7 +1895,7 @@ WHERE (GUID = @Original_GUID) - + DELETE FROM TBPM_CONTROL_TABLE @@ -1943,7 +1928,7 @@ WHERE (GUID = @GUID) - + SELECT GUID FROM TBPM_CONTROL_TABLE where Control_ID = @control_id and Spaltenname = @spaltenname @@ -2094,7 +2079,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2147,7 +2132,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2243,7 +2228,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2308,7 +2293,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2338,7 +2323,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2361,7 +2346,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2448,10 +2433,17 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE + + + + + + + - + @@ -2524,7 +2516,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2573,7 +2565,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2588,7 +2580,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2609,7 +2601,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2717,7 +2709,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2790,7 +2782,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2841,7 +2833,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2933,10 +2925,17 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE + + + + + + + - + @@ -2993,7 +2992,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -3034,7 +3033,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -3072,7 +3071,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -3207,11 +3206,11 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index bda728d..9290f81 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -18,7 +18,7 @@ - + @@ -69,7 +69,7 @@ - 1240 + 1248 550 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 064b0d7..cd21bb4 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -82,7 +82,11 @@ False D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Charts.v18.1.Core.dll + + + + False D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Images.v18.1.dll @@ -92,7 +96,9 @@ D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Pdf.v18.1.Drawing.dll + + False D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Xpf.PdfViewer.v18.1.dll @@ -117,6 +123,7 @@ False D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraCharts.v18.1.Wizard.dll + @@ -129,13 +136,14 @@ D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraPdfViewer.v18.1.dll + False D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraTreeList.v18.1.dll - + False - P:\Visual Studio Projekte\Bibliotheken\DigitalData.Controls.LookupGrid.dll + ..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll ..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll @@ -168,6 +176,7 @@ + @@ -182,6 +191,7 @@ + @@ -204,6 +214,7 @@ + @@ -314,6 +325,12 @@ Form + + frmRegexEditor.vb + + + Form + frmSplash.vb @@ -428,6 +445,9 @@ frmKonfig.vb + + frmRegexEditor.vb + frmSplash.vb diff --git a/app/DD_PM_WINDREAM/ModuleControlProperties.vb b/app/DD_PM_WINDREAM/ModuleControlProperties.vb index f9d4a49..56181f8 100644 --- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb @@ -211,6 +211,8 @@ Public Module ModuleControlProperties Public Class TextboxProperties Inherits InputProperties + + Public Property Regex As String End Class Public Class LabelProperties diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index a5ead72..379b205 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -30,7 +30,6 @@ Partial Class frmFormDesigner Me.btnCheckbox = New System.Windows.Forms.Button() Me.btnVektor = New System.Windows.Forms.Button() Me.btndtp = New System.Windows.Forms.Button() - Me.btncmb = New System.Windows.Forms.Button() Me.btntextbox = New System.Windows.Forms.Button() Me.btnlabel = New System.Windows.Forms.Button() Me.pnldesigner = New System.Windows.Forms.Panel() @@ -86,7 +85,6 @@ Partial Class frmFormDesigner Me.GroupBox1.Controls.Add(Me.btnCheckbox) Me.GroupBox1.Controls.Add(Me.btnVektor) Me.GroupBox1.Controls.Add(Me.btndtp) - Me.GroupBox1.Controls.Add(Me.btncmb) Me.GroupBox1.Controls.Add(Me.btntextbox) Me.GroupBox1.Controls.Add(Me.btnlabel) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -115,7 +113,7 @@ Partial Class frmFormDesigner Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(290, 55) + Me.btnTabelle.Location = New System.Drawing.Point(151, 22) Me.btnTabelle.Name = "btnTabelle" Me.btnTabelle.Size = New System.Drawing.Size(133, 27) Me.btnTabelle.TabIndex = 6 @@ -139,13 +137,13 @@ Partial Class frmFormDesigner 'btnVektor ' Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add + Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(151, 55) + Me.btnVektor.Location = New System.Drawing.Point(13, 88) Me.btnVektor.Name = "btnVektor" Me.btnVektor.Size = New System.Drawing.Size(133, 27) Me.btnVektor.TabIndex = 4 - Me.btnVektor.Text = "Mehrfach-/Vektorfeld" + Me.btnVektor.Text = "LookupControl" Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnVektor.UseVisualStyleBackColor = True ' @@ -154,7 +152,7 @@ Partial Class frmFormDesigner Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(151, 22) + Me.btndtp.Location = New System.Drawing.Point(151, 55) Me.btndtp.Name = "btndtp" Me.btndtp.Size = New System.Drawing.Size(133, 27) Me.btndtp.TabIndex = 3 @@ -162,19 +160,6 @@ Partial Class frmFormDesigner Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btndtp.UseVisualStyleBackColor = True ' - 'btncmb - ' - Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG - Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btncmb.Location = New System.Drawing.Point(12, 90) - Me.btncmb.Name = "btncmb" - Me.btncmb.Size = New System.Drawing.Size(133, 27) - Me.btncmb.TabIndex = 2 - Me.btncmb.Text = "Combobox" - Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btncmb.UseVisualStyleBackColor = True - ' 'btntextbox ' Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -460,12 +445,12 @@ Partial Class frmFormDesigner ' Me.GridControlContextMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuItemAddColumn}) Me.GridControlContextMenu.Name = "ContextMenuStrip1" - Me.GridControlContextMenu.Size = New System.Drawing.Size(181, 48) + Me.GridControlContextMenu.Size = New System.Drawing.Size(170, 26) ' 'MenuItemAddColumn ' Me.MenuItemAddColumn.Name = "MenuItemAddColumn" - Me.MenuItemAddColumn.Size = New System.Drawing.Size(180, 22) + Me.MenuItemAddColumn.Size = New System.Drawing.Size(169, 22) Me.MenuItemAddColumn.Text = "Spalte hinzufügen" ' 'frmFormDesigner @@ -514,7 +499,6 @@ Partial Class frmFormDesigner Friend WithEvents btntextbox As System.Windows.Forms.Button Friend WithEvents pnldesigner As System.Windows.Forms.Panel Friend WithEvents btndtp As System.Windows.Forms.Button - Friend WithEvents btncmb As System.Windows.Forms.Button Friend WithEvents lblhintergrund As System.Windows.Forms.Label Friend WithEvents btndelete As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 01ae430..ffdc401 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -241,7 +241,7 @@ Public Class frmFormDesigner End Try End Sub - Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btncmb.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown + Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown Mouse_IsPressed = True CurrentControl = Nothing @@ -252,7 +252,7 @@ Public Class frmFormDesigner End Try End Sub - Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btncmb.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove + Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove If Mouse_IsPressed Then Dim btn As Button = sender Dim dragDropData As String @@ -280,7 +280,7 @@ Public Class frmFormDesigner End If End Sub - Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btncmb.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp + Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp Mouse_IsPressed = False End Sub @@ -757,6 +757,7 @@ Public Class frmFormDesigner ElseIf TypeOf sender Is TextBox Then Dim txt As TextBox = sender Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, Windream_AllIndicies) + txtProps.Regex = NotNull(row.Item("REGEX_MATCH"), String.Empty) props = txtProps @@ -764,7 +765,7 @@ Public Class frmFormDesigner Dim cmb As ComboBox = sender Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, Windream_AllIndicies) cmbProps.ChoiceLists = Windream_ChoiceLists - cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), "") + cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), String.Empty) props = cmbProps @@ -893,6 +894,9 @@ Public Class frmFormDesigner Case "DefaultValue" UpdateSingleValue("DEFAULT_VALUE", newValue) + + Case "Regex" + UpdateSingleValue("REGEX_MATCH", newValue) End Select End Sub diff --git a/app/DD_PM_WINDREAM/frmRegexEditor.Designer.vb b/app/DD_PM_WINDREAM/frmRegexEditor.Designer.vb new file mode 100644 index 0000000..d008968 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmRegexEditor.Designer.vb @@ -0,0 +1,152 @@ + +Partial Class frmRegexEditor + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.txtRegex = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtTest = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnSave = New System.Windows.Forms.Button() + Me.btnTest = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.labelResult = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'txtRegex + ' + Me.txtRegex.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtRegex.Font = New System.Drawing.Font("Consolas", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtRegex.Location = New System.Drawing.Point(12, 25) + Me.txtRegex.Name = "txtRegex" + Me.txtRegex.Size = New System.Drawing.Size(423, 23) + Me.txtRegex.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(101, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Regular Expression:" + ' + 'txtTest + ' + Me.txtTest.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtTest.Location = New System.Drawing.Point(12, 147) + Me.txtTest.Name = "txtTest" + Me.txtTest.Size = New System.Drawing.Size(423, 20) + Me.txtTest.TabIndex = 0 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 131) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(61, 13) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Test String:" + ' + 'btnSave + ' + Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btnSave.Location = New System.Drawing.Point(323, 227) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(112, 31) + Me.btnSave.TabIndex = 3 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'btnTest + ' + Me.btnTest.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnTest.Location = New System.Drawing.Point(205, 227) + Me.btnTest.Name = "btnTest" + Me.btnTest.Size = New System.Drawing.Size(112, 31) + Me.btnTest.TabIndex = 4 + Me.btnTest.Text = "Test" + Me.btnTest.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 181) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(51, 13) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Ergebnis:" + ' + 'labelResult + ' + Me.labelResult.AutoSize = True + Me.labelResult.Location = New System.Drawing.Point(12, 194) + Me.labelResult.Name = "labelResult" + Me.labelResult.Size = New System.Drawing.Size(282, 13) + Me.labelResult.TabIndex = 6 + Me.labelResult.Text = "Klicken Sie auf Test, um die Regular Expression zu testen." + ' + 'Label4 + ' + Me.Label4.Location = New System.Drawing.Point(12, 51) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(423, 33) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "Wenn die Eingabe insgesamt validiert werden soll, muss der Regex in ^ und $ einge" & + "schlossen sein" + ' + 'frmRegexEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(447, 270) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.labelResult) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.btnTest) + Me.Controls.Add(Me.btnSave) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtTest) + Me.Controls.Add(Me.txtRegex) + Me.MinimumSize = New System.Drawing.Size(463, 309) + Me.Name = "frmRegexEditor" + Me.Text = "Regex Editor" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents txtRegex As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents txtTest As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents btnSave As Button + Friend WithEvents btnTest As Button + Friend WithEvents Label3 As Label + Friend WithEvents labelResult As Label + Friend WithEvents Label4 As Label +End Class diff --git a/app/DD_PM_WINDREAM/frmRegexEditor.resx b/app/DD_PM_WINDREAM/frmRegexEditor.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmRegexEditor.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmRegexEditor.vb b/app/DD_PM_WINDREAM/frmRegexEditor.vb new file mode 100644 index 0000000..d1d6e1e --- /dev/null +++ b/app/DD_PM_WINDREAM/frmRegexEditor.vb @@ -0,0 +1,27 @@ +Imports System.Text.RegularExpressions + +Public Class frmRegexEditor + Public RegexString As String + + Private Sub frmRegexEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + txtRegex.Text = RegexString + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + RegexString = txtRegex.Text + End Sub + + Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click + Try + Dim oTestString As String = txtTest.Text + + If Regex.IsMatch(oTestString, txtRegex.Text) Then + labelResult.Text = "Test String ist gültig." + Else + labelResult.Text = "Test String ist nicht gültig." + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test") + End Try + End Sub +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 21a02c8..4e7750a 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -46,7 +46,7 @@ Public Class frmValidator 'Anzahl der validierten Dokumente Dim Anzahl_validierte_Dok As Integer = 0 Dim me_closing As Boolean = False - Dim errmessage As String = "Please validate red marked fields" + Dim oErrorMessage As String = "Please validate red marked fields" Dim first_control As Control Dim last_control As Control Dim _Indexe_Loaded As Boolean = False @@ -83,7 +83,7 @@ Public Class frmValidator End If Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) MsgBox("Fehler in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") End Try @@ -97,7 +97,7 @@ LOGGER.Error(ex) My.Settings.frmValidatorPosition = Me.Location My.Settings.Save() Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) LOGGER.Info("Error in Load FormLayout: " & ex.Message) End Try Select Case Path.GetExtension(Windream_Document_Path).ToLower @@ -119,13 +119,13 @@ LOGGER.Error(ex) End Select My.Settings.Save() Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) End Try Try TBPM_FILES_USER_NOT_INDEXEDTableAdapter.CmdDelete(Environment.UserName) Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) MsgBox("Fehler bei Übersprungene Files löschen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -133,7 +133,7 @@ LOGGER.Error(ex) Try TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID) Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) End Try End If @@ -173,7 +173,7 @@ LOGGER.Error(ex) End If Next Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) End Try End Sub @@ -195,7 +195,7 @@ LOGGER.Error(ex) Next Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) End Try End Sub @@ -267,7 +267,7 @@ LOGGER.Error(ex) pdfxchange = False sumatra = True Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) End Try End If @@ -277,7 +277,7 @@ LOGGER.Error(ex) sumatra = False End If Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) LOGGER.Info("Fehler in Close_PDFXCHANGE") LOGGER.Info(ex.Message) End Try @@ -289,7 +289,7 @@ LOGGER.Error(ex) LOGGER.Debug(" >> Windream initiiert", False) Return True Catch ex As Exception -LOGGER.Error(ex) + 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) LOGGER.Info(">> Fehler in Init_windream: " & ex.Message, True) @@ -337,7 +337,7 @@ LOGGER.Error(ex) LOGGER.Debug(" >> Profile Data geladen", False) Catch ex As Exception -LOGGER.Error(ex) + 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) @@ -388,7 +388,7 @@ LOGGER.Error(ex) End If LOGGER.Debug(" >> Final profile Text geladen", False) Catch ex As Exception -LOGGER.Error(ex) + 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) @@ -437,7 +437,7 @@ LOGGER.Error(ex) Catch ex As Exception -LOGGER.Error(ex) + 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) @@ -1240,7 +1240,7 @@ LOGGER.Error(ex) LOGGER.Info(" >> ACHTUNG: Ausnahme in GetNextGUID - Datei nicht vorhanden", False) Dim Del = "DELETE FROM TBPM_PROFILE_FILES where GUID = " & newGUID ClassDatabase.Execute_non_Query(Del, True) - errmessage = "Die windream-Datei existiert nicht!" + oErrorMessage = "Die windream-Datei existiert nicht!" Windream_Document_Path = "" CURRENT_DOC_PATH = "" Return 0 @@ -1262,7 +1262,7 @@ LOGGER.Error(ex) Return newGUID Catch ex As Exception LOGGER.Error(ex) - errmessage = "Unvorhergesehener Fehler in Get_Next_GUID: " & ex.Message + oErrorMessage = "Unvorhergesehener Fehler in Get_Next_GUID: " & ex.Message LOGGER.Info(">> Unvorhergesehener Fehler in Get_Next_GUID:: " & ex.Message, True) Return 0 End Try @@ -1330,7 +1330,7 @@ LOGGER.Error(ex) aktivesDokument = Nothing LOGGER.Debug(" >> aktivesDokument nothing gesetzt", False) activate_controls(False) - errmessage = "" + oErrorMessage = "" Windream_Document_Path = "" Filesystem_Document_Path = "" @@ -1393,15 +1393,15 @@ LOGGER.Error(ex) aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Windream_Document_Path) Catch ex1 As Exception LOGGER.Info("Fehler bei 2. Versuch windream-Objekt: " & ex1.Message) - errmessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" + oErrorMessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" _err1 = True End Try Else - errmessage = "2-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" + oErrorMessage = "2-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" _err1 = True End If If _err1 = True Then - errormessage = errmessage + errormessage = oErrorMessage frmError.ShowDialog() Exit Sub End If @@ -1409,10 +1409,10 @@ LOGGER.Error(ex) End Try LOGGER.Debug(" >> Windream-Dokument geladen und gelockt", False) - errmessage = Windream_get_Doc_info() + oErrorMessage = Windream_get_Doc_info() LOGGER.Debug(" >> Windream-Dok Info geholt", False) - If errmessage = "" Then + If oErrorMessage = "" Then Me.grpbxMailBody.Visible = False Me.grpBetreff.Visible = False @@ -1463,16 +1463,16 @@ LOGGER.Error(ex) End If activate_controls(True) Else - errormessage = errmessage + errormessage = oErrorMessage frmError.ShowDialog() End If Else - errormessage = errmessage + errormessage = oErrorMessage frmError.ShowDialog() End If Else - If errmessage <> "" Then - errormessage = errmessage + If oErrorMessage <> "" Then + errormessage = oErrorMessage frmError.ShowDialog() Else LOGGER.Info(" >> Ende des Profils - Kein weiteres Dokument!", False) @@ -2322,6 +2322,12 @@ LOGGER.Error(ex) _CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString End If + If oLookup.SelectedValues.Count = 0 And oDefaultValue <> String.Empty Then + Dim oValues As List(Of String) = oDefaultValue.Split(",").ToList() + + oLookup.SelectedValues = oValues + End If + Catch ex As Exception LOGGER.Error(ex) LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & oIndexName & " - Fehler: " & vbNewLine & ex.Message) @@ -2700,7 +2706,7 @@ LOGGER.Error(ex) Else 'lblerror.Visible = True 'lblerror.Text = errmessage - errormessage = errmessage + errormessage = oErrorMessage frmError.ShowDialog() End If btnSave.Enabled = True @@ -2775,7 +2781,7 @@ LOGGER.Error(ex) 'Jetzt die Datei indexieren If Indexiere_File(aktivesDokument, NameVKTIndex, oNewValue) = False Then oMissing = True - errmessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message + oErrorMessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message End If End If @@ -2784,9 +2790,9 @@ LOGGER.Error(ex) Function Check_UpdateIndexe() Try Dim dt As DataTable = DD_DMSLiteDataSet.VWPM_CONTROL_INDEX - Dim missing As Boolean = False + Dim oMissing As Boolean = False 'Jedes Control auf panel durchlaufen - For Each inctrl As Control In Me.pnldesigner.Controls + For Each oControl As Control In Me.pnldesigner.Controls 'Der input der Box,Cmb muss jedes mal geleert werden Dim input As String = "" 'Jedes Control in Konfig Tab durchlaufn @@ -2801,24 +2807,25 @@ LOGGER.Error(ex) Dim _READ_ONLY As Boolean = CBool(dr.Item("READ_ONLY")) Dim Typ As String = dr.Item("CTRL_TYPE") Dim CONTROL_ID As String = dr.Item("GUID") + Dim RegexMatch As String = NotNull(dr.Item("REGEX_MATCH"), String.Empty) Dim ctrl = dr.Item("CTRL_NAME") 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist - If dr.Item("CTRL_NAME") = inctrl.Name And (_READ_ONLY = False Or _SQL <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then + If dr.Item("CTRL_NAME") = oControl.Name And (_READ_ONLY = False Or _SQL <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then LOGGER.Debug(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False) If _IDXName = "" Then LOGGER.Info(" >> Indexname is unexpected empty.", False) Continue For End If - Dim Type As String = inctrl.GetType.ToString + Dim Type As String = oControl.GetType.ToString Select Case Type Case "DigitalData.Controls.LookupGrid.LookupControl2" Try - Dim lookup As LookupControl2 = inctrl + Dim lookup As LookupControl2 = oControl If lookup.SelectedValues.Count = 0 And _MUSSEINGABE = True Then - missing = True - errmessage = $"No value selected in control '{inctrl.Name}'" - inctrl.BackColor = Color.Red + oMissing = True + oErrorMessage = $"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'" + oControl.BackColor = Color.Red Exit For Else @@ -2842,8 +2849,15 @@ LOGGER.Error(ex) Next 'Jetzt die Datei indexieren If Indexiere_File(aktivesDokument, _IDXName, myVektorArr) = False Then - missing = True - errmessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message + Exit For + End If + Else + Dim oValues As New List(Of Object) From {String.Empty} + If Indexiere_File(aktivesDokument, _IDXName, oValues.ToArray) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren von LookupGrid - ERROR: " & idxerr_message Exit For End If End If @@ -2880,8 +2894,8 @@ LOGGER.Error(ex) input = Return_PM_VEKTOR(input, _IDXName) 'Hier muss nun separat als Vektorfeld indexiert werden If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then - missing = True - errmessage = "Fehler beim Indexieren Textbox als VEKTOR - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Textbox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else @@ -2889,8 +2903,8 @@ LOGGER.Error(ex) ReDim Preserve result(0) result(0) = input If Indexiere_File(aktivesDokument, _IDXName, result) = False Then - missing = True - errmessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message Exit For Else 'Nun das Logging @@ -2906,20 +2920,27 @@ LOGGER.Error(ex) End If Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) End Try Case "System.Windows.Forms.TextBox" Try + If RegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, RegexMatch) Then + oMissing = True + oErrorMessage = "Falsche Eingabe in Textbox '" & oControl.Name & "'" + oControl.BackColor = Color.Red + Exit For + End If + 'Als erstes überprüfen ob überhaupt etwas eingetragen worden ist - If Check_Missing(inctrl, "txt") = True And _MUSSEINGABE = True Then 'NICHTS EINGETRAGEN - missing = True - errmessage = "Missing input in textbox '" & inctrl.Name & "'" - inctrl.BackColor = Color.Red + If Check_Missing(oControl, "txt") = True And _MUSSEINGABE = True Then 'NICHTS EINGETRAGEN + oMissing = True + oErrorMessage = "Fehlende Eingabe in Textbox '" & oControl.Name & "'" + oControl.BackColor = Color.Red Exit For Else - input = inctrl.Text + input = oControl.Text 'den aktuellen Wert in windream auslesen Dim wertWD @@ -2947,8 +2968,8 @@ LOGGER.Error(ex) input = Return_PM_VEKTOR(input, _IDXName) 'Hier muss nun separat als Vektorfeld indexiert werden If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then - missing = True - errmessage = "Fehler beim Indexieren Textbox als VEKTOR - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Textbox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else @@ -2956,8 +2977,8 @@ LOGGER.Error(ex) ReDim Preserve result(0) result(0) = input If Indexiere_File(aktivesDokument, _IDXName, result) = False Then - missing = True - errmessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Textbox - ERROR: " & idxerr_message Exit For Else 'Nun das Logging @@ -2973,7 +2994,7 @@ LOGGER.Error(ex) End If End If Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) Dim st As New StackTrace(True) st = New StackTrace(ex, True) MsgBox("Unvorhergesehener Fehler in Check_UpdateIndexe TextBox: " & vbNewLine & ex.Message & vbNewLine & "Line: " & st.GetFrame(0).GetFileLineNumber().ToString, MsgBoxStyle.Critical, "Error:") @@ -2982,11 +3003,11 @@ LOGGER.Error(ex) End Try Case "System.Windows.Forms.ComboBox" - Dim cmb As ComboBox = inctrl + Dim cmb As ComboBox = oControl 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss If cmb.SelectedIndex = -1 And _MUSSEINGABE = True Then - missing = True - errmessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'" + oMissing = True + oErrorMessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'" Exit For 'ElseIf cmb.SelectedIndex <> -1 Then Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben @@ -3006,8 +3027,8 @@ LOGGER.Error(ex) input = Return_PM_VEKTOR(input, _IDXName) 'Hier muss nun separat als Vektorfeld indexiert werden If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then - missing = True - errmessage = "Fehler beim Indexieren Combobox als VEKTOR - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Combobox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else @@ -3016,8 +3037,8 @@ LOGGER.Error(ex) result(0) = input If Indexiere_File(aktivesDokument, _IDXName, result) = False Then cmb.DroppedDown = True - missing = True - errmessage = "Fehler beim Indexieren Combobox - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Combobox - ERROR: " & idxerr_message Exit For Else 'Nun das Logging @@ -3030,11 +3051,11 @@ LOGGER.Error(ex) End If End If Case "System.Windows.Forms.DateTimePicker" - Dim dtp As DateTimePicker = inctrl + Dim dtp As DateTimePicker = oControl 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss If _MUSSEINGABE = True And dtp.Value.ToString = String.Empty Then - missing = True - errmessage = "Please Choose DateValue for field'" & dtp.Name & "'" + oMissing = True + 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) @@ -3057,8 +3078,8 @@ LOGGER.Error(ex) input = Return_PM_VEKTOR(input, _IDXName) 'Hier muss nun separat als Vektorfeld indexiert werden If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then - missing = True - errmessage = "Fehler beim Indexieren DatePicker als VEKTOR - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren DatePicker als VEKTOR - ERROR: " & idxerr_message Exit For End If Else @@ -3067,8 +3088,8 @@ LOGGER.Error(ex) result(0) = CDate(input) 'MsgBox(_IDXName) If Indexiere_File(aktivesDokument, _IDXName, result) = False Then - missing = True - errmessage = "Fehler beim Indexieren DatePicker- ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren DatePicker- ERROR: " & idxerr_message Exit For Else 'Nun das Logging @@ -3086,12 +3107,12 @@ LOGGER.Error(ex) LOGGER.Debug(" >> DateValue is 01.01.0001 00:00:00", False) End If Case "System.Windows.Forms.CheckBox" - Dim chk As CheckBox = inctrl + Dim chk As CheckBox = oControl input = chk.Checked.ToString If chk.Checked = False And _MUSSEINGABE = True Then - missing = True - errmessage = "Option '" & chk.Name & "' is required." + oMissing = True + oErrorMessage = "Option '" & chk.Name & "' is required." Exit For End If @@ -3144,14 +3165,14 @@ LOGGER.Error(ex) input = Return_PM_VEKTOR(chk.Checked.ToString, _IDXName) 'Hier muss nun separat als Vektorfeld indexiert werden If Indexiere_VektorfeldPM(input, PROFIL_VEKTORINDEX) = True Then - missing = True - errmessage = "Fehler beim Indexieren Checkbox als VEKTOR - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Checkbox als VEKTOR - ERROR: " & idxerr_message Exit For End If Else If Indexiere_File(aktivesDokument, _IDXName, result) = False Then - missing = True - errmessage = "Fehler beim Indexieren Checkbox - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Checkbox - ERROR: " & idxerr_message Exit For Else 'Nun das Logging @@ -3166,7 +3187,7 @@ LOGGER.Error(ex) Case "System.Windows.Forms.DataGridView" - Dim dgv As DataGridView = inctrl + Dim dgv As DataGridView = oControl Dim Zeilen As Integer = 0 For Each row As DataGridViewRow In dgv.Rows @@ -3178,8 +3199,8 @@ LOGGER.Error(ex) Next 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss If _MUSSEINGABE = True And Zeilen = 0 Then - missing = True - errmessage = "Missing input in vectorfield'" & dgv.Name & "'" + oMissing = True + oErrorMessage = "Fehlende Eingabe in Vektorfeld '" & dgv.Name & "'" Exit For ElseIf Zeilen > 0 Then Dim ZeilenGrid As Integer = 0 @@ -3222,22 +3243,25 @@ LOGGER.Error(ex) Next 'Jetzt die Datei indexieren If Indexiere_File(aktivesDokument, _IDXName, myVektorArr) = False Then - missing = True - errmessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message Exit For End If End If Case "DevExpress.XtraGrid.GridControl" - Dim dgv As GridControl = inctrl + Dim dgv As GridControl = oControl Dim Zeilen As Integer = dgv.DataSource.Rows.Count 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss If _MUSSEINGABE = True And Zeilen = 0 Then - missing = True - errmessage = "Missing input in vectorfield'" & dgv.Name & "'" + oMissing = True + oErrorMessage = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'" + oControl.BackColor = Color.Red Exit For + + ElseIf Zeilen > 0 Then Dim ZeilenGrid As Integer = 0 Dim myVektorArr As String() @@ -3280,20 +3304,34 @@ LOGGER.Error(ex) Next 'Jetzt die Datei indexieren If Indexiere_File(aktivesDokument, _IDXName, myVektorArr) = False Then - missing = True - errmessage = "Fehler beim Indexieren Vektorfeld - ERROR: " & idxerr_message + oMissing = True + oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message + Exit For + End If + Else + Dim oValue As New List(Of Object) From {String.Empty} + + 'Jetzt die Datei indexieren + If Indexiere_File(aktivesDokument, _IDXName, oValue.ToArray) = False Then + oMissing = True + oErrorMessage = "Fehler beim Indexieren der Tabelle - ERROR: " & idxerr_message Exit For End If End If End Select End If 'End If für Control und ReadOnly = False Next + + ' If Error happened in inner For, exit the outer as well + If oMissing = True Then + Exit For + End If Next - Return missing + Return oMissing Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) Dim st As New StackTrace(True) st = New StackTrace(ex, True) MsgBox("Unvorhergesehener Fehler in Check_UpdateIndexe: " & vbNewLine & ex.Message & vbNewLine & "Line: " & st.GetFrame(0).GetFileLineNumber().ToString, MsgBoxStyle.Critical, "Error:") @@ -3339,7 +3377,7 @@ LOGGER.Error(ex) End If Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & ex.Message, Environment.UserName) idxerr_message = "unvorhergesehener Fehler in Indexiere_File: " & ex.Message.ToString LOGGER.Info(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)