AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2022-02-09 11:51:01 +01:00
parent 607f7e6445
commit 90fabc1604
7 changed files with 798 additions and 220 deletions
Download Patch File Download Diff File Expand all files Collapse all files

642
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb generated
View File

@@ -43,6 +43,8 @@ Partial Public Class DSIDB_Stammdaten
Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable
Private tableVWIDB_DOCTYPES_DE As VWIDB_DOCTYPES_DEDataTable
Private tableTBIDB_DOCTYPE_HANDLING As TBIDB_DOCTYPE_HANDLINGDataTable
Private relationFK_TYP_ID As Global.System.Data.DataRelation
@@ -107,6 +109,9 @@ Partial Public Class DSIDB_Stammdaten
If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then
MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE")))
End If
If (Not (ds.Tables("VWIDB_DOCTYPES_DE")) Is Nothing) Then
MyBase.Tables.Add(New VWIDB_DOCTYPES_DEDataTable(ds.Tables("VWIDB_DOCTYPES_DE")))
End If
If (Not (ds.Tables("TBIDB_DOCTYPE_HANDLING")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_DOCTYPE_HANDLINGDataTable(ds.Tables("TBIDB_DOCTYPE_HANDLING")))
End If
@@ -217,6 +222,16 @@ 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"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property VWIDB_DOCTYPES_DE() As VWIDB_DOCTYPES_DEDataTable
Get
Return Me.tableVWIDB_DOCTYPES_DE
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), _
@@ -321,6 +336,9 @@ Partial Public Class DSIDB_Stammdaten
If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then
MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE")))
End If
If (Not (ds.Tables("VWIDB_DOCTYPES_DE")) Is Nothing) Then
MyBase.Tables.Add(New VWIDB_DOCTYPES_DEDataTable(ds.Tables("VWIDB_DOCTYPES_DE")))
End If
If (Not (ds.Tables("TBIDB_DOCTYPE_HANDLING")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_DOCTYPE_HANDLINGDataTable(ds.Tables("TBIDB_DOCTYPE_HANDLING")))
End If
@@ -410,6 +428,12 @@ Partial Public Class DSIDB_Stammdaten
Me.tableVWIDB_OBJECT_STORE.InitVars
End If
End If
Me.tableVWIDB_DOCTYPES_DE = CType(MyBase.Tables("VWIDB_DOCTYPES_DE"),VWIDB_DOCTYPES_DEDataTable)
If (initTable = true) Then
If (Not (Me.tableVWIDB_DOCTYPES_DE) Is Nothing) Then
Me.tableVWIDB_DOCTYPES_DE.InitVars
End If
End If
Me.tableTBIDB_DOCTYPE_HANDLING = CType(MyBase.Tables("TBIDB_DOCTYPE_HANDLING"),TBIDB_DOCTYPE_HANDLINGDataTable)
If (initTable = true) Then
If (Not (Me.tableTBIDB_DOCTYPE_HANDLING) Is Nothing) Then
@@ -447,6 +471,8 @@ Partial Public Class DSIDB_Stammdaten
MyBase.Tables.Add(Me.tableTBWH_ATTRIBUTE_TYPE)
Me.tableVWIDB_OBJECT_STORE = New VWIDB_OBJECT_STOREDataTable()
MyBase.Tables.Add(Me.tableVWIDB_OBJECT_STORE)
Me.tableVWIDB_DOCTYPES_DE = New VWIDB_DOCTYPES_DEDataTable()
MyBase.Tables.Add(Me.tableVWIDB_DOCTYPES_DE)
Me.tableTBIDB_DOCTYPE_HANDLING = New TBIDB_DOCTYPE_HANDLINGDataTable()
MyBase.Tables.Add(Me.tableTBIDB_DOCTYPE_HANDLING)
Me.relationFK_TYP_ID = New Global.System.Data.DataRelation("FK_TYP_ID", New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn}, false)
@@ -511,6 +537,12 @@ Partial Public Class DSIDB_Stammdaten
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWIDB_DOCTYPES_DE() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBIDB_DOCTYPE_HANDLING() As Boolean
@@ -602,6 +634,9 @@ Partial Public Class DSIDB_Stammdaten
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub VWIDB_OBJECT_STORERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_OBJECT_STORERowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub VWIDB_DOCTYPES_DERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_DOCTYPES_DERowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_DOCTYPE_HANDLINGRowChangeEvent)
@@ -4148,6 +4183,260 @@ Partial Public Class DSIDB_Stammdaten
End Function
End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class VWIDB_DOCTYPES_DEDataTable
Inherits Global.System.Data.TypedTableBase(Of VWIDB_DOCTYPES_DERow)
Private columnDoctype 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()
MyBase.New
Me.TableName = "VWIDB_DOCTYPES_DE"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property DoctypeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDoctype
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)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As VWIDB_DOCTYPES_DERow
Get
Return CType(Me.Rows(index),VWIDB_DOCTYPES_DERow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event VWIDB_DOCTYPES_DERowChanging As VWIDB_DOCTYPES_DERowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event VWIDB_DOCTYPES_DERowChanged As VWIDB_DOCTYPES_DERowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event VWIDB_DOCTYPES_DERowDeleting As VWIDB_DOCTYPES_DERowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event VWIDB_DOCTYPES_DERowDeleted As VWIDB_DOCTYPES_DERowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Sub AddVWIDB_DOCTYPES_DERow(ByVal row As VWIDB_DOCTYPES_DERow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddVWIDB_DOCTYPES_DERow(ByVal Doctype As String) As VWIDB_DOCTYPES_DERow
Dim rowVWIDB_DOCTYPES_DERow As VWIDB_DOCTYPES_DERow = CType(Me.NewRow,VWIDB_DOCTYPES_DERow)
Dim columnValuesArray() As Object = New Object() {Doctype}
rowVWIDB_DOCTYPES_DERow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWIDB_DOCTYPES_DERow)
Return rowVWIDB_DOCTYPES_DERow
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
Dim cln As VWIDB_DOCTYPES_DEDataTable = CType(MyBase.Clone,VWIDB_DOCTYPES_DEDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWIDB_DOCTYPES_DEDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub InitVars()
Me.columnDoctype = MyBase.Columns("Doctype")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitClass()
Me.columnDoctype = New Global.System.Data.DataColumn("Doctype", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDoctype)
Me.columnDoctype.AllowDBNull = false
Me.columnDoctype.MaxLength = 900
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function NewVWIDB_DOCTYPES_DERow() As VWIDB_DOCTYPES_DERow
Return CType(Me.NewRow,VWIDB_DOCTYPES_DERow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWIDB_DOCTYPES_DERow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWIDB_DOCTYPES_DERow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWIDB_DOCTYPES_DERowChangedEvent) Is Nothing) Then
RaiseEvent VWIDB_DOCTYPES_DERowChanged(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWIDB_DOCTYPES_DERowChangingEvent) Is Nothing) Then
RaiseEvent VWIDB_DOCTYPES_DERowChanging(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWIDB_DOCTYPES_DERowDeletedEvent) Is Nothing) Then
RaiseEvent VWIDB_DOCTYPES_DERowDeleted(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWIDB_DOCTYPES_DERowDeletingEvent) Is Nothing) Then
RaiseEvent VWIDB_DOCTYPES_DERowDeleting(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub RemoveVWIDB_DOCTYPES_DERow(ByVal row As VWIDB_DOCTYPES_DERow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "VWIDB_DOCTYPES_DEDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
@@ -4158,7 +4447,7 @@ Partial Public Class DSIDB_Stammdaten
Private columnGUID As Global.System.Data.DataColumn
Private columnDOCTYPE_ID As Global.System.Data.DataColumn
Private columnDOCTYPE As Global.System.Data.DataColumn
Private columnCHANGED_ACTION As Global.System.Data.DataColumn
@@ -4174,8 +4463,6 @@ Partial Public Class DSIDB_Stammdaten
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnDoctype 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()
@@ -4221,9 +4508,9 @@ Partial Public Class DSIDB_Stammdaten
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn
Public ReadOnly Property DOCTYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDOCTYPE_ID
Return Me.columnDOCTYPE
End Get
End Property
@@ -4283,14 +4570,6 @@ 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 DoctypeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDoctype
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)> _
@@ -4328,9 +4607,9 @@ Partial Public Class DSIDB_Stammdaten
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddTBIDB_DOCTYPE_HANDLINGRow(ByVal DOCTYPE_ID As Integer, ByVal parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT As TBIDB_CATALOGRow, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal Doctype As String) As TBIDB_DOCTYPE_HANDLINGRow
Public Overloads Function AddTBIDB_DOCTYPE_HANDLINGRow(ByVal DOCTYPE As String, ByVal parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT As TBIDB_CATALOGRow, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_DOCTYPE_HANDLINGRow
Dim rowTBIDB_DOCTYPE_HANDLINGRow As TBIDB_DOCTYPE_HANDLINGRow = CType(Me.NewRow,TBIDB_DOCTYPE_HANDLINGRow)
Dim columnValuesArray() As Object = New Object() {Nothing, DOCTYPE_ID, Nothing, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Doctype}
Dim columnValuesArray() As Object = New Object() {Nothing, DOCTYPE, Nothing, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
If (Not (parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT) Is Nothing) Then
columnValuesArray(2) = parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT(0)
End If
@@ -4363,7 +4642,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID")
Me.columnDOCTYPE = MyBase.Columns("DOCTYPE")
Me.columnCHANGED_ACTION = MyBase.Columns("CHANGED_ACTION")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
@@ -4371,7 +4650,6 @@ Partial Public Class DSIDB_Stammdaten
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnDoctype = MyBase.Columns("Doctype")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -4379,8 +4657,8 @@ Partial Public Class DSIDB_Stammdaten
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDOCTYPE_ID)
Me.columnDOCTYPE = New Global.System.Data.DataColumn("DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDOCTYPE)
Me.columnCHANGED_ACTION = New Global.System.Data.DataColumn("CHANGED_ACTION", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_ACTION)
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
@@ -4395,14 +4673,14 @@ Partial Public Class DSIDB_Stammdaten
MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnDoctype = New Global.System.Data.DataColumn("Doctype", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDoctype)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnDOCTYPE_ID.AllowDBNull = false
Me.columnDOCTYPE.AllowDBNull = false
Me.columnDOCTYPE.MaxLength = 100
Me.columnCHANGED_ACTION.AllowDBNull = false
Me.columnACTIVE.AllowDBNull = false
Me.columnACTIVE.DefaultValue = CType(true,Boolean)
@@ -4410,8 +4688,6 @@ Partial Public Class DSIDB_Stammdaten
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 30
Me.columnCHANGED_WHO.MaxLength = 30
Me.columnDoctype.AllowDBNull = false
Me.columnDoctype.MaxLength = 50
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -6378,6 +6654,33 @@ Partial Public Class DSIDB_Stammdaten
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class VWIDB_DOCTYPES_DERow
Inherits Global.System.Data.DataRow
Private tableVWIDB_DOCTYPES_DE As VWIDB_DOCTYPES_DEDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableVWIDB_DOCTYPES_DE = CType(Me.Table,VWIDB_DOCTYPES_DEDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property Doctype() As String
Get
Return CType(Me(Me.tableVWIDB_DOCTYPES_DE.DoctypeColumn),String)
End Get
Set
Me(Me.tableVWIDB_DOCTYPES_DE.DoctypeColumn) = value
End Set
End Property
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
@@ -6406,12 +6709,12 @@ Partial Public Class DSIDB_Stammdaten
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property DOCTYPE_ID() As Integer
Public Property DOCTYPE() As String
Get
Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.DOCTYPE_IDColumn),Integer)
Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.DOCTYPEColumn),String)
End Get
Set
Me(Me.tableTBIDB_DOCTYPE_HANDLING.DOCTYPE_IDColumn) = value
Me(Me.tableTBIDB_DOCTYPE_HANDLING.DOCTYPEColumn) = value
End Set
End Property
@@ -6508,17 +6811,6 @@ 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 Doctype() As String
Get
Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.DoctypeColumn),String)
End Get
Set
Me(Me.tableTBIDB_DOCTYPE_HANDLING.DoctypeColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TBIDB_CATALOGRow() As TBIDB_CATALOGRow
@@ -6903,6 +7195,42 @@ Partial Public Class DSIDB_Stammdaten
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Class VWIDB_DOCTYPES_DERowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As VWIDB_DOCTYPES_DERow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New(ByVal row As VWIDB_DOCTYPES_DERow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property Row() As VWIDB_DOCTYPES_DERow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
@@ -10094,6 +10422,179 @@ Namespace DSIDB_StammdatenTableAdapters
End Function
End Class
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class VWIDB_DOCTYPES_DETableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
Private _connection As Global.System.Data.SqlClient.SqlConnection
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection
End If
Return Me._connection
End Get
Set
Me._connection = value
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Not (Me.CommandCollection(i)) Is Nothing) Then
CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
Get
Return Me._transaction
End Get
Set
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Not (Me.Adapter) Is Nothing) _
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Not (Me.Adapter) Is Nothing) _
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Not (Me.Adapter) Is Nothing) _
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "VWIDB_DOCTYPES_DE"
tableMapping.ColumnMappings.Add("Doctype", "Doctype")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT * FROM VWIDB_DOCTYPES_DE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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], true)> _
Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable = New DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
@@ -10222,7 +10723,7 @@ Namespace DSIDB_StammdatenTableAdapters
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "TBIDB_DOCTYPE_HANDLING"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID")
tableMapping.ColumnMappings.Add("DOCTYPE", "DOCTYPE")
tableMapping.ColumnMappings.Add("CHANGED_ACTION", "CHANGED_ACTION")
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
@@ -10230,7 +10731,6 @@ Namespace DSIDB_StammdatenTableAdapters
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("Doctype", "Doctype")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -10239,26 +10739,26 @@ Namespace DSIDB_StammdatenTableAdapters
Me._adapter.DeleteCommand.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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, CHANGED"& _
"_ACTION, ACTIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@CHANGED_ACTION"& _
",@ACTIVE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, CHANGED_ACTION, ACTIVE"& _
", COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE_H"& _
"ANDLING WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE, CHANGED_AC"& _
"TION, ACTIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE,@CHANGED_ACTION,@ACTI"& _
"VE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT"& _
", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE_HANDLING W"& _
"HERE (GUID = SCOPE_IDENTITY())"
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("@DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_ACTION", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_ACTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", 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 TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID,"& _
" CHANGED_ACTION = @CHANGED_ACTION, ACTIVE = @ACTIVE, COMMENT = @COMMENT, CHANGED"& _
"_WHO = @CHANGED_WHO"&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, DOCTYP"& _
"E_ID, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _
"ED_WHEN FROM TBIDB_DOCTYPE_HANDLING WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE = @DOCTYPE, CHANG"& _
"ED_ACTION = @CHANGED_ACTION, ACTIVE = @ACTIVE, COMMENT = @COMMENT, CHANGED_WHO ="& _
" @CHANGED_WHO"&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, CHA"& _
"NGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN F"& _
"ROM TBIDB_DOCTYPE_HANDLING WHERE (GUID = @GUID)"
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("@DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_ACTION", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_ACTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -10280,26 +10780,20 @@ Namespace DSIDB_StammdatenTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT TBIDB_DOCTYPE_HANDLING.GUID, TBIDB_DOCTYPE_HANDLING.DOCTYPE_ID, TBI"& _
"DB_DOCTYPE_HANDLING.CHANGED_ACTION, TBIDB_DOCTYPE_HANDLING.ACTIVE, TBIDB_DOCTYPE"& _
"_HANDLING.COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_DOCTYPE_HANDLING.ADDED_WHO, "& _
"TBIDB_DOCTYPE_HANDLING.ADDED_WHEN, TBIDB_DOCTYPE_HANDLING.CHANGED_WHO, TBIDB_DOC"& _
"TYPE_HANDLING.CHANGED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DD_ECM.dbo.TBDD_DOKUMENTA"& _
"RT.BEZEICHNUNG AS Doctype"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_DOCTYPE_HANDLING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" DD_ECM.dbo.TBDD_DOKUMENTART ON TBIDB_DOCTYPE_HANDLING.DOC"& _
"TYPE_ID = DD_ECM.dbo.TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBIDB_DOCTYPE_HANDLING"& _
".DOCTYPE_ID = @DOCTYPE_ID)"
Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WH"& _
"EN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
" (GUID = @GUID)"
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, "", "", ""))
Me._commandCollection(0).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.Current, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable, ByVal DOCTYPE_ID As Integer) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable, ByVal GUID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@@ -10311,9 +10805,9 @@ 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], true)> _
Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable
Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
Dim dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable = New DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
@@ -10372,8 +10866,12 @@ 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.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal CHANGED_ACTION As Integer, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
Public Overloads Overridable Function Insert(ByVal DOCTYPE As String, ByVal CHANGED_ACTION As Integer, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer
If (DOCTYPE Is Nothing) Then
Throw New Global.System.ArgumentNullException("DOCTYPE")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE,String)
End If
Me.Adapter.InsertCommand.Parameters(1).Value = CType(CHANGED_ACTION,Integer)
Me.Adapter.InsertCommand.Parameters(2).Value = CType(ACTIVE,Boolean)
If (COMMENT Is Nothing) Then
@@ -10405,8 +10903,12 @@ 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.Update, true)> _
Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal CHANGED_ACTION As Integer, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
Public Overloads Overridable Function Update(ByVal DOCTYPE As String, ByVal CHANGED_ACTION As Integer, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (DOCTYPE Is Nothing) Then
Throw New Global.System.ArgumentNullException("DOCTYPE")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE,String)
End If
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_ACTION,Integer)
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ACTIVE,Boolean)
If (COMMENT Is Nothing) Then