update TBDD_DOKUMENTART & VWDDINDEX_AUTOM

This commit is contained in:
Jonathan Jenne
2023-09-26 15:42:11 +02:00
parent 67bf229525
commit 2eeb773cf8
6 changed files with 3840 additions and 2491 deletions

View File

@@ -4558,6 +4558,10 @@ Partial Public Class MyDataset
Private columnSEQUENCE As Global.System.Data.DataColumn
Private columnVKT_OVERWRITE 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", "17.0.0.0")> _
Public Sub New()
@@ -4745,6 +4749,22 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VKT_OVERWRITEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVKT_OVERWRITE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -4801,9 +4821,11 @@ Partial Public Class MyDataset
ByVal Indexwert As String, _
ByVal VALUE As String, _
ByVal SQL_ACTIVE As Boolean, _
ByVal SEQUENCE As Byte) As VWDDINDEX_AUTOMRow
ByVal SEQUENCE As Byte, _
ByVal VKT_OVERWRITE As Boolean, _
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As VWDDINDEX_AUTOMRow
Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow)
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE, SEQUENCE}
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE, SEQUENCE, VKT_OVERWRITE, VKT_PREVENT_MULTIPLE_VALUES}
rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWDDINDEX_AUTOMRow)
Return rowVWDDINDEX_AUTOMRow
@@ -4851,6 +4873,8 @@ Partial Public Class MyDataset
Me.columnVALUE = MyBase.Columns("VALUE")
Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
Me.columnVKT_OVERWRITE = MyBase.Columns("VKT_OVERWRITE")
Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -4894,6 +4918,10 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnSQL_ACTIVE)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnVKT_OVERWRITE = New Global.System.Data.DataColumn("VKT_OVERWRITE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVKT_OVERWRITE)
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.AllowDBNull = false
Me.columnGUID.Unique = true
@@ -4919,6 +4947,8 @@ Partial Public Class MyDataset
Me.columnVALUE.MaxLength = 2000
Me.columnSQL_ACTIVE.AllowDBNull = false
Me.columnSEQUENCE.AllowDBNull = false
Me.columnVKT_OVERWRITE.AllowDBNull = false
Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -12026,6 +12056,28 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property VKT_OVERWRITE() As Boolean
Get
Return CType(Me(Me.tableVWDDINDEX_AUTOM.VKT_OVERWRITEColumn),Boolean)
End Get
Set
Me(Me.tableVWDDINDEX_AUTOM.VKT_OVERWRITEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
Get
Return CType(Me(Me.tableVWDDINDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
End Get
Set
Me(Me.tableVWDDINDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
@@ -18055,6 +18107,8 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("VALUE", "VALUE")
tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
tableMapping.ColumnMappings.Add("VKT_OVERWRITE", "VKT_OVERWRITE")
tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
@@ -18073,8 +18127,9 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _
"TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _
"SULT, VALUE, SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VW"& _
"DDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
"SULT, VALUE, SQL_ACTIVE, SEQUENCE,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VKT_OVERWRITE, VKT"& _
"_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE"& _
"_ID = @DOCTYPE)"&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", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub