diff --git a/Global_Indexer/App.config b/Global_Indexer/App.config index a993409..269ab16 100644 --- a/Global_Indexer/App.config +++ b/Global_Indexer/App.config @@ -46,7 +46,9 @@ - + diff --git a/Global_Indexer/My Project/Settings.Designer.vb b/Global_Indexer/My Project/Settings.Designer.vb index 3a113db..e49e745 100644 --- a/Global_Indexer/My Project/Settings.Designer.vb +++ b/Global_Indexer/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -57,8 +57,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ + "Info=True;User ID=sa;Password=dd")> _ Public ReadOnly Property DD_ECMConnectionString() As String Get Return CType(Me("DD_ECMConnectionString"),String) diff --git a/Global_Indexer/My Project/Settings.settings b/Global_Indexer/My Project/Settings.settings index 46bc2c0..b6f5a48 100644 --- a/Global_Indexer/My Project/Settings.settings +++ b/Global_Indexer/My Project/Settings.settings @@ -5,10 +5,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> - <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd \ No newline at end of file diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb index 6812b2d..265bb0a 100644 --- a/Global_Indexer/MyDataset.Designer.vb +++ b/Global_Indexer/MyDataset.Designer.vb @@ -5084,6 +5084,10 @@ Partial Public Class MyDataset Private columnSEQUENCE As Global.System.Data.DataColumn + Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn + + Private columnVKT_OVERWRITE As Global.System.Data.DataColumn + _ Public Sub New() @@ -5231,6 +5235,22 @@ Partial Public Class MyDataset End Get End Property + _ + Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_PREVENT_MULTIPLE_VALUES + End Get + End Property + + _ + Public ReadOnly Property VKT_OVERWRITEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_OVERWRITE + End Get + End Property + _ @@ -5268,9 +5288,9 @@ Partial Public Class MyDataset _ - Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As TBDD_INDEX_AUTOMRow + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, ByVal VKT_OVERWRITE As Boolean) As TBDD_INDEX_AUTOMRow Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE} + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) End If @@ -5316,6 +5336,8 @@ Partial Public Class MyDataset Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") + Me.columnVKT_OVERWRITE = MyBase.Columns("VKT_OVERWRITE") End Sub _ + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + End Set + End Property + + _ + Public Property VKT_OVERWRITE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VKT_OVERWRITEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VKT_OVERWRITEColumn) = value + End Set + End Property + _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow @@ -18195,6 +18247,8 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") + tableMapping.ColumnMappings.Add("VKT_OVERWRITE", "VKT_OVERWRITE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -18232,12 +18286,13 @@ Namespace MyDatasetTableAdapters Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ - "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,"& _ - "@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHAN"& _ - "GED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAM"& _ - "E, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ - "ANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDE"& _ - "NTITY()) ORDER BY SEQUENCE" + "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " VKT_OVERWRITE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@C"& _ + "ONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,"& _ + "@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE,@VKT_PREVENT_MULTIPLE_VALUES,@VKT_OVERWRITE); "& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, AD"& _ + "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD"& _ + "_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -18252,17 +18307,20 @@ Namespace MyDatasetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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, 1, 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("@VKT_OVERWRITE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_OVERWRITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ "MMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDE"& _ "D_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, "& _ - "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CON"& _ - "NECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ - "QL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUEN"& _ - "CE" + "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES,"& _ + " VKT_OVERWRITE = @VKT_OVERWRITE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, "& _ + "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AU"& _ + "TOM WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -18277,6 +18335,8 @@ Namespace MyDatasetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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("@VKT_OVERWRITE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_OVERWRITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -18296,8 +18356,9 @@ Namespace MyDatasetTableAdapters Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUE"& _ - "NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "ORDER BY SEQUENCE" + "NCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY "& _ + "SEQUENCE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub @@ -18435,7 +18496,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As Integer + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, ByVal VKT_OVERWRITE As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") @@ -18481,6 +18542,8 @@ Namespace MyDatasetTableAdapters End If Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean) Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEQUENCE,Byte) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(VKT_OVERWRITE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -18500,7 +18563,24 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update( _ + ByVal DOCTYPE_ID As Integer, _ + ByVal INDEXNAME As String, _ + ByVal VALUE As String, _ + ByVal CONNECTION_ID As Short, _ + ByVal COMMENT As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal SQL_RESULT As String, _ + ByVal SQL_ACTIVE As Boolean, _ + ByVal SEQUENCE As Byte, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal VKT_OVERWRITE As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") @@ -18546,8 +18626,10 @@ Namespace MyDatasetTableAdapters End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEQUENCE,Byte) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(VKT_OVERWRITE,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(16).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 diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd index 0282027..a80e1a5 100644 --- a/Global_Indexer/MyDataset.xsd +++ b/Global_Indexer/MyDataset.xsd @@ -629,7 +629,7 @@ ORDER BY SEQUENCE - + DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID] = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_VALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_ID] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([SQL_RESULT] = @Original_SQL_RESULT) AND ([SQL_ACTIVE] = @Original_SQL_ACTIVE)) @@ -656,62 +656,69 @@ ORDER BY SEQUENCE - + INSERT INTO TBDD_INDEX_AUTOM - (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE) -VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); + (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, VKT_PREVENT_MULTIPLE_VALUES, + VKT_OVERWRITE) +VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE,@VKT_PREVENT_MULTIPLE_VALUES,@VKT_OVERWRITE); SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE - - - - - - - - - - - - - + + + + + + + + + + + + + + + - SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE + SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, + VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE FROM TBDD_INDEX_AUTOM WHERE (DOCTYPE_ID = @DOCTYPE_ID) ORDER BY SEQUENCE - + - + UPDATE TBDD_INDEX_AUTOM SET DOCTYPE_ID = @DOCTYPE_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @COMMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, - ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE -WHERE (GUID = @Original_GUID); + ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE, + VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE = @VKT_OVERWRITE +WHERE (GUID = @Original_GUID); SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + @@ -732,6 +739,8 @@ SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED + + @@ -1216,65 +1225,65 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - + - - + + - + - + - + - + - - + + - - + + - + @@ -1284,80 +1293,80 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - + + - - + + - + - + - - + + - + - - + + - - + + - - + + - - + + @@ -1367,48 +1376,48 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - + + - + - + - - + + - + - + - - + + @@ -1418,11 +1427,11 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - + + @@ -1432,548 +1441,550 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - - + + + - + - + - + - - + + - - - + + + - + - - + + - - + + - - - - - - + + + + + + - + - - + + - + - + - + - + - + - + - - + + - - + + - + - + - - + + - + - + - + - - + + - + - - - + + + - + - + - + - + - + - + - + - - - - - + + + + + - + - - + + - + - - + + - + - - + + - + - + - + - + - + - + - - - + + + - - + + - + - - - + + + - + - - + + - - + + - - + + - - + + - - + + + + - + - - + + - + - - + + - + - + - + - + - + - + - + - - + + - + - + - + - + - + - + - - + + - - + + @@ -1983,78 +1994,78 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - - + + + - + - + - + - + - + - + - - + + - - + + - - + + @@ -2064,11 +2075,11 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - + + @@ -2078,180 +2089,180 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - - - + + + - + - - - - - + + + + + - + - + - + - - - + + + - - + + - + - - + + - + - + - - + + - + - - - + + + - - + + - + - + - - + + - + - + - + - - - - - - + + + + + + - + - - + + - - + + - - + + - + @@ -2340,14 +2351,14 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss index 87d5f10..05c5032 100644 --- a/Global_Indexer/MyDataset.xss +++ b/Global_Indexer/MyDataset.xss @@ -4,25 +4,25 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - + - + - +