jj: add preventduplicate values and add new items to lookupGrid
This commit is contained in:
Jonathan Jenne
123
Global_Indexer/MyDataset.Designer.vb
generated
123
Global_Indexer/MyDataset.Designer.vb
generated
@@ -3261,6 +3261,10 @@ Partial Public Class MyDataset
|
||||
|
||||
Private columnMULTISELECT As Global.System.Data.DataColumn
|
||||
|
||||
Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn
|
||||
|
||||
Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -3456,6 +3460,22 @@ Partial Public Class MyDataset
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnVKT_ADD_ITEM
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnVKT_PREVENT_MULTIPLE_VALUES
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -3512,9 +3532,11 @@ Partial Public Class MyDataset
|
||||
ByVal CHANGED_WHEN As Date, _
|
||||
ByVal _OPTIONAL As Boolean, _
|
||||
ByVal SAVE_VALUE As Boolean, _
|
||||
ByVal MULTISELECT As Boolean) As TBDD_INDEX_MANRow
|
||||
ByVal MULTISELECT As Boolean, _
|
||||
ByVal VKT_ADD_ITEM As Boolean, _
|
||||
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As TBDD_INDEX_MANRow
|
||||
Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, Nothing, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _OPTIONAL, SAVE_VALUE, MULTISELECT}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, Nothing, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _OPTIONAL, SAVE_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES}
|
||||
If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then
|
||||
columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0)
|
||||
End If
|
||||
@@ -3569,6 +3591,8 @@ Partial Public Class MyDataset
|
||||
Me.columnOPTIONAL = MyBase.Columns("OPTIONAL")
|
||||
Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE")
|
||||
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")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -3617,6 +3641,10 @@ Partial Public Class MyDataset
|
||||
MyBase.Columns.Add(Me.columnSAVE_VALUE)
|
||||
Me.columnMULTISELECT = New Global.System.Data.DataColumn("MULTISELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnMULTISELECT)
|
||||
Me.columnVKT_ADD_ITEM = New Global.System.Data.DataColumn("VKT_ADD_ITEM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnVKT_ADD_ITEM)
|
||||
Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
@@ -3653,6 +3681,8 @@ Partial Public Class MyDataset
|
||||
Me.columnSAVE_VALUE.DefaultValue = CType(false,Boolean)
|
||||
Me.columnMULTISELECT.AllowDBNull = false
|
||||
Me.columnMULTISELECT.DefaultValue = CType(false,Boolean)
|
||||
Me.columnVKT_ADD_ITEM.AllowDBNull = false
|
||||
Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -13743,6 +13773,28 @@ Partial Public Class MyDataset
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property VKT_ADD_ITEM() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow
|
||||
@@ -21311,6 +21363,8 @@ Namespace MyDatasetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL")
|
||||
tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE")
|
||||
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")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -21321,13 +21375,14 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _
|
||||
"MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _
|
||||
"SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@NAM"& _
|
||||
"E,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUEN"& _
|
||||
"CE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
|
||||
"UID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNE"& _
|
||||
"CTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _
|
||||
"D_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()"& _
|
||||
")"
|
||||
"SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE, VKT_ADD_ITEM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" VKT_PREVENT_MULTIPLE_VALUES, MULTISELECT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _
|
||||
"NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _
|
||||
"UENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE,@MULTISELE"& _
|
||||
"CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, W"& _
|
||||
"D_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, "& _
|
||||
"SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _
|
||||
" OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_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, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -21344,6 +21399,9 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_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, 1, 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_ADD_ITEM", 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_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", 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_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _
|
||||
@@ -21351,10 +21409,12 @@ Namespace MyDatasetTableAdapters
|
||||
"GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _
|
||||
"D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _
|
||||
"@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, OPTIONAL = @OPTIONAL, "& _
|
||||
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SAVE_VALUE = @SAVE_VALUE, MULTISELECT = @MULTISELECT"&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, DOK_ID, NAME, WD_INDEX, "& _
|
||||
"COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESUL"& _
|
||||
"T, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL"& _
|
||||
" FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)"
|
||||
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SAVE_VALUE = @SAVE_VALUE, MULTISELECT = @MULTISELECT,"& _
|
||||
" VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _
|
||||
"LE_VALUES"&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, DOK_ID, NAME,"& _
|
||||
" WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE"& _
|
||||
", SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _
|
||||
"N, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_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, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -21372,6 +21432,8 @@ Namespace MyDatasetTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_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("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -21392,8 +21454,8 @@ Namespace MyDatasetTableAdapters
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _
|
||||
"T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE"& _
|
||||
"D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL, SAVE_VAL"& _
|
||||
"UE, MULTISELECT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_ID)"& _
|
||||
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
|
||||
"UE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _
|
||||
"_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_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("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -21477,7 +21539,25 @@ Namespace MyDatasetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
||||
Public Overloads Overridable Function Insert(ByVal DOK_ID As Integer, ByVal NAME As String, ByVal WD_INDEX As String, ByVal COMMENT As String, ByVal DATATYPE As String, ByVal SUGGESTION As Boolean, ByVal DEFAULT_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal SEQUENCE As Integer, ByVal SQL_RESULT As String, ByVal SQL_CHECK As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean, ByVal SAVE_VALUE As Boolean) As Integer
|
||||
Public Overloads Overridable Function Insert( _
|
||||
ByVal DOK_ID As Integer, _
|
||||
ByVal NAME As String, _
|
||||
ByVal WD_INDEX As String, _
|
||||
ByVal COMMENT As String, _
|
||||
ByVal DATATYPE As String, _
|
||||
ByVal SUGGESTION As Boolean, _
|
||||
ByVal DEFAULT_VALUE As String, _
|
||||
ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _
|
||||
ByVal SEQUENCE As Integer, _
|
||||
ByVal SQL_RESULT As String, _
|
||||
ByVal SQL_CHECK As String, _
|
||||
ByVal ACTIVE As Boolean, _
|
||||
ByVal ADDED_WHO As String, _
|
||||
ByVal _OPTIONAL As Boolean, _
|
||||
ByVal SAVE_VALUE As Boolean, _
|
||||
ByVal MULTISELECT As Boolean, _
|
||||
ByVal VKT_ADD_ITEM As Boolean, _
|
||||
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As Integer
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer)
|
||||
If (NAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("NAME")
|
||||
@@ -21529,6 +21609,9 @@ Namespace MyDatasetTableAdapters
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,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
|
||||
@@ -21565,6 +21648,8 @@ Namespace MyDatasetTableAdapters
|
||||
ByVal _OPTIONAL As Boolean, _
|
||||
ByVal SAVE_VALUE As Boolean, _
|
||||
ByVal MULTISELECT As Boolean, _
|
||||
ByVal VKT_ADD_ITEM As Boolean, _
|
||||
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _
|
||||
ByVal Original_GUID As Integer, _
|
||||
ByVal GUID As Integer) As Integer
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer)
|
||||
@@ -21619,8 +21704,10 @@ Namespace MyDatasetTableAdapters
|
||||
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(19).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
|
||||
|
||||
Reference in New Issue
Block a user