MS anpassungen

This commit is contained in:
2022-02-15 17:28:32 +01:00
parent c2b81af556
commit 5f69002668
20 changed files with 707 additions and 484 deletions

View File

@@ -1924,6 +1924,8 @@ Partial Public Class DSIDB_Stammdaten
Private columnSYS_ATTRIBUTE As Global.System.Data.DataColumn
Private columnMULTI_CONTEXT As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
@@ -2087,6 +2089,14 @@ Partial Public Class DSIDB_Stammdaten
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property MULTI_CONTEXTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMULTI_CONTEXT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -2140,14 +2150,21 @@ Partial Public Class DSIDB_Stammdaten
ByVal ADDED_WHO As String, _
ByVal CHANGED_WHEN As Date, _
ByVal CHANGED_WHO As String, _
ByVal SYS_ATTRIBUTE As Boolean) As VWIDB_BE_ATTRIBUTERow
ByVal SYS_ATTRIBUTE As Boolean, _
ByVal MULTI_CONTEXT As Boolean) As VWIDB_BE_ATTRIBUTERow
Dim rowVWIDB_BE_ATTRIBUTERow As VWIDB_BE_ATTRIBUTERow = CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow)
Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE}
Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE, MULTI_CONTEXT}
rowVWIDB_BE_ATTRIBUTERow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWIDB_BE_ATTRIBUTERow)
Return rowVWIDB_BE_ATTRIBUTERow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function FindByLANG_ID(ByVal LANG_ID As Byte) As VWIDB_BE_ATTRIBUTERow
Return CType(Me.Rows.Find(New Object() {LANG_ID}),VWIDB_BE_ATTRIBUTERow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
@@ -2181,6 +2198,7 @@ Partial Public Class DSIDB_Stammdaten
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnSYS_ATTRIBUTE = MyBase.Columns("SYS_ATTRIBUTE")
Me.columnMULTI_CONTEXT = MyBase.Columns("MULTI_CONTEXT")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -2218,24 +2236,34 @@ Partial Public Class DSIDB_Stammdaten
MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnSYS_ATTRIBUTE = New Global.System.Data.DataColumn("SYS_ATTRIBUTE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSYS_ATTRIBUTE)
Me.columnMULTI_CONTEXT = New Global.System.Data.DataColumn("MULTI_CONTEXT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMULTI_CONTEXT)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLANG_ID}, true))
Me.columnBE.MaxLength = 500
Me.columnATTR_TITLE.AllowDBNull = false
Me.columnATTR_TITLE.MaxLength = 900
Me.columnTYP_ID.AllowDBNull = false
Me.columnTYPE_ID.AllowDBNull = false
Me.columnTYPE_NAME.AllowDBNull = false
Me.columnTYPE_NAME.MaxLength = 100
Me.columnVIEW_VISIBLE.AllowDBNull = false
Me.columnVIEW_VISIBLE.DefaultValue = CType(true,Boolean)
Me.columnVIEW_SEQUENCE.AllowDBNull = false
Me.columnVIEW_SEQUENCE.DefaultValue = CType(1,Integer)
Me.columnLANG_ID.AllowDBNull = false
Me.columnLANG_ID.Unique = true
Me.columnLANG_ID.DefaultValue = CType(1,Byte)
Me.columnLANG_CODE.AllowDBNull = false
Me.columnLANG_CODE.DefaultValue = CType("de-DE",String)
Me.columnLANG_CODE.MaxLength = 10
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.DefaultValue = CType("",String)
Me.columnADDED_WHO.MaxLength = 30
Me.columnCHANGED_WHO.MaxLength = 30
Me.columnSYS_ATTRIBUTE.AllowDBNull = false
Me.columnSYS_ATTRIBUTE.DefaultValue = CType(false,Boolean)
Me.columnMULTI_CONTEXT.AllowDBNull = false
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -5543,11 +5571,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ATTR_TITLE() As String
Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_TITLE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value
@@ -5558,11 +5582,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TYP_ID() As Byte
Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value
@@ -5573,11 +5593,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TYPE_ID() As Byte
Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value
@@ -5588,11 +5604,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TYPE_NAME() As String
Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value
@@ -5647,11 +5659,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value
@@ -5710,6 +5718,17 @@ Partial Public Class DSIDB_Stammdaten
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property MULTI_CONTEXT() As Boolean
Get
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.MULTI_CONTEXTColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsBE_IDNull() As Boolean
@@ -5746,66 +5765,6 @@ Partial Public Class DSIDB_Stammdaten
Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsATTR_TITLENull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetATTR_TITLENull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsTYP_IDNull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetTYP_IDNull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsTYPE_IDNull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetTYPE_IDNull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsTYPE_NAMENull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetTYPE_NAMENull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
@@ -8506,6 +8465,7 @@ Namespace DSIDB_StammdatenTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("SYS_ATTRIBUTE", "SYS_ATTRIBUTE")
tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -8552,14 +8512,18 @@ Namespace DSIDB_StammdatenTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VI"& _
"SIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, "& _
"CHANGED_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LAN"& _
"G_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)"
"CHANGED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MULTI_CONTEXT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUT"& _
"E = 0)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _
"_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID"
Me._commandCollection(1).CommandText = "SELECT GUID, BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, V"& _
"IEW_VISIBLE, MULTI_CONTEXT, VIEW_SEQUENCE, SYS_ATTRIBUTE, DEFAULT_SEARCH_ATTRIBU"& _
"TE, LANG_ID, LANG_CODE, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, CHANGE"& _
"D_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ATTR_ID ="& _
" @ATTRIBUTE_ID) AND (LANG_ID = @LANGUAGE_ID)"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))