5455 lines
326 KiB
VB.net
5455 lines
326 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("GlobixDataset"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class GlobixDataset
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable
|
|
|
|
Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable
|
|
|
|
Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable
|
|
|
|
Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable
|
|
|
|
Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBDD_INDEX_AUTOM_DOCID 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", "16.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", "16.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context, 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("TBDD_DOKUMENTART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART")))
|
|
End If
|
|
If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN")))
|
|
End If
|
|
If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM")))
|
|
End If
|
|
If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS")))
|
|
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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable
|
|
Get
|
|
Return Me.tableTBDD_DOKUMENTART
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable
|
|
Get
|
|
Return Me.tableTBDD_INDEX_MAN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable
|
|
Get
|
|
Return Me.tableTBDD_INDEX_AUTOM
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable
|
|
Get
|
|
Return Me.tableTBTEMP_INDEXRESULTS
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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", "16.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", "16.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", "16.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataSet
|
|
Dim cln As GlobixDataset = CType(MyBase.Clone,GlobixDataset)
|
|
cln.InitVars
|
|
cln.SchemaSerializationMode = Me.SchemaSerializationMode
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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", "16.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("TBDD_DOKUMENTART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART")))
|
|
End If
|
|
If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN")))
|
|
End If
|
|
If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM")))
|
|
End If
|
|
If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS")))
|
|
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", "16.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", "16.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", "16.0.0.0")> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then
|
|
Me.tableTBDD_DOKUMENTART.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBDD_INDEX_MAN = CType(MyBase.Tables("TBDD_INDEX_MAN"),TBDD_INDEX_MANDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBDD_INDEX_MAN) Is Nothing) Then
|
|
Me.tableTBDD_INDEX_MAN.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then
|
|
Me.tableTBDD_INDEX_AUTOM.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBTEMP_INDEXRESULTS = CType(MyBase.Tables("TBTEMP_INDEXRESULTS"),TBTEMP_INDEXRESULTSDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBTEMP_INDEXRESULTS) Is Nothing) Then
|
|
Me.tableTBTEMP_INDEXRESULTS.InitVars
|
|
End If
|
|
End If
|
|
Me.relationFK_TBDD_INDEX_MAN_DAID = Me.Relations("FK_TBDD_INDEX_MAN_DAID")
|
|
Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.DataSetName = "GlobixDataset"
|
|
Me.Prefix = ""
|
|
Me.Namespace = "http://tempuri.org/GlobixDataset.xsd"
|
|
Me.EnforceConstraints = true
|
|
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable()
|
|
MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART)
|
|
Me.tableTBDD_INDEX_MAN = New TBDD_INDEX_MANDataTable()
|
|
MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN)
|
|
Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable()
|
|
MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM)
|
|
Me.tableTBTEMP_INDEXRESULTS = New TBTEMP_INDEXRESULTSDataTable()
|
|
MyBase.Tables.Add(Me.tableTBTEMP_INDEXRESULTS)
|
|
Me.relationFK_TBDD_INDEX_MAN_DAID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_DAID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.DOK_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBDD_INDEX_MAN_DAID)
|
|
Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _
|
|
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim ds As GlobixDataset = New GlobixDataset()
|
|
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", "16.0.0.0")> _
|
|
Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBDD_DOKUMENTARTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnBEZEICHNUNG As Global.System.Data.DataColumn
|
|
|
|
Private columnOBJEKTTYP As Global.System.Data.DataColumn
|
|
|
|
Private columnEINGANGSART_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnKURZNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnZIEL_PFAD As Global.System.Data.DataColumn
|
|
|
|
Private columnBESCHREIBUNG As Global.System.Data.DataColumn
|
|
|
|
Private columnWINDREAM_DIRECT As Global.System.Data.DataColumn
|
|
|
|
Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn
|
|
|
|
Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn
|
|
|
|
Private columnAKTIV As Global.System.Data.DataColumn
|
|
|
|
Private columnLANGUAGE As Global.System.Data.DataColumn
|
|
|
|
Private columnSEQUENCE As Global.System.Data.DataColumn
|
|
|
|
Private columnNAMENKONVENTION As Global.System.Data.DataColumn
|
|
|
|
Private columnERSTELLTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERSTELLTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEANDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnIDB_FILESTORE_ID As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBDD_DOKUMENTART"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property 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", "16.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", "16.0.0.0")> _
|
|
Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnOBJEKTTYP
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEINGANGSART_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKURZNAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnZIEL_PFAD
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBESCHREIBUNG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnWINDREAM_DIRECT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFOLDER_FOR_INDEX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDUPLICATE_HANDLING
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _
|
|
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLANGUAGE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSEQUENCE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNAMENKONVENTION
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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", "16.0.0.0")> _
|
|
Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEANDERTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _
|
|
Public ReadOnly Property IDB_FILESTORE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnIDB_FILESTORE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Function AddTBDD_DOKUMENTARTRow( _
|
|
ByVal BEZEICHNUNG As String, _
|
|
ByVal OBJEKTTYP As String, _
|
|
ByVal EINGANGSART_ID As Byte, _
|
|
ByVal KURZNAME As String, _
|
|
ByVal ZIEL_PFAD As String, _
|
|
ByVal BESCHREIBUNG As String, _
|
|
ByVal WINDREAM_DIRECT As Boolean, _
|
|
ByVal FOLDER_FOR_INDEX As String, _
|
|
ByVal DUPLICATE_HANDLING As String, _
|
|
ByVal AKTIV As Boolean, _
|
|
ByVal LANGUAGE As String, _
|
|
ByVal SEQUENCE As Integer, _
|
|
ByVal NAMENKONVENTION As String, _
|
|
ByVal ERSTELLTWER As String, _
|
|
ByVal ERSTELLTWANN As Date, _
|
|
ByVal GEANDERTWER As String, _
|
|
ByVal GEAENDERTWANN As Date, _
|
|
ByVal IDB_FILESTORE_ID As Integer) As TBDD_DOKUMENTARTRow
|
|
Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID}
|
|
rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBDD_DOKUMENTARTRow)
|
|
Return rowTBDD_DOKUMENTARTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBDD_DOKUMENTARTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
|
|
Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP")
|
|
Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID")
|
|
Me.columnKURZNAME = MyBase.Columns("KURZNAME")
|
|
Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD")
|
|
Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG")
|
|
Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT")
|
|
Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX")
|
|
Me.columnDUPLICATE_HANDLING = MyBase.Columns("DUPLICATE_HANDLING")
|
|
Me.columnAKTIV = MyBase.Columns("AKTIV")
|
|
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
|
|
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
|
|
Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION")
|
|
Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER")
|
|
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
|
|
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
Me.columnIDB_FILESTORE_ID = MyBase.Columns("IDB_FILESTORE_ID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnOBJEKTTYP)
|
|
Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEINGANGSART_ID)
|
|
Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKURZNAME)
|
|
Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnZIEL_PFAD)
|
|
Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBESCHREIBUNG)
|
|
Me.columnWINDREAM_DIRECT = New Global.System.Data.DataColumn("WINDREAM_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnWINDREAM_DIRECT)
|
|
Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX)
|
|
Me.columnDUPLICATE_HANDLING = New Global.System.Data.DataColumn("DUPLICATE_HANDLING", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDUPLICATE_HANDLING)
|
|
Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAKTIV)
|
|
Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLANGUAGE)
|
|
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSEQUENCE)
|
|
Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAMENKONVENTION)
|
|
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.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEANDERTWER)
|
|
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
|
|
Me.columnIDB_FILESTORE_ID = New Global.System.Data.DataColumn("IDB_FILESTORE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnIDB_FILESTORE_ID)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnBEZEICHNUNG.AllowDBNull = false
|
|
Me.columnBEZEICHNUNG.MaxLength = 50
|
|
Me.columnOBJEKTTYP.AllowDBNull = false
|
|
Me.columnOBJEKTTYP.MaxLength = 50
|
|
Me.columnEINGANGSART_ID.AllowDBNull = false
|
|
Me.columnKURZNAME.AllowDBNull = false
|
|
Me.columnKURZNAME.MaxLength = 50
|
|
Me.columnZIEL_PFAD.AllowDBNull = false
|
|
Me.columnZIEL_PFAD.MaxLength = 250
|
|
Me.columnBESCHREIBUNG.MaxLength = 250
|
|
Me.columnWINDREAM_DIRECT.AllowDBNull = false
|
|
Me.columnFOLDER_FOR_INDEX.AllowDBNull = false
|
|
Me.columnFOLDER_FOR_INDEX.MaxLength = 500
|
|
Me.columnDUPLICATE_HANDLING.AllowDBNull = false
|
|
Me.columnDUPLICATE_HANDLING.MaxLength = 30
|
|
Me.columnAKTIV.AllowDBNull = false
|
|
Me.columnAKTIV.DefaultValue = CType(false,Boolean)
|
|
Me.columnLANGUAGE.AllowDBNull = false
|
|
Me.columnLANGUAGE.MaxLength = 5
|
|
Me.columnSEQUENCE.AllowDBNull = false
|
|
Me.columnNAMENKONVENTION.AllowDBNull = false
|
|
Me.columnNAMENKONVENTION.MaxLength = 500
|
|
Me.columnERSTELLTWER.AllowDBNull = false
|
|
Me.columnERSTELLTWER.MaxLength = 50
|
|
Me.columnGEANDERTWER.MaxLength = 50
|
|
Me.columnIDB_FILESTORE_ID.AllowDBNull = false
|
|
Me.columnIDB_FILESTORE_ID.DefaultValue = CType(0,Integer)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
|
|
Return CType(Me.NewRow,TBDD_DOKUMENTARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBDD_DOKUMENTARTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBDD_DOKUMENTARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As GlobixDataset = New GlobixDataset()
|
|
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 = "TBDD_DOKUMENTARTDataTable"
|
|
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 TBDD_INDEX_MANDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MANRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnDOK_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnWD_INDEX As Global.System.Data.DataColumn
|
|
|
|
Private columnCOMMENT As Global.System.Data.DataColumn
|
|
|
|
Private columnDATATYPE As Global.System.Data.DataColumn
|
|
|
|
Private columnSUGGESTION As Global.System.Data.DataColumn
|
|
|
|
Private columnDEFAULT_VALUE As Global.System.Data.DataColumn
|
|
|
|
Private columnCONNECTION_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnSEQUENCE As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_RESULT As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_CHECK As Global.System.Data.DataColumn
|
|
|
|
Private columnOPTIONAL As Global.System.Data.DataColumn
|
|
|
|
Private columnSAVE_VALUE As Global.System.Data.DataColumn
|
|
|
|
Private columnACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnMULTISELECT As Global.System.Data.DataColumn
|
|
|
|
Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn
|
|
|
|
Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBDD_INDEX_MAN"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property 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", "16.0.0.0")> _
|
|
Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDOK_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnWD_INDEX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCOMMENT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDATATYPE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSUGGESTION
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDEFAULT_VALUE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCONNECTION_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSEQUENCE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_RESULT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_CHECK
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnOPTIONAL
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSAVE_VALUE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnACTIVE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnADDED_WHO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnADDED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCHANGED_WHO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCHANGED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMULTISELECT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVKT_ADD_ITEM
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVKT_PREVENT_MULTIPLE_VALUES
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MANRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBDD_INDEX_MANRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_MANRowChanging As TBDD_INDEX_MANRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_MANRowChanged As TBDD_INDEX_MANRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_MANRowDeleting As TBDD_INDEX_MANRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_MANRowDeleted As TBDD_INDEX_MANRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Sub AddTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Function AddTBDD_INDEX_MANRow( _
|
|
ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID As TBDD_DOKUMENTARTRow, _
|
|
ByVal NAME As String, _
|
|
ByVal WD_INDEX As String, _
|
|
ByVal COMMENT As String, _
|
|
ByVal DATATYPE As String, _
|
|
ByVal SUGGESTION As Boolean, _
|
|
ByVal DEFAULT_VALUE As String, _
|
|
ByVal CONNECTION_ID As Short, _
|
|
ByVal SEQUENCE As Integer, _
|
|
ByVal SQL_RESULT As String, _
|
|
ByVal SQL_CHECK As String, _
|
|
ByVal _OPTIONAL As Boolean, _
|
|
ByVal SAVE_VALUE As Boolean, _
|
|
ByVal ACTIVE As Boolean, _
|
|
ByVal ADDED_WHO As String, _
|
|
ByVal ADDED_WHEN As Date, _
|
|
ByVal CHANGED_WHO As String, _
|
|
ByVal CHANGED_WHEN As Date, _
|
|
ByVal MULTISELECT As Boolean, _
|
|
ByVal VKT_ADD_ITEM As Boolean, _
|
|
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As TBDD_INDEX_MANRow
|
|
Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, _OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES}
|
|
If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0)
|
|
End If
|
|
rowTBDD_INDEX_MANRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBDD_INDEX_MANRow)
|
|
Return rowTBDD_INDEX_MANRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MANRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MANRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBDD_INDEX_MANDataTable = CType(MyBase.Clone,TBDD_INDEX_MANDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBDD_INDEX_MANDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnDOK_ID = MyBase.Columns("DOK_ID")
|
|
Me.columnNAME = MyBase.Columns("NAME")
|
|
Me.columnWD_INDEX = MyBase.Columns("WD_INDEX")
|
|
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
|
Me.columnDATATYPE = MyBase.Columns("DATATYPE")
|
|
Me.columnSUGGESTION = MyBase.Columns("SUGGESTION")
|
|
Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE")
|
|
Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID")
|
|
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
|
|
Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT")
|
|
Me.columnSQL_CHECK = MyBase.Columns("SQL_CHECK")
|
|
Me.columnOPTIONAL = MyBase.Columns("OPTIONAL")
|
|
Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE")
|
|
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
|
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
|
Me.columnMULTISELECT = MyBase.Columns("MULTISELECT")
|
|
Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM")
|
|
Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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.columnDOK_ID = New Global.System.Data.DataColumn("DOK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDOK_ID)
|
|
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAME)
|
|
Me.columnWD_INDEX = New Global.System.Data.DataColumn("WD_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnWD_INDEX)
|
|
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCOMMENT)
|
|
Me.columnDATATYPE = New Global.System.Data.DataColumn("DATATYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDATATYPE)
|
|
Me.columnSUGGESTION = New Global.System.Data.DataColumn("SUGGESTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSUGGESTION)
|
|
Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDEFAULT_VALUE)
|
|
Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCONNECTION_ID)
|
|
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSEQUENCE)
|
|
Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_RESULT)
|
|
Me.columnSQL_CHECK = New Global.System.Data.DataColumn("SQL_CHECK", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_CHECK)
|
|
Me.columnOPTIONAL = New Global.System.Data.DataColumn("OPTIONAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "OPTIONALColumn")
|
|
Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL")
|
|
Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL")
|
|
MyBase.Columns.Add(Me.columnOPTIONAL)
|
|
Me.columnSAVE_VALUE = New Global.System.Data.DataColumn("SAVE_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSAVE_VALUE)
|
|
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnACTIVE)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
|
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
|
Me.columnMULTISELECT = New Global.System.Data.DataColumn("MULTISELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMULTISELECT)
|
|
Me.columnVKT_ADD_ITEM = New Global.System.Data.DataColumn("VKT_ADD_ITEM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVKT_ADD_ITEM)
|
|
Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnDOK_ID.AllowDBNull = false
|
|
Me.columnNAME.AllowDBNull = false
|
|
Me.columnNAME.MaxLength = 50
|
|
Me.columnWD_INDEX.MaxLength = 50
|
|
Me.columnCOMMENT.MaxLength = 150
|
|
Me.columnDATATYPE.MaxLength = 50
|
|
Me.columnSUGGESTION.AllowDBNull = false
|
|
Me.columnDEFAULT_VALUE.AllowDBNull = false
|
|
Me.columnDEFAULT_VALUE.MaxLength = 50
|
|
Me.columnSEQUENCE.AllowDBNull = false
|
|
Me.columnSEQUENCE.DefaultValue = CType(1,Integer)
|
|
Me.columnSQL_RESULT.AllowDBNull = false
|
|
Me.columnSQL_RESULT.MaxLength = 2000
|
|
Me.columnSQL_CHECK.AllowDBNull = false
|
|
Me.columnSQL_CHECK.MaxLength = 2000
|
|
Me.columnOPTIONAL.AllowDBNull = false
|
|
Me.columnSAVE_VALUE.AllowDBNull = false
|
|
Me.columnACTIVE.AllowDBNull = false
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
Me.columnCHANGED_WHO.MaxLength = 50
|
|
Me.columnMULTISELECT.AllowDBNull = false
|
|
Me.columnVKT_ADD_ITEM.AllowDBNull = false
|
|
Me.columnVKT_ADD_ITEM.DefaultValue = CType(false,Boolean)
|
|
Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
|
|
Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(false,Boolean)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow
|
|
Return CType(Me.NewRow,TBDD_INDEX_MANRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBDD_INDEX_MANRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBDD_INDEX_MANRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBDD_INDEX_MANRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_MANRowChanged(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBDD_INDEX_MANRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_MANRowChanging(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBDD_INDEX_MANRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_MANRowDeleted(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBDD_INDEX_MANRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_MANRowDeleting(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub RemoveTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As GlobixDataset = New GlobixDataset()
|
|
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 = "TBDD_INDEX_MANDataTable"
|
|
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 TBDD_INDEX_AUTOMDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnDOCTYPE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnENTITY_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnINDEXNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnVALUE As Global.System.Data.DataColumn
|
|
|
|
Private columnCONNECTION_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_RESULT As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_ACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnCOMMENT As Global.System.Data.DataColumn
|
|
|
|
Private columnACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnSEQUENCE As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBDD_INDEX_AUTOM"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property 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", "16.0.0.0")> _
|
|
Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDOCTYPE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnENTITY_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0")> _
|
|
Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVALUE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCONNECTION_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_RESULT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_ACTIVE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCOMMENT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnACTIVE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSEQUENCE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnADDED_WHO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnADDED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCHANGED_WHO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCHANGED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow
|
|
Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
|
If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0)
|
|
End If
|
|
rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBDD_INDEX_AUTOMRow)
|
|
Return rowTBDD_INDEX_AUTOMRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBDD_INDEX_AUTOMDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID")
|
|
Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID")
|
|
Me.columnINDEXNAME = MyBase.Columns("INDEXNAME")
|
|
Me.columnVALUE = MyBase.Columns("VALUE")
|
|
Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID")
|
|
Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT")
|
|
Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
|
|
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
|
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
|
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
|
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDOCTYPE_ID)
|
|
Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnENTITY_ID)
|
|
Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnINDEXNAME)
|
|
Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVALUE)
|
|
Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCONNECTION_ID)
|
|
Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_RESULT)
|
|
Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_ACTIVE)
|
|
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCOMMENT)
|
|
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnACTIVE)
|
|
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSEQUENCE)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
|
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
|
Me.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.columnDOCTYPE_ID.AllowDBNull = false
|
|
Me.columnENTITY_ID.AllowDBNull = false
|
|
Me.columnINDEXNAME.AllowDBNull = false
|
|
Me.columnINDEXNAME.MaxLength = 50
|
|
Me.columnVALUE.MaxLength = 2000
|
|
Me.columnCONNECTION_ID.AllowDBNull = false
|
|
Me.columnSQL_RESULT.AllowDBNull = false
|
|
Me.columnSQL_RESULT.MaxLength = 2000
|
|
Me.columnSQL_ACTIVE.AllowDBNull = false
|
|
Me.columnCOMMENT.MaxLength = 400
|
|
Me.columnACTIVE.AllowDBNull = false
|
|
Me.columnACTIVE.DefaultValue = CType(true,Boolean)
|
|
Me.columnSEQUENCE.AllowDBNull = false
|
|
Me.columnSEQUENCE.DefaultValue = CType(1,Byte)
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
Me.columnCHANGED_WHO.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow
|
|
Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBDD_INDEX_AUTOMRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBDD_INDEX_AUTOMRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As GlobixDataset = New GlobixDataset()
|
|
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 = "TBDD_INDEX_AUTOMDataTable"
|
|
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 TBTEMP_INDEXRESULTSDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow)
|
|
|
|
Private columnIndexname As Global.System.Data.DataColumn
|
|
|
|
Private columnValue As Global.System.Data.DataColumn
|
|
|
|
Private columnDokumentart As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBTEMP_INDEXRESULTS"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
|
MyBase.New
|
|
Me.TableName = table.TableName
|
|
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
|
Me.CaseSensitive = table.CaseSensitive
|
|
End If
|
|
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
|
Me.Locale = table.Locale
|
|
End If
|
|
If (table.Namespace <> table.DataSet.Namespace) Then
|
|
Me.Namespace = table.Namespace
|
|
End If
|
|
Me.Prefix = table.Prefix
|
|
Me.MinimumCapacity = table.MinimumCapacity
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
|
MyBase.New(info, context)
|
|
Me.InitVars
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property 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", "16.0.0.0")> _
|
|
Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnValue
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow
|
|
Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow)
|
|
Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart}
|
|
rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow)
|
|
Return rowTBTEMP_INDEXRESULTSRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBTEMP_INDEXRESULTSDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnIndexname = MyBase.Columns("Indexname")
|
|
Me.columnValue = MyBase.Columns("Value")
|
|
Me.columnDokumentart = MyBase.Columns("Dokumentart")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnIndexname)
|
|
Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnValue)
|
|
Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDokumentart)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow
|
|
Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBTEMP_INDEXRESULTSRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBTEMP_INDEXRESULTSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim ds As GlobixDataset = New GlobixDataset()
|
|
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 = "TBTEMP_INDEXRESULTSDataTable"
|
|
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 TBDD_DOKUMENTARTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property BEZEICHNUNG() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property OBJEKTTYP() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property EINGANGSART_ID() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property KURZNAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ZIEL_PFAD() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property BESCHREIBUNG() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property WINDREAM_DIRECT() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property FOLDER_FOR_INDEX() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property DUPLICATE_HANDLING() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property AKTIV() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property LANGUAGE() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SEQUENCE() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property NAMENKONVENTION() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ERSTELLTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ERSTELLTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property GEANDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property IDB_FILESTORE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_FILESTORE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_DOKUMENTART.IDB_FILESTORE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsBESCHREIBUNGNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetBESCHREIBUNGNull()
|
|
Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsERSTELLTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetERSTELLTWANNNull()
|
|
Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsGEANDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetGEANDERTWERNull()
|
|
Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow()
|
|
If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then
|
|
Return New TBDD_INDEX_MANRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow())
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow()
|
|
If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then
|
|
Return New TBDD_INDEX_AUTOMRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBDD_INDEX_MANRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property DOK_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property WD_INDEX() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property COMMENT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property DATATYPE() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SUGGESTION() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property DEFAULT_VALUE() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property CONNECTION_ID() As Short
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SEQUENCE() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SQL_RESULT() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SQL_CHECK() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property _OPTIONAL() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SAVE_VALUE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property MULTISELECT() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property VKT_ADD_ITEM() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsWD_INDEXNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetWD_INDEXNull()
|
|
Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCOMMENTNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCOMMENTNull()
|
|
Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsDATATYPENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetDATATYPENull()
|
|
Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCONNECTION_IDNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCONNECTION_IDNull()
|
|
Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBDD_INDEX_AUTOMRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property DOCTYPE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ENTITY_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property INDEXNAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property VALUE() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property CONNECTION_ID() As Short
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SQL_RESULT() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SQL_ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property COMMENT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property SEQUENCE() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsVALUENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetVALUENull()
|
|
Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCOMMENTNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCOMMENTNull()
|
|
Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBTEMP_INDEXRESULTSRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property Indexname() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property Value() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property Dokumentart() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsIndexnameNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetIndexnameNull()
|
|
Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsValueNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetValueNull()
|
|
Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Function IsDokumentartNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub SetDokumentartNull()
|
|
Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Class TBDD_DOKUMENTARTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBDD_DOKUMENTARTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Class TBDD_INDEX_MANRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBDD_INDEX_MANRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBDD_INDEX_MANRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Class TBDD_INDEX_AUTOMRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBDD_INDEX_AUTOMRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Class TBTEMP_INDEXRESULTSRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBTEMP_INDEXRESULTSRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Class
|
|
|
|
Namespace GlobixDatasetTableAdapters
|
|
|
|
'''<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 TBDD_DOKUMENTARTTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SqlClient.SqlConnection
|
|
|
|
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "TBDD_DOKUMENTART"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG")
|
|
tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP")
|
|
tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID")
|
|
tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME")
|
|
tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD")
|
|
tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG")
|
|
tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT")
|
|
tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX")
|
|
tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING")
|
|
tableMapping.ColumnMappings.Add("AKTIV", "AKTIV")
|
|
tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE")
|
|
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
|
|
tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION")
|
|
tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER")
|
|
tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN")
|
|
tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
tableMapping.ColumnMappings.Add("IDB_FILESTORE_ID", "IDB_FILESTORE_ID")
|
|
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 TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
|
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, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _
|
|
"ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _
|
|
"KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" IDB_FILESTORE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_I"& _
|
|
"D,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEK"& _
|
|
"TTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_FILES"& _
|
|
"TORE_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL"& _
|
|
"_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTI"& _
|
|
"V, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, "& _
|
|
"GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_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("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", 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("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_FILESTORE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_FILESTORE_ID", 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 TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _
|
|
"GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _
|
|
"CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _
|
|
"NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _
|
|
"NDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _
|
|
"G, IDB_FILESTORE_ID = @IDB_FILESTORE_ID"&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, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESC"& _
|
|
"HREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE"& _
|
|
", SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWA"& _
|
|
"NN FROM TBDD_DOKUMENTART 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("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", 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("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_FILESTORE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_FILESTORE_ID", 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", "16.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, "& _
|
|
"BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANG"& _
|
|
"UAGE, SEQUENCE, NAMENKONVENTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ERSTELLTWER, ERSTELL"& _
|
|
"TWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUME"& _
|
|
"NTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTA"& _
|
|
"RT.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_D"& _
|
|
"OKUMENTART.ZIEL_PFAD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART.BESCHREIBUNG, "& _
|
|
"TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUME"& _
|
|
"NTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBD"& _
|
|
"D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _
|
|
"ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_"& _
|
|
"DOKUMENTART.IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKU"& _
|
|
"MENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON TB"& _
|
|
"DD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODULES."& _
|
|
"SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
|
Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable, ByVal GUID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData(ByVal GUID As Integer) As GlobixDataset.TBDD_DOKUMENTARTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
|
|
Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillAllDoctypes(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataDoctypes() As GlobixDataset.TBDD_DOKUMENTARTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
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", "16.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", "16.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) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
|
Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal IDB_FILESTORE_ID As Integer) 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
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte)
|
|
If (KURZNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KURZNAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String)
|
|
End If
|
|
If (ZIEL_PFAD Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ZIEL_PFAD")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String)
|
|
End If
|
|
If (BESCHREIBUNG Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean)
|
|
If (NAMENKONVENTION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAMENKONVENTION")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String)
|
|
End If
|
|
If (ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String)
|
|
End If
|
|
If (OBJEKTTYP Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("OBJEKTTYP")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean)
|
|
If (FOLDER_FOR_INDEX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer)
|
|
If (DUPLICATE_HANDLING Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = CType(IDB_FILESTORE_ID,Integer)
|
|
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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update( _
|
|
ByVal BEZEICHNUNG As String, _
|
|
ByVal EINGANGSART_ID As Byte, _
|
|
ByVal KURZNAME As String, _
|
|
ByVal ZIEL_PFAD As String, _
|
|
ByVal BESCHREIBUNG As String, _
|
|
ByVal AKTIV As Boolean, _
|
|
ByVal NAMENKONVENTION As String, _
|
|
ByVal GEANDERTWER As String, _
|
|
ByVal OBJEKTTYP As String, _
|
|
ByVal WINDREAM_DIRECT As Boolean, _
|
|
ByVal FOLDER_FOR_INDEX As String, _
|
|
ByVal SEQUENCE As Integer, _
|
|
ByVal DUPLICATE_HANDLING As String, _
|
|
ByVal IDB_FILESTORE_ID As Integer, _
|
|
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
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte)
|
|
If (KURZNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KURZNAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String)
|
|
End If
|
|
If (ZIEL_PFAD Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ZIEL_PFAD")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String)
|
|
End If
|
|
If (BESCHREIBUNG Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean)
|
|
If (NAMENKONVENTION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAMENKONVENTION")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String)
|
|
End If
|
|
If (GEANDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String)
|
|
End If
|
|
If (OBJEKTTYP Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("OBJEKTTYP")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean)
|
|
If (FOLDER_FOR_INDEX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer)
|
|
If (DUPLICATE_HANDLING Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(IDB_FILESTORE_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(15).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 TBDD_INDEX_MANTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SqlClient.SqlConnection
|
|
|
|
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "TBDD_INDEX_MAN"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID")
|
|
tableMapping.ColumnMappings.Add("NAME", "NAME")
|
|
tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX")
|
|
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
|
tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE")
|
|
tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION")
|
|
tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE")
|
|
tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID")
|
|
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
|
|
tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
|
|
tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK")
|
|
tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL")
|
|
tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE")
|
|
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
|
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
|
|
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
|
tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT")
|
|
tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM")
|
|
tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES")
|
|
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 TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
|
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, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _
|
|
"MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _
|
|
"SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _
|
|
"NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _
|
|
"UENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELE"& _
|
|
"CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_"& _
|
|
"INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQ"& _
|
|
"L_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _
|
|
"D_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM"& _
|
|
" TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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 TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _
|
|
"D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _
|
|
"GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _
|
|
"D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _
|
|
"@SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
|
|
" CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT,"& _
|
|
" VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _
|
|
"LE_VALUES"&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, DOK_ID, NAME, WD"& _
|
|
"_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, S"& _
|
|
"QL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _
|
|
"ED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FRO"& _
|
|
"M TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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", "16.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _
|
|
"T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, A"& _
|
|
"CTIVE, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO, CHANGED_WH"& _
|
|
"EN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _
|
|
"_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOKID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
|
Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable, ByVal DOKID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_MANDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer)
|
|
Dim dataTable As GlobixDataset.TBDD_INDEX_MANDataTable = New GlobixDataset.TBDD_INDEX_MANDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
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", "16.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", "16.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) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
|
Public Overloads Overridable Function Insert( _
|
|
ByVal DOK_ID As Integer, _
|
|
ByVal NAME As String, _
|
|
ByVal WD_INDEX As String, _
|
|
ByVal COMMENT As String, _
|
|
ByVal DATATYPE As String, _
|
|
ByVal SUGGESTION As Boolean, _
|
|
ByVal DEFAULT_VALUE As String, _
|
|
ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _
|
|
ByVal SEQUENCE As Integer, _
|
|
ByVal SQL_RESULT As String, _
|
|
ByVal SQL_CHECK As String, _
|
|
ByVal _OPTIONAL As Boolean, _
|
|
ByVal SAVE_VALUE As Boolean, _
|
|
ByVal ACTIVE As Boolean, _
|
|
ByVal ADDED_WHO As String, _
|
|
ByVal MULTISELECT As Boolean, _
|
|
ByVal VKT_ADD_ITEM As Boolean, _
|
|
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer)
|
|
If (NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String)
|
|
End If
|
|
If (WD_INDEX Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String)
|
|
End If
|
|
If (COMMENT Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String)
|
|
End If
|
|
If (DATATYPE Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean)
|
|
If (DEFAULT_VALUE Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("DEFAULT_VALUE")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String)
|
|
End If
|
|
If (CONNECTION_ID.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer)
|
|
If (SQL_RESULT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SQL_RESULT")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String)
|
|
End If
|
|
If (SQL_CHECK Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SQL_CHECK")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = CType(ACTIVE,Boolean)
|
|
If (ADDED_WHO Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = CType(ADDED_WHO,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
|
|
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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update( _
|
|
ByVal DOK_ID As Integer, _
|
|
ByVal NAME As String, _
|
|
ByVal WD_INDEX As String, _
|
|
ByVal COMMENT As String, _
|
|
ByVal DATATYPE As String, _
|
|
ByVal SUGGESTION As Boolean, _
|
|
ByVal DEFAULT_VALUE As String, _
|
|
ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _
|
|
ByVal SEQUENCE As Integer, _
|
|
ByVal SQL_RESULT As String, _
|
|
ByVal SQL_CHECK As String, _
|
|
ByVal _OPTIONAL As Boolean, _
|
|
ByVal SAVE_VALUE As Boolean, _
|
|
ByVal ACTIVE As Boolean, _
|
|
ByVal CHANGED_WHO As String, _
|
|
ByVal MULTISELECT As Boolean, _
|
|
ByVal VKT_ADD_ITEM As Boolean, _
|
|
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal GUID As Integer) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer)
|
|
If (NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String)
|
|
End If
|
|
If (WD_INDEX Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String)
|
|
End If
|
|
If (COMMENT Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String)
|
|
End If
|
|
If (DATATYPE Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean)
|
|
If (DEFAULT_VALUE Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("DEFAULT_VALUE")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String)
|
|
End If
|
|
If (CONNECTION_ID.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer)
|
|
If (SQL_RESULT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SQL_RESULT")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String)
|
|
End If
|
|
If (SQL_CHECK Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SQL_CHECK")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ACTIVE,Boolean)
|
|
If (CHANGED_WHO Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CHANGED_WHO,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(19).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 TBDD_INDEX_AUTOMTableAdapter
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
|
|
|
|
Private _connection As Global.System.Data.SqlClient.SqlConnection
|
|
|
|
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
|
|
|
|
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
|
|
|
|
Private _clearBeforeFill As Boolean
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
|
|
Get
|
|
If (Me._adapter Is Nothing) Then
|
|
Me.InitAdapter
|
|
End If
|
|
Return Me._adapter
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
|
|
Get
|
|
If (Me._connection Is Nothing) Then
|
|
Me.InitConnection
|
|
End If
|
|
Return Me._connection
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Connection = value
|
|
End If
|
|
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Connection = value
|
|
End If
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
|
CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
|
|
End If
|
|
i = (i + 1)
|
|
Loop
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
|
|
Get
|
|
Return Me._transaction
|
|
End Get
|
|
Set
|
|
Me._transaction = value
|
|
Dim i As Integer = 0
|
|
Do While (i < Me.CommandCollection.Length)
|
|
Me.CommandCollection(i).Transaction = Me._transaction
|
|
i = (i + 1)
|
|
Loop
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
|
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
|
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
|
End If
|
|
If ((Not (Me.Adapter) Is Nothing) _
|
|
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
|
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
|
|
Get
|
|
If (Me._commandCollection Is Nothing) Then
|
|
Me.InitCommandCollection
|
|
End If
|
|
Return Me._commandCollection
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitAdapter()
|
|
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
|
|
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
|
tableMapping.SourceTable = "Table"
|
|
tableMapping.DataSetTable = "TBDD_INDEX_AUTOM"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID")
|
|
tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID")
|
|
tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME")
|
|
tableMapping.ColumnMappings.Add("VALUE", "VALUE")
|
|
tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID")
|
|
tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
|
|
tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
|
|
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
|
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
|
|
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
|
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
|
|
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
|
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 TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
|
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, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, ENTITY_ID, IN"& _
|
|
"DEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE"& _
|
|
", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTIO"& _
|
|
"N_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _
|
|
"ID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTI"& _
|
|
"VE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _
|
|
"FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", 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("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, ENTIT"& _
|
|
"Y_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONN"& _
|
|
"ECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WH"& _
|
|
"O = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_I"& _
|
|
"D, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, "& _
|
|
"ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_IND"& _
|
|
"EX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", 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("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", 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", "16.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_R"& _
|
|
"ESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _
|
|
", CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DO"& _
|
|
"KID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
|
Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOKID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_AUTOMDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer)
|
|
Dim dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable = New GlobixDataset.TBDD_INDEX_AUTOMDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
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", "16.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", "16.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) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
|
Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer)
|
|
If (INDEXNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("INDEXNAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEXNAME,String)
|
|
End If
|
|
If (VALUE Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(VALUE,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(CONNECTION_ID,Short)
|
|
If (SQL_RESULT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SQL_RESULT")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_RESULT,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean)
|
|
If (COMMENT Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(ACTIVE,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer)
|
|
If (ADDED_WHO Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer)
|
|
If (INDEXNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("INDEXNAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEXNAME,String)
|
|
End If
|
|
If (VALUE Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VALUE,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CONNECTION_ID,Short)
|
|
If (SQL_RESULT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SQL_RESULT")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_RESULT,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean)
|
|
If (COMMENT Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ACTIVE,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer)
|
|
If (CHANGED_WHO Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(12).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>
|
|
'''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 _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter
|
|
|
|
Private _tBDD_INDEX_MANTableAdapter As TBDD_INDEX_MANTableAdapter
|
|
|
|
Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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 TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter
|
|
Get
|
|
Return Me._tBDD_DOKUMENTARTTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBDD_DOKUMENTARTTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 TBDD_INDEX_MANTableAdapter() As TBDD_INDEX_MANTableAdapter
|
|
Get
|
|
Return Me._tBDD_INDEX_MANTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBDD_INDEX_MANTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter
|
|
Get
|
|
Return Me._tBDD_INDEX_AUTOMTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBDD_INDEX_AUTOMTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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", "16.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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBDD_DOKUMENTARTTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBDD_INDEX_MANTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBDD_INDEX_MANTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBDD_INDEX_AUTOMTableAdapter.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", "16.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) 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", "16.0.0.0")> _
|
|
Private Function UpdateUpdatedRows(ByVal dataSet As GlobixDataset, 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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.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._tBDD_INDEX_MANTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.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._tBDD_INDEX_AUTOMTableAdapter.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", "16.0.0.0")> _
|
|
Private Function UpdateInsertedRows(ByVal dataSet As GlobixDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.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", "16.0.0.0")> _
|
|
Private Function UpdateDeletedRows(ByVal dataSet As GlobixDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBDD_DOKUMENTARTTableAdapter.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", "16.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", "16.0.0.0")> _
|
|
Public Overridable Function UpdateAll(ByVal dataSet As GlobixDataset) 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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.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._tBDD_INDEX_MANTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_MANTableAdapter.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._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection)
|
|
Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBDD_INDEX_MANTableAdapter, Me._tBDD_INDEX_MANTableAdapter.Connection)
|
|
Me._tBDD_INDEX_MANTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_INDEX_MANTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MANTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection)
|
|
Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.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._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then
|
|
Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then
|
|
Me._tBDD_INDEX_MANTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MANTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_INDEX_MANTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then
|
|
Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_INDEX_AUTOMTableAdapter.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", "16.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", "16.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", "16.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", "16.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", "16.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", "16.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", "16.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
|