MS Relations Doctype

2021-12-14 17:27:10 +01:00
parent 9d60bd8e56
commit 0b93b71f92
15 changed files with 974 additions and 81 deletions
--- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
+++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
@@ -2143,24 +2143,20 @@ 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.columnBE_ID.AllowDBNull = false
-            Me.columnBE.AllowDBNull = false
            Me.columnBE.MaxLength = 500
-            Me.columnATTR_ID.AllowDBNull = false
-            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.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
@@ -4793,7 +4789,11 @@ Partial Public Class DSIDB_Stammdaten
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
        Public Property BE_ID() As Integer
            Get
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer)
+                Try 
+                    Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
+                End Try
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value
@@ -4804,7 +4804,11 @@ Partial Public Class DSIDB_Stammdaten
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
        Public Property BE() As String
            Get
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String)
+                Try 
+                    Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
+                End Try
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value
@@ -4815,7 +4819,11 @@ Partial Public Class DSIDB_Stammdaten
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
        Public Property ATTR_ID() As Integer
            Get
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer)
+                Try 
+                    Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
+                End Try
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value
@@ -4826,7 +4834,11 @@ 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
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String)
+                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
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value
@@ -4837,7 +4849,11 @@ 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
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte)
+                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
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value
@@ -4848,7 +4864,11 @@ 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
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte)
+                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
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value
@@ -4859,7 +4879,11 @@ 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
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String)
+                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
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value
@@ -4914,7 +4938,11 @@ 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
-                Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date)
+                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
            End Get
            Set
                Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value
@@ -4973,6 +5001,102 @@ 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 Function IsBE_IDNull() As Boolean
+            Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetBE_IDNull()
+            Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_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 IsBENull() As Boolean
+            Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetBENull()
+            Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = 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_IDNull() As Boolean
+            Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetATTR_IDNull()
+            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
@@ -7471,9 +7595,13 @@ Namespace DSIDB_StammdatenTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)>  _
-        Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As Integer
+        Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Global.System.Nullable(Of Integer), ByVal LANGUAGE_ID As Byte) As Integer
            Me.Adapter.SelectCommand = Me.CommandCollection(1)
-            Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer)
+            If (ATTRIBUTE_ID.HasValue = true) Then
+                Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID.Value,Integer)
+            Else
+                Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
+            End If
            Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte)
            If (Me.ClearBeforeFill = true) Then
                dataTable.Clear
@@ -7486,9 +7614,13 @@ Namespace DSIDB_StammdatenTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)>  _
-        Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable
+        Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Global.System.Nullable(Of Integer), ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable
            Me.Adapter.SelectCommand = Me.CommandCollection(1)
-            Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer)
+            If (ATTRIBUTE_ID.HasValue = true) Then
+                Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID.Value,Integer)
+            Else
+                Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value
+            End If
            Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte)
            Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable()
            Me.Adapter.Fill(dataTable)