7366 lines
439 KiB
VB.net
7366 lines
439 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' Dieser Code wurde von einem Tool generiert.
|
|
' Laufzeitversion:4.0.30319.42000
|
|
'
|
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
|
' der Code erneut generiert wird.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
|
|
|
|
'''<summary>
|
|
'''Represents a strongly typed in-memory cache of data.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
|
|
Global.System.Xml.Serialization.XmlRootAttribute("DS_More"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class DS_More
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tableTBMO_RE_KUNDEN As TBMO_RE_KUNDENDataTable
|
|
|
|
Private tableTBMO_RE_DOKART_KUNDE As TBMO_RE_DOKART_KUNDEDataTable
|
|
|
|
Private tableWHMO_RE_DOKART As WHMO_RE_DOKARTDataTable
|
|
|
|
Private tableWHMO_RE_KUNDEN As WHMO_RE_KUNDENDataTable
|
|
|
|
Private tableVWMO_RE_DOKUMENTARTZUORDNUNG As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable
|
|
|
|
Private tableTBMO_RE_DOKART As TBMO_RE_DOKARTDataTable
|
|
|
|
Private tableTBMO_RE_HISTORY As TBMO_RE_HISTORYDataTable
|
|
|
|
Private relationFK_TBMO_RE_DOKART_KUNDE_KDID As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBMO_RE_DOKART_KUNDE_KDID1 As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBMO_RE_DOKART_KUNDE_DAID As Global.System.Data.DataRelation
|
|
|
|
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
|
|
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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, false)
|
|
If (Me.IsBinarySerialized(info, context) = true) Then
|
|
Me.InitVars(false)
|
|
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
|
|
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
|
|
Return
|
|
End If
|
|
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
|
|
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
|
|
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
|
|
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
|
|
If (Not (ds.Tables("TBMO_RE_KUNDEN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_KUNDENDataTable(ds.Tables("TBMO_RE_KUNDEN")))
|
|
End If
|
|
If (Not (ds.Tables("TBMO_RE_DOKART_KUNDE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_DOKART_KUNDEDataTable(ds.Tables("TBMO_RE_DOKART_KUNDE")))
|
|
End If
|
|
If (Not (ds.Tables("WHMO_RE_DOKART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New WHMO_RE_DOKARTDataTable(ds.Tables("WHMO_RE_DOKART")))
|
|
End If
|
|
If (Not (ds.Tables("WHMO_RE_KUNDEN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New WHMO_RE_KUNDENDataTable(ds.Tables("WHMO_RE_KUNDEN")))
|
|
End If
|
|
If (Not (ds.Tables("VWMO_RE_DOKUMENTARTZUORDNUNG")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWMO_RE_DOKUMENTARTZUORDNUNGDataTable(ds.Tables("VWMO_RE_DOKUMENTARTZUORDNUNG")))
|
|
End If
|
|
If (Not (ds.Tables("TBMO_RE_DOKART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_DOKARTDataTable(ds.Tables("TBMO_RE_DOKART")))
|
|
End If
|
|
If (Not (ds.Tables("TBMO_RE_HISTORY")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_HISTORYDataTable(ds.Tables("TBMO_RE_HISTORY")))
|
|
End If
|
|
Me.DataSetName = ds.DataSetName
|
|
Me.Prefix = ds.Prefix
|
|
Me.Namespace = ds.Namespace
|
|
Me.Locale = ds.Locale
|
|
Me.CaseSensitive = ds.CaseSensitive
|
|
Me.EnforceConstraints = ds.EnforceConstraints
|
|
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
|
|
Me.InitVars
|
|
Else
|
|
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
|
|
End If
|
|
Me.GetSerializationData(info, context)
|
|
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
|
|
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBMO_RE_KUNDEN() As TBMO_RE_KUNDENDataTable
|
|
Get
|
|
Return Me.tableTBMO_RE_KUNDEN
|
|
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), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBMO_RE_DOKART_KUNDE() As TBMO_RE_DOKART_KUNDEDataTable
|
|
Get
|
|
Return Me.tableTBMO_RE_DOKART_KUNDE
|
|
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), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property WHMO_RE_DOKART() As WHMO_RE_DOKARTDataTable
|
|
Get
|
|
Return Me.tableWHMO_RE_DOKART
|
|
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), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property WHMO_RE_KUNDEN() As WHMO_RE_KUNDENDataTable
|
|
Get
|
|
Return Me.tableWHMO_RE_KUNDEN
|
|
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), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property VWMO_RE_DOKUMENTARTZUORDNUNG() As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable
|
|
Get
|
|
Return Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG
|
|
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), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBMO_RE_DOKART() As TBMO_RE_DOKARTDataTable
|
|
Get
|
|
Return Me.tableTBMO_RE_DOKART
|
|
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), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBMO_RE_HISTORY() As TBMO_RE_HISTORYDataTable
|
|
Get
|
|
Return Me.tableTBMO_RE_HISTORY
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.BrowsableAttribute(true), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
|
|
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
|
|
Get
|
|
Return Me._schemaSerializationMode
|
|
End Get
|
|
Set
|
|
Me._schemaSerializationMode = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
|
|
Get
|
|
Return MyBase.Tables
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
|
|
Get
|
|
Return MyBase.Relations
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub InitializeDerivedDataSet()
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataSet
|
|
Dim cln As DS_More = CType(MyBase.Clone,DS_More)
|
|
cln.InitVars
|
|
cln.SchemaSerializationMode = Me.SchemaSerializationMode
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function ShouldSerializeTables() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function ShouldSerializeRelations() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
|
|
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
|
|
Me.Reset
|
|
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
|
|
ds.ReadXml(reader)
|
|
If (Not (ds.Tables("TBMO_RE_KUNDEN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_KUNDENDataTable(ds.Tables("TBMO_RE_KUNDEN")))
|
|
End If
|
|
If (Not (ds.Tables("TBMO_RE_DOKART_KUNDE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_DOKART_KUNDEDataTable(ds.Tables("TBMO_RE_DOKART_KUNDE")))
|
|
End If
|
|
If (Not (ds.Tables("WHMO_RE_DOKART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New WHMO_RE_DOKARTDataTable(ds.Tables("WHMO_RE_DOKART")))
|
|
End If
|
|
If (Not (ds.Tables("WHMO_RE_KUNDEN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New WHMO_RE_KUNDENDataTable(ds.Tables("WHMO_RE_KUNDEN")))
|
|
End If
|
|
If (Not (ds.Tables("VWMO_RE_DOKUMENTARTZUORDNUNG")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWMO_RE_DOKUMENTARTZUORDNUNGDataTable(ds.Tables("VWMO_RE_DOKUMENTARTZUORDNUNG")))
|
|
End If
|
|
If (Not (ds.Tables("TBMO_RE_DOKART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_DOKARTDataTable(ds.Tables("TBMO_RE_DOKART")))
|
|
End If
|
|
If (Not (ds.Tables("TBMO_RE_HISTORY")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBMO_RE_HISTORYDataTable(ds.Tables("TBMO_RE_HISTORY")))
|
|
End If
|
|
Me.DataSetName = ds.DataSetName
|
|
Me.Prefix = ds.Prefix
|
|
Me.Namespace = ds.Namespace
|
|
Me.Locale = ds.Locale
|
|
Me.CaseSensitive = ds.CaseSensitive
|
|
Me.EnforceConstraints = ds.EnforceConstraints
|
|
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
|
|
Me.InitVars
|
|
Else
|
|
Me.ReadXml(reader)
|
|
Me.InitVars
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
|
|
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
|
|
stream.Position = 0
|
|
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Overloads Sub InitVars()
|
|
Me.InitVars(true)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tableTBMO_RE_KUNDEN = CType(MyBase.Tables("TBMO_RE_KUNDEN"),TBMO_RE_KUNDENDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBMO_RE_KUNDEN) Is Nothing) Then
|
|
Me.tableTBMO_RE_KUNDEN.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBMO_RE_DOKART_KUNDE = CType(MyBase.Tables("TBMO_RE_DOKART_KUNDE"),TBMO_RE_DOKART_KUNDEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBMO_RE_DOKART_KUNDE) Is Nothing) Then
|
|
Me.tableTBMO_RE_DOKART_KUNDE.InitVars
|
|
End If
|
|
End If
|
|
Me.tableWHMO_RE_DOKART = CType(MyBase.Tables("WHMO_RE_DOKART"),WHMO_RE_DOKARTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableWHMO_RE_DOKART) Is Nothing) Then
|
|
Me.tableWHMO_RE_DOKART.InitVars
|
|
End If
|
|
End If
|
|
Me.tableWHMO_RE_KUNDEN = CType(MyBase.Tables("WHMO_RE_KUNDEN"),WHMO_RE_KUNDENDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableWHMO_RE_KUNDEN) Is Nothing) Then
|
|
Me.tableWHMO_RE_KUNDEN.InitVars
|
|
End If
|
|
End If
|
|
Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG = CType(MyBase.Tables("VWMO_RE_DOKUMENTARTZUORDNUNG"),VWMO_RE_DOKUMENTARTZUORDNUNGDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG) Is Nothing) Then
|
|
Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBMO_RE_DOKART = CType(MyBase.Tables("TBMO_RE_DOKART"),TBMO_RE_DOKARTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBMO_RE_DOKART) Is Nothing) Then
|
|
Me.tableTBMO_RE_DOKART.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBMO_RE_HISTORY = CType(MyBase.Tables("TBMO_RE_HISTORY"),TBMO_RE_HISTORYDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBMO_RE_HISTORY) Is Nothing) Then
|
|
Me.tableTBMO_RE_HISTORY.InitVars
|
|
End If
|
|
End If
|
|
Me.relationFK_TBMO_RE_DOKART_KUNDE_KDID = Me.Relations("FK_TBMO_RE_DOKART_KUNDE_KDID")
|
|
Me.relationFK_TBMO_RE_DOKART_KUNDE_KDID1 = Me.Relations("FK_TBMO_RE_DOKART_KUNDE_KDID1")
|
|
Me.relationFK_TBMO_RE_DOKART_KUNDE_DAID = Me.Relations("FK_TBMO_RE_DOKART_KUNDE_DAID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.DataSetName = "DS_More"
|
|
Me.Prefix = ""
|
|
Me.Namespace = "http://tempuri.org/DS_More.xsd"
|
|
Me.EnforceConstraints = true
|
|
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
Me.tableTBMO_RE_KUNDEN = New TBMO_RE_KUNDENDataTable()
|
|
MyBase.Tables.Add(Me.tableTBMO_RE_KUNDEN)
|
|
Me.tableTBMO_RE_DOKART_KUNDE = New TBMO_RE_DOKART_KUNDEDataTable()
|
|
MyBase.Tables.Add(Me.tableTBMO_RE_DOKART_KUNDE)
|
|
Me.tableWHMO_RE_DOKART = New WHMO_RE_DOKARTDataTable()
|
|
MyBase.Tables.Add(Me.tableWHMO_RE_DOKART)
|
|
Me.tableWHMO_RE_KUNDEN = New WHMO_RE_KUNDENDataTable()
|
|
MyBase.Tables.Add(Me.tableWHMO_RE_KUNDEN)
|
|
Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG = New VWMO_RE_DOKUMENTARTZUORDNUNGDataTable()
|
|
MyBase.Tables.Add(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG)
|
|
Me.tableTBMO_RE_DOKART = New TBMO_RE_DOKARTDataTable()
|
|
MyBase.Tables.Add(Me.tableTBMO_RE_DOKART)
|
|
Me.tableTBMO_RE_HISTORY = New TBMO_RE_HISTORYDataTable()
|
|
MyBase.Tables.Add(Me.tableTBMO_RE_HISTORY)
|
|
Me.relationFK_TBMO_RE_DOKART_KUNDE_KDID = New Global.System.Data.DataRelation("FK_TBMO_RE_DOKART_KUNDE_KDID", New Global.System.Data.DataColumn() {Me.tableTBMO_RE_KUNDEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMO_RE_DOKART_KUNDE.KUNDEN_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBMO_RE_DOKART_KUNDE_KDID)
|
|
Me.relationFK_TBMO_RE_DOKART_KUNDE_KDID1 = New Global.System.Data.DataRelation("FK_TBMO_RE_DOKART_KUNDE_KDID1", New Global.System.Data.DataColumn() {Me.tableWHMO_RE_KUNDEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMO_RE_DOKART_KUNDE.KUNDEN_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBMO_RE_DOKART_KUNDE_KDID1)
|
|
Me.relationFK_TBMO_RE_DOKART_KUNDE_DAID = New Global.System.Data.DataRelation("FK_TBMO_RE_DOKART_KUNDE_DAID", New Global.System.Data.DataColumn() {Me.tableTBMO_RE_DOKART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMO_RE_DOKART_KUNDE.DA_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBMO_RE_DOKART_KUNDE_DAID)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeTBMO_RE_KUNDEN() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeTBMO_RE_DOKART_KUNDE() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeWHMO_RE_DOKART() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeWHMO_RE_KUNDEN() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeVWMO_RE_DOKUMENTARTZUORDNUNG() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeTBMO_RE_DOKART() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function ShouldSerializeTBMO_RE_HISTORY() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
|
|
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
|
|
Me.InitVars
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim ds As DS_More = New DS_More()
|
|
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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any.Namespace = ds.Namespace
|
|
sequence.Items.Add(any)
|
|
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
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub TBMO_RE_KUNDENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_KUNDENRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub TBMO_RE_DOKART_KUNDERowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_DOKART_KUNDERowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub WHMO_RE_DOKARTRowChangeEventHandler(ByVal sender As Object, ByVal e As WHMO_RE_DOKARTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub WHMO_RE_KUNDENRowChangeEventHandler(ByVal sender As Object, ByVal e As WHMO_RE_KUNDENRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub TBMO_RE_DOKARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_DOKARTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Delegate Sub TBMO_RE_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMO_RE_HISTORYRowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBMO_RE_KUNDENDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBMO_RE_KUNDENRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDEN_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDE_KURZ As Global.System.Data.DataColumn
|
|
|
|
Private columnAKTIV As Global.System.Data.DataColumn
|
|
|
|
Private columnERSTELLTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERSTELLTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN 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()
|
|
MyBase.New
|
|
Me.TableName = "TBMO_RE_KUNDEN"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDEN_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDEN_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDE_KURZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDE_KURZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAKTIV
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERSTELLTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERSTELLTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEAENDERTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEAENDERTWANN
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_KUNDENRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBMO_RE_KUNDENRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_KUNDENRowChanging As TBMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_KUNDENRowChanged As TBMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_KUNDENRowDeleting As TBMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_KUNDENRowDeleted As TBMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddTBMO_RE_KUNDENRow(ByVal row As TBMO_RE_KUNDENRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddTBMO_RE_KUNDENRow(ByVal KUNDEN_NAME As String, ByVal KUNDE_KURZ As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBMO_RE_KUNDENRow
|
|
Dim rowTBMO_RE_KUNDENRow As TBMO_RE_KUNDENRow = CType(Me.NewRow,TBMO_RE_KUNDENRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, KUNDEN_NAME, KUNDE_KURZ, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN}
|
|
rowTBMO_RE_KUNDENRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBMO_RE_KUNDENRow)
|
|
Return rowTBMO_RE_KUNDENRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBMO_RE_KUNDENRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBMO_RE_KUNDENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBMO_RE_KUNDENDataTable = CType(MyBase.Clone,TBMO_RE_KUNDENDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBMO_RE_KUNDENDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnKUNDEN_NAME = MyBase.Columns("KUNDEN_NAME")
|
|
Me.columnKUNDE_KURZ = MyBase.Columns("KUNDE_KURZ")
|
|
Me.columnAKTIV = MyBase.Columns("AKTIV")
|
|
Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER")
|
|
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
|
|
Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnKUNDEN_NAME = New Global.System.Data.DataColumn("KUNDEN_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDEN_NAME)
|
|
Me.columnKUNDE_KURZ = New Global.System.Data.DataColumn("KUNDE_KURZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDE_KURZ)
|
|
Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAKTIV)
|
|
Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERSTELLTWER)
|
|
Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERSTELLTWANN)
|
|
Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWER)
|
|
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
|
|
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
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnKUNDEN_NAME.AllowDBNull = false
|
|
Me.columnKUNDEN_NAME.MaxLength = 100
|
|
Me.columnKUNDE_KURZ.MaxLength = 50
|
|
Me.columnAKTIV.AllowDBNull = false
|
|
Me.columnAKTIV.DefaultValue = CType(true,Boolean)
|
|
Me.columnERSTELLTWER.AllowDBNull = false
|
|
Me.columnERSTELLTWER.MaxLength = 50
|
|
Me.columnGEAENDERTWER.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewTBMO_RE_KUNDENRow() As TBMO_RE_KUNDENRow
|
|
Return CType(Me.NewRow,TBMO_RE_KUNDENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBMO_RE_KUNDENRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBMO_RE_KUNDENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBMO_RE_KUNDENRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_KUNDENRowChanged(Me, New TBMO_RE_KUNDENRowChangeEvent(CType(e.Row,TBMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBMO_RE_KUNDENRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_KUNDENRowChanging(Me, New TBMO_RE_KUNDENRowChangeEvent(CType(e.Row,TBMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBMO_RE_KUNDENRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_KUNDENRowDeleted(Me, New TBMO_RE_KUNDENRowChangeEvent(CType(e.Row,TBMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBMO_RE_KUNDENRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_KUNDENRowDeleting(Me, New TBMO_RE_KUNDENRowChangeEvent(CType(e.Row,TBMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveTBMO_RE_KUNDENRow(ByVal row As TBMO_RE_KUNDENRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "TBMO_RE_KUNDENDataTable"
|
|
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>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBMO_RE_DOKART_KUNDEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBMO_RE_DOKART_KUNDERow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDEN_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnDA_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnZIELORDNER As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN 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()
|
|
MyBase.New
|
|
Me.TableName = "TBMO_RE_DOKART_KUNDE"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDEN_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDEN_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property DA_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDA_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ZIELORDNERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnZIELORDNER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEAENDERTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEAENDERTWANN
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_DOKART_KUNDERow
|
|
Get
|
|
Return CType(Me.Rows(index),TBMO_RE_DOKART_KUNDERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKART_KUNDERowChanging As TBMO_RE_DOKART_KUNDERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKART_KUNDERowChanged As TBMO_RE_DOKART_KUNDERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKART_KUNDERowDeleting As TBMO_RE_DOKART_KUNDERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKART_KUNDERowDeleted As TBMO_RE_DOKART_KUNDERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddTBMO_RE_DOKART_KUNDERow(ByVal row As TBMO_RE_DOKART_KUNDERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddTBMO_RE_DOKART_KUNDERow(ByVal parentTBMO_RE_KUNDENRowByFK_TBMO_RE_DOKART_KUNDE_KDID As TBMO_RE_KUNDENRow, ByVal parentTBMO_RE_DOKARTRowByFK_TBMO_RE_DOKART_KUNDE_DAID As TBMO_RE_DOKARTRow, ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBMO_RE_DOKART_KUNDERow
|
|
Dim rowTBMO_RE_DOKART_KUNDERow As TBMO_RE_DOKART_KUNDERow = CType(Me.NewRow,TBMO_RE_DOKART_KUNDERow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ZIELORDNER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN}
|
|
If (Not (parentTBMO_RE_KUNDENRowByFK_TBMO_RE_DOKART_KUNDE_KDID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBMO_RE_KUNDENRowByFK_TBMO_RE_DOKART_KUNDE_KDID(0)
|
|
End If
|
|
If (Not (parentTBMO_RE_DOKARTRowByFK_TBMO_RE_DOKART_KUNDE_DAID) Is Nothing) Then
|
|
columnValuesArray(2) = parentTBMO_RE_DOKARTRowByFK_TBMO_RE_DOKART_KUNDE_DAID(0)
|
|
End If
|
|
rowTBMO_RE_DOKART_KUNDERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBMO_RE_DOKART_KUNDERow)
|
|
Return rowTBMO_RE_DOKART_KUNDERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function FindByKUNDEN_IDDA_ID(ByVal KUNDEN_ID As Integer, ByVal DA_ID As Integer) As TBMO_RE_DOKART_KUNDERow
|
|
Return CType(Me.Rows.Find(New Object() {KUNDEN_ID, DA_ID}),TBMO_RE_DOKART_KUNDERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBMO_RE_DOKART_KUNDEDataTable = CType(MyBase.Clone,TBMO_RE_DOKART_KUNDEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBMO_RE_DOKART_KUNDEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnKUNDEN_ID = MyBase.Columns("KUNDEN_ID")
|
|
Me.columnDA_ID = MyBase.Columns("DA_ID")
|
|
Me.columnZIELORDNER = MyBase.Columns("ZIELORDNER")
|
|
Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER")
|
|
Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN")
|
|
Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnKUNDEN_ID = New Global.System.Data.DataColumn("KUNDEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDEN_ID)
|
|
Me.columnDA_ID = New Global.System.Data.DataColumn("DA_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDA_ID)
|
|
Me.columnZIELORDNER = New Global.System.Data.DataColumn("ZIELORDNER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnZIELORDNER)
|
|
Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWER)
|
|
Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWANN)
|
|
Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWER)
|
|
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnKUNDEN_ID, Me.columnDA_ID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnKUNDEN_ID.AllowDBNull = false
|
|
Me.columnDA_ID.AllowDBNull = false
|
|
Me.columnZIELORDNER.MaxLength = 500
|
|
Me.columnERFASSTWER.AllowDBNull = false
|
|
Me.columnERFASSTWER.MaxLength = 50
|
|
Me.columnGEAENDERTWER.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewTBMO_RE_DOKART_KUNDERow() As TBMO_RE_DOKART_KUNDERow
|
|
Return CType(Me.NewRow,TBMO_RE_DOKART_KUNDERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBMO_RE_DOKART_KUNDERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBMO_RE_DOKART_KUNDERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBMO_RE_DOKART_KUNDERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKART_KUNDERowChanged(Me, New TBMO_RE_DOKART_KUNDERowChangeEvent(CType(e.Row,TBMO_RE_DOKART_KUNDERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBMO_RE_DOKART_KUNDERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKART_KUNDERowChanging(Me, New TBMO_RE_DOKART_KUNDERowChangeEvent(CType(e.Row,TBMO_RE_DOKART_KUNDERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBMO_RE_DOKART_KUNDERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKART_KUNDERowDeleted(Me, New TBMO_RE_DOKART_KUNDERowChangeEvent(CType(e.Row,TBMO_RE_DOKART_KUNDERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBMO_RE_DOKART_KUNDERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKART_KUNDERowDeleting(Me, New TBMO_RE_DOKART_KUNDERowChangeEvent(CType(e.Row,TBMO_RE_DOKART_KUNDERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveTBMO_RE_DOKART_KUNDERow(ByVal row As TBMO_RE_DOKART_KUNDERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "TBMO_RE_DOKART_KUNDEDataTable"
|
|
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>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class WHMO_RE_DOKARTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of WHMO_RE_DOKARTRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnBEZEICHNUNG 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()
|
|
MyBase.New
|
|
Me.TableName = "WHMO_RE_DOKART"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBEZEICHNUNG
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As WHMO_RE_DOKARTRow
|
|
Get
|
|
Return CType(Me.Rows(index),WHMO_RE_DOKARTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_DOKARTRowChanging As WHMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_DOKARTRowChanged As WHMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_DOKARTRowDeleting As WHMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_DOKARTRowDeleted As WHMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddWHMO_RE_DOKARTRow(ByVal row As WHMO_RE_DOKARTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddWHMO_RE_DOKARTRow(ByVal BEZEICHNUNG As String) As WHMO_RE_DOKARTRow
|
|
Dim rowWHMO_RE_DOKARTRow As WHMO_RE_DOKARTRow = CType(Me.NewRow,WHMO_RE_DOKARTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG}
|
|
rowWHMO_RE_DOKARTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowWHMO_RE_DOKARTRow)
|
|
Return rowWHMO_RE_DOKARTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As WHMO_RE_DOKARTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),WHMO_RE_DOKARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As WHMO_RE_DOKARTDataTable = CType(MyBase.Clone,WHMO_RE_DOKARTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New WHMO_RE_DOKARTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBEZEICHNUNG)
|
|
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.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnBEZEICHNUNG.AllowDBNull = false
|
|
Me.columnBEZEICHNUNG.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewWHMO_RE_DOKARTRow() As WHMO_RE_DOKARTRow
|
|
Return CType(Me.NewRow,WHMO_RE_DOKARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New WHMO_RE_DOKARTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(WHMO_RE_DOKARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.WHMO_RE_DOKARTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_DOKARTRowChanged(Me, New WHMO_RE_DOKARTRowChangeEvent(CType(e.Row,WHMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.WHMO_RE_DOKARTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_DOKARTRowChanging(Me, New WHMO_RE_DOKARTRowChangeEvent(CType(e.Row,WHMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.WHMO_RE_DOKARTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_DOKARTRowDeleted(Me, New WHMO_RE_DOKARTRowChangeEvent(CType(e.Row,WHMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.WHMO_RE_DOKARTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_DOKARTRowDeleting(Me, New WHMO_RE_DOKARTRowChangeEvent(CType(e.Row,WHMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveWHMO_RE_DOKARTRow(ByVal row As WHMO_RE_DOKARTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "WHMO_RE_DOKARTDataTable"
|
|
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>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class WHMO_RE_KUNDENDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of WHMO_RE_KUNDENRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDEN_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDE_KURZ 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()
|
|
MyBase.New
|
|
Me.TableName = "WHMO_RE_KUNDEN"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDEN_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDEN_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDE_KURZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDE_KURZ
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As WHMO_RE_KUNDENRow
|
|
Get
|
|
Return CType(Me.Rows(index),WHMO_RE_KUNDENRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_KUNDENRowChanging As WHMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_KUNDENRowChanged As WHMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_KUNDENRowDeleting As WHMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event WHMO_RE_KUNDENRowDeleted As WHMO_RE_KUNDENRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddWHMO_RE_KUNDENRow(ByVal row As WHMO_RE_KUNDENRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddWHMO_RE_KUNDENRow(ByVal KUNDEN_NAME As String, ByVal KUNDE_KURZ As String) As WHMO_RE_KUNDENRow
|
|
Dim rowWHMO_RE_KUNDENRow As WHMO_RE_KUNDENRow = CType(Me.NewRow,WHMO_RE_KUNDENRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, KUNDEN_NAME, KUNDE_KURZ}
|
|
rowWHMO_RE_KUNDENRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowWHMO_RE_KUNDENRow)
|
|
Return rowWHMO_RE_KUNDENRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As WHMO_RE_KUNDENRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),WHMO_RE_KUNDENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As WHMO_RE_KUNDENDataTable = CType(MyBase.Clone,WHMO_RE_KUNDENDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New WHMO_RE_KUNDENDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnKUNDEN_NAME = MyBase.Columns("KUNDEN_NAME")
|
|
Me.columnKUNDE_KURZ = MyBase.Columns("KUNDE_KURZ")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnKUNDEN_NAME = New Global.System.Data.DataColumn("KUNDEN_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDEN_NAME)
|
|
Me.columnKUNDE_KURZ = New Global.System.Data.DataColumn("KUNDE_KURZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDE_KURZ)
|
|
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.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnKUNDEN_NAME.AllowDBNull = false
|
|
Me.columnKUNDEN_NAME.MaxLength = 100
|
|
Me.columnKUNDE_KURZ.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewWHMO_RE_KUNDENRow() As WHMO_RE_KUNDENRow
|
|
Return CType(Me.NewRow,WHMO_RE_KUNDENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New WHMO_RE_KUNDENRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(WHMO_RE_KUNDENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.WHMO_RE_KUNDENRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_KUNDENRowChanged(Me, New WHMO_RE_KUNDENRowChangeEvent(CType(e.Row,WHMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.WHMO_RE_KUNDENRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_KUNDENRowChanging(Me, New WHMO_RE_KUNDENRowChangeEvent(CType(e.Row,WHMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.WHMO_RE_KUNDENRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_KUNDENRowDeleted(Me, New WHMO_RE_KUNDENRowChangeEvent(CType(e.Row,WHMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.WHMO_RE_KUNDENRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent WHMO_RE_KUNDENRowDeleting(Me, New WHMO_RE_KUNDENRowChangeEvent(CType(e.Row,WHMO_RE_KUNDENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveWHMO_RE_KUNDENRow(ByVal row As WHMO_RE_KUNDENRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "WHMO_RE_KUNDENDataTable"
|
|
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>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class VWMO_RE_DOKUMENTARTZUORDNUNGDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnDOKUMENTART_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnDOKUMENTART As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDEN_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDEN_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnDOKUMENTARTORDNER As Global.System.Data.DataColumn
|
|
|
|
Private columnPRAEFIX As Global.System.Data.DataColumn
|
|
|
|
Private columnINDEXNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnUO_IDX1 As Global.System.Data.DataColumn
|
|
|
|
Private columnUO_IDX2 As Global.System.Data.DataColumn
|
|
|
|
Private columnUO_IDX3 As Global.System.Data.DataColumn
|
|
|
|
Private columnUO_IDX4 As Global.System.Data.DataColumn
|
|
|
|
Private columnUO_IDX5 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()
|
|
MyBase.New
|
|
Me.TableName = "VWMO_RE_DOKUMENTARTZUORDNUNG"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property DOKUMENTART_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDOKUMENTART_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDOKUMENTART
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDEN_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDEN_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDEN_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDEN_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property DOKUMENTARTORDNERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDOKUMENTARTORDNER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property PRAEFIXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPRAEFIX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnINDEXNAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property UO_IDX1Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUO_IDX1
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property UO_IDX2Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUO_IDX2
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property UO_IDX3Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUO_IDX3
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property UO_IDX4Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUO_IDX4
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property UO_IDX5Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUO_IDX5
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As VWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
Get
|
|
Return CType(Me.Rows(index),VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowChanging As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowChanged As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleting As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleted As VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddVWMO_RE_DOKUMENTARTZUORDNUNGRow(ByVal row As VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddVWMO_RE_DOKUMENTARTZUORDNUNGRow(ByVal GUID As Integer, ByVal DOKUMENTART_ID As Integer, ByVal DOKUMENTART As String, ByVal KUNDEN_ID As Integer, ByVal KUNDEN_NAME As String, ByVal DOKUMENTARTORDNER As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal UO_IDX1 As String, ByVal UO_IDX2 As String, ByVal UO_IDX3 As String, ByVal UO_IDX4 As String, ByVal UO_IDX5 As String) As VWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
Dim rowVWMO_RE_DOKUMENTARTZUORDNUNGRow As VWMO_RE_DOKUMENTARTZUORDNUNGRow = CType(Me.NewRow,VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
Dim columnValuesArray() As Object = New Object() {GUID, DOKUMENTART_ID, DOKUMENTART, KUNDEN_ID, KUNDEN_NAME, DOKUMENTARTORDNER, PRAEFIX, INDEXNAME, UO_IDX1, UO_IDX2, UO_IDX3, UO_IDX4, UO_IDX5}
|
|
rowVWMO_RE_DOKUMENTARTZUORDNUNGRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowVWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
Return rowVWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable = CType(MyBase.Clone,VWMO_RE_DOKUMENTARTZUORDNUNGDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New VWMO_RE_DOKUMENTARTZUORDNUNGDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnDOKUMENTART_ID = MyBase.Columns("DOKUMENTART_ID")
|
|
Me.columnDOKUMENTART = MyBase.Columns("DOKUMENTART")
|
|
Me.columnKUNDEN_ID = MyBase.Columns("KUNDEN_ID")
|
|
Me.columnKUNDEN_NAME = MyBase.Columns("KUNDEN_NAME")
|
|
Me.columnDOKUMENTARTORDNER = MyBase.Columns("DOKUMENTARTORDNER")
|
|
Me.columnPRAEFIX = MyBase.Columns("PRAEFIX")
|
|
Me.columnINDEXNAME = MyBase.Columns("INDEXNAME")
|
|
Me.columnUO_IDX1 = MyBase.Columns("UO_IDX1")
|
|
Me.columnUO_IDX2 = MyBase.Columns("UO_IDX2")
|
|
Me.columnUO_IDX3 = MyBase.Columns("UO_IDX3")
|
|
Me.columnUO_IDX4 = MyBase.Columns("UO_IDX4")
|
|
Me.columnUO_IDX5 = MyBase.Columns("UO_IDX5")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnDOKUMENTART_ID = New Global.System.Data.DataColumn("DOKUMENTART_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDOKUMENTART_ID)
|
|
Me.columnDOKUMENTART = New Global.System.Data.DataColumn("DOKUMENTART", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDOKUMENTART)
|
|
Me.columnKUNDEN_ID = New Global.System.Data.DataColumn("KUNDEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDEN_ID)
|
|
Me.columnKUNDEN_NAME = New Global.System.Data.DataColumn("KUNDEN_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDEN_NAME)
|
|
Me.columnDOKUMENTARTORDNER = New Global.System.Data.DataColumn("DOKUMENTARTORDNER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDOKUMENTARTORDNER)
|
|
Me.columnPRAEFIX = New Global.System.Data.DataColumn("PRAEFIX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPRAEFIX)
|
|
Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnINDEXNAME)
|
|
Me.columnUO_IDX1 = New Global.System.Data.DataColumn("UO_IDX1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUO_IDX1)
|
|
Me.columnUO_IDX2 = New Global.System.Data.DataColumn("UO_IDX2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUO_IDX2)
|
|
Me.columnUO_IDX3 = New Global.System.Data.DataColumn("UO_IDX3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUO_IDX3)
|
|
Me.columnUO_IDX4 = New Global.System.Data.DataColumn("UO_IDX4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUO_IDX4)
|
|
Me.columnUO_IDX5 = New Global.System.Data.DataColumn("UO_IDX5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUO_IDX5)
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnDOKUMENTART_ID.AllowDBNull = false
|
|
Me.columnDOKUMENTART.AllowDBNull = false
|
|
Me.columnDOKUMENTART.MaxLength = 50
|
|
Me.columnKUNDEN_ID.AllowDBNull = false
|
|
Me.columnKUNDEN_NAME.AllowDBNull = false
|
|
Me.columnKUNDEN_NAME.MaxLength = 100
|
|
Me.columnDOKUMENTARTORDNER.MaxLength = 500
|
|
Me.columnPRAEFIX.AllowDBNull = false
|
|
Me.columnPRAEFIX.MaxLength = 50
|
|
Me.columnINDEXNAME.MaxLength = 50
|
|
Me.columnUO_IDX1.ReadOnly = true
|
|
Me.columnUO_IDX1.MaxLength = 50
|
|
Me.columnUO_IDX2.ReadOnly = true
|
|
Me.columnUO_IDX2.MaxLength = 50
|
|
Me.columnUO_IDX3.ReadOnly = true
|
|
Me.columnUO_IDX3.MaxLength = 50
|
|
Me.columnUO_IDX4.ReadOnly = true
|
|
Me.columnUO_IDX4.MaxLength = 50
|
|
Me.columnUO_IDX5.ReadOnly = true
|
|
Me.columnUO_IDX5.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewVWMO_RE_DOKUMENTARTZUORDNUNGRow() As VWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
Return CType(Me.NewRow,VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New VWMO_RE_DOKUMENTARTZUORDNUNGRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent VWMO_RE_DOKUMENTARTZUORDNUNGRowChanged(Me, New VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent(CType(e.Row,VWMO_RE_DOKUMENTARTZUORDNUNGRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent VWMO_RE_DOKUMENTARTZUORDNUNGRowChanging(Me, New VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent(CType(e.Row,VWMO_RE_DOKUMENTARTZUORDNUNGRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleted(Me, New VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent(CType(e.Row,VWMO_RE_DOKUMENTARTZUORDNUNGRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.VWMO_RE_DOKUMENTARTZUORDNUNGRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleting(Me, New VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent(CType(e.Row,VWMO_RE_DOKUMENTARTZUORDNUNGRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveVWMO_RE_DOKUMENTARTZUORDNUNGRow(ByVal row As VWMO_RE_DOKUMENTARTZUORDNUNGRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "VWMO_RE_DOKUMENTARTZUORDNUNGDataTable"
|
|
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>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBMO_RE_DOKARTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBMO_RE_DOKARTRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnBEZEICHNUNG As Global.System.Data.DataColumn
|
|
|
|
Private columnPRAEFIX As Global.System.Data.DataColumn
|
|
|
|
Private columnINDEXNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnAKTIV As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN 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()
|
|
MyBase.New
|
|
Me.TableName = "TBMO_RE_DOKART"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBEZEICHNUNG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property PRAEFIXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPRAEFIX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnINDEXNAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAKTIV
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEAENDERTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEAENDERTWANN
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_DOKARTRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBMO_RE_DOKARTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKARTRowChanging As TBMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKARTRowChanged As TBMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKARTRowDeleting As TBMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_DOKARTRowDeleted As TBMO_RE_DOKARTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddTBMO_RE_DOKARTRow(ByVal row As TBMO_RE_DOKARTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddTBMO_RE_DOKARTRow(ByVal BEZEICHNUNG As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal AKTIV As Boolean, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBMO_RE_DOKARTRow
|
|
Dim rowTBMO_RE_DOKARTRow As TBMO_RE_DOKARTRow = CType(Me.NewRow,TBMO_RE_DOKARTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, PRAEFIX, INDEXNAME, AKTIV, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN}
|
|
rowTBMO_RE_DOKARTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBMO_RE_DOKARTRow)
|
|
Return rowTBMO_RE_DOKARTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBMO_RE_DOKARTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBMO_RE_DOKARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBMO_RE_DOKARTDataTable = CType(MyBase.Clone,TBMO_RE_DOKARTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBMO_RE_DOKARTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
|
|
Me.columnPRAEFIX = MyBase.Columns("PRAEFIX")
|
|
Me.columnINDEXNAME = MyBase.Columns("INDEXNAME")
|
|
Me.columnAKTIV = MyBase.Columns("AKTIV")
|
|
Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER")
|
|
Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN")
|
|
Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBEZEICHNUNG)
|
|
Me.columnPRAEFIX = New Global.System.Data.DataColumn("PRAEFIX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPRAEFIX)
|
|
Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnINDEXNAME)
|
|
Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAKTIV)
|
|
Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWER)
|
|
Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWANN)
|
|
Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWER)
|
|
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
|
|
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
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnBEZEICHNUNG.AllowDBNull = false
|
|
Me.columnBEZEICHNUNG.MaxLength = 50
|
|
Me.columnPRAEFIX.AllowDBNull = false
|
|
Me.columnPRAEFIX.MaxLength = 50
|
|
Me.columnINDEXNAME.MaxLength = 50
|
|
Me.columnAKTIV.AllowDBNull = false
|
|
Me.columnAKTIV.DefaultValue = CType(true,Boolean)
|
|
Me.columnERFASSTWER.AllowDBNull = false
|
|
Me.columnERFASSTWER.MaxLength = 50
|
|
Me.columnGEAENDERTWER.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewTBMO_RE_DOKARTRow() As TBMO_RE_DOKARTRow
|
|
Return CType(Me.NewRow,TBMO_RE_DOKARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBMO_RE_DOKARTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBMO_RE_DOKARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBMO_RE_DOKARTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKARTRowChanged(Me, New TBMO_RE_DOKARTRowChangeEvent(CType(e.Row,TBMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBMO_RE_DOKARTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKARTRowChanging(Me, New TBMO_RE_DOKARTRowChangeEvent(CType(e.Row,TBMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBMO_RE_DOKARTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKARTRowDeleted(Me, New TBMO_RE_DOKARTRowChangeEvent(CType(e.Row,TBMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBMO_RE_DOKARTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_DOKARTRowDeleting(Me, New TBMO_RE_DOKARTRowChangeEvent(CType(e.Row,TBMO_RE_DOKARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveTBMO_RE_DOKARTRow(ByVal row As TBMO_RE_DOKARTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "TBMO_RE_DOKARTDataTable"
|
|
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>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBMO_RE_HISTORYDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBMO_RE_HISTORYRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnFILE_ORIGINAL As Global.System.Data.DataColumn
|
|
|
|
Private columnFILE_NEW As Global.System.Data.DataColumn
|
|
|
|
Private columnKUNDE_KURZ As Global.System.Data.DataColumn
|
|
|
|
Private columnINDEX1 As Global.System.Data.DataColumn
|
|
|
|
Private columnINDEX2 As Global.System.Data.DataColumn
|
|
|
|
Private columnERSTELLTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERSTELLTWANN 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()
|
|
MyBase.New
|
|
Me.TableName = "TBMO_RE_HISTORY"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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", "17.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", "17.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property FILE_ORIGINALColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFILE_ORIGINAL
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property FILE_NEWColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFILE_NEW
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property KUNDE_KURZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKUNDE_KURZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property INDEX1Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnINDEX1
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property INDEX2Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnINDEX2
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERSTELLTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERSTELLTWANN
|
|
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)> _
|
|
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", "17.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBMO_RE_HISTORYRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBMO_RE_HISTORYRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_HISTORYRowChanging As TBMO_RE_HISTORYRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_HISTORYRowChanged As TBMO_RE_HISTORYRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_HISTORYRowDeleting As TBMO_RE_HISTORYRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Event TBMO_RE_HISTORYRowDeleted As TBMO_RE_HISTORYRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Sub AddTBMO_RE_HISTORYRow(ByVal row As TBMO_RE_HISTORYRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overloads Function AddTBMO_RE_HISTORYRow(ByVal FILE_ORIGINAL As String, ByVal FILE_NEW As String, ByVal KUNDE_KURZ As String, ByVal INDEX1 As String, ByVal INDEX2 As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date) As TBMO_RE_HISTORYRow
|
|
Dim rowTBMO_RE_HISTORYRow As TBMO_RE_HISTORYRow = CType(Me.NewRow,TBMO_RE_HISTORYRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, ERSTELLTWANN}
|
|
rowTBMO_RE_HISTORYRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBMO_RE_HISTORYRow)
|
|
Return rowTBMO_RE_HISTORYRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBMO_RE_HISTORYRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBMO_RE_HISTORYRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBMO_RE_HISTORYDataTable = CType(MyBase.Clone,TBMO_RE_HISTORYDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBMO_RE_HISTORYDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnFILE_ORIGINAL = MyBase.Columns("FILE_ORIGINAL")
|
|
Me.columnFILE_NEW = MyBase.Columns("FILE_NEW")
|
|
Me.columnKUNDE_KURZ = MyBase.Columns("KUNDE_KURZ")
|
|
Me.columnINDEX1 = MyBase.Columns("INDEX1")
|
|
Me.columnINDEX2 = MyBase.Columns("INDEX2")
|
|
Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER")
|
|
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
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.columnFILE_ORIGINAL = New Global.System.Data.DataColumn("FILE_ORIGINAL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFILE_ORIGINAL)
|
|
Me.columnFILE_NEW = New Global.System.Data.DataColumn("FILE_NEW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFILE_NEW)
|
|
Me.columnKUNDE_KURZ = New Global.System.Data.DataColumn("KUNDE_KURZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKUNDE_KURZ)
|
|
Me.columnINDEX1 = New Global.System.Data.DataColumn("INDEX1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnINDEX1)
|
|
Me.columnINDEX2 = New Global.System.Data.DataColumn("INDEX2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnINDEX2)
|
|
Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERSTELLTWER)
|
|
Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERSTELLTWANN)
|
|
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.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnFILE_ORIGINAL.AllowDBNull = false
|
|
Me.columnFILE_ORIGINAL.MaxLength = 500
|
|
Me.columnFILE_NEW.AllowDBNull = false
|
|
Me.columnFILE_NEW.MaxLength = 500
|
|
Me.columnKUNDE_KURZ.MaxLength = 50
|
|
Me.columnINDEX1.MaxLength = 50
|
|
Me.columnINDEX2.MaxLength = 50
|
|
Me.columnERSTELLTWER.AllowDBNull = false
|
|
Me.columnERSTELLTWER.MaxLength = 50
|
|
Me.columnERSTELLTWANN.AllowDBNull = false
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function NewTBMO_RE_HISTORYRow() As TBMO_RE_HISTORYRow
|
|
Return CType(Me.NewRow,TBMO_RE_HISTORYRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBMO_RE_HISTORYRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBMO_RE_HISTORYRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBMO_RE_HISTORYRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_HISTORYRowChanged(Me, New TBMO_RE_HISTORYRowChangeEvent(CType(e.Row,TBMO_RE_HISTORYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBMO_RE_HISTORYRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_HISTORYRowChanging(Me, New TBMO_RE_HISTORYRowChangeEvent(CType(e.Row,TBMO_RE_HISTORYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBMO_RE_HISTORYRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_HISTORYRowDeleted(Me, New TBMO_RE_HISTORYRowChangeEvent(CType(e.Row,TBMO_RE_HISTORYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBMO_RE_HISTORYRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBMO_RE_HISTORYRowDeleting(Me, New TBMO_RE_HISTORYRowChangeEvent(CType(e.Row,TBMO_RE_HISTORYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub RemoveTBMO_RE_HISTORYRow(ByVal row As TBMO_RE_HISTORYRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More = New DS_More()
|
|
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 = "TBMO_RE_HISTORYDataTable"
|
|
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 strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBMO_RE_KUNDENRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBMO_RE_KUNDEN As TBMO_RE_KUNDENDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBMO_RE_KUNDEN = CType(Me.Table,TBMO_RE_KUNDENDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDEN_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.KUNDEN_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.KUNDEN_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDE_KURZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.KUNDE_KURZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KUNDE_KURZ in Tabelle TBMO_RE_KUNDEN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.KUNDE_KURZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property AKTIV() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.AKTIVColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.AKTIVColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERSTELLTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERSTELLTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBMO_RE_KUNDEN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GEAENDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBMO_RE_KUNDEN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBMO_RE_KUNDEN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsKUNDE_KURZNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.KUNDE_KURZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetKUNDE_KURZNull()
|
|
Me(Me.tableTBMO_RE_KUNDEN.KUNDE_KURZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsERSTELLTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.ERSTELLTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetERSTELLTWANNNull()
|
|
Me(Me.tableTBMO_RE_KUNDEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsGEAENDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.GEAENDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetGEAENDERTWERNull()
|
|
Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_KUNDEN.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBMO_RE_KUNDEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function GetTBMO_RE_DOKART_KUNDERows() As TBMO_RE_DOKART_KUNDERow()
|
|
If (Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_KDID") Is Nothing) Then
|
|
Return New TBMO_RE_DOKART_KUNDERow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_KDID")),TBMO_RE_DOKART_KUNDERow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBMO_RE_DOKART_KUNDERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBMO_RE_DOKART_KUNDE As TBMO_RE_DOKART_KUNDEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBMO_RE_DOKART_KUNDE = CType(Me.Table,TBMO_RE_DOKART_KUNDEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDEN_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.KUNDEN_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.KUNDEN_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property DA_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.DA_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.DA_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ZIELORDNER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.ZIELORDNERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ZIELORDNER in Tabelle TBMO_RE_DOKART_KUNDE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.ZIELORDNERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERFASSTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERFASSTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBMO_RE_DOKART_KUNDE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GEAENDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBMO_RE_DOKART_KUNDE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBMO_RE_DOKART_KUNDE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property TBMO_RE_KUNDENRow() As TBMO_RE_KUNDENRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_KDID")),TBMO_RE_KUNDENRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_KDID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property WHMO_RE_KUNDENRow() As WHMO_RE_KUNDENRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_KDID1")),WHMO_RE_KUNDENRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_KDID1"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property TBMO_RE_DOKARTRow() As TBMO_RE_DOKARTRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_DAID")),TBMO_RE_DOKARTRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBMO_RE_DOKART_KUNDE_DAID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsZIELORDNERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.ZIELORDNERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetZIELORDNERNull()
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.ZIELORDNERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsERFASSTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetERFASSTWANNNull()
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.ERFASSTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsGEAENDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetGEAENDERTWERNull()
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBMO_RE_DOKART_KUNDE.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class WHMO_RE_DOKARTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableWHMO_RE_DOKART As WHMO_RE_DOKARTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableWHMO_RE_DOKART = CType(Me.Table,WHMO_RE_DOKARTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableWHMO_RE_DOKART.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableWHMO_RE_DOKART.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property BEZEICHNUNG() As String
|
|
Get
|
|
Return CType(Me(Me.tableWHMO_RE_DOKART.BEZEICHNUNGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableWHMO_RE_DOKART.BEZEICHNUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class WHMO_RE_KUNDENRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableWHMO_RE_KUNDEN As WHMO_RE_KUNDENDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableWHMO_RE_KUNDEN = CType(Me.Table,WHMO_RE_KUNDENDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableWHMO_RE_KUNDEN.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableWHMO_RE_KUNDEN.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDEN_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableWHMO_RE_KUNDEN.KUNDEN_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableWHMO_RE_KUNDEN.KUNDEN_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDE_KURZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableWHMO_RE_KUNDEN.KUNDE_KURZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KUNDE_KURZ in Tabelle WHMO_RE_KUNDEN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableWHMO_RE_KUNDEN.KUNDE_KURZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsKUNDE_KURZNull() As Boolean
|
|
Return Me.IsNull(Me.tableWHMO_RE_KUNDEN.KUNDE_KURZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetKUNDE_KURZNull()
|
|
Me(Me.tableWHMO_RE_KUNDEN.KUNDE_KURZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function GetTBMO_RE_DOKART_KUNDERows() As TBMO_RE_DOKART_KUNDERow()
|
|
If (Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_KDID1") Is Nothing) Then
|
|
Return New TBMO_RE_DOKART_KUNDERow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_KDID1")),TBMO_RE_DOKART_KUNDERow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class VWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableVWMO_RE_DOKUMENTARTZUORDNUNG As VWMO_RE_DOKUMENTARTZUORDNUNGDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG = CType(Me.Table,VWMO_RE_DOKUMENTARTZUORDNUNGDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property DOKUMENTART_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTART_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTART_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property DOKUMENTART() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDEN_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.KUNDEN_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.KUNDEN_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDEN_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.KUNDEN_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.KUNDEN_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property DOKUMENTARTORDNER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTORDNERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOKUMENTARTORDNER in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist"& _
|
|
" DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTORDNERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property PRAEFIX() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.PRAEFIXColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.PRAEFIXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property INDEXNAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.INDEXNAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEXNAME in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist DBNull."& _
|
|
"", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.INDEXNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property UO_IDX1() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX1Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UO_IDX1 in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX1Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property UO_IDX2() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX2Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UO_IDX2 in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX2Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property UO_IDX3() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX3Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UO_IDX3 in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX3Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property UO_IDX4() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX4Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UO_IDX4 in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX4Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property UO_IDX5() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX5Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UO_IDX5 in Tabelle VWMO_RE_DOKUMENTARTZUORDNUNG ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX5Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsDOKUMENTARTORDNERNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTORDNERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetDOKUMENTARTORDNERNull()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.DOKUMENTARTORDNERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsINDEXNAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.INDEXNAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetINDEXNAMENull()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.INDEXNAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsUO_IDX1Null() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX1Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetUO_IDX1Null()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX1Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsUO_IDX2Null() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX2Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetUO_IDX2Null()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX2Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsUO_IDX3Null() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX3Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetUO_IDX3Null()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX3Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsUO_IDX4Null() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX4Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetUO_IDX4Null()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX4Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsUO_IDX5Null() As Boolean
|
|
Return Me.IsNull(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX5Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetUO_IDX5Null()
|
|
Me(Me.tableVWMO_RE_DOKUMENTARTZUORDNUNG.UO_IDX5Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBMO_RE_DOKARTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBMO_RE_DOKART As TBMO_RE_DOKARTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBMO_RE_DOKART = CType(Me.Table,TBMO_RE_DOKARTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property BEZEICHNUNG() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.BEZEICHNUNGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.BEZEICHNUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property PRAEFIX() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.PRAEFIXColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.PRAEFIXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property INDEXNAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.INDEXNAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEXNAME in Tabelle TBMO_RE_DOKART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.INDEXNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property AKTIV() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.AKTIVColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.AKTIVColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERFASSTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.ERFASSTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.ERFASSTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERFASSTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.ERFASSTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBMO_RE_DOKART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.ERFASSTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GEAENDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.GEAENDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBMO_RE_DOKART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.GEAENDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_DOKART.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBMO_RE_DOKART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_DOKART.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsINDEXNAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART.INDEXNAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetINDEXNAMENull()
|
|
Me(Me.tableTBMO_RE_DOKART.INDEXNAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsERFASSTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART.ERFASSTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetERFASSTWANNNull()
|
|
Me(Me.tableTBMO_RE_DOKART.ERFASSTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsGEAENDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART.GEAENDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetGEAENDERTWERNull()
|
|
Me(Me.tableTBMO_RE_DOKART.GEAENDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_DOKART.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBMO_RE_DOKART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function GetTBMO_RE_DOKART_KUNDERows() As TBMO_RE_DOKART_KUNDERow()
|
|
If (Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_DAID") Is Nothing) Then
|
|
Return New TBMO_RE_DOKART_KUNDERow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBMO_RE_DOKART_KUNDE_DAID")),TBMO_RE_DOKART_KUNDERow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBMO_RE_HISTORYRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBMO_RE_HISTORY As TBMO_RE_HISTORYDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBMO_RE_HISTORY = CType(Me.Table,TBMO_RE_HISTORYDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property FILE_ORIGINAL() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.FILE_ORIGINALColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.FILE_ORIGINALColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property FILE_NEW() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.FILE_NEWColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.FILE_NEWColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property KUNDE_KURZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.KUNDE_KURZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KUNDE_KURZ in Tabelle TBMO_RE_HISTORY ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.KUNDE_KURZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property INDEX1() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.INDEX1Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX1 in Tabelle TBMO_RE_HISTORY ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.INDEX1Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property INDEX2() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.INDEX2Column),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX2 in Tabelle TBMO_RE_HISTORY ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.INDEX2Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERSTELLTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.ERSTELLTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.ERSTELLTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property ERSTELLTWANN() As Date
|
|
Get
|
|
Return CType(Me(Me.tableTBMO_RE_HISTORY.ERSTELLTWANNColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBMO_RE_HISTORY.ERSTELLTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsKUNDE_KURZNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_HISTORY.KUNDE_KURZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetKUNDE_KURZNull()
|
|
Me(Me.tableTBMO_RE_HISTORY.KUNDE_KURZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsINDEX1Null() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_HISTORY.INDEX1Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetINDEX1Null()
|
|
Me(Me.tableTBMO_RE_HISTORY.INDEX1Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function IsINDEX2Null() As Boolean
|
|
Return Me.IsNull(Me.tableTBMO_RE_HISTORY.INDEX2Column)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub SetINDEX2Null()
|
|
Me(Me.tableTBMO_RE_HISTORY.INDEX2Column) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class TBMO_RE_KUNDENRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBMO_RE_KUNDENRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As TBMO_RE_KUNDENRow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBMO_RE_KUNDENRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class TBMO_RE_DOKART_KUNDERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBMO_RE_DOKART_KUNDERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As TBMO_RE_DOKART_KUNDERow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBMO_RE_DOKART_KUNDERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class WHMO_RE_DOKARTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As WHMO_RE_DOKARTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As WHMO_RE_DOKARTRow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As WHMO_RE_DOKARTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class WHMO_RE_KUNDENRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As WHMO_RE_KUNDENRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As WHMO_RE_KUNDENRow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As WHMO_RE_KUNDENRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As VWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As VWMO_RE_DOKUMENTARTZUORDNUNGRow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As VWMO_RE_DOKUMENTARTZUORDNUNGRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class TBMO_RE_DOKARTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBMO_RE_DOKARTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As TBMO_RE_DOKARTRow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBMO_RE_DOKARTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Class TBMO_RE_HISTORYRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBMO_RE_HISTORYRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Sub New(ByVal row As TBMO_RE_HISTORYRow, 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", "17.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBMO_RE_HISTORYRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Class
|
|
|
|
Namespace DS_MoreTableAdapters
|
|
|
|
'''<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 TBMO_RE_KUNDENTableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "TBMO_RE_KUNDEN"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("KUNDEN_NAME", "KUNDEN_NAME")
|
|
tableMapping.ColumnMappings.Add("KUNDE_KURZ", "KUNDE_KURZ")
|
|
tableMapping.ColumnMappings.Add("AKTIV", "AKTIV")
|
|
tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER")
|
|
tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBMO_RE_KUNDEN] WHERE (([GUID] = @Original_GUID) AND ([KUNDEN_NAME] "& _
|
|
"= @Original_KUNDEN_NAME) AND ((@IsNull_KUNDE_KURZ = 1 AND [KUNDE_KURZ] IS NULL) "& _
|
|
"OR ([KUNDE_KURZ] = @Original_KUNDE_KURZ)) AND ([AKTIV] = @Original_AKTIV) AND (["& _
|
|
"ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERSTELLTWA"& _
|
|
"NN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER"& _
|
|
"] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN]"& _
|
|
" IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KUNDEN_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KUNDE_KURZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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 TBMO_RE_KUNDEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (KUNDEN_NAME, KUNDE_KURZ, AK"& _
|
|
"TIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@KUNDEN_NAME,@KUNDE_KURZ,@AKTIV,@ERSTELLTWER);"& _
|
|
" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, KUNDEN_NAME, KUNDE_KURZ, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEAEN"& _
|
|
"DERTWER, GEAENDERTWANN FROM TBMO_RE_KUNDEN WHERE (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDEN_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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 TBMO_RE_KUNDEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET KUNDEN_NAME = @KUNDEN_NAME, KUNDE"& _
|
|
"_KURZ = @KUNDE_KURZ, AKTIV = @AKTIV, GEAENDERTWER = @GEAENDERTWER"&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, KUNDEN_NAME, KUNDE_KURZ, AKTIV, ERSTELLT"& _
|
|
"WER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBMO_RE_KUNDEN WHERE (GUID ="& _
|
|
" @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDEN_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", 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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 GUID, KUNDEN_NAME, KUNDE_KURZ, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _
|
|
"AENDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMO_RE_KUNDEN"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.TBMO_RE_KUNDENDataTable) 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", "17.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 DS_More.TBMO_RE_KUNDENDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.TBMO_RE_KUNDENDataTable = New DS_More.TBMO_RE_KUNDENDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_KUNDENDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBMO_RE_KUNDEN")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_KUNDEN_NAME As String, ByVal Original_KUNDE_KURZ As String, ByVal Original_AKTIV As Boolean, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
If (Original_KUNDEN_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_KUNDEN_NAME")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_KUNDEN_NAME,String)
|
|
End If
|
|
If (Original_KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_KUNDE_KURZ,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_AKTIV,Boolean)
|
|
If (Original_ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ERSTELLTWER,String)
|
|
End If
|
|
If (Original_ERSTELLTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ERSTELLTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_GEAENDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 KUNDEN_NAME As String, ByVal KUNDE_KURZ As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer
|
|
If (KUNDEN_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KUNDEN_NAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(KUNDEN_NAME,String)
|
|
End If
|
|
If (KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(KUNDE_KURZ,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(AKTIV,Boolean)
|
|
If (ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ERSTELLTWER,String)
|
|
End If
|
|
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
|
|
Me.Adapter.InsertCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.InsertCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 KUNDEN_NAME As String, ByVal KUNDE_KURZ As String, ByVal AKTIV As Boolean, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
|
If (KUNDEN_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KUNDEN_NAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KUNDEN_NAME,String)
|
|
End If
|
|
If (KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KUNDE_KURZ,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AKTIV,Boolean)
|
|
If (GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GEAENDERTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(5).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
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
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 TBMO_RE_DOKART_KUNDETableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "TBMO_RE_DOKART_KUNDE"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("KUNDEN_ID", "KUNDEN_ID")
|
|
tableMapping.ColumnMappings.Add("DA_ID", "DA_ID")
|
|
tableMapping.ColumnMappings.Add("ZIELORDNER", "ZIELORDNER")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBMO_RE_DOKART_KUNDE] WHERE (([GUID] = @Original_GUID) AND ([KUNDEN_"& _
|
|
"ID] = @Original_KUNDEN_ID) AND ([DA_ID] = @Original_DA_ID) AND ((@IsNull_ZIELORD"& _
|
|
"NER = 1 AND [ZIELORDNER] IS NULL) OR ([ZIELORDNER] = @Original_ZIELORDNER)) AND "& _
|
|
"([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN"& _
|
|
") AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] "& _
|
|
"= @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] I"& _
|
|
"S NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KUNDEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DA_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DA_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZIELORDNER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIELORDNER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZIELORDNER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIELORDNER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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 TBMO_RE_DOKART_KUNDE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (KUNDEN_ID, DA_ID, ZIE"& _
|
|
"LORDNER, ERFASSTWER, UO_IDX1, UO_IDX2, UO_IDX3, UO_IDX4, UO_IDX5)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
|
|
" (@KUNDEN_ID,@DA_ID,@ZIELORDNER,@ERFASSTWER,@UO_IDX1,@UO_IDX2,@UO_IDX3,@UO_IDX4,"& _
|
|
"@UO_IDX5); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, KUNDEN_ID, DA_ID, ZIELORDNER, ERFASSTWER, ERFASSTWANN"& _
|
|
", GEAENDERTWER, GEAENDERTWANN FROM TBMO_RE_DOKART_KUNDE WHERE (DA_ID = @DA_ID) A"& _
|
|
"ND (KUNDEN_ID = @KUNDEN_ID)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DA_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DA_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIELORDNER", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIELORDNER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UO_IDX1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UO_IDX1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UO_IDX2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UO_IDX2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UO_IDX3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UO_IDX3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UO_IDX4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UO_IDX4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UO_IDX5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UO_IDX5", 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 [TBMO_RE_DOKART_KUNDE] SET [KUNDEN_ID] = @KUNDEN_ID, [DA_ID] = @DA_ID, [ZI"& _
|
|
"ELORDNER] = @ZIELORDNER, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWAN"& _
|
|
"N, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUI"& _
|
|
"D] = @Original_GUID) AND ([KUNDEN_ID] = @Original_KUNDEN_ID) AND ([DA_ID] = @Ori"& _
|
|
"ginal_DA_ID) AND ((@IsNull_ZIELORDNER = 1 AND [ZIELORDNER] IS NULL) OR ([ZIELORD"& _
|
|
"NER] = @Original_ZIELORDNER)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ER"& _
|
|
"FASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDER"& _
|
|
"TWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAEN"& _
|
|
"DERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAEND"& _
|
|
"ERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, KUNDEN_ID, DA_ID, ZIELORDNER, ERFASSTWER, ERFASSTWANN,"& _
|
|
" GEAENDERTWER, GEAENDERTWANN FROM TBMO_RE_DOKART_KUNDE WHERE (DA_ID = @DA_ID) AN"& _
|
|
"D (KUNDEN_ID = @KUNDEN_ID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DA_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DA_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIELORDNER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIELORDNER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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, 0, 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("@Original_KUNDEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DA_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DA_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZIELORDNER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIELORDNER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZIELORDNER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIELORDNER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 GUID, KUNDEN_ID, DA_ID, ZIELORDNER, ERFASSTWER, ERFASSTWANN, GEAEND"& _
|
|
"ERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMO_RE_DOKART_KUNDE"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.TBMO_RE_DOKART_KUNDEDataTable) 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", "17.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 DS_More.TBMO_RE_DOKART_KUNDEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.TBMO_RE_DOKART_KUNDEDataTable = New DS_More.TBMO_RE_DOKART_KUNDEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_DOKART_KUNDEDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBMO_RE_DOKART_KUNDE")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_KUNDEN_ID As Integer, ByVal Original_DA_ID As Integer, ByVal Original_ZIELORDNER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_KUNDEN_ID,Integer)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DA_ID,Integer)
|
|
If (Original_ZIELORDNER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ZIELORDNER,String)
|
|
End If
|
|
If (Original_ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERFASSTWER")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ERFASSTWER,String)
|
|
End If
|
|
If (Original_ERFASSTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ERFASSTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_GEAENDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 KUNDEN_ID As Integer, ByVal DA_ID As Integer, ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal UO_IDX1 As String, ByVal UO_IDX2 As String, ByVal UO_IDX3 As String, ByVal UO_IDX4 As String, ByVal UO_IDX5 As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(KUNDEN_ID,Integer)
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(DA_ID,Integer)
|
|
If (ZIELORDNER Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(ZIELORDNER,String)
|
|
End If
|
|
If (ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ERFASSTWER,String)
|
|
End If
|
|
If (UO_IDX1 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(UO_IDX1,String)
|
|
End If
|
|
If (UO_IDX2 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(UO_IDX2,String)
|
|
End If
|
|
If (UO_IDX3 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(UO_IDX3,String)
|
|
End If
|
|
If (UO_IDX4 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(UO_IDX4,String)
|
|
End If
|
|
If (UO_IDX5 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(UO_IDX5,String)
|
|
End If
|
|
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
|
|
Me.Adapter.InsertCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.InsertCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 KUNDEN_ID As Integer, ByVal DA_ID As Integer, ByVal ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KUNDEN_ID As Integer, ByVal Original_DA_ID As Integer, ByVal Original_ZIELORDNER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KUNDEN_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DA_ID,Integer)
|
|
If (ZIELORDNER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ZIELORDNER,String)
|
|
End If
|
|
If (ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERFASSTWER,String)
|
|
End If
|
|
If (ERFASSTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ERFASSTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWER,String)
|
|
End If
|
|
If (GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_KUNDEN_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_DA_ID,Integer)
|
|
If (Original_ZIELORDNER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ZIELORDNER,String)
|
|
End If
|
|
If (Original_ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERFASSTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ERFASSTWER,String)
|
|
End If
|
|
If (Original_ERFASSTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ERFASSTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
|
|
End If
|
|
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
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 ZIELORDNER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KUNDEN_ID As Integer, ByVal Original_DA_ID As Integer, ByVal Original_ZIELORDNER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Return Me.Update(Original_KUNDEN_ID, Original_DA_ID, ZIELORDNER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, Original_GUID, Original_KUNDEN_ID, Original_DA_ID, Original_ZIELORDNER, Original_ERFASSTWER, Original_ERFASSTWANN, Original_GEAENDERTWER, Original_GEAENDERTWANN)
|
|
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 WHMO_RE_DOKARTTableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "WHMO_RE_DOKART"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMO_RE_DOKART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (AK"& _
|
|
"TIV = 1)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.WHMO_RE_DOKARTDataTable) 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", "17.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 DS_More.WHMO_RE_DOKARTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.WHMO_RE_DOKARTDataTable = New DS_More.WHMO_RE_DOKARTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
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 WHMO_RE_KUNDENTableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "WHMO_RE_KUNDEN"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("KUNDEN_NAME", "KUNDEN_NAME")
|
|
tableMapping.ColumnMappings.Add("KUNDE_KURZ", "KUNDE_KURZ")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 GUID, KUNDEN_NAME, KUNDE_KURZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMO_RE_KUNDEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _
|
|
"E (AKTIV = 1)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.WHMO_RE_KUNDENDataTable) 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", "17.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 DS_More.WHMO_RE_KUNDENDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.WHMO_RE_KUNDENDataTable = New DS_More.WHMO_RE_KUNDENDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
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 VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "VWMO_RE_DOKUMENTARTZUORDNUNG"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("DOKUMENTART_ID", "DOKUMENTART_ID")
|
|
tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART")
|
|
tableMapping.ColumnMappings.Add("KUNDEN_ID", "KUNDEN_ID")
|
|
tableMapping.ColumnMappings.Add("KUNDEN_NAME", "KUNDEN_NAME")
|
|
tableMapping.ColumnMappings.Add("DOKUMENTARTORDNER", "DOKUMENTARTORDNER")
|
|
tableMapping.ColumnMappings.Add("PRAEFIX", "PRAEFIX")
|
|
tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME")
|
|
tableMapping.ColumnMappings.Add("UO_IDX1", "UO_IDX1")
|
|
tableMapping.ColumnMappings.Add("UO_IDX2", "UO_IDX2")
|
|
tableMapping.ColumnMappings.Add("UO_IDX3", "UO_IDX3")
|
|
tableMapping.ColumnMappings.Add("UO_IDX4", "UO_IDX4")
|
|
tableMapping.ColumnMappings.Add("UO_IDX5", "UO_IDX5")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, DOKUMENTART_ID, DOKUMENTART, KUNDEN_ID, KUNDEN_NAME, DOKUMENT"& _
|
|
"ARTORDNER, PRAEFIX, INDEXNAME, UO_IDX1, UO_IDX2, UO_IDX3, UO_IDX4, UO_IDX5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _
|
|
" VWMO_RE_DOKUMENTARTZUORDNUNG"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "DELETE FROm TBMO_RE_DOKART_KUNDE WHERE GUID = @GUID"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).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, "", "", ""))
|
|
Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT DOKUMENTART, DOKUMENTARTORDNER, DOKUMENTART_ID, GUID, INDEXNAME, KUNDEN_ID"& _
|
|
", KUNDEN_NAME, PRAEFIX, UO_IDX1, UO_IDX2, UO_IDX3, UO_IDX4, UO_IDX5 FROM VWMO_RE"& _
|
|
"_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = @DOKART) AND (UPPER(KUNDEN_NAME) = UP"& _
|
|
"PER(@KUNDEN_NAME))"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKART", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKUMENTART", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDEN_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable) 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", "17.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 DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable = New DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 FillByDokartKD(ByVal dataTable As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable, ByVal DOKART As String, ByVal KUNDEN_NAME As String) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (DOKART Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("DOKART")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKART,String)
|
|
End If
|
|
If (KUNDEN_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KUNDEN_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(KUNDEN_NAME,String)
|
|
End If
|
|
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", "17.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 GetDataByDAKD(ByVal DOKART As String, ByVal KUNDEN_NAME As String) As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
|
If (DOKART Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("DOKART")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKART,String)
|
|
End If
|
|
If (KUNDEN_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KUNDEN_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(KUNDEN_NAME,String)
|
|
End If
|
|
Dim dataTable As DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable = New DS_More.VWMO_RE_DOKUMENTARTZUORDNUNGDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function cmdDeleteEntry(ByVal GUID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
command.Parameters(0).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
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 TBMO_RE_DOKARTTableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "TBMO_RE_DOKART"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG")
|
|
tableMapping.ColumnMappings.Add("PRAEFIX", "PRAEFIX")
|
|
tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME")
|
|
tableMapping.ColumnMappings.Add("AKTIV", "AKTIV")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBMO_RE_DOKART] WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] "& _
|
|
"= @Original_BEZEICHNUNG) AND ([PRAEFIX] = @Original_PRAEFIX) AND ((@IsNull_INDEX"& _
|
|
"NAME = 1 AND [INDEXNAME] IS NULL) OR ([INDEXNAME] = @Original_INDEXNAME)) AND (["& _
|
|
"AKTIV] = @Original_AKTIV) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASS"& _
|
|
"TWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER"& _
|
|
"] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERT"& _
|
|
"WANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTW"& _
|
|
"ANN)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRAEFIX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INDEXNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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 TBMO_RE_DOKART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, PRAEFIX, INDEX"& _
|
|
"NAME, AKTIV, ERFASSTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@PRAEFIX,@INDEXNAME,@AKTIV"& _
|
|
",@ERFASSTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, PRAEFIX, INDEXNAME, AKTIV, ERFASSTWER"& _
|
|
", ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBMO_RE_DOKART WHERE (GUID = SCO"& _
|
|
"PE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRAEFIX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", 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 TBMO_RE_DOKART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, PRAEF"& _
|
|
"IX = @PRAEFIX, INDEXNAME = @INDEXNAME, AKTIV = @AKTIV, GEAENDERTWER = @GEAENDERT"& _
|
|
"WER"&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, BEZEICHNUNG, PRAEFIX, "& _
|
|
"INDEXNAME, AKTIV, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBMO"& _
|
|
"_RE_DOKART WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRAEFIX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", 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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 TBMO_RE_DOKART.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMO_RE_DOKART"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.TBMO_RE_DOKARTDataTable) 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", "17.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 DS_More.TBMO_RE_DOKARTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.TBMO_RE_DOKARTDataTable = New DS_More.TBMO_RE_DOKARTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_DOKARTDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBMO_RE_DOKART")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_PRAEFIX As String, ByVal Original_INDEXNAME As String, ByVal Original_AKTIV As Boolean, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
If (Original_BEZEICHNUNG Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BEZEICHNUNG,String)
|
|
End If
|
|
If (Original_PRAEFIX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_PRAEFIX")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRAEFIX,String)
|
|
End If
|
|
If (Original_INDEXNAME Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_INDEXNAME,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_AKTIV,Boolean)
|
|
If (Original_ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERFASSTWER")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ERFASSTWER,String)
|
|
End If
|
|
If (Original_ERFASSTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ERFASSTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_GEAENDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 BEZEICHNUNG As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal AKTIV As Boolean, ByVal ERFASSTWER As String) As Integer
|
|
If (BEZEICHNUNG Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String)
|
|
End If
|
|
If (PRAEFIX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PRAEFIX")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(PRAEFIX,String)
|
|
End If
|
|
If (INDEXNAME Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEXNAME,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(AKTIV,Boolean)
|
|
If (ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(ERFASSTWER,String)
|
|
End If
|
|
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
|
|
Me.Adapter.InsertCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.InsertCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 BEZEICHNUNG As String, ByVal PRAEFIX As String, ByVal INDEXNAME As String, ByVal AKTIV As Boolean, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
|
If (BEZEICHNUNG Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String)
|
|
End If
|
|
If (PRAEFIX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PRAEFIX")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PRAEFIX,String)
|
|
End If
|
|
If (INDEXNAME Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEXNAME,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(AKTIV,Boolean)
|
|
If (GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEAENDERTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(6).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
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
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 TBMO_RE_HISTORYTableAdapter
|
|
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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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", "17.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 = "TBMO_RE_HISTORY"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("FILE_ORIGINAL", "FILE_ORIGINAL")
|
|
tableMapping.ColumnMappings.Add("FILE_NEW", "FILE_NEW")
|
|
tableMapping.ColumnMappings.Add("KUNDE_KURZ", "KUNDE_KURZ")
|
|
tableMapping.ColumnMappings.Add("INDEX1", "INDEX1")
|
|
tableMapping.ColumnMappings.Add("INDEX2", "INDEX2")
|
|
tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER")
|
|
tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBMO_RE_HISTORY] WHERE (([GUID] = @Original_GUID) AND ([FILE_ORIGINA"& _
|
|
"L] = @Original_FILE_ORIGINAL) AND ([FILE_NEW] = @Original_FILE_NEW) AND ((@IsNul"& _
|
|
"l_KUNDE_KURZ = 1 AND [KUNDE_KURZ] IS NULL) OR ([KUNDE_KURZ] = @Original_KUNDE_KU"& _
|
|
"RZ)) AND ((@IsNull_INDEX1 = 1 AND [INDEX1] IS NULL) OR ([INDEX1] = @Original_IND"& _
|
|
"EX1)) AND ((@IsNull_INDEX2 = 1 AND [INDEX2] IS NULL) OR ([INDEX2] = @Original_IN"& _
|
|
"DEX2)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Origin"& _
|
|
"al_ERSTELLTWANN))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORIGINAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KUNDE_KURZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INDEX1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INDEX2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", 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 TBMO_RE_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILE_ORIGINAL, FILE_NEW, K"& _
|
|
"UNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILE_ORIGINAL,@FILE_NEW"& _
|
|
",@KUNDE_KURZ,@INDEX1,@INDEX2,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILE_ORIGINAL, FILE_N"& _
|
|
"EW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, ERSTELLTWANN FROM TBMO_RE_HISTORY 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("@FILE_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORIGINAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NEW", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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 [TBMO_RE_HISTORY] SET [FILE_ORIGINAL] = @FILE_ORIGINAL, [FILE_NEW] = @FILE"& _
|
|
"_NEW, [KUNDE_KURZ] = @KUNDE_KURZ, [INDEX1] = @INDEX1, [INDEX2] = @INDEX2, [ERSTE"& _
|
|
"LLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN WHERE (([GUID] = @Origina"& _
|
|
"l_GUID) AND ([FILE_ORIGINAL] = @Original_FILE_ORIGINAL) AND ([FILE_NEW] = @Origi"& _
|
|
"nal_FILE_NEW) AND ((@IsNull_KUNDE_KURZ = 1 AND [KUNDE_KURZ] IS NULL) OR ([KUNDE_"& _
|
|
"KURZ] = @Original_KUNDE_KURZ)) AND ((@IsNull_INDEX1 = 1 AND [INDEX1] IS NULL) OR"& _
|
|
" ([INDEX1] = @Original_INDEX1)) AND ((@IsNull_INDEX2 = 1 AND [INDEX2] IS NULL) O"& _
|
|
"R ([INDEX2] = @Original_INDEX2)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND"& _
|
|
" ([ERSTELLTWANN] = @Original_ERSTELLTWANN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILE_ORIGINAL, FILE_N"& _
|
|
"EW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, ERSTELLTWANN FROM TBMO_RE_HISTORY W"& _
|
|
"HERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORIGINAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", 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, 0, 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("@Original_FILE_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORIGINAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_KUNDE_KURZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KUNDE_KURZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KUNDE_KURZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INDEX1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_INDEX2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", 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.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DDECMConString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLT"& _
|
|
"WER, ERSTELLTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMO_RE_HISTORY"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 DS_More.TBMO_RE_HISTORYDataTable) 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", "17.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 DS_More.TBMO_RE_HISTORYDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As DS_More.TBMO_RE_HISTORYDataTable = New DS_More.TBMO_RE_HISTORYDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As DS_More.TBMO_RE_HISTORYDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As DS_More) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBMO_RE_HISTORY")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FILE_ORIGINAL As String, ByVal Original_FILE_NEW As String, ByVal Original_KUNDE_KURZ As String, ByVal Original_INDEX1 As String, ByVal Original_INDEX2 As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Date) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
If (Original_FILE_ORIGINAL Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_FILE_ORIGINAL")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FILE_ORIGINAL,String)
|
|
End If
|
|
If (Original_FILE_NEW Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_FILE_NEW")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FILE_NEW,String)
|
|
End If
|
|
If (Original_KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_KUNDE_KURZ,String)
|
|
End If
|
|
If (Original_INDEX1 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_INDEX1,String)
|
|
End If
|
|
If (Original_INDEX2 Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_INDEX2,String)
|
|
End If
|
|
If (Original_ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ERSTELLTWANN,Date)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 FILE_ORIGINAL As String, ByVal FILE_NEW As String, ByVal KUNDE_KURZ As String, ByVal INDEX1 As String, ByVal INDEX2 As String, ByVal ERSTELLTWER As String) As Integer
|
|
If (FILE_ORIGINAL Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FILE_ORIGINAL")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILE_ORIGINAL,String)
|
|
End If
|
|
If (FILE_NEW Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FILE_NEW")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(FILE_NEW,String)
|
|
End If
|
|
If (KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(KUNDE_KURZ,String)
|
|
End If
|
|
If (INDEX1 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(INDEX1,String)
|
|
End If
|
|
If (INDEX2 Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(INDEX2,String)
|
|
End If
|
|
If (ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ERSTELLTWER,String)
|
|
End If
|
|
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
|
|
Me.Adapter.InsertCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.InsertCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 FILE_ORIGINAL As String, _
|
|
ByVal FILE_NEW As String, _
|
|
ByVal KUNDE_KURZ As String, _
|
|
ByVal INDEX1 As String, _
|
|
ByVal INDEX2 As String, _
|
|
ByVal ERSTELLTWER As String, _
|
|
ByVal ERSTELLTWANN As Date, _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal Original_FILE_ORIGINAL As String, _
|
|
ByVal Original_FILE_NEW As String, _
|
|
ByVal Original_KUNDE_KURZ As String, _
|
|
ByVal Original_INDEX1 As String, _
|
|
ByVal Original_INDEX2 As String, _
|
|
ByVal Original_ERSTELLTWER As String, _
|
|
ByVal Original_ERSTELLTWANN As Date, _
|
|
ByVal GUID As Integer) As Integer
|
|
If (FILE_ORIGINAL Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FILE_ORIGINAL")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILE_ORIGINAL,String)
|
|
End If
|
|
If (FILE_NEW Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FILE_NEW")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FILE_NEW,String)
|
|
End If
|
|
If (KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KUNDE_KURZ,String)
|
|
End If
|
|
If (INDEX1 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(INDEX1,String)
|
|
End If
|
|
If (INDEX2 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(INDEX2,String)
|
|
End If
|
|
If (ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ERSTELLTWANN,Date)
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
|
|
If (Original_FILE_ORIGINAL Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_FILE_ORIGINAL")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FILE_ORIGINAL,String)
|
|
End If
|
|
If (Original_FILE_NEW Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_FILE_NEW")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_FILE_NEW,String)
|
|
End If
|
|
If (Original_KUNDE_KURZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_KUNDE_KURZ,String)
|
|
End If
|
|
If (Original_INDEX1 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_INDEX1,String)
|
|
End If
|
|
If (Original_INDEX2 Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_INDEX2,String)
|
|
End If
|
|
If (Original_ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ERSTELLTWANN,Date)
|
|
Me.Adapter.UpdateCommand.Parameters(18).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
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 FILE_ORIGINAL As String, ByVal FILE_NEW As String, ByVal KUNDE_KURZ As String, ByVal INDEX1 As String, ByVal INDEX2 As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_FILE_ORIGINAL As String, ByVal Original_FILE_NEW As String, ByVal Original_KUNDE_KURZ As String, ByVal Original_INDEX1 As String, ByVal Original_INDEX2 As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Date) As Integer
|
|
Return Me.Update(FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, ERSTELLTWANN, Original_GUID, Original_FILE_ORIGINAL, Original_FILE_NEW, Original_KUNDE_KURZ, Original_INDEX1, Original_INDEX2, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GUID)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
|
|
"esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
|
|
Partial Public Class TableAdapterManager
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private _updateOrder As UpdateOrderOption
|
|
|
|
Private _tBMO_RE_KUNDENTableAdapter As TBMO_RE_KUNDENTableAdapter
|
|
|
|
Private _tBMO_RE_DOKART_KUNDETableAdapter As TBMO_RE_DOKART_KUNDETableAdapter
|
|
|
|
Private _tBMO_RE_DOKARTTableAdapter As TBMO_RE_DOKARTTableAdapter
|
|
|
|
Private _tBMO_RE_HISTORYTableAdapter As TBMO_RE_HISTORYTableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property UpdateOrder() As UpdateOrderOption
|
|
Get
|
|
Return Me._updateOrder
|
|
End Get
|
|
Set
|
|
Me._updateOrder = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
|
|
"a", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property TBMO_RE_KUNDENTableAdapter() As TBMO_RE_KUNDENTableAdapter
|
|
Get
|
|
Return Me._tBMO_RE_KUNDENTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBMO_RE_KUNDENTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
|
|
"a", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property TBMO_RE_DOKART_KUNDETableAdapter() As TBMO_RE_DOKART_KUNDETableAdapter
|
|
Get
|
|
Return Me._tBMO_RE_DOKART_KUNDETableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBMO_RE_DOKART_KUNDETableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
|
|
"a", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property TBMO_RE_DOKARTTableAdapter() As TBMO_RE_DOKARTTableAdapter
|
|
Get
|
|
Return Me._tBMO_RE_DOKARTTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBMO_RE_DOKARTTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
|
|
"a", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property TBMO_RE_HISTORYTableAdapter() As TBMO_RE_HISTORYTableAdapter
|
|
Get
|
|
Return Me._tBMO_RE_HISTORYTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBMO_RE_HISTORYTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Property BackupDataSetBeforeUpdate() As Boolean
|
|
Get
|
|
Return Me._backupDataSetBeforeUpdate
|
|
End Get
|
|
Set
|
|
Me._backupDataSetBeforeUpdate = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public Property Connection() As Global.System.Data.IDbConnection
|
|
Get
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return Me._connection
|
|
End If
|
|
If ((Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBMO_RE_KUNDENTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBMO_RE_KUNDENTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBMO_RE_DOKART_KUNDETableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBMO_RE_DOKARTTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBMO_RE_DOKARTTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBMO_RE_HISTORYTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBMO_RE_HISTORYTableAdapter.Connection
|
|
End If
|
|
Return Nothing
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
Return count
|
|
End Get
|
|
End Property
|
|
|
|
'''<summary>
|
|
'''Update rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function UpdateUpdatedRows(ByVal dataSet As DS_More, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_KUNDEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
|
|
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
|
If ((Not (updatedRows) Is Nothing) _
|
|
AndAlso (0 < updatedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_KUNDENTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_DOKART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
|
|
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
|
If ((Not (updatedRows) Is Nothing) _
|
|
AndAlso (0 < updatedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_DOKARTTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_DOKART_KUNDE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
|
|
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
|
If ((Not (updatedRows) Is Nothing) _
|
|
AndAlso (0 < updatedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_DOKART_KUNDETableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
|
|
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
|
If ((Not (updatedRows) Is Nothing) _
|
|
AndAlso (0 < updatedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_HISTORYTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Insert rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function UpdateInsertedRows(ByVal dataSet As DS_More, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_KUNDEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_KUNDENTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_DOKART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_DOKARTTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_DOKART_KUNDE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_DOKART_KUNDETableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_HISTORYTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Delete rows in bottom-up order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function UpdateDeletedRows(ByVal dataSet As DS_More, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_HISTORYTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_DOKART_KUNDE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_DOKART_KUNDETableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_DOKART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_DOKARTTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMO_RE_KUNDEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBMO_RE_KUNDENTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
|
|
If ((updatedRows Is Nothing) _
|
|
OrElse (updatedRows.Length < 1)) Then
|
|
Return updatedRows
|
|
End If
|
|
If ((allAddedRows Is Nothing) _
|
|
OrElse (allAddedRows.Count < 1)) Then
|
|
Return updatedRows
|
|
End If
|
|
Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
|
|
Dim i As Integer = 0
|
|
Do While (i < updatedRows.Length)
|
|
Dim row As Global.System.Data.DataRow = updatedRows(i)
|
|
If (allAddedRows.Contains(row) = false) Then
|
|
realUpdatedRows.Add(row)
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
Return realUpdatedRows.ToArray
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Update all changes to the dataset.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Overridable Function UpdateAll(ByVal dataSet As DS_More) As Integer
|
|
If (dataSet Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("dataSet")
|
|
End If
|
|
If (dataSet.HasChanges = false) Then
|
|
Return 0
|
|
End If
|
|
If ((Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBMO_RE_KUNDENTableAdapter.Connection) = false)) Then
|
|
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
|
"s die gleiche Verbindungszeichenfolge verwendet werden.")
|
|
End If
|
|
If ((Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBMO_RE_DOKART_KUNDETableAdapter.Connection) = false)) Then
|
|
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
|
"s die gleiche Verbindungszeichenfolge verwendet werden.")
|
|
End If
|
|
If ((Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBMO_RE_DOKARTTableAdapter.Connection) = false)) Then
|
|
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
|
"s die gleiche Verbindungszeichenfolge verwendet werden.")
|
|
End If
|
|
If ((Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBMO_RE_HISTORYTableAdapter.Connection) = false)) Then
|
|
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
|
|
"s die gleiche Verbindungszeichenfolge verwendet werden.")
|
|
End If
|
|
Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
|
|
If (workConnection Is Nothing) Then
|
|
Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _
|
|
"dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _
|
|
"t.")
|
|
End If
|
|
Dim workConnOpened As Boolean = false
|
|
If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
|
|
= Global.System.Data.ConnectionState.Broken) Then
|
|
workConnection.Close
|
|
End If
|
|
If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
|
|
workConnection.Open
|
|
workConnOpened = true
|
|
End If
|
|
Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
|
|
If (workTransaction Is Nothing) Then
|
|
Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _
|
|
"ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _
|
|
"ion nicht zu.")
|
|
End If
|
|
Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
|
|
Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
|
|
Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
|
|
Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
|
|
Dim result As Integer = 0
|
|
Dim backupDataSet As Global.System.Data.DataSet = Nothing
|
|
If Me.BackupDataSetBeforeUpdate Then
|
|
backupDataSet = New Global.System.Data.DataSet()
|
|
backupDataSet.Merge(dataSet)
|
|
End If
|
|
Try
|
|
'---- Prepare for update -----------
|
|
'
|
|
If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBMO_RE_KUNDENTableAdapter, Me._tBMO_RE_KUNDENTableAdapter.Connection)
|
|
Me._tBMO_RE_KUNDENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_KUNDENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBMO_RE_KUNDENTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBMO_RE_KUNDENTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMO_RE_KUNDENTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBMO_RE_DOKART_KUNDETableAdapter, Me._tBMO_RE_DOKART_KUNDETableAdapter.Connection)
|
|
Me._tBMO_RE_DOKART_KUNDETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_DOKART_KUNDETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBMO_RE_DOKART_KUNDETableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBMO_RE_DOKART_KUNDETableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMO_RE_DOKART_KUNDETableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBMO_RE_DOKARTTableAdapter, Me._tBMO_RE_DOKARTTableAdapter.Connection)
|
|
Me._tBMO_RE_DOKARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_DOKARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBMO_RE_DOKARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBMO_RE_DOKARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMO_RE_DOKARTTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBMO_RE_HISTORYTableAdapter, Me._tBMO_RE_HISTORYTableAdapter.Connection)
|
|
Me._tBMO_RE_HISTORYTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_HISTORYTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBMO_RE_HISTORYTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBMO_RE_HISTORYTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMO_RE_HISTORYTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
'
|
|
'---- Perform updates -----------
|
|
'
|
|
If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
|
|
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
|
|
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
|
|
Else
|
|
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
|
|
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
|
|
End If
|
|
result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
|
|
'
|
|
'---- Commit updates -----------
|
|
'
|
|
workTransaction.Commit
|
|
If (0 < allAddedRows.Count) Then
|
|
Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allAddedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
If (0 < allChangedRows.Count) Then
|
|
Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allChangedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
Catch ex As Global.System.Exception
|
|
workTransaction.Rollback
|
|
'---- Restore the dataset -----------
|
|
If Me.BackupDataSetBeforeUpdate Then
|
|
Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
|
|
dataSet.Clear
|
|
dataSet.Merge(backupDataSet)
|
|
Else
|
|
If (0 < allAddedRows.Count) Then
|
|
Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
|
|
allAddedRows.CopyTo(rows)
|
|
Dim i As Integer = 0
|
|
Do While (i < rows.Length)
|
|
Dim row As Global.System.Data.DataRow = rows(i)
|
|
row.AcceptChanges
|
|
row.SetAdded
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
End If
|
|
Throw ex
|
|
Finally
|
|
If workConnOpened Then
|
|
workConnection.Close
|
|
End If
|
|
If (Not (Me._tBMO_RE_KUNDENTableAdapter) Is Nothing) Then
|
|
Me._tBMO_RE_KUNDENTableAdapter.Connection = CType(revertConnections(Me._tBMO_RE_KUNDENTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_KUNDENTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKART_KUNDETableAdapter) Is Nothing) Then
|
|
Me._tBMO_RE_DOKART_KUNDETableAdapter.Connection = CType(revertConnections(Me._tBMO_RE_DOKART_KUNDETableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_DOKART_KUNDETableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBMO_RE_DOKARTTableAdapter) Is Nothing) Then
|
|
Me._tBMO_RE_DOKARTTableAdapter.Connection = CType(revertConnections(Me._tBMO_RE_DOKARTTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_DOKARTTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBMO_RE_HISTORYTableAdapter) Is Nothing) Then
|
|
Me._tBMO_RE_HISTORYTableAdapter.Connection = CType(revertConnections(Me._tBMO_RE_HISTORYTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBMO_RE_HISTORYTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
|
|
Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
|
|
adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
|
|
Dim i As Integer = 0
|
|
Do While (i < adapters.Length)
|
|
Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
|
|
adapter.AcceptChangesDuringUpdate = true
|
|
i = (i + 1)
|
|
Loop
|
|
End If
|
|
End Try
|
|
Return result
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
|
|
Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return true
|
|
End If
|
|
If ((Me.Connection Is Nothing) _
|
|
OrElse (inputConnection Is Nothing)) Then
|
|
Return true
|
|
End If
|
|
If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
|
|
Return true
|
|
End If
|
|
Return false
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Update Order Option
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Enum UpdateOrderOption
|
|
|
|
InsertUpdateDelete = 0
|
|
|
|
UpdateInsertDelete = 1
|
|
End Enum
|
|
|
|
'''<summary>
|
|
'''Used to sort self-referenced table's rows
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Class SelfReferenceComparer
|
|
Inherits Object
|
|
Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
|
|
|
|
Private _relation As Global.System.Data.DataRelation
|
|
|
|
Private _childFirst As Integer
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
|
|
MyBase.New
|
|
Me._relation = relation
|
|
If childFirst Then
|
|
Me._childFirst = -1
|
|
Else
|
|
Me._childFirst = 1
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
|
|
Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
|
|
Dim root As Global.System.Data.DataRow = row
|
|
distance = 0
|
|
|
|
Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
|
|
traversedRows(row) = row
|
|
|
|
Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
|
|
|
|
Do While ((Not (parent) Is Nothing) _
|
|
AndAlso (traversedRows.ContainsKey(parent) = false))
|
|
distance = (distance + 1)
|
|
root = parent
|
|
traversedRows(parent) = parent
|
|
parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
|
|
|
|
Loop
|
|
|
|
If (distance = 0) Then
|
|
traversedRows.Clear
|
|
traversedRows(row) = row
|
|
parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
|
|
|
|
Do While ((Not (parent) Is Nothing) _
|
|
AndAlso (traversedRows.ContainsKey(parent) = false))
|
|
distance = (distance + 1)
|
|
root = parent
|
|
traversedRows(parent) = parent
|
|
parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
|
|
|
|
Loop
|
|
End If
|
|
|
|
Return root
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
|
|
Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
|
|
If Object.ReferenceEquals(row1, row2) Then
|
|
Return 0
|
|
End If
|
|
If (row1 Is Nothing) Then
|
|
Return -1
|
|
End If
|
|
If (row2 Is Nothing) Then
|
|
Return 1
|
|
End If
|
|
|
|
Dim distance1 As Integer = 0
|
|
Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
|
|
|
|
Dim distance2 As Integer = 0
|
|
Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
|
|
|
|
If Object.ReferenceEquals(root1, root2) Then
|
|
Return (Me._childFirst * distance1.CompareTo(distance2))
|
|
Else
|
|
Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
|
|
AndAlso (Not (root2.Table) Is Nothing)))
|
|
If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
|
|
Return -1
|
|
Else
|
|
Return 1
|
|
End If
|
|
End If
|
|
End Function
|
|
End Class
|
|
End Class
|
|
End Namespace
|