13405 lines
808 KiB
VB.net
13405 lines
808 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("MyDataset"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class MyDataset
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tableTBKOMMCOLLI_MANDANT As TBKOMMCOLLI_MANDANTDataTable
|
|
|
|
Private tableTBWH_MANDANT As TBWH_MANDANTDataTable
|
|
|
|
Private tableTBKOMMCOLLI_PAKET_KOPF As TBKOMMCOLLI_PAKET_KOPFDataTable
|
|
|
|
Private tableTBKOMMCOLLI_PAKET_POS As TBKOMMCOLLI_PAKET_POSDataTable
|
|
|
|
Private tableVWKOMMCOLLI_ABSCHLUSS_PAKET As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable
|
|
|
|
Private tableTBKOMMCOLLI_TERMINART As TBKOMMCOLLI_TERMINARTDataTable
|
|
|
|
Private tableTBKOMMCOLLI_PAKET_POS_LS As TBKOMMCOLLI_PAKET_POS_LSDataTable
|
|
|
|
Private tableTBKOMMCOLLI_SDGPOSITIONEN As TBKOMMCOLLI_SDGPOSITIONENDataTable
|
|
|
|
Private tableTBKOMMCOLLI_TEXTSCHLUESSEL As TBKOMMCOLLI_TEXTSCHLUESSELDataTable
|
|
|
|
Private tableTBKOMMCOLLI_HINWEIS As TBKOMMCOLLI_HINWEISDataTable
|
|
|
|
Private tableVWHUP_REPORT1 As VWHUP_REPORT1DataTable
|
|
|
|
Private tableVWKOMMCOLLI_UEBERSICHT As VWKOMMCOLLI_UEBERSICHTDataTable
|
|
|
|
Private relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1 As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBKOMMCOLLI_TERMINART_MANDANT_ID 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", "15.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", "15.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("TBKOMMCOLLI_MANDANT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_MANDANTDataTable(ds.Tables("TBKOMMCOLLI_MANDANT")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_MANDANT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_MANDANTDataTable(ds.Tables("TBWH_MANDANT")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_PAKET_KOPF")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_PAKET_KOPFDataTable(ds.Tables("TBKOMMCOLLI_PAKET_KOPF")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_PAKET_POS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_PAKET_POSDataTable(ds.Tables("TBKOMMCOLLI_PAKET_POS")))
|
|
End If
|
|
If (Not (ds.Tables("VWKOMMCOLLI_ABSCHLUSS_PAKET")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable(ds.Tables("VWKOMMCOLLI_ABSCHLUSS_PAKET")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_TERMINART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_TERMINARTDataTable(ds.Tables("TBKOMMCOLLI_TERMINART")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_PAKET_POS_LS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_PAKET_POS_LSDataTable(ds.Tables("TBKOMMCOLLI_PAKET_POS_LS")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_SDGPOSITIONEN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_SDGPOSITIONENDataTable(ds.Tables("TBKOMMCOLLI_SDGPOSITIONEN")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_TEXTSCHLUESSEL")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_TEXTSCHLUESSELDataTable(ds.Tables("TBKOMMCOLLI_TEXTSCHLUESSEL")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_HINWEIS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_HINWEISDataTable(ds.Tables("TBKOMMCOLLI_HINWEIS")))
|
|
End If
|
|
If (Not (ds.Tables("VWHUP_REPORT1")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWHUP_REPORT1DataTable(ds.Tables("VWHUP_REPORT1")))
|
|
End If
|
|
If (Not (ds.Tables("VWKOMMCOLLI_UEBERSICHT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWKOMMCOLLI_UEBERSICHTDataTable(ds.Tables("VWKOMMCOLLI_UEBERSICHT")))
|
|
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", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_MANDANT() As TBKOMMCOLLI_MANDANTDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_MANDANT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBWH_MANDANT() As TBWH_MANDANTDataTable
|
|
Get
|
|
Return Me.tableTBWH_MANDANT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_PAKET_KOPF() As TBKOMMCOLLI_PAKET_KOPFDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_PAKET_KOPF
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_PAKET_POS() As TBKOMMCOLLI_PAKET_POSDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_PAKET_POS
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property VWKOMMCOLLI_ABSCHLUSS_PAKET() As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable
|
|
Get
|
|
Return Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_TERMINART() As TBKOMMCOLLI_TERMINARTDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_TERMINART
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_PAKET_POS_LS() As TBKOMMCOLLI_PAKET_POS_LSDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_PAKET_POS_LS
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_SDGPOSITIONEN() As TBKOMMCOLLI_SDGPOSITIONENDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_SDGPOSITIONEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_TEXTSCHLUESSEL() As TBKOMMCOLLI_TEXTSCHLUESSELDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBKOMMCOLLI_HINWEIS() As TBKOMMCOLLI_HINWEISDataTable
|
|
Get
|
|
Return Me.tableTBKOMMCOLLI_HINWEIS
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property VWHUP_REPORT1() As VWHUP_REPORT1DataTable
|
|
Get
|
|
Return Me.tableVWHUP_REPORT1
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property VWKOMMCOLLI_UEBERSICHT() As VWKOMMCOLLI_UEBERSICHTDataTable
|
|
Get
|
|
Return Me.tableVWKOMMCOLLI_UEBERSICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataSet
|
|
Dim cln As MyDataset = CType(MyBase.Clone,MyDataset)
|
|
cln.InitVars
|
|
cln.SchemaSerializationMode = Me.SchemaSerializationMode
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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("TBKOMMCOLLI_MANDANT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_MANDANTDataTable(ds.Tables("TBKOMMCOLLI_MANDANT")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_MANDANT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_MANDANTDataTable(ds.Tables("TBWH_MANDANT")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_PAKET_KOPF")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_PAKET_KOPFDataTable(ds.Tables("TBKOMMCOLLI_PAKET_KOPF")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_PAKET_POS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_PAKET_POSDataTable(ds.Tables("TBKOMMCOLLI_PAKET_POS")))
|
|
End If
|
|
If (Not (ds.Tables("VWKOMMCOLLI_ABSCHLUSS_PAKET")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable(ds.Tables("VWKOMMCOLLI_ABSCHLUSS_PAKET")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_TERMINART")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_TERMINARTDataTable(ds.Tables("TBKOMMCOLLI_TERMINART")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_PAKET_POS_LS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_PAKET_POS_LSDataTable(ds.Tables("TBKOMMCOLLI_PAKET_POS_LS")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_SDGPOSITIONEN")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_SDGPOSITIONENDataTable(ds.Tables("TBKOMMCOLLI_SDGPOSITIONEN")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_TEXTSCHLUESSEL")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_TEXTSCHLUESSELDataTable(ds.Tables("TBKOMMCOLLI_TEXTSCHLUESSEL")))
|
|
End If
|
|
If (Not (ds.Tables("TBKOMMCOLLI_HINWEIS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBKOMMCOLLI_HINWEISDataTable(ds.Tables("TBKOMMCOLLI_HINWEIS")))
|
|
End If
|
|
If (Not (ds.Tables("VWHUP_REPORT1")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWHUP_REPORT1DataTable(ds.Tables("VWHUP_REPORT1")))
|
|
End If
|
|
If (Not (ds.Tables("VWKOMMCOLLI_UEBERSICHT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWKOMMCOLLI_UEBERSICHTDataTable(ds.Tables("VWKOMMCOLLI_UEBERSICHT")))
|
|
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", "15.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", "15.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", "15.0.0.0")> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tableTBKOMMCOLLI_MANDANT = CType(MyBase.Tables("TBKOMMCOLLI_MANDANT"),TBKOMMCOLLI_MANDANTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_MANDANT) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_MANDANT.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBWH_MANDANT = CType(MyBase.Tables("TBWH_MANDANT"),TBWH_MANDANTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBWH_MANDANT) Is Nothing) Then
|
|
Me.tableTBWH_MANDANT.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_PAKET_KOPF = CType(MyBase.Tables("TBKOMMCOLLI_PAKET_KOPF"),TBKOMMCOLLI_PAKET_KOPFDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_PAKET_KOPF) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_PAKET_KOPF.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_PAKET_POS = CType(MyBase.Tables("TBKOMMCOLLI_PAKET_POS"),TBKOMMCOLLI_PAKET_POSDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_PAKET_POS) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_PAKET_POS.InitVars
|
|
End If
|
|
End If
|
|
Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET = CType(MyBase.Tables("VWKOMMCOLLI_ABSCHLUSS_PAKET"),VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET) Is Nothing) Then
|
|
Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_TERMINART = CType(MyBase.Tables("TBKOMMCOLLI_TERMINART"),TBKOMMCOLLI_TERMINARTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_TERMINART) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_TERMINART.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_PAKET_POS_LS = CType(MyBase.Tables("TBKOMMCOLLI_PAKET_POS_LS"),TBKOMMCOLLI_PAKET_POS_LSDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_PAKET_POS_LS) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_PAKET_POS_LS.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_SDGPOSITIONEN = CType(MyBase.Tables("TBKOMMCOLLI_SDGPOSITIONEN"),TBKOMMCOLLI_SDGPOSITIONENDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_SDGPOSITIONEN) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_SDGPOSITIONEN.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL = CType(MyBase.Tables("TBKOMMCOLLI_TEXTSCHLUESSEL"),TBKOMMCOLLI_TEXTSCHLUESSELDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBKOMMCOLLI_HINWEIS = CType(MyBase.Tables("TBKOMMCOLLI_HINWEIS"),TBKOMMCOLLI_HINWEISDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBKOMMCOLLI_HINWEIS) Is Nothing) Then
|
|
Me.tableTBKOMMCOLLI_HINWEIS.InitVars
|
|
End If
|
|
End If
|
|
Me.tableVWHUP_REPORT1 = CType(MyBase.Tables("VWHUP_REPORT1"),VWHUP_REPORT1DataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableVWHUP_REPORT1) Is Nothing) Then
|
|
Me.tableVWHUP_REPORT1.InitVars
|
|
End If
|
|
End If
|
|
Me.tableVWKOMMCOLLI_UEBERSICHT = CType(MyBase.Tables("VWKOMMCOLLI_UEBERSICHT"),VWKOMMCOLLI_UEBERSICHTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableVWKOMMCOLLI_UEBERSICHT) Is Nothing) Then
|
|
Me.tableVWKOMMCOLLI_UEBERSICHT.InitVars
|
|
End If
|
|
End If
|
|
Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID = Me.Relations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID")
|
|
Me.relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID = Me.Relations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID")
|
|
Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1 = Me.Relations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1")
|
|
Me.relationFK_TBKOMMCOLLI_TERMINART_MANDANT_ID = Me.Relations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.DataSetName = "MyDataset"
|
|
Me.Prefix = ""
|
|
Me.Namespace = "http://tempuri.org/MyDataset.xsd"
|
|
Me.EnforceConstraints = true
|
|
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
Me.tableTBKOMMCOLLI_MANDANT = New TBKOMMCOLLI_MANDANTDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_MANDANT)
|
|
Me.tableTBWH_MANDANT = New TBWH_MANDANTDataTable()
|
|
MyBase.Tables.Add(Me.tableTBWH_MANDANT)
|
|
Me.tableTBKOMMCOLLI_PAKET_KOPF = New TBKOMMCOLLI_PAKET_KOPFDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_PAKET_KOPF)
|
|
Me.tableTBKOMMCOLLI_PAKET_POS = New TBKOMMCOLLI_PAKET_POSDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_PAKET_POS)
|
|
Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET = New VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable()
|
|
MyBase.Tables.Add(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET)
|
|
Me.tableTBKOMMCOLLI_TERMINART = New TBKOMMCOLLI_TERMINARTDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_TERMINART)
|
|
Me.tableTBKOMMCOLLI_PAKET_POS_LS = New TBKOMMCOLLI_PAKET_POS_LSDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_PAKET_POS_LS)
|
|
Me.tableTBKOMMCOLLI_SDGPOSITIONEN = New TBKOMMCOLLI_SDGPOSITIONENDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_SDGPOSITIONEN)
|
|
Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL = New TBKOMMCOLLI_TEXTSCHLUESSELDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL)
|
|
Me.tableTBKOMMCOLLI_HINWEIS = New TBKOMMCOLLI_HINWEISDataTable()
|
|
MyBase.Tables.Add(Me.tableTBKOMMCOLLI_HINWEIS)
|
|
Me.tableVWHUP_REPORT1 = New VWHUP_REPORT1DataTable()
|
|
MyBase.Tables.Add(Me.tableVWHUP_REPORT1)
|
|
Me.tableVWKOMMCOLLI_UEBERSICHT = New VWKOMMCOLLI_UEBERSICHTDataTable()
|
|
MyBase.Tables.Add(Me.tableVWKOMMCOLLI_UEBERSICHT)
|
|
Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID = New Global.System.Data.DataRelation("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID", New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_MANDANT.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_KOPF.MANDANT_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID)
|
|
Me.relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID = New Global.System.Data.DataRelation("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID", New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_KOPF.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_POS.KOPF_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID)
|
|
Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1 = New Global.System.Data.DataRelation("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1", New Global.System.Data.DataColumn() {Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_KOPF.MANDANT_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1)
|
|
Me.relationFK_TBKOMMCOLLI_TERMINART_MANDANT_ID = New Global.System.Data.DataRelation("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID", New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_MANDANT.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_TERMINART.MANDANT_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBKOMMCOLLI_TERMINART_MANDANT_ID)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_MANDANT() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBWH_MANDANT() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_PAKET_KOPF() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_PAKET_POS() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeVWKOMMCOLLI_ABSCHLUSS_PAKET() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_TERMINART() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_PAKET_POS_LS() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_SDGPOSITIONEN() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_TEXTSCHLUESSEL() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBKOMMCOLLI_HINWEIS() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeVWHUP_REPORT1() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeVWKOMMCOLLI_UEBERSICHT() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim ds As MyDataset = New MyDataset()
|
|
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", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_MANDANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_MANDANTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBWH_MANDANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_MANDANTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_PAKET_KOPFRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_PAKET_POSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_PAKET_POSRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler(ByVal sender As Object, ByVal e As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_TERMINARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_TERMINARTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBKOMMCOLLI_HINWEISRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_HINWEISRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub VWHUP_REPORT1RowChangeEventHandler(ByVal sender As Object, ByVal e As VWHUP_REPORT1RowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler(ByVal sender As Object, ByVal e As VWKOMMCOLLI_UEBERSICHTRowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBKOMMCOLLI_MANDANTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_MANDANTRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnKURZNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnSPEICHERORT As Global.System.Data.DataColumn
|
|
|
|
Private columnPRAEFIX As Global.System.Data.DataColumn
|
|
|
|
Private columnTRENNUNG_BC As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEANDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnAKTIV As Global.System.Data.DataColumn
|
|
|
|
Private columnMANDANTENCODE As Global.System.Data.DataColumn
|
|
|
|
Private columnNVE_FEST As Global.System.Data.DataColumn
|
|
|
|
Private columnNVE_VAR As Global.System.Data.DataColumn
|
|
|
|
Private columnPRINTER_NAME As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_MANDANT"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property SPEICHERORTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSPEICHERORT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PRAEFIXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPRAEFIX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TRENNUNG_BCColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTRENNUNG_BC
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property MANDANTENCODEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMANDANTENCODE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property NVE_FESTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNVE_FEST
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property NVE_VARColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNVE_VAR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PRINTER_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPRINTER_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_MANDANTRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_MANDANTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_MANDANTRowChanging As TBKOMMCOLLI_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_MANDANTRowChanged As TBKOMMCOLLI_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_MANDANTRowDeleting As TBKOMMCOLLI_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_MANDANTRowDeleted As TBKOMMCOLLI_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_MANDANTRow(ByVal row As TBKOMMCOLLI_MANDANTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_MANDANTRow(ByVal NAME As String, ByVal KURZNAME As String, ByVal SPEICHERORT As String, ByVal PRAEFIX As String, ByVal TRENNUNG_BC As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal AKTIV As Boolean, ByVal MANDANTENCODE As String, ByVal NVE_FEST As String, ByVal NVE_VAR As Long, ByVal PRINTER_NAME As String) As TBKOMMCOLLI_MANDANTRow
|
|
Dim rowTBKOMMCOLLI_MANDANTRow As TBKOMMCOLLI_MANDANTRow = CType(Me.NewRow,TBKOMMCOLLI_MANDANTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, KURZNAME, SPEICHERORT, PRAEFIX, TRENNUNG_BC, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV, MANDANTENCODE, NVE_FEST, NVE_VAR, PRINTER_NAME}
|
|
rowTBKOMMCOLLI_MANDANTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_MANDANTRow)
|
|
Return rowTBKOMMCOLLI_MANDANTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_MANDANTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_MANDANTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_MANDANTDataTable = CType(MyBase.Clone,TBKOMMCOLLI_MANDANTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_MANDANTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnNAME = MyBase.Columns("NAME")
|
|
Me.columnKURZNAME = MyBase.Columns("KURZNAME")
|
|
Me.columnSPEICHERORT = MyBase.Columns("SPEICHERORT")
|
|
Me.columnPRAEFIX = MyBase.Columns("PRAEFIX")
|
|
Me.columnTRENNUNG_BC = MyBase.Columns("TRENNUNG_BC")
|
|
Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER")
|
|
Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN")
|
|
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
Me.columnAKTIV = MyBase.Columns("AKTIV")
|
|
Me.columnMANDANTENCODE = MyBase.Columns("MANDANTENCODE")
|
|
Me.columnNVE_FEST = MyBase.Columns("NVE_FEST")
|
|
Me.columnNVE_VAR = MyBase.Columns("NVE_VAR")
|
|
Me.columnPRINTER_NAME = MyBase.Columns("PRINTER_NAME")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAME)
|
|
Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKURZNAME)
|
|
Me.columnSPEICHERORT = New Global.System.Data.DataColumn("SPEICHERORT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSPEICHERORT)
|
|
Me.columnPRAEFIX = New Global.System.Data.DataColumn("PRAEFIX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPRAEFIX)
|
|
Me.columnTRENNUNG_BC = New Global.System.Data.DataColumn("TRENNUNG_BC", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTRENNUNG_BC)
|
|
Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWER)
|
|
Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWANN)
|
|
Me.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.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAKTIV)
|
|
Me.columnMANDANTENCODE = New Global.System.Data.DataColumn("MANDANTENCODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMANDANTENCODE)
|
|
Me.columnNVE_FEST = New Global.System.Data.DataColumn("NVE_FEST", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNVE_FEST)
|
|
Me.columnNVE_VAR = New Global.System.Data.DataColumn("NVE_VAR", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNVE_VAR)
|
|
Me.columnPRINTER_NAME = New Global.System.Data.DataColumn("PRINTER_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPRINTER_NAME)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnNAME.AllowDBNull = false
|
|
Me.columnNAME.MaxLength = 100
|
|
Me.columnKURZNAME.AllowDBNull = false
|
|
Me.columnKURZNAME.MaxLength = 50
|
|
Me.columnSPEICHERORT.AllowDBNull = false
|
|
Me.columnSPEICHERORT.MaxLength = 500
|
|
Me.columnPRAEFIX.MaxLength = 20
|
|
Me.columnTRENNUNG_BC.AllowDBNull = false
|
|
Me.columnTRENNUNG_BC.MaxLength = 2
|
|
Me.columnERFASSTWER.AllowDBNull = false
|
|
Me.columnERFASSTWER.MaxLength = 30
|
|
Me.columnGEANDERTWER.MaxLength = 30
|
|
Me.columnAKTIV.AllowDBNull = false
|
|
Me.columnAKTIV.DefaultValue = CType(false,Boolean)
|
|
Me.columnMANDANTENCODE.AllowDBNull = false
|
|
Me.columnMANDANTENCODE.MaxLength = 35
|
|
Me.columnNVE_FEST.MaxLength = 10
|
|
Me.columnPRINTER_NAME.DefaultValue = CType("",String)
|
|
Me.columnPRINTER_NAME.MaxLength = 300
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_MANDANTRow() As TBKOMMCOLLI_MANDANTRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_MANDANTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_MANDANTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_MANDANTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_MANDANTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_MANDANTRowChanged(Me, New TBKOMMCOLLI_MANDANTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_MANDANTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_MANDANTRowChanging(Me, New TBKOMMCOLLI_MANDANTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_MANDANTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_MANDANTRowDeleted(Me, New TBKOMMCOLLI_MANDANTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_MANDANTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_MANDANTRowDeleting(Me, New TBKOMMCOLLI_MANDANTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_MANDANTRow(ByVal row As TBKOMMCOLLI_MANDANTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_MANDANTDataTable"
|
|
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 TBWH_MANDANTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBWH_MANDANTRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnKURZNAME As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBWH_MANDANT"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_MANDANTRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBWH_MANDANTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_MANDANTRowChanging As TBWH_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_MANDANTRowChanged As TBWH_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_MANDANTRowDeleting As TBWH_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_MANDANTRowDeleted As TBWH_MANDANTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBWH_MANDANTRow(ByVal row As TBWH_MANDANTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBWH_MANDANTRow(ByVal NAME As String, ByVal KURZNAME As String) As TBWH_MANDANTRow
|
|
Dim rowTBWH_MANDANTRow As TBWH_MANDANTRow = CType(Me.NewRow,TBWH_MANDANTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, KURZNAME}
|
|
rowTBWH_MANDANTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBWH_MANDANTRow)
|
|
Return rowTBWH_MANDANTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBWH_MANDANTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_MANDANTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBWH_MANDANTDataTable = CType(MyBase.Clone,TBWH_MANDANTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBWH_MANDANTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnNAME = MyBase.Columns("NAME")
|
|
Me.columnKURZNAME = MyBase.Columns("KURZNAME")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAME)
|
|
Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKURZNAME)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnNAME.AllowDBNull = false
|
|
Me.columnNAME.MaxLength = 100
|
|
Me.columnKURZNAME.AllowDBNull = false
|
|
Me.columnKURZNAME.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBWH_MANDANTRow() As TBWH_MANDANTRow
|
|
Return CType(Me.NewRow,TBWH_MANDANTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBWH_MANDANTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBWH_MANDANTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBWH_MANDANTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_MANDANTRowChanged(Me, New TBWH_MANDANTRowChangeEvent(CType(e.Row,TBWH_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBWH_MANDANTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_MANDANTRowChanging(Me, New TBWH_MANDANTRowChangeEvent(CType(e.Row,TBWH_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBWH_MANDANTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_MANDANTRowDeleted(Me, New TBWH_MANDANTRowChangeEvent(CType(e.Row,TBWH_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBWH_MANDANTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_MANDANTRowDeleting(Me, New TBWH_MANDANTRowChangeEvent(CType(e.Row,TBWH_MANDANTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBWH_MANDANTRow(ByVal row As TBWH_MANDANTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBWH_MANDANTDataTable"
|
|
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 TBKOMMCOLLI_PAKET_KOPFDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_PAKET_KOPFRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnMANDANT_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnPAKET_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnFERTIG As Global.System.Data.DataColumn
|
|
|
|
Private columnFERTIG_WANN As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWO As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEANDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnTERMIN_KZ As Global.System.Data.DataColumn
|
|
|
|
Private columnANZ_PACKSTUECK As Global.System.Data.DataColumn
|
|
|
|
Private columnGESAMTGEWICHT As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_PAKET_KOPF"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMANDANT_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PAKET_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPAKET_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property FERTIGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFERTIG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property FERTIG_WANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFERTIG_WANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property TERMIN_KZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTERMIN_KZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ANZ_PACKSTUECKColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnANZ_PACKSTUECK
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property GESAMTGEWICHTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGESAMTGEWICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_PAKET_KOPFRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_PAKET_KOPFRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_KOPFRowChanging As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_KOPFRowChanged As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_KOPFRowDeleting As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_KOPFRowDeleted As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_PAKET_KOPFRow(ByVal row As TBKOMMCOLLI_PAKET_KOPFRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_PAKET_KOPFRow(ByVal parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID As TBKOMMCOLLI_MANDANTRow, ByVal PAKET_ID As String, ByVal FERTIG As Boolean, ByVal FERTIG_WANN As Date, ByVal ERFASSTWO As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TERMIN_KZ As String, ByVal ANZ_PACKSTUECK As Short, ByVal GESAMTGEWICHT As Double) As TBKOMMCOLLI_PAKET_KOPFRow
|
|
Dim rowTBKOMMCOLLI_PAKET_KOPFRow As TBKOMMCOLLI_PAKET_KOPFRow = CType(Me.NewRow,TBKOMMCOLLI_PAKET_KOPFRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PAKET_ID, FERTIG, FERTIG_WANN, ERFASSTWO, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TERMIN_KZ, ANZ_PACKSTUECK, GESAMTGEWICHT}
|
|
If (Not (parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID(0)
|
|
End If
|
|
rowTBKOMMCOLLI_PAKET_KOPFRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_PAKET_KOPFRow)
|
|
Return rowTBKOMMCOLLI_PAKET_KOPFRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_PAKET_KOPFRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_PAKET_KOPFRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_PAKET_KOPFDataTable = CType(MyBase.Clone,TBKOMMCOLLI_PAKET_KOPFDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_PAKET_KOPFDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID")
|
|
Me.columnPAKET_ID = MyBase.Columns("PAKET_ID")
|
|
Me.columnFERTIG = MyBase.Columns("FERTIG")
|
|
Me.columnFERTIG_WANN = MyBase.Columns("FERTIG_WANN")
|
|
Me.columnERFASSTWO = MyBase.Columns("ERFASSTWO")
|
|
Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER")
|
|
Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN")
|
|
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
Me.columnTERMIN_KZ = MyBase.Columns("TERMIN_KZ")
|
|
Me.columnANZ_PACKSTUECK = MyBase.Columns("ANZ_PACKSTUECK")
|
|
Me.columnGESAMTGEWICHT = MyBase.Columns("GESAMTGEWICHT")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMANDANT_ID)
|
|
Me.columnPAKET_ID = New Global.System.Data.DataColumn("PAKET_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPAKET_ID)
|
|
Me.columnFERTIG = New Global.System.Data.DataColumn("FERTIG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFERTIG)
|
|
Me.columnFERTIG_WANN = New Global.System.Data.DataColumn("FERTIG_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFERTIG_WANN)
|
|
Me.columnERFASSTWO = New Global.System.Data.DataColumn("ERFASSTWO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWO)
|
|
Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWER)
|
|
Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWANN)
|
|
Me.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.columnTERMIN_KZ = New Global.System.Data.DataColumn("TERMIN_KZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTERMIN_KZ)
|
|
Me.columnANZ_PACKSTUECK = New Global.System.Data.DataColumn("ANZ_PACKSTUECK", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnANZ_PACKSTUECK)
|
|
Me.columnGESAMTGEWICHT = New Global.System.Data.DataColumn("GESAMTGEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGESAMTGEWICHT)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnMANDANT_ID.AllowDBNull = false
|
|
Me.columnPAKET_ID.MaxLength = 100
|
|
Me.columnFERTIG.AllowDBNull = false
|
|
Me.columnERFASSTWO.AllowDBNull = false
|
|
Me.columnERFASSTWO.MaxLength = 30
|
|
Me.columnERFASSTWER.AllowDBNull = false
|
|
Me.columnERFASSTWER.MaxLength = 30
|
|
Me.columnERFASSTWANN.AllowDBNull = false
|
|
Me.columnGEANDERTWER.MaxLength = 30
|
|
Me.columnTERMIN_KZ.MaxLength = 30
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_PAKET_KOPFRow() As TBKOMMCOLLI_PAKET_KOPFRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_PAKET_KOPFRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_PAKET_KOPFRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_PAKET_KOPFRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_KOPFRowChanged(Me, New TBKOMMCOLLI_PAKET_KOPFRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_KOPFRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_KOPFRowChanging(Me, New TBKOMMCOLLI_PAKET_KOPFRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_KOPFRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_KOPFRowDeleted(Me, New TBKOMMCOLLI_PAKET_KOPFRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_KOPFRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_KOPFRowDeleting(Me, New TBKOMMCOLLI_PAKET_KOPFRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_KOPFRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_PAKET_KOPFRow(ByVal row As TBKOMMCOLLI_PAKET_KOPFRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_PAKET_KOPFDataTable"
|
|
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 TBKOMMCOLLI_PAKET_POSDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_PAKET_POSRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnKOPF_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnBARCODE As Global.System.Data.DataColumn
|
|
|
|
Private columnVKOPF_BESTELLNR As Global.System.Data.DataColumn
|
|
|
|
Private columnVKOPF_EINGANGNR As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_PAKET_POS"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property KOPF_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnKOPF_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property BARCODEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBARCODE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property VKOPF_BESTELLNRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVKOPF_BESTELLNR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property VKOPF_EINGANGNRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVKOPF_EINGANGNR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_PAKET_POSRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_PAKET_POSRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POSRowChanging As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POSRowChanged As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POSRowDeleting As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POSRowDeleted As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_PAKET_POSRow(ByVal row As TBKOMMCOLLI_PAKET_POSRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_PAKET_POSRow(ByVal parentTBKOMMCOLLI_PAKET_KOPFRowByFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID As TBKOMMCOLLI_PAKET_KOPFRow, ByVal BARCODE As String, ByVal VKOPF_BESTELLNR As String, ByVal VKOPF_EINGANGNR As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWANN As Date) As TBKOMMCOLLI_PAKET_POSRow
|
|
Dim rowTBKOMMCOLLI_PAKET_POSRow As TBKOMMCOLLI_PAKET_POSRow = CType(Me.NewRow,TBKOMMCOLLI_PAKET_POSRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, BARCODE, VKOPF_BESTELLNR, VKOPF_EINGANGNR, ERFASSTWANN, GEAENDERTWANN}
|
|
If (Not (parentTBKOMMCOLLI_PAKET_KOPFRowByFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBKOMMCOLLI_PAKET_KOPFRowByFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID(0)
|
|
End If
|
|
rowTBKOMMCOLLI_PAKET_POSRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_PAKET_POSRow)
|
|
Return rowTBKOMMCOLLI_PAKET_POSRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_PAKET_POSRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_PAKET_POSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_PAKET_POSDataTable = CType(MyBase.Clone,TBKOMMCOLLI_PAKET_POSDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_PAKET_POSDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnKOPF_ID = MyBase.Columns("KOPF_ID")
|
|
Me.columnBARCODE = MyBase.Columns("BARCODE")
|
|
Me.columnVKOPF_BESTELLNR = MyBase.Columns("VKOPF_BESTELLNR")
|
|
Me.columnVKOPF_EINGANGNR = MyBase.Columns("VKOPF_EINGANGNR")
|
|
Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnKOPF_ID = New Global.System.Data.DataColumn("KOPF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnKOPF_ID)
|
|
Me.columnBARCODE = New Global.System.Data.DataColumn("BARCODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBARCODE)
|
|
Me.columnVKOPF_BESTELLNR = New Global.System.Data.DataColumn("VKOPF_BESTELLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVKOPF_BESTELLNR)
|
|
Me.columnVKOPF_EINGANGNR = New Global.System.Data.DataColumn("VKOPF_EINGANGNR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVKOPF_EINGANGNR)
|
|
Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWANN)
|
|
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnKOPF_ID.AllowDBNull = false
|
|
Me.columnBARCODE.AllowDBNull = false
|
|
Me.columnBARCODE.MaxLength = 100
|
|
Me.columnVKOPF_BESTELLNR.MaxLength = 50
|
|
Me.columnVKOPF_EINGANGNR.MaxLength = 50
|
|
Me.columnERFASSTWANN.AllowDBNull = false
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_PAKET_POSRow() As TBKOMMCOLLI_PAKET_POSRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_PAKET_POSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_PAKET_POSRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_PAKET_POSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POSRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POSRowChanged(Me, New TBKOMMCOLLI_PAKET_POSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POSRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POSRowChanging(Me, New TBKOMMCOLLI_PAKET_POSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POSRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POSRowDeleted(Me, New TBKOMMCOLLI_PAKET_POSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POSRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POSRowDeleting(Me, New TBKOMMCOLLI_PAKET_POSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_PAKET_POSRow(ByVal row As TBKOMMCOLLI_PAKET_POSRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_PAKET_POSDataTable"
|
|
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 VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnMandant As Global.System.Data.DataColumn
|
|
|
|
Private columnPAKET_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnGepackt As Global.System.Data.DataColumn
|
|
|
|
Private columnAuswahl As Global.System.Data.DataColumn
|
|
|
|
Private columnMANDANT_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnTRENNUNG_BC As Global.System.Data.DataColumn
|
|
|
|
Private columnTERMIN_KZ As Global.System.Data.DataColumn
|
|
|
|
Private columnANZ_PACKSTUECK As Global.System.Data.DataColumn
|
|
|
|
Private columnGESAMTGEWICHT As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "VWKOMMCOLLI_ABSCHLUSS_PAKET"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMandant
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PAKET_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPAKET_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property GepacktColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGepackt
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property AuswahlColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnAuswahl
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMANDANT_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TRENNUNG_BCColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTRENNUNG_BC
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TERMIN_KZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTERMIN_KZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ANZ_PACKSTUECKColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnANZ_PACKSTUECK
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property GESAMTGEWICHTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGESAMTGEWICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Get
|
|
Return CType(Me.Rows(index),VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowChanging As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowChanged As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeleting As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeleted As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddVWKOMMCOLLI_ABSCHLUSS_PAKETRow(ByVal row As VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddVWKOMMCOLLI_ABSCHLUSS_PAKETRow(ByVal Mandant As String, ByVal PAKET_ID As String, ByVal Gepackt As Date, ByVal Auswahl As Boolean, ByVal TRENNUNG_BC As String, ByVal TERMIN_KZ As String, ByVal ANZ_PACKSTUECK As Short, ByVal GESAMTGEWICHT As Double) As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Dim rowVWKOMMCOLLI_ABSCHLUSS_PAKETRow As VWKOMMCOLLI_ABSCHLUSS_PAKETRow = CType(Me.NewRow,VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Mandant, PAKET_ID, Gepackt, Auswahl, Nothing, TRENNUNG_BC, TERMIN_KZ, ANZ_PACKSTUECK, GESAMTGEWICHT}
|
|
rowVWKOMMCOLLI_ABSCHLUSS_PAKETRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowVWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
Return rowVWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable = CType(MyBase.Clone,VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnMandant = MyBase.Columns("Mandant")
|
|
Me.columnPAKET_ID = MyBase.Columns("PAKET_ID")
|
|
Me.columnGepackt = MyBase.Columns("Gepackt")
|
|
Me.columnAuswahl = MyBase.Columns("Auswahl")
|
|
Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID")
|
|
Me.columnTRENNUNG_BC = MyBase.Columns("TRENNUNG_BC")
|
|
Me.columnTERMIN_KZ = MyBase.Columns("TERMIN_KZ")
|
|
Me.columnANZ_PACKSTUECK = MyBase.Columns("ANZ_PACKSTUECK")
|
|
Me.columnGESAMTGEWICHT = MyBase.Columns("GESAMTGEWICHT")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMandant)
|
|
Me.columnPAKET_ID = New Global.System.Data.DataColumn("PAKET_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPAKET_ID)
|
|
Me.columnGepackt = New Global.System.Data.DataColumn("Gepackt", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGepackt)
|
|
Me.columnAuswahl = New Global.System.Data.DataColumn("Auswahl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnAuswahl)
|
|
Me.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMANDANT_ID)
|
|
Me.columnTRENNUNG_BC = New Global.System.Data.DataColumn("TRENNUNG_BC", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTRENNUNG_BC)
|
|
Me.columnTERMIN_KZ = New Global.System.Data.DataColumn("TERMIN_KZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTERMIN_KZ)
|
|
Me.columnANZ_PACKSTUECK = New Global.System.Data.DataColumn("ANZ_PACKSTUECK", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnANZ_PACKSTUECK)
|
|
Me.columnGESAMTGEWICHT = New Global.System.Data.DataColumn("GESAMTGEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGESAMTGEWICHT)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnMandant.AllowDBNull = false
|
|
Me.columnMandant.MaxLength = 50
|
|
Me.columnPAKET_ID.MaxLength = 100
|
|
Me.columnAuswahl.DefaultValue = CType(false,Boolean)
|
|
Me.columnMANDANT_ID.AutoIncrement = true
|
|
Me.columnMANDANT_ID.AutoIncrementSeed = -1
|
|
Me.columnMANDANT_ID.AutoIncrementStep = -1
|
|
Me.columnMANDANT_ID.AllowDBNull = false
|
|
Me.columnMANDANT_ID.ReadOnly = true
|
|
Me.columnTRENNUNG_BC.AllowDBNull = false
|
|
Me.columnTRENNUNG_BC.MaxLength = 2
|
|
Me.columnTERMIN_KZ.MaxLength = 30
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewVWKOMMCOLLI_ABSCHLUSS_PAKETRow() As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Return CType(Me.NewRow,VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New VWKOMMCOLLI_ABSCHLUSS_PAKETRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_ABSCHLUSS_PAKETRowChanged(Me, New VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent(CType(e.Row,VWKOMMCOLLI_ABSCHLUSS_PAKETRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_ABSCHLUSS_PAKETRowChanging(Me, New VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent(CType(e.Row,VWKOMMCOLLI_ABSCHLUSS_PAKETRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeleted(Me, New VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent(CType(e.Row,VWKOMMCOLLI_ABSCHLUSS_PAKETRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeleting(Me, New VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent(CType(e.Row,VWKOMMCOLLI_ABSCHLUSS_PAKETRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveVWKOMMCOLLI_ABSCHLUSS_PAKETRow(ByVal row As VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable"
|
|
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 TBKOMMCOLLI_TERMINARTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_TERMINARTRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnMANDANT_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnTERMIN_BEZEICHNUNG As Global.System.Data.DataColumn
|
|
|
|
Private columnTERMIN_KZ As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnERFASSTWANN As Global.System.Data.DataColumn
|
|
|
|
Private columnGEANDERTWER As Global.System.Data.DataColumn
|
|
|
|
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_TERMINART"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnMANDANT_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TERMIN_BEZEICHNUNGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTERMIN_BEZEICHNUNG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TERMIN_KZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTERMIN_KZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWER
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnERFASSTWANN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_TERMINARTRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_TERMINARTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TERMINARTRowChanging As TBKOMMCOLLI_TERMINARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TERMINARTRowChanged As TBKOMMCOLLI_TERMINARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TERMINARTRowDeleting As TBKOMMCOLLI_TERMINARTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TERMINARTRowDeleted As TBKOMMCOLLI_TERMINARTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_TERMINARTRow(ByVal row As TBKOMMCOLLI_TERMINARTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_TERMINARTRow(ByVal parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_TERMINART_MANDANT_ID As TBKOMMCOLLI_MANDANTRow, ByVal TERMIN_BEZEICHNUNG As String, ByVal TERMIN_KZ As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBKOMMCOLLI_TERMINARTRow
|
|
Dim rowTBKOMMCOLLI_TERMINARTRow As TBKOMMCOLLI_TERMINARTRow = CType(Me.NewRow,TBKOMMCOLLI_TERMINARTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TERMIN_BEZEICHNUNG, TERMIN_KZ, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN}
|
|
If (Not (parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_TERMINART_MANDANT_ID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_TERMINART_MANDANT_ID(0)
|
|
End If
|
|
rowTBKOMMCOLLI_TERMINARTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_TERMINARTRow)
|
|
Return rowTBKOMMCOLLI_TERMINARTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_TERMINARTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_TERMINARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_TERMINARTDataTable = CType(MyBase.Clone,TBKOMMCOLLI_TERMINARTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_TERMINARTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID")
|
|
Me.columnTERMIN_BEZEICHNUNG = MyBase.Columns("TERMIN_BEZEICHNUNG")
|
|
Me.columnTERMIN_KZ = MyBase.Columns("TERMIN_KZ")
|
|
Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER")
|
|
Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN")
|
|
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
|
|
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnMANDANT_ID)
|
|
Me.columnTERMIN_BEZEICHNUNG = New Global.System.Data.DataColumn("TERMIN_BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTERMIN_BEZEICHNUNG)
|
|
Me.columnTERMIN_KZ = New Global.System.Data.DataColumn("TERMIN_KZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTERMIN_KZ)
|
|
Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWER)
|
|
Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnERFASSTWANN)
|
|
Me.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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnMANDANT_ID.AllowDBNull = false
|
|
Me.columnTERMIN_BEZEICHNUNG.AllowDBNull = false
|
|
Me.columnTERMIN_BEZEICHNUNG.MaxLength = 100
|
|
Me.columnTERMIN_KZ.AllowDBNull = false
|
|
Me.columnTERMIN_KZ.MaxLength = 50
|
|
Me.columnERFASSTWER.AllowDBNull = false
|
|
Me.columnERFASSTWER.MaxLength = 30
|
|
Me.columnERFASSTWANN.AllowDBNull = false
|
|
Me.columnGEANDERTWER.MaxLength = 30
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_TERMINARTRow() As TBKOMMCOLLI_TERMINARTRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_TERMINARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_TERMINARTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_TERMINARTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_TERMINARTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TERMINARTRowChanged(Me, New TBKOMMCOLLI_TERMINARTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TERMINARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_TERMINARTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TERMINARTRowChanging(Me, New TBKOMMCOLLI_TERMINARTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TERMINARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_TERMINARTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TERMINARTRowDeleted(Me, New TBKOMMCOLLI_TERMINARTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TERMINARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_TERMINARTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TERMINARTRowDeleting(Me, New TBKOMMCOLLI_TERMINARTRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TERMINARTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_TERMINARTRow(ByVal row As TBKOMMCOLLI_TERMINARTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_TERMINARTDataTable"
|
|
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 TBKOMMCOLLI_PAKET_POS_LSDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
|
|
Private columnVKOPF_EINGANGNR As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_PAKET_POS_LS"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property VKOPF_EINGANGNRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVKOPF_EINGANGNR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_PAKET_POS_LSRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POS_LSRowChanging As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POS_LSRowChanged As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POS_LSRowDeleting As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_PAKET_POS_LSRowDeleted As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_PAKET_POS_LSRow(ByVal row As TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_PAKET_POS_LSRow(ByVal VKOPF_EINGANGNR As String) As TBKOMMCOLLI_PAKET_POS_LSRow
|
|
Dim rowTBKOMMCOLLI_PAKET_POS_LSRow As TBKOMMCOLLI_PAKET_POS_LSRow = CType(Me.NewRow,TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
Dim columnValuesArray() As Object = New Object() {VKOPF_EINGANGNR}
|
|
rowTBKOMMCOLLI_PAKET_POS_LSRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_PAKET_POS_LSRow)
|
|
Return rowTBKOMMCOLLI_PAKET_POS_LSRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_PAKET_POS_LSDataTable = CType(MyBase.Clone,TBKOMMCOLLI_PAKET_POS_LSDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_PAKET_POS_LSDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnVKOPF_EINGANGNR = MyBase.Columns("VKOPF_EINGANGNR")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnVKOPF_EINGANGNR = New Global.System.Data.DataColumn("VKOPF_EINGANGNR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVKOPF_EINGANGNR)
|
|
Me.columnVKOPF_EINGANGNR.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_PAKET_POS_LSRow() As TBKOMMCOLLI_PAKET_POS_LSRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_PAKET_POS_LSRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POS_LSRowChanged(Me, New TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POS_LSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POS_LSRowChanging(Me, New TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POS_LSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POS_LSRowDeleted(Me, New TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POS_LSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_PAKET_POS_LSRowDeleting(Me, New TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent(CType(e.Row,TBKOMMCOLLI_PAKET_POS_LSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_PAKET_POS_LSRow(ByVal row As TBKOMMCOLLI_PAKET_POS_LSRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_PAKET_POS_LSDataTable"
|
|
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 TBKOMMCOLLI_SDGPOSITIONENDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPOSINHALT As Global.System.Data.DataColumn
|
|
|
|
Private columnGEWICHT As Global.System.Data.DataColumn
|
|
|
|
Private columnLHM As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_SDGPOSITIONEN"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property POSINHALTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPOSINHALT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property GEWICHTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGEWICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property LHMColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLHM
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_SDGPOSITIONENRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_SDGPOSITIONENRowChanging As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_SDGPOSITIONENRowChanged As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_SDGPOSITIONENRowDeleting As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_SDGPOSITIONENRowDeleted As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_SDGPOSITIONENRow(ByVal row As TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_SDGPOSITIONENRow(ByVal POSINHALT As String, ByVal GEWICHT As Double, ByVal LHM As String) As TBKOMMCOLLI_SDGPOSITIONENRow
|
|
Dim rowTBKOMMCOLLI_SDGPOSITIONENRow As TBKOMMCOLLI_SDGPOSITIONENRow = CType(Me.NewRow,TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, POSINHALT, GEWICHT, LHM}
|
|
rowTBKOMMCOLLI_SDGPOSITIONENRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_SDGPOSITIONENRow)
|
|
Return rowTBKOMMCOLLI_SDGPOSITIONENRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_SDGPOSITIONENRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_SDGPOSITIONENDataTable = CType(MyBase.Clone,TBKOMMCOLLI_SDGPOSITIONENDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_SDGPOSITIONENDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPOSINHALT = MyBase.Columns("POSINHALT")
|
|
Me.columnGEWICHT = MyBase.Columns("GEWICHT")
|
|
Me.columnLHM = MyBase.Columns("LHM")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPOSINHALT = New Global.System.Data.DataColumn("POSINHALT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPOSINHALT)
|
|
Me.columnGEWICHT = New Global.System.Data.DataColumn("GEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGEWICHT)
|
|
Me.columnLHM = New Global.System.Data.DataColumn("LHM", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLHM)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPOSINHALT.AllowDBNull = false
|
|
Me.columnPOSINHALT.MaxLength = 35
|
|
Me.columnGEWICHT.AllowDBNull = false
|
|
Me.columnLHM.AllowDBNull = false
|
|
Me.columnLHM.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_SDGPOSITIONENRow() As TBKOMMCOLLI_SDGPOSITIONENRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_SDGPOSITIONENRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_SDGPOSITIONENRowChanged(Me, New TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent(CType(e.Row,TBKOMMCOLLI_SDGPOSITIONENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_SDGPOSITIONENRowChanging(Me, New TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent(CType(e.Row,TBKOMMCOLLI_SDGPOSITIONENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_SDGPOSITIONENRowDeleted(Me, New TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent(CType(e.Row,TBKOMMCOLLI_SDGPOSITIONENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_SDGPOSITIONENRowDeleting(Me, New TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent(CType(e.Row,TBKOMMCOLLI_SDGPOSITIONENRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_SDGPOSITIONENRow(ByVal row As TBKOMMCOLLI_SDGPOSITIONENRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_SDGPOSITIONENDataTable"
|
|
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 TBKOMMCOLLI_TEXTSCHLUESSELDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnBEZEICHNUNG As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_TEXTSCHLUESSEL"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowChanging As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowChanged As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowDeleting As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowDeleted As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_TEXTSCHLUESSELRow(ByVal row As TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_TEXTSCHLUESSELRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String) As TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
Dim rowTBKOMMCOLLI_TEXTSCHLUESSELRow As TBKOMMCOLLI_TEXTSCHLUESSELRow = CType(Me.NewRow,TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG}
|
|
rowTBKOMMCOLLI_TEXTSCHLUESSELRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
Return rowTBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Byte) As TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_TEXTSCHLUESSELDataTable = CType(MyBase.Clone,TBKOMMCOLLI_TEXTSCHLUESSELDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_TEXTSCHLUESSELDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGUID)
|
|
Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBEZEICHNUNG)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnBEZEICHNUNG.AllowDBNull = false
|
|
Me.columnBEZEICHNUNG.MaxLength = 500
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_TEXTSCHLUESSELRow() As TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_TEXTSCHLUESSELRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TEXTSCHLUESSELRowChanged(Me, New TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TEXTSCHLUESSELRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TEXTSCHLUESSELRowChanging(Me, New TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TEXTSCHLUESSELRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TEXTSCHLUESSELRowDeleted(Me, New TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TEXTSCHLUESSELRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_TEXTSCHLUESSELRowDeleting(Me, New TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent(CType(e.Row,TBKOMMCOLLI_TEXTSCHLUESSELRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_TEXTSCHLUESSELRow(ByVal row As TBKOMMCOLLI_TEXTSCHLUESSELRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_TEXTSCHLUESSELDataTable"
|
|
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 TBKOMMCOLLI_HINWEISDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBKOMMCOLLI_HINWEISRow)
|
|
|
|
Private columnSENDUNGNR As Global.System.Data.DataColumn
|
|
|
|
Private columnBEZEICHNUNG As Global.System.Data.DataColumn
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBKOMMCOLLI_HINWEIS"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property SENDUNGNRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSENDUNGNR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_HINWEISRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBKOMMCOLLI_HINWEISRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_HINWEISRowChanging As TBKOMMCOLLI_HINWEISRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_HINWEISRowChanged As TBKOMMCOLLI_HINWEISRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_HINWEISRowDeleting As TBKOMMCOLLI_HINWEISRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBKOMMCOLLI_HINWEISRowDeleted As TBKOMMCOLLI_HINWEISRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBKOMMCOLLI_HINWEISRow(ByVal row As TBKOMMCOLLI_HINWEISRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBKOMMCOLLI_HINWEISRow(ByVal SENDUNGNR As Integer, ByVal BEZEICHNUNG As String) As TBKOMMCOLLI_HINWEISRow
|
|
Dim rowTBKOMMCOLLI_HINWEISRow As TBKOMMCOLLI_HINWEISRow = CType(Me.NewRow,TBKOMMCOLLI_HINWEISRow)
|
|
Dim columnValuesArray() As Object = New Object() {SENDUNGNR, BEZEICHNUNG, Nothing}
|
|
rowTBKOMMCOLLI_HINWEISRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBKOMMCOLLI_HINWEISRow)
|
|
Return rowTBKOMMCOLLI_HINWEISRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_HINWEISRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_HINWEISRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBKOMMCOLLI_HINWEISDataTable = CType(MyBase.Clone,TBKOMMCOLLI_HINWEISDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBKOMMCOLLI_HINWEISDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnSENDUNGNR = MyBase.Columns("SENDUNGNR")
|
|
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnSENDUNGNR = New Global.System.Data.DataColumn("SENDUNGNR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSENDUNGNR)
|
|
Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBEZEICHNUNG)
|
|
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGUID)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnSENDUNGNR.AllowDBNull = false
|
|
Me.columnBEZEICHNUNG.AllowDBNull = false
|
|
Me.columnBEZEICHNUNG.MaxLength = 500
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBKOMMCOLLI_HINWEISRow() As TBKOMMCOLLI_HINWEISRow
|
|
Return CType(Me.NewRow,TBKOMMCOLLI_HINWEISRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBKOMMCOLLI_HINWEISRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBKOMMCOLLI_HINWEISRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBKOMMCOLLI_HINWEISRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_HINWEISRowChanged(Me, New TBKOMMCOLLI_HINWEISRowChangeEvent(CType(e.Row,TBKOMMCOLLI_HINWEISRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBKOMMCOLLI_HINWEISRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_HINWEISRowChanging(Me, New TBKOMMCOLLI_HINWEISRowChangeEvent(CType(e.Row,TBKOMMCOLLI_HINWEISRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBKOMMCOLLI_HINWEISRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_HINWEISRowDeleted(Me, New TBKOMMCOLLI_HINWEISRowChangeEvent(CType(e.Row,TBKOMMCOLLI_HINWEISRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBKOMMCOLLI_HINWEISRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBKOMMCOLLI_HINWEISRowDeleting(Me, New TBKOMMCOLLI_HINWEISRowChangeEvent(CType(e.Row,TBKOMMCOLLI_HINWEISRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBKOMMCOLLI_HINWEISRow(ByVal row As TBKOMMCOLLI_HINWEISRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "TBKOMMCOLLI_HINWEISDataTable"
|
|
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 VWHUP_REPORT1DataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of VWHUP_REPORT1Row)
|
|
|
|
Private columnLAD1 As Global.System.Data.DataColumn
|
|
|
|
Private columnLAD_STRASSE As Global.System.Data.DataColumn
|
|
|
|
Private columnLAD_LKZ_PLZ_ORT As Global.System.Data.DataColumn
|
|
|
|
Private columnFERTIG As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_ZUSATZ As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_STRASSE As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_LKZ As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_ORT As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_OTEIL As Global.System.Data.DataColumn
|
|
|
|
Private columnABHOLDATUM As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_GEWICHT As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_STELLPLAETZE As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_FRANKATUR As Global.System.Data.DataColumn
|
|
|
|
Private columnNVE As Global.System.Data.DataColumn
|
|
|
|
Private columnPOSINHALT As Global.System.Data.DataColumn
|
|
|
|
Private columnPOS_GEWICHT As Global.System.Data.DataColumn
|
|
|
|
Private columnPACKSTUECKANZAHL As Global.System.Data.DataColumn
|
|
|
|
Private columnHINW_CODE As Global.System.Data.DataColumn
|
|
|
|
Private columnHINW_TEXT As Global.System.Data.DataColumn
|
|
|
|
Private columnHINW_TEXT_ERG As Global.System.Data.DataColumn
|
|
|
|
Private columnSENDUNGNR As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_REFERENZ As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_PLZ_STR As Global.System.Data.DataColumn
|
|
|
|
Private columnSelected As Global.System.Data.DataColumn
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "VWHUP_REPORT1"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property LAD1Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLAD1
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property LAD_STRASSEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLAD_STRASSE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property LAD_LKZ_PLZ_ORTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLAD_LKZ_PLZ_ORT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property FERTIGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFERTIG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMPColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_ZUSATZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_ZUSATZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_STRASSEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_STRASSE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_LKZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_LKZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_ORTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_ORT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_OTEILColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_OTEIL
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ABHOLDATUMColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnABHOLDATUM
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_GEWICHTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_GEWICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_STELLPLAETZEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_STELLPLAETZE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_FRANKATURColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_FRANKATUR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property NVEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNVE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property POSINHALTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPOSINHALT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property POS_GEWICHTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPOS_GEWICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PACKSTUECKANZAHLColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPACKSTUECKANZAHL
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property HINW_CODEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnHINW_CODE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property HINW_TEXTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnHINW_TEXT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property HINW_TEXT_ERGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnHINW_TEXT_ERG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SENDUNGNRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSENDUNGNR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_REFERENZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_REFERENZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_PLZ_STRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_PLZ_STR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SelectedColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSelected
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As VWHUP_REPORT1Row
|
|
Get
|
|
Return CType(Me.Rows(index),VWHUP_REPORT1Row)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWHUP_REPORT1RowChanging As VWHUP_REPORT1RowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWHUP_REPORT1RowChanged As VWHUP_REPORT1RowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWHUP_REPORT1RowDeleting As VWHUP_REPORT1RowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWHUP_REPORT1RowDeleted As VWHUP_REPORT1RowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddVWHUP_REPORT1Row(ByVal row As VWHUP_REPORT1Row)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddVWHUP_REPORT1Row( _
|
|
ByVal LAD1 As String, _
|
|
ByVal LAD_STRASSE As String, _
|
|
ByVal LAD_LKZ_PLZ_ORT As String, _
|
|
ByVal FERTIG As Boolean, _
|
|
ByVal EMP As String, _
|
|
ByVal EMP_ZUSATZ As String, _
|
|
ByVal EMP_STRASSE As String, _
|
|
ByVal EMP_LKZ As String, _
|
|
ByVal EMP_ORT As String, _
|
|
ByVal EMP_OTEIL As String, _
|
|
ByVal ABHOLDATUM As Date, _
|
|
ByVal SDG_GEWICHT As Double, _
|
|
ByVal SDG_STELLPLAETZE As Short, _
|
|
ByVal SDG_FRANKATUR As String, _
|
|
ByVal NVE As String, _
|
|
ByVal POSINHALT As String, _
|
|
ByVal POS_GEWICHT As Double, _
|
|
ByVal PACKSTUECKANZAHL As Byte, _
|
|
ByVal HINW_CODE As String, _
|
|
ByVal HINW_TEXT As String, _
|
|
ByVal HINW_TEXT_ERG As String, _
|
|
ByVal SENDUNGNR As String, _
|
|
ByVal SDG_REFERENZ As String, _
|
|
ByVal EMP_PLZ_STR As String, _
|
|
ByVal Selected As Boolean, _
|
|
ByVal GUID As Integer) As VWHUP_REPORT1Row
|
|
Dim rowVWHUP_REPORT1Row As VWHUP_REPORT1Row = CType(Me.NewRow,VWHUP_REPORT1Row)
|
|
Dim columnValuesArray() As Object = New Object() {LAD1, LAD_STRASSE, LAD_LKZ_PLZ_ORT, FERTIG, EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLDATUM, SDG_GEWICHT, SDG_STELLPLAETZE, SDG_FRANKATUR, NVE, POSINHALT, POS_GEWICHT, PACKSTUECKANZAHL, HINW_CODE, HINW_TEXT, HINW_TEXT_ERG, SENDUNGNR, SDG_REFERENZ, EMP_PLZ_STR, Selected, GUID}
|
|
rowVWHUP_REPORT1Row.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowVWHUP_REPORT1Row)
|
|
Return rowVWHUP_REPORT1Row
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As VWHUP_REPORT1DataTable = CType(MyBase.Clone,VWHUP_REPORT1DataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New VWHUP_REPORT1DataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnLAD1 = MyBase.Columns("LAD1")
|
|
Me.columnLAD_STRASSE = MyBase.Columns("LAD_STRASSE")
|
|
Me.columnLAD_LKZ_PLZ_ORT = MyBase.Columns("LAD_LKZ_PLZ_ORT")
|
|
Me.columnFERTIG = MyBase.Columns("FERTIG")
|
|
Me.columnEMP = MyBase.Columns("EMP")
|
|
Me.columnEMP_ZUSATZ = MyBase.Columns("EMP_ZUSATZ")
|
|
Me.columnEMP_STRASSE = MyBase.Columns("EMP_STRASSE")
|
|
Me.columnEMP_LKZ = MyBase.Columns("EMP_LKZ")
|
|
Me.columnEMP_ORT = MyBase.Columns("EMP_ORT")
|
|
Me.columnEMP_OTEIL = MyBase.Columns("EMP_OTEIL")
|
|
Me.columnABHOLDATUM = MyBase.Columns("ABHOLDATUM")
|
|
Me.columnSDG_GEWICHT = MyBase.Columns("SDG_GEWICHT")
|
|
Me.columnSDG_STELLPLAETZE = MyBase.Columns("SDG_STELLPLAETZE")
|
|
Me.columnSDG_FRANKATUR = MyBase.Columns("SDG_FRANKATUR")
|
|
Me.columnNVE = MyBase.Columns("NVE")
|
|
Me.columnPOSINHALT = MyBase.Columns("POSINHALT")
|
|
Me.columnPOS_GEWICHT = MyBase.Columns("POS_GEWICHT")
|
|
Me.columnPACKSTUECKANZAHL = MyBase.Columns("PACKSTUECKANZAHL")
|
|
Me.columnHINW_CODE = MyBase.Columns("HINW_CODE")
|
|
Me.columnHINW_TEXT = MyBase.Columns("HINW_TEXT")
|
|
Me.columnHINW_TEXT_ERG = MyBase.Columns("HINW_TEXT_ERG")
|
|
Me.columnSENDUNGNR = MyBase.Columns("SENDUNGNR")
|
|
Me.columnSDG_REFERENZ = MyBase.Columns("SDG_REFERENZ")
|
|
Me.columnEMP_PLZ_STR = MyBase.Columns("EMP_PLZ_STR")
|
|
Me.columnSelected = MyBase.Columns("Selected")
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnLAD1 = New Global.System.Data.DataColumn("LAD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLAD1)
|
|
Me.columnLAD_STRASSE = New Global.System.Data.DataColumn("LAD_STRASSE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLAD_STRASSE)
|
|
Me.columnLAD_LKZ_PLZ_ORT = New Global.System.Data.DataColumn("LAD_LKZ_PLZ_ORT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLAD_LKZ_PLZ_ORT)
|
|
Me.columnFERTIG = New Global.System.Data.DataColumn("FERTIG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFERTIG)
|
|
Me.columnEMP = New Global.System.Data.DataColumn("EMP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP)
|
|
Me.columnEMP_ZUSATZ = New Global.System.Data.DataColumn("EMP_ZUSATZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_ZUSATZ)
|
|
Me.columnEMP_STRASSE = New Global.System.Data.DataColumn("EMP_STRASSE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_STRASSE)
|
|
Me.columnEMP_LKZ = New Global.System.Data.DataColumn("EMP_LKZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_LKZ)
|
|
Me.columnEMP_ORT = New Global.System.Data.DataColumn("EMP_ORT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_ORT)
|
|
Me.columnEMP_OTEIL = New Global.System.Data.DataColumn("EMP_OTEIL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_OTEIL)
|
|
Me.columnABHOLDATUM = New Global.System.Data.DataColumn("ABHOLDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnABHOLDATUM)
|
|
Me.columnSDG_GEWICHT = New Global.System.Data.DataColumn("SDG_GEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_GEWICHT)
|
|
Me.columnSDG_STELLPLAETZE = New Global.System.Data.DataColumn("SDG_STELLPLAETZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_STELLPLAETZE)
|
|
Me.columnSDG_FRANKATUR = New Global.System.Data.DataColumn("SDG_FRANKATUR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_FRANKATUR)
|
|
Me.columnNVE = New Global.System.Data.DataColumn("NVE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNVE)
|
|
Me.columnPOSINHALT = New Global.System.Data.DataColumn("POSINHALT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPOSINHALT)
|
|
Me.columnPOS_GEWICHT = New Global.System.Data.DataColumn("POS_GEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPOS_GEWICHT)
|
|
Me.columnPACKSTUECKANZAHL = New Global.System.Data.DataColumn("PACKSTUECKANZAHL", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPACKSTUECKANZAHL)
|
|
Me.columnHINW_CODE = New Global.System.Data.DataColumn("HINW_CODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnHINW_CODE)
|
|
Me.columnHINW_TEXT = New Global.System.Data.DataColumn("HINW_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnHINW_TEXT)
|
|
Me.columnHINW_TEXT_ERG = New Global.System.Data.DataColumn("HINW_TEXT_ERG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnHINW_TEXT_ERG)
|
|
Me.columnSENDUNGNR = New Global.System.Data.DataColumn("SENDUNGNR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSENDUNGNR)
|
|
Me.columnSDG_REFERENZ = New Global.System.Data.DataColumn("SDG_REFERENZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_REFERENZ)
|
|
Me.columnEMP_PLZ_STR = New Global.System.Data.DataColumn("EMP_PLZ_STR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_PLZ_STR)
|
|
Me.columnSelected = New Global.System.Data.DataColumn("Selected", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSelected)
|
|
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGUID)
|
|
Me.columnLAD1.AllowDBNull = false
|
|
Me.columnLAD1.MaxLength = 35
|
|
Me.columnLAD_STRASSE.AllowDBNull = false
|
|
Me.columnLAD_STRASSE.MaxLength = 35
|
|
Me.columnLAD_LKZ_PLZ_ORT.ReadOnly = true
|
|
Me.columnLAD_LKZ_PLZ_ORT.MaxLength = 49
|
|
Me.columnFERTIG.AllowDBNull = false
|
|
Me.columnEMP.MaxLength = 35
|
|
Me.columnEMP_ZUSATZ.MaxLength = 35
|
|
Me.columnEMP_STRASSE.MaxLength = 35
|
|
Me.columnEMP_LKZ.MaxLength = 3
|
|
Me.columnEMP_ORT.MaxLength = 35
|
|
Me.columnEMP_OTEIL.MaxLength = 35
|
|
Me.columnABHOLDATUM.AllowDBNull = false
|
|
Me.columnSDG_GEWICHT.ReadOnly = true
|
|
Me.columnSDG_STELLPLAETZE.AllowDBNull = false
|
|
Me.columnSDG_FRANKATUR.AllowDBNull = false
|
|
Me.columnSDG_FRANKATUR.MaxLength = 100
|
|
Me.columnNVE.MaxLength = 35
|
|
Me.columnPOSINHALT.AllowDBNull = false
|
|
Me.columnPOSINHALT.MaxLength = 35
|
|
Me.columnPOS_GEWICHT.AllowDBNull = false
|
|
Me.columnPACKSTUECKANZAHL.AllowDBNull = false
|
|
Me.columnHINW_CODE.MaxLength = 3
|
|
Me.columnHINW_TEXT.MaxLength = 500
|
|
Me.columnHINW_TEXT_ERG.MaxLength = 35
|
|
Me.columnSENDUNGNR.ReadOnly = true
|
|
Me.columnSENDUNGNR.MaxLength = 33
|
|
Me.columnSDG_REFERENZ.MaxLength = 35
|
|
Me.columnEMP_PLZ_STR.ReadOnly = true
|
|
Me.columnEMP_PLZ_STR.MaxLength = 49
|
|
Me.columnSelected.DefaultValue = CType(false,Boolean)
|
|
Me.columnGUID.AllowDBNull = false
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewVWHUP_REPORT1Row() As VWHUP_REPORT1Row
|
|
Return CType(Me.NewRow,VWHUP_REPORT1Row)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New VWHUP_REPORT1Row(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(VWHUP_REPORT1Row)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.VWHUP_REPORT1RowChangedEvent) Is Nothing) Then
|
|
RaiseEvent VWHUP_REPORT1RowChanged(Me, New VWHUP_REPORT1RowChangeEvent(CType(e.Row,VWHUP_REPORT1Row), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.VWHUP_REPORT1RowChangingEvent) Is Nothing) Then
|
|
RaiseEvent VWHUP_REPORT1RowChanging(Me, New VWHUP_REPORT1RowChangeEvent(CType(e.Row,VWHUP_REPORT1Row), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.VWHUP_REPORT1RowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent VWHUP_REPORT1RowDeleted(Me, New VWHUP_REPORT1RowChangeEvent(CType(e.Row,VWHUP_REPORT1Row), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.VWHUP_REPORT1RowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent VWHUP_REPORT1RowDeleting(Me, New VWHUP_REPORT1RowChangeEvent(CType(e.Row,VWHUP_REPORT1Row), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveVWHUP_REPORT1Row(ByVal row As VWHUP_REPORT1Row)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "VWHUP_REPORT1DataTable"
|
|
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 VWKOMMCOLLI_UEBERSICHTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of VWKOMMCOLLI_UEBERSICHTRow)
|
|
|
|
Private columnLAD1 As Global.System.Data.DataColumn
|
|
|
|
Private columnLAD_STRASSE As Global.System.Data.DataColumn
|
|
|
|
Private columnLAD_LKZ_PLZ_ORT As Global.System.Data.DataColumn
|
|
|
|
Private columnFERTIG As Global.System.Data.DataColumn
|
|
|
|
Private columnSENDUNGNR As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_REFERENZ As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_ZUSATZ As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_STRASSE As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_PLZ_STR As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_LKZ As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_ORT As Global.System.Data.DataColumn
|
|
|
|
Private columnEMP_OTEIL As Global.System.Data.DataColumn
|
|
|
|
Private columnABHOLDATUM As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_GEWICHT As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_STELLPLAETZE As Global.System.Data.DataColumn
|
|
|
|
Private columnSDG_FRANKATUR As Global.System.Data.DataColumn
|
|
|
|
Private columnBEMERKUNG As Global.System.Data.DataColumn
|
|
|
|
Private columnBORDERONR As Global.System.Data.DataColumn
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnUEBERTRAGEN As Global.System.Data.DataColumn
|
|
|
|
Private columnSelected As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "VWKOMMCOLLI_UEBERSICHT"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property LAD1Column() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLAD1
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property LAD_STRASSEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLAD_STRASSE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property LAD_LKZ_PLZ_ORTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnLAD_LKZ_PLZ_ORT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property FERTIGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFERTIG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SENDUNGNRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSENDUNGNR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_REFERENZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_REFERENZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMPColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_ZUSATZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_ZUSATZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_STRASSEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_STRASSE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_PLZ_STRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_PLZ_STR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_LKZColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_LKZ
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_ORTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_ORT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EMP_OTEILColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEMP_OTEIL
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ABHOLDATUMColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnABHOLDATUM
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_GEWICHTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_GEWICHT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_STELLPLAETZEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_STELLPLAETZE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SDG_FRANKATURColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSDG_FRANKATUR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBEMERKUNG
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property BORDERONRColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnBORDERONR
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property UEBERTRAGENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUEBERTRAGEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SelectedColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSelected
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As VWKOMMCOLLI_UEBERSICHTRow
|
|
Get
|
|
Return CType(Me.Rows(index),VWKOMMCOLLI_UEBERSICHTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_UEBERSICHTRowChanging As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_UEBERSICHTRowChanged As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_UEBERSICHTRowDeleting As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWKOMMCOLLI_UEBERSICHTRowDeleted As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddVWKOMMCOLLI_UEBERSICHTRow(ByVal row As VWKOMMCOLLI_UEBERSICHTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddVWKOMMCOLLI_UEBERSICHTRow( _
|
|
ByVal LAD1 As String, _
|
|
ByVal LAD_STRASSE As String, _
|
|
ByVal LAD_LKZ_PLZ_ORT As String, _
|
|
ByVal FERTIG As Boolean, _
|
|
ByVal SENDUNGNR As String, _
|
|
ByVal SDG_REFERENZ As String, _
|
|
ByVal EMP As String, _
|
|
ByVal EMP_ZUSATZ As String, _
|
|
ByVal EMP_STRASSE As String, _
|
|
ByVal EMP_PLZ_STR As String, _
|
|
ByVal EMP_LKZ As String, _
|
|
ByVal EMP_ORT As String, _
|
|
ByVal EMP_OTEIL As String, _
|
|
ByVal ABHOLDATUM As Date, _
|
|
ByVal SDG_GEWICHT As Double, _
|
|
ByVal SDG_STELLPLAETZE As Short, _
|
|
ByVal SDG_FRANKATUR As String, _
|
|
ByVal BEMERKUNG As String, _
|
|
ByVal BORDERONR As Integer, _
|
|
ByVal GUID As Integer, _
|
|
ByVal UEBERTRAGEN As Boolean, _
|
|
ByVal Selected As Boolean) As VWKOMMCOLLI_UEBERSICHTRow
|
|
Dim rowVWKOMMCOLLI_UEBERSICHTRow As VWKOMMCOLLI_UEBERSICHTRow = CType(Me.NewRow,VWKOMMCOLLI_UEBERSICHTRow)
|
|
Dim columnValuesArray() As Object = New Object() {LAD1, LAD_STRASSE, LAD_LKZ_PLZ_ORT, FERTIG, SENDUNGNR, SDG_REFERENZ, EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_PLZ_STR, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLDATUM, SDG_GEWICHT, SDG_STELLPLAETZE, SDG_FRANKATUR, BEMERKUNG, BORDERONR, GUID, UEBERTRAGEN, Selected}
|
|
rowVWKOMMCOLLI_UEBERSICHTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowVWKOMMCOLLI_UEBERSICHTRow)
|
|
Return rowVWKOMMCOLLI_UEBERSICHTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As VWKOMMCOLLI_UEBERSICHTRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),VWKOMMCOLLI_UEBERSICHTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As VWKOMMCOLLI_UEBERSICHTDataTable = CType(MyBase.Clone,VWKOMMCOLLI_UEBERSICHTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New VWKOMMCOLLI_UEBERSICHTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnLAD1 = MyBase.Columns("LAD1")
|
|
Me.columnLAD_STRASSE = MyBase.Columns("LAD_STRASSE")
|
|
Me.columnLAD_LKZ_PLZ_ORT = MyBase.Columns("LAD_LKZ_PLZ_ORT")
|
|
Me.columnFERTIG = MyBase.Columns("FERTIG")
|
|
Me.columnSENDUNGNR = MyBase.Columns("SENDUNGNR")
|
|
Me.columnSDG_REFERENZ = MyBase.Columns("SDG_REFERENZ")
|
|
Me.columnEMP = MyBase.Columns("EMP")
|
|
Me.columnEMP_ZUSATZ = MyBase.Columns("EMP_ZUSATZ")
|
|
Me.columnEMP_STRASSE = MyBase.Columns("EMP_STRASSE")
|
|
Me.columnEMP_PLZ_STR = MyBase.Columns("EMP_PLZ_STR")
|
|
Me.columnEMP_LKZ = MyBase.Columns("EMP_LKZ")
|
|
Me.columnEMP_ORT = MyBase.Columns("EMP_ORT")
|
|
Me.columnEMP_OTEIL = MyBase.Columns("EMP_OTEIL")
|
|
Me.columnABHOLDATUM = MyBase.Columns("ABHOLDATUM")
|
|
Me.columnSDG_GEWICHT = MyBase.Columns("SDG_GEWICHT")
|
|
Me.columnSDG_STELLPLAETZE = MyBase.Columns("SDG_STELLPLAETZE")
|
|
Me.columnSDG_FRANKATUR = MyBase.Columns("SDG_FRANKATUR")
|
|
Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG")
|
|
Me.columnBORDERONR = MyBase.Columns("BORDERONR")
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnUEBERTRAGEN = MyBase.Columns("UEBERTRAGEN")
|
|
Me.columnSelected = MyBase.Columns("SELECTED")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnLAD1 = New Global.System.Data.DataColumn("LAD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLAD1)
|
|
Me.columnLAD_STRASSE = New Global.System.Data.DataColumn("LAD_STRASSE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLAD_STRASSE)
|
|
Me.columnLAD_LKZ_PLZ_ORT = New Global.System.Data.DataColumn("LAD_LKZ_PLZ_ORT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnLAD_LKZ_PLZ_ORT)
|
|
Me.columnFERTIG = New Global.System.Data.DataColumn("FERTIG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFERTIG)
|
|
Me.columnSENDUNGNR = New Global.System.Data.DataColumn("SENDUNGNR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSENDUNGNR)
|
|
Me.columnSDG_REFERENZ = New Global.System.Data.DataColumn("SDG_REFERENZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_REFERENZ)
|
|
Me.columnEMP = New Global.System.Data.DataColumn("EMP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP)
|
|
Me.columnEMP_ZUSATZ = New Global.System.Data.DataColumn("EMP_ZUSATZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_ZUSATZ)
|
|
Me.columnEMP_STRASSE = New Global.System.Data.DataColumn("EMP_STRASSE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_STRASSE)
|
|
Me.columnEMP_PLZ_STR = New Global.System.Data.DataColumn("EMP_PLZ_STR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_PLZ_STR)
|
|
Me.columnEMP_LKZ = New Global.System.Data.DataColumn("EMP_LKZ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_LKZ)
|
|
Me.columnEMP_ORT = New Global.System.Data.DataColumn("EMP_ORT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_ORT)
|
|
Me.columnEMP_OTEIL = New Global.System.Data.DataColumn("EMP_OTEIL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEMP_OTEIL)
|
|
Me.columnABHOLDATUM = New Global.System.Data.DataColumn("ABHOLDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnABHOLDATUM)
|
|
Me.columnSDG_GEWICHT = New Global.System.Data.DataColumn("SDG_GEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_GEWICHT)
|
|
Me.columnSDG_STELLPLAETZE = New Global.System.Data.DataColumn("SDG_STELLPLAETZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_STELLPLAETZE)
|
|
Me.columnSDG_FRANKATUR = New Global.System.Data.DataColumn("SDG_FRANKATUR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSDG_FRANKATUR)
|
|
Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBEMERKUNG)
|
|
Me.columnBORDERONR = New Global.System.Data.DataColumn("BORDERONR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnBORDERONR)
|
|
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGUID)
|
|
Me.columnUEBERTRAGEN = New Global.System.Data.DataColumn("UEBERTRAGEN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUEBERTRAGEN)
|
|
Me.columnSelected = New Global.System.Data.DataColumn("SELECTED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
Me.columnSelected.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Selected")
|
|
Me.columnSelected.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectedColumn")
|
|
Me.columnSelected.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelected")
|
|
Me.columnSelected.ExtendedProperties.Add("Generator_UserColumnName", "SELECTED")
|
|
MyBase.Columns.Add(Me.columnSelected)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnLAD1.AllowDBNull = false
|
|
Me.columnLAD1.MaxLength = 35
|
|
Me.columnLAD_STRASSE.AllowDBNull = false
|
|
Me.columnLAD_STRASSE.MaxLength = 35
|
|
Me.columnLAD_LKZ_PLZ_ORT.ReadOnly = true
|
|
Me.columnLAD_LKZ_PLZ_ORT.MaxLength = 49
|
|
Me.columnFERTIG.AllowDBNull = false
|
|
Me.columnSENDUNGNR.ReadOnly = true
|
|
Me.columnSENDUNGNR.MaxLength = 33
|
|
Me.columnSDG_REFERENZ.MaxLength = 35
|
|
Me.columnEMP.MaxLength = 35
|
|
Me.columnEMP_ZUSATZ.MaxLength = 35
|
|
Me.columnEMP_STRASSE.MaxLength = 35
|
|
Me.columnEMP_PLZ_STR.ReadOnly = true
|
|
Me.columnEMP_PLZ_STR.MaxLength = 49
|
|
Me.columnEMP_LKZ.MaxLength = 3
|
|
Me.columnEMP_ORT.MaxLength = 35
|
|
Me.columnEMP_OTEIL.MaxLength = 35
|
|
Me.columnABHOLDATUM.AllowDBNull = false
|
|
Me.columnSDG_GEWICHT.ReadOnly = true
|
|
Me.columnSDG_STELLPLAETZE.AllowDBNull = false
|
|
Me.columnSDG_FRANKATUR.AllowDBNull = false
|
|
Me.columnSDG_FRANKATUR.MaxLength = 100
|
|
Me.columnBEMERKUNG.MaxLength = 70
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.Unique = true
|
|
Me.columnUEBERTRAGEN.AllowDBNull = false
|
|
Me.columnSelected.AllowDBNull = false
|
|
Me.columnSelected.DefaultValue = CType(false,Boolean)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewVWKOMMCOLLI_UEBERSICHTRow() As VWKOMMCOLLI_UEBERSICHTRow
|
|
Return CType(Me.NewRow,VWKOMMCOLLI_UEBERSICHTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New VWKOMMCOLLI_UEBERSICHTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(VWKOMMCOLLI_UEBERSICHTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_UEBERSICHTRowChanged(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_UEBERSICHTRowChanging(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_UEBERSICHTRowDeleted(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent VWKOMMCOLLI_UEBERSICHTRowDeleting(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveVWKOMMCOLLI_UEBERSICHTRow(ByVal row As VWKOMMCOLLI_UEBERSICHTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
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 = "VWKOMMCOLLI_UEBERSICHTDataTable"
|
|
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 TBKOMMCOLLI_MANDANTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_MANDANT As TBKOMMCOLLI_MANDANTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_MANDANT = CType(Me.Table,TBKOMMCOLLI_MANDANTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property KURZNAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.KURZNAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.KURZNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SPEICHERORT() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.SPEICHERORTColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.SPEICHERORTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PRAEFIX() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.PRAEFIXColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRAEFIX in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.PRAEFIXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TRENNUNG_BC() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.TRENNUNG_BCColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.TRENNUNG_BCColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEANDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.GEANDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.GEANDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property AKTIV() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.AKTIVColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.AKTIVColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property MANDANTENCODE() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.MANDANTENCODEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.MANDANTENCODEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NVE_FEST() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_FESTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NVE_FEST in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_FESTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NVE_VAR() As Long
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_VARColumn),Long)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NVE_VAR in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_VARColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PRINTER_NAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.PRINTER_NAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRINTER_NAME in Tabelle TBKOMMCOLLI_MANDANT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.PRINTER_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPRAEFIXNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.PRAEFIXColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPRAEFIXNull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.PRAEFIXColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsERFASSTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetERFASSTWANNNull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEANDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.GEANDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEANDERTWERNull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.GEANDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsNVE_FESTNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.NVE_FESTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetNVE_FESTNull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_FESTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsNVE_VARNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.NVE_VARColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetNVE_VARNull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_VARColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPRINTER_NAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.PRINTER_NAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPRINTER_NAMENull()
|
|
Me(Me.tableTBKOMMCOLLI_MANDANT.PRINTER_NAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBKOMMCOLLI_PAKET_KOPFRows() As TBKOMMCOLLI_PAKET_KOPFRow()
|
|
If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID") Is Nothing) Then
|
|
Return New TBKOMMCOLLI_PAKET_KOPFRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID")),TBKOMMCOLLI_PAKET_KOPFRow())
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBKOMMCOLLI_TERMINARTRows() As TBKOMMCOLLI_TERMINARTRow()
|
|
If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID") Is Nothing) Then
|
|
Return New TBKOMMCOLLI_TERMINARTRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID")),TBKOMMCOLLI_TERMINARTRow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBWH_MANDANTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBWH_MANDANT As TBWH_MANDANTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBWH_MANDANT = CType(Me.Table,TBWH_MANDANTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBWH_MANDANT.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_MANDANT.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBWH_MANDANT.NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_MANDANT.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property KURZNAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBWH_MANDANT.KURZNAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_MANDANT.KURZNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_PAKET_KOPFRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_PAKET_KOPF As TBKOMMCOLLI_PAKET_KOPFDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_PAKET_KOPF = CType(Me.Table,TBKOMMCOLLI_PAKET_KOPFDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property MANDANT_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.MANDANT_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.MANDANT_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PAKET_ID() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.PAKET_IDColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAKET_ID in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.PAKET_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property FERTIG() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIGColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property FERTIG_WANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIG_WANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FERTIG_WANN in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIG_WANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWANN() As Date
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWANNColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEANDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEANDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEANDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TERMIN_KZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.TERMIN_KZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TERMIN_KZ in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.TERMIN_KZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ANZ_PACKSTUECK() As Short
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ANZ_PACKSTUECKColumn),Short)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ANZ_PACKSTUECK in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ANZ_PACKSTUECKColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GESAMTGEWICHT() As Double
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GESAMTGEWICHTColumn),Double)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GESAMTGEWICHT in Tabelle TBKOMMCOLLI_PAKET_KOPF ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GESAMTGEWICHTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TBKOMMCOLLI_MANDANTRow() As TBKOMMCOLLI_MANDANTRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID")),TBKOMMCOLLI_MANDANTRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property VWKOMMCOLLI_ABSCHLUSS_PAKETRow() As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1")),VWKOMMCOLLI_ABSCHLUSS_PAKETRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPAKET_IDNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.PAKET_IDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPAKET_IDNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.PAKET_IDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsFERTIG_WANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIG_WANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetFERTIG_WANNNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIG_WANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEANDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEANDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEANDERTWERNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEANDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsTERMIN_KZNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.TERMIN_KZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetTERMIN_KZNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.TERMIN_KZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsANZ_PACKSTUECKNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.ANZ_PACKSTUECKColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetANZ_PACKSTUECKNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ANZ_PACKSTUECKColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGESAMTGEWICHTNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.GESAMTGEWICHTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGESAMTGEWICHTNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GESAMTGEWICHTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBKOMMCOLLI_PAKET_POSRows() As TBKOMMCOLLI_PAKET_POSRow()
|
|
If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID") Is Nothing) Then
|
|
Return New TBKOMMCOLLI_PAKET_POSRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID")),TBKOMMCOLLI_PAKET_POSRow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_PAKET_POSRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_PAKET_POS As TBKOMMCOLLI_PAKET_POSDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_PAKET_POS = CType(Me.Table,TBKOMMCOLLI_PAKET_POSDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property KOPF_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.KOPF_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.KOPF_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property BARCODE() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.BARCODEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.BARCODEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property VKOPF_BESTELLNR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_BESTELLNRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VKOPF_BESTELLNR in Tabelle TBKOMMCOLLI_PAKET_POS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_BESTELLNRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property VKOPF_EINGANGNR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_EINGANGNRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VKOPF_EINGANGNR in Tabelle TBKOMMCOLLI_PAKET_POS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_EINGANGNRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWANN() As Date
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.ERFASSTWANNColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.ERFASSTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBKOMMCOLLI_PAKET_POS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TBKOMMCOLLI_PAKET_KOPFRow() As TBKOMMCOLLI_PAKET_KOPFRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID")),TBKOMMCOLLI_PAKET_KOPFRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsVKOPF_BESTELLNRNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_BESTELLNRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetVKOPF_BESTELLNRNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_BESTELLNRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsVKOPF_EINGANGNRNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_EINGANGNRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetVKOPF_EINGANGNRNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_EINGANGNRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableVWKOMMCOLLI_ABSCHLUSS_PAKET As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET = CType(Me.Table,VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Mandant() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.MandantColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.MandantColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PAKET_ID() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.PAKET_IDColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAKET_ID in Tabelle VWKOMMCOLLI_ABSCHLUSS_PAKET ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.PAKET_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Gepackt() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GepacktColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gepackt in Tabelle VWKOMMCOLLI_ABSCHLUSS_PAKET ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GepacktColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Auswahl() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.AuswahlColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Auswahl in Tabelle VWKOMMCOLLI_ABSCHLUSS_PAKET ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.AuswahlColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property MANDANT_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.MANDANT_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.MANDANT_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TRENNUNG_BC() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TRENNUNG_BCColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TRENNUNG_BCColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TERMIN_KZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TERMIN_KZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TERMIN_KZ in Tabelle VWKOMMCOLLI_ABSCHLUSS_PAKET ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TERMIN_KZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ANZ_PACKSTUECK() As Short
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.ANZ_PACKSTUECKColumn),Short)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ANZ_PACKSTUECK in Tabelle VWKOMMCOLLI_ABSCHLUSS_PAKET ist DBN"& _
|
|
"ull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.ANZ_PACKSTUECKColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GESAMTGEWICHT() As Double
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GESAMTGEWICHTColumn),Double)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GESAMTGEWICHT in Tabelle VWKOMMCOLLI_ABSCHLUSS_PAKET ist DBNu"& _
|
|
"ll.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GESAMTGEWICHTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPAKET_IDNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.PAKET_IDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPAKET_IDNull()
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.PAKET_IDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGepacktNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GepacktColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGepacktNull()
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GepacktColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsAuswahlNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.AuswahlColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetAuswahlNull()
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.AuswahlColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsTERMIN_KZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TERMIN_KZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetTERMIN_KZNull()
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TERMIN_KZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsANZ_PACKSTUECKNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.ANZ_PACKSTUECKColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetANZ_PACKSTUECKNull()
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.ANZ_PACKSTUECKColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGESAMTGEWICHTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GESAMTGEWICHTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGESAMTGEWICHTNull()
|
|
Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GESAMTGEWICHTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBKOMMCOLLI_PAKET_KOPFRows() As TBKOMMCOLLI_PAKET_KOPFRow()
|
|
If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1") Is Nothing) Then
|
|
Return New TBKOMMCOLLI_PAKET_KOPFRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1")),TBKOMMCOLLI_PAKET_KOPFRow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_TERMINARTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_TERMINART As TBKOMMCOLLI_TERMINARTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_TERMINART = CType(Me.Table,TBKOMMCOLLI_TERMINARTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property MANDANT_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.MANDANT_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.MANDANT_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TERMIN_BEZEICHNUNG() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.TERMIN_BEZEICHNUNGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.TERMIN_BEZEICHNUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TERMIN_KZ() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.TERMIN_KZColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.TERMIN_KZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWER() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.ERFASSTWERColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.ERFASSTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ERFASSTWANN() As Date
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.ERFASSTWANNColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.ERFASSTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEANDERTWER() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.GEANDERTWERColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBKOMMCOLLI_TERMINART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.GEANDERTWERColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEAENDERTWANN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.GEAENDERTWANNColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBKOMMCOLLI_TERMINART ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.GEAENDERTWANNColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TBKOMMCOLLI_MANDANTRow() As TBKOMMCOLLI_MANDANTRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID")),TBKOMMCOLLI_MANDANTRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEANDERTWERNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_TERMINART.GEANDERTWERColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEANDERTWERNull()
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.GEANDERTWERColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsGEAENDERTWANNNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_TERMINART.GEAENDERTWANNColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetGEAENDERTWANNNull()
|
|
Me(Me.tableTBKOMMCOLLI_TERMINART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_PAKET_POS_LSRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_PAKET_POS_LS As TBKOMMCOLLI_PAKET_POS_LSDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_PAKET_POS_LS = CType(Me.Table,TBKOMMCOLLI_PAKET_POS_LSDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property VKOPF_EINGANGNR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS_LS.VKOPF_EINGANGNRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VKOPF_EINGANGNR in Tabelle TBKOMMCOLLI_PAKET_POS_LS ist DBNul"& _
|
|
"l.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS_LS.VKOPF_EINGANGNRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsVKOPF_EINGANGNRNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS_LS.VKOPF_EINGANGNRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetVKOPF_EINGANGNRNull()
|
|
Me(Me.tableTBKOMMCOLLI_PAKET_POS_LS.VKOPF_EINGANGNRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_SDGPOSITIONENRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_SDGPOSITIONEN As TBKOMMCOLLI_SDGPOSITIONENDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_SDGPOSITIONEN = CType(Me.Table,TBKOMMCOLLI_SDGPOSITIONENDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property POSINHALT() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.POSINHALTColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.POSINHALTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GEWICHT() As Double
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.GEWICHTColumn),Double)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.GEWICHTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LHM() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.LHMColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.LHMColumn) = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_TEXTSCHLUESSEL As TBKOMMCOLLI_TEXTSCHLUESSELDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL = CType(Me.Table,TBKOMMCOLLI_TEXTSCHLUESSELDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.GUIDColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property BEZEICHNUNG() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBKOMMCOLLI_HINWEISRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBKOMMCOLLI_HINWEIS As TBKOMMCOLLI_HINWEISDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBKOMMCOLLI_HINWEIS = CType(Me.Table,TBKOMMCOLLI_HINWEISDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SENDUNGNR() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.SENDUNGNRColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_HINWEIS.SENDUNGNRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property BEZEICHNUNG() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBKOMMCOLLI_HINWEIS.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class VWHUP_REPORT1Row
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableVWHUP_REPORT1 As VWHUP_REPORT1DataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableVWHUP_REPORT1 = CType(Me.Table,VWHUP_REPORT1DataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LAD1() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.LAD1Column),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.LAD1Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LAD_STRASSE() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.LAD_STRASSEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.LAD_STRASSEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LAD_LKZ_PLZ_ORT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.LAD_LKZ_PLZ_ORTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAD_LKZ_PLZ_ORT in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.LAD_LKZ_PLZ_ORTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property FERTIG() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.FERTIGColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.FERTIGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMPColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMPColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_ZUSATZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMP_ZUSATZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_ZUSATZ in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMP_ZUSATZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_STRASSE() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMP_STRASSEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_STRASSE in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMP_STRASSEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_LKZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMP_LKZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_LKZ in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMP_LKZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_ORT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMP_ORTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_ORT in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMP_ORTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_OTEIL() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMP_OTEILColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_OTEIL in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMP_OTEILColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ABHOLDATUM() As Date
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.ABHOLDATUMColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.ABHOLDATUMColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_GEWICHT() As Double
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.SDG_GEWICHTColumn),Double)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SDG_GEWICHT in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.SDG_GEWICHTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_STELLPLAETZE() As Short
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.SDG_STELLPLAETZEColumn),Short)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.SDG_STELLPLAETZEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_FRANKATUR() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.SDG_FRANKATURColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.SDG_FRANKATURColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NVE() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.NVEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NVE in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.NVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property POSINHALT() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.POSINHALTColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.POSINHALTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property POS_GEWICHT() As Double
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.POS_GEWICHTColumn),Double)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.POS_GEWICHTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PACKSTUECKANZAHL() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.PACKSTUECKANZAHLColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.PACKSTUECKANZAHLColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property HINW_CODE() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.HINW_CODEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HINW_CODE in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.HINW_CODEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property HINW_TEXT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.HINW_TEXTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HINW_TEXT in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.HINW_TEXTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property HINW_TEXT_ERG() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.HINW_TEXT_ERGColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HINW_TEXT_ERG in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.HINW_TEXT_ERGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SENDUNGNR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.SENDUNGNRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SENDUNGNR in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.SENDUNGNRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_REFERENZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.SDG_REFERENZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SDG_REFERENZ in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.SDG_REFERENZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_PLZ_STR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.EMP_PLZ_STRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_PLZ_STR in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.EMP_PLZ_STRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Selected() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.SelectedColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Selected in Tabelle VWHUP_REPORT1 ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.SelectedColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWHUP_REPORT1.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWHUP_REPORT1.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsLAD_LKZ_PLZ_ORTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.LAD_LKZ_PLZ_ORTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetLAD_LKZ_PLZ_ORTNull()
|
|
Me(Me.tableVWHUP_REPORT1.LAD_LKZ_PLZ_ORTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMPNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMPColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMPNull()
|
|
Me(Me.tableVWHUP_REPORT1.EMPColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_ZUSATZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_ZUSATZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_ZUSATZNull()
|
|
Me(Me.tableVWHUP_REPORT1.EMP_ZUSATZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_STRASSENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_STRASSEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_STRASSENull()
|
|
Me(Me.tableVWHUP_REPORT1.EMP_STRASSEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_LKZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_LKZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_LKZNull()
|
|
Me(Me.tableVWHUP_REPORT1.EMP_LKZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_ORTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_ORTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_ORTNull()
|
|
Me(Me.tableVWHUP_REPORT1.EMP_ORTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_OTEILNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_OTEILColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_OTEILNull()
|
|
Me(Me.tableVWHUP_REPORT1.EMP_OTEILColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSDG_GEWICHTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.SDG_GEWICHTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSDG_GEWICHTNull()
|
|
Me(Me.tableVWHUP_REPORT1.SDG_GEWICHTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsNVENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.NVEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetNVENull()
|
|
Me(Me.tableVWHUP_REPORT1.NVEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsHINW_CODENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.HINW_CODEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetHINW_CODENull()
|
|
Me(Me.tableVWHUP_REPORT1.HINW_CODEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsHINW_TEXTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.HINW_TEXTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetHINW_TEXTNull()
|
|
Me(Me.tableVWHUP_REPORT1.HINW_TEXTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsHINW_TEXT_ERGNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.HINW_TEXT_ERGColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetHINW_TEXT_ERGNull()
|
|
Me(Me.tableVWHUP_REPORT1.HINW_TEXT_ERGColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSENDUNGNRNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.SENDUNGNRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSENDUNGNRNull()
|
|
Me(Me.tableVWHUP_REPORT1.SENDUNGNRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSDG_REFERENZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.SDG_REFERENZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSDG_REFERENZNull()
|
|
Me(Me.tableVWHUP_REPORT1.SDG_REFERENZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_PLZ_STRNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_PLZ_STRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_PLZ_STRNull()
|
|
Me(Me.tableVWHUP_REPORT1.EMP_PLZ_STRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSelectedNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWHUP_REPORT1.SelectedColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSelectedNull()
|
|
Me(Me.tableVWHUP_REPORT1.SelectedColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class VWKOMMCOLLI_UEBERSICHTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableVWKOMMCOLLI_UEBERSICHT As VWKOMMCOLLI_UEBERSICHTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableVWKOMMCOLLI_UEBERSICHT = CType(Me.Table,VWKOMMCOLLI_UEBERSICHTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LAD1() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD1Column),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD1Column) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LAD_STRASSE() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_STRASSEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_STRASSEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property LAD_LKZ_PLZ_ORT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAD_LKZ_PLZ_ORT in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull."& _
|
|
"", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property FERTIG() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.FERTIGColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.FERTIGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SENDUNGNR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SENDUNGNR in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_REFERENZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SDG_REFERENZ in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_ZUSATZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_ZUSATZ in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_STRASSE() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_STRASSE in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_PLZ_STR() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_PLZ_STR in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_LKZ() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_LKZ in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_ORT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_ORT in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EMP_OTEIL() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_OTEIL in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ABHOLDATUM() As Date
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.ABHOLDATUMColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.ABHOLDATUMColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_GEWICHT() As Double
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn),Double)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SDG_GEWICHT in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_STELLPLAETZE() As Short
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_STELLPLAETZEColumn),Short)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_STELLPLAETZEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SDG_FRANKATUR() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_FRANKATURColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_FRANKATURColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property BEMERKUNG() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property BORDERONR() As Integer
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn),Integer)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BORDERONR in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property UEBERTRAGEN() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.UEBERTRAGENColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.UEBERTRAGENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Selected() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SelectedColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SelectedColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsLAD_LKZ_PLZ_ORTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetLAD_LKZ_PLZ_ORTNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSENDUNGNRNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSENDUNGNRNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSDG_REFERENZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSDG_REFERENZNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMPNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMPNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_ZUSATZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_ZUSATZNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_STRASSENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_STRASSENull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_PLZ_STRNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_PLZ_STRNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_LKZNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_LKZNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_ORTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_ORTNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEMP_OTEILNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEMP_OTEILNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSDG_GEWICHTNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSDG_GEWICHTNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsBEMERKUNGNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetBEMERKUNGNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsBORDERONRNull() As Boolean
|
|
Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetBORDERONRNull()
|
|
Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_MANDANTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_MANDANTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_MANDANTRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_MANDANTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBWH_MANDANTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBWH_MANDANTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBWH_MANDANTRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBWH_MANDANTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_PAKET_KOPFRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_PAKET_KOPFRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_PAKET_KOPFRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_PAKET_KOPFRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_PAKET_POSRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_PAKET_POSRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_PAKET_POSRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_PAKET_POSRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As VWKOMMCOLLI_ABSCHLUSS_PAKETRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As VWKOMMCOLLI_ABSCHLUSS_PAKETRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_TERMINARTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_TERMINARTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_TERMINARTRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_TERMINARTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_PAKET_POS_LSRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_PAKET_POS_LSRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_PAKET_POS_LSRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_SDGPOSITIONENRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_SDGPOSITIONENRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_SDGPOSITIONENRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_TEXTSCHLUESSELRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_TEXTSCHLUESSELRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBKOMMCOLLI_HINWEISRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBKOMMCOLLI_HINWEISRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBKOMMCOLLI_HINWEISRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBKOMMCOLLI_HINWEISRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class VWHUP_REPORT1RowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As VWHUP_REPORT1Row
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As VWHUP_REPORT1Row, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As VWHUP_REPORT1Row
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class VWKOMMCOLLI_UEBERSICHTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As VWKOMMCOLLI_UEBERSICHTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As VWKOMMCOLLI_UEBERSICHTRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As VWKOMMCOLLI_UEBERSICHTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDatasetTableAdapters
|
|
|
|
'''<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 TBKOMMCOLLI_MANDANTTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_MANDANT"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("NAME", "NAME")
|
|
tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME")
|
|
tableMapping.ColumnMappings.Add("SPEICHERORT", "SPEICHERORT")
|
|
tableMapping.ColumnMappings.Add("PRAEFIX", "PRAEFIX")
|
|
tableMapping.ColumnMappings.Add("TRENNUNG_BC", "TRENNUNG_BC")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN")
|
|
tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
tableMapping.ColumnMappings.Add("AKTIV", "AKTIV")
|
|
tableMapping.ColumnMappings.Add("MANDANTENCODE", "MANDANTENCODE")
|
|
tableMapping.ColumnMappings.Add("NVE_FEST", "NVE_FEST")
|
|
tableMapping.ColumnMappings.Add("NVE_VAR", "NVE_VAR")
|
|
tableMapping.ColumnMappings.Add("PRINTER_NAME", "PRINTER_NAME")
|
|
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 [TBKOMMCOLLI_MANDANT] WHERE (([GUID] = @Original_GUID) AND ([NAME] = "& _
|
|
"@Original_NAME) AND ([KURZNAME] = @Original_KURZNAME) AND ([SPEICHERORT] = @Orig"& _
|
|
"inal_SPEICHERORT) AND ((@IsNull_PRAEFIX = 1 AND [PRAEFIX] IS NULL) OR ([PRAEFIX]"& _
|
|
" = @Original_PRAEFIX)) AND ([TRENNUNG_BC] = @Original_TRENNUNG_BC) AND ([ERFASST"& _
|
|
"WER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@"& _
|
|
"IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_"& _
|
|
"GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR (["& _
|
|
"GEAENDERTWANN] = @Original_GEAENDERTWANN)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KURZNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPEICHERORT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPEICHERORT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRAEFIX", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRAEFIX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TRENNUNG_BC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TRENNUNG_BC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBKOMMCOLLI_MANDANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, KURZNAME, SPEICH"& _
|
|
"ERORT, PRAEFIX, TRENNUNG_BC, ERFASSTWER, PRINTER_NAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@KU"& _
|
|
"RZNAME,@SPEICHERORT,@PRAEFIX,@TRENNUNG_BC,@ERFASSTWER,@PRINTER_NAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
|
"GUID, NAME, KURZNAME, SPEICHERORT, PRAEFIX, TRENNUNG_BC, ERFASSTWER, ERFASSTWANN"& _
|
|
", GEANDERTWER, GEAENDERTWANN FROM TBKOMMCOLLI_MANDANT WHERE (GUID = SCOPE_IDENTI"& _
|
|
"TY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, 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("@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("@SPEICHERORT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SPEICHERORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRAEFIX", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRENNUNG_BC", Global.System.Data.SqlDbType.VarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TRENNUNG_BC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRINTER_NAME", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "PRINTER_NAME", 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 TBKOMMCOLLI_MANDANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, KURZNAME = @KU"& _
|
|
"RZNAME, SPEICHERORT = @SPEICHERORT, PRAEFIX = @PRAEFIX, TRENNUNG_BC = @TRENNUNG_"& _
|
|
"BC, GEANDERTWER = @GEANDERTWER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PRINTER_NAME = @PRINT"& _
|
|
"ER_NAME"&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, NAME, KURZNAME, S"& _
|
|
"PEICHERORT, PRAEFIX, TRENNUNG_BC, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDER"& _
|
|
"TWANN FROM TBKOMMCOLLI_MANDANT WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, 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("@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("@SPEICHERORT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SPEICHERORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRAEFIX", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "PRAEFIX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TRENNUNG_BC", Global.System.Data.SqlDbType.VarChar, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TRENNUNG_BC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 30, 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("@PRINTER_NAME", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "PRINTER_NAME", 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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, KURZNAME, SPEICHERORT, PRAEFIX, TRENNUNG_BC, AKTIV, MAN"& _
|
|
"DANTENCODE, NVE_FEST, NVE_VAR, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWA"& _
|
|
"NN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PRINTER_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_MANDANT"& _
|
|
""
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT GUID FROM TBKOMMCOLLI_MANDANT WHERE KURZNAME = @KURZNAME"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT Speicherort FROM TBKOMMCOLLI_MANDANT where GUID = @GUID"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_MANDANTDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData() As MyDataset.TBKOMMCOLLI_MANDANTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_MANDANTDataTable = New MyDataset.TBKOMMCOLLI_MANDANTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_MANDANTDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_MANDANT")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_KURZNAME As String, ByVal Original_SPEICHERORT As String, ByVal Original_PRAEFIX As String, ByVal Original_TRENNUNG_BC As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
If (Original_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_NAME")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String)
|
|
End If
|
|
If (Original_KURZNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_KURZNAME")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_KURZNAME,String)
|
|
End If
|
|
If (Original_SPEICHERORT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_SPEICHERORT")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SPEICHERORT,String)
|
|
End If
|
|
If (Original_PRAEFIX Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_PRAEFIX,String)
|
|
End If
|
|
If (Original_TRENNUNG_BC Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_TRENNUNG_BC")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TRENNUNG_BC,String)
|
|
End If
|
|
If (Original_ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERFASSTWER")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ERFASSTWER,String)
|
|
End If
|
|
If (Original_ERFASSTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ERFASSTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_GEANDERTWER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_GEANDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 NAME As String, ByVal KURZNAME As String, ByVal SPEICHERORT As String, ByVal PRAEFIX As String, ByVal TRENNUNG_BC As String, ByVal ERFASSTWER As String, ByVal PRINTER_NAME As String) As Integer
|
|
If (NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String)
|
|
End If
|
|
If (KURZNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KURZNAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(KURZNAME,String)
|
|
End If
|
|
If (SPEICHERORT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SPEICHERORT")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(SPEICHERORT,String)
|
|
End If
|
|
If (PRAEFIX Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(PRAEFIX,String)
|
|
End If
|
|
If (TRENNUNG_BC Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("TRENNUNG_BC")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(TRENNUNG_BC,String)
|
|
End If
|
|
If (ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ERFASSTWER,String)
|
|
End If
|
|
If (PRINTER_NAME Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(PRINTER_NAME,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", "15.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 NAME As String, ByVal KURZNAME As String, ByVal SPEICHERORT As String, ByVal PRAEFIX As String, ByVal TRENNUNG_BC As String, ByVal GEANDERTWER As String, ByVal PRINTER_NAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
|
If (NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String)
|
|
End If
|
|
If (KURZNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KURZNAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(KURZNAME,String)
|
|
End If
|
|
If (SPEICHERORT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("SPEICHERORT")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SPEICHERORT,String)
|
|
End If
|
|
If (PRAEFIX Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PRAEFIX,String)
|
|
End If
|
|
If (TRENNUNG_BC Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("TRENNUNG_BC")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TRENNUNG_BC,String)
|
|
End If
|
|
If (GEANDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEANDERTWER,String)
|
|
End If
|
|
If (PRINTER_NAME Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PRINTER_NAME,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
|
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdGetGUIDbyKurzname(ByVal KURZNAME As String) As Global.System.Nullable(Of Integer)
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
If (KURZNAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("KURZNAME")
|
|
Else
|
|
command.Parameters(0).Value = CType(KURZNAME,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return New Global.System.Nullable(Of Integer)()
|
|
Else
|
|
Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer))
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdgetSpeicherort(ByVal GUID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2)
|
|
command.Parameters(0).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
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 TBWH_MANDANTTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBWH_MANDANT"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("NAME", "NAME")
|
|
tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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, NAME, KURZNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_MANDANT"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBWH_MANDANTDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData() As MyDataset.TBWH_MANDANTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBWH_MANDANTDataTable = New MyDataset.TBWH_MANDANTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBKOMMCOLLI_PAKET_KOPFTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_PAKET_KOPF"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("MANDANT_ID", "MANDANT_ID")
|
|
tableMapping.ColumnMappings.Add("PAKET_ID", "PAKET_ID")
|
|
tableMapping.ColumnMappings.Add("FERTIG", "FERTIG")
|
|
tableMapping.ColumnMappings.Add("FERTIG_WANN", "FERTIG_WANN")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWO", "ERFASSTWO")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN")
|
|
tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
tableMapping.ColumnMappings.Add("TERMIN_KZ", "TERMIN_KZ")
|
|
tableMapping.ColumnMappings.Add("ANZ_PACKSTUECK", "ANZ_PACKSTUECK")
|
|
tableMapping.ColumnMappings.Add("GESAMTGEWICHT", "GESAMTGEWICHT")
|
|
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 TBKOMMCOLLI_PAKET_KOPF"&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 TBKOMMCOLLI_PAKET_KOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MANDANT_ID, ERFASST"& _
|
|
"WO, ERFASSTWER, ANZ_PACKSTUECK, GESAMTGEWICHT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@MANDANT_ID,@ERFA"& _
|
|
"SSTWO,@ERFASSTWER,@ANZ_PACKSTUECK,@GESAMTGEWICHT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MANDANT_ID, "& _
|
|
"PAKET_ID, FERTIG, FERTIG_WANN, ERFASSTWO, ERFASSTWER, ERFASSTWANN, GEANDERTWER, "& _
|
|
"GEAENDERTWANN FROM TBKOMMCOLLI_PAKET_KOPF WHERE (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANZ_PACKSTUECK", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "ANZ_PACKSTUECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GESAMTGEWICHT", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "GESAMTGEWICHT", 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 [TBKOMMCOLLI_PAKET_KOPF] SET [MANDANT_ID] = @MANDANT_ID, [PAKET_ID] = @PAK"& _
|
|
"ET_ID, [FERTIG] = @FERTIG, [FERTIG_WANN] = @FERTIG_WANN, [ERFASSTWO] = @ERFASSTW"& _
|
|
"O, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEANDERTWER] = @GE"& _
|
|
"ANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND"& _
|
|
" ([MANDANT_ID] = @Original_MANDANT_ID) AND ((@IsNull_PAKET_ID = 1 AND [PAKET_ID]"& _
|
|
" IS NULL) OR ([PAKET_ID] = @Original_PAKET_ID)) AND ([FERTIG] = @Original_FERTIG"& _
|
|
") AND ((@IsNull_FERTIG_WANN = 1 AND [FERTIG_WANN] IS NULL) OR ([FERTIG_WANN] = @"& _
|
|
"Original_FERTIG_WANN)) AND ([ERFASSTWO] = @Original_ERFASSTWO) AND ([ERFASSTWER]"& _
|
|
" = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNu"& _
|
|
"ll_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEAN"& _
|
|
"DERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAE"& _
|
|
"NDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MANDANT_ID, PAKET_ID, FER"& _
|
|
"TIG, FERTIG_WANN, ERFASSTWO, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN"& _
|
|
" FROM TBKOMMCOLLI_PAKET_KOPF WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAKET_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAKET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIG_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, 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("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MANDANT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAKET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAKET_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAKET_ID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAKET_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FERTIG_WANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG_WANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIG_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG_WANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(20) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, MANDANT_ID, PAKET_ID, FERTIG, FERTIG_WANN, ERFASSTWO, ERFASST"& _
|
|
"WER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TERMIN_KZ, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" ANZ_PACKSTUECK, GESAMTGEWICHT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_PAKET_KOPF"&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 Count(*)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (vkkopf_bes"& _
|
|
"tellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eingang_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKET_POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID)))"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "SELECT vkkopf_liefadr_name1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eingan"& _
|
|
"g_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKET_"& _
|
|
"POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP"& _
|
|
" BY vkkopf_liefadr_name1"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(3).Connection = Me.Connection
|
|
Me._commandCollection(3).CommandText = "SELECT vkkopf_liefadr_name2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eingan"& _
|
|
"g_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKET_"& _
|
|
"POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP"& _
|
|
" BY vkkopf_liefadr_name2"
|
|
Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(4).Connection = Me.Connection
|
|
Me._commandCollection(4).CommandText = "SELECT vkkopf_liefadr_name3"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eingan"& _
|
|
"g_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKET_"& _
|
|
"POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP"& _
|
|
" BY vkkopf_liefadr_name3"
|
|
Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(5).Connection = Me.Connection
|
|
Me._commandCollection(5).CommandText = "SELECT vkkopf_liefadr_land_nr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BEST"& _
|
|
"ELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eing"& _
|
|
"ang_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKE"& _
|
|
"T_POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GRO"& _
|
|
"UP BY vkkopf_liefadr_land_nr"
|
|
Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(6).Connection = Me.Connection
|
|
Me._commandCollection(6).CommandText = "SELECT vkkopf_liefadr_ort"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
"(vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTELLN"& _
|
|
"R"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eingang_"& _
|
|
"nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKET_PO"& _
|
|
"S_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP B"& _
|
|
"Y vkkopf_liefadr_ort"
|
|
Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(7).Connection = Me.Connection
|
|
Me._commandCollection(7).CommandText = "SELECT vkkopf_liefadr_ldplz"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eingan"& _
|
|
"g_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKET_"& _
|
|
"POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP"& _
|
|
" BY vkkopf_liefadr_ldplz"
|
|
Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(8).Connection = Me.Connection
|
|
Me._commandCollection(8).CommandText = "SELECT vkkopf_liefadr_strasse"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BEST"& _
|
|
"ELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) AND (vkkopf_eing"& _
|
|
"ang_nr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" FROM TBKOMMCOLLI_PAKET_POS AS TBKOMMCOLLI_PAKE"& _
|
|
"T_POS_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GRO"& _
|
|
"UP BY vkkopf_liefadr_strasse"
|
|
Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(9).Connection = Me.Connection
|
|
Me._commandCollection(9).CommandText = "SELECT vkkopf_liefadr_name1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf_"& _
|
|
"liefadr_name1"
|
|
Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(10) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(10).Connection = Me.Connection
|
|
Me._commandCollection(10).CommandText = "SELECT vkkopf_liefadr_name2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf_"& _
|
|
"liefadr_name2"
|
|
Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(11) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(11).Connection = Me.Connection
|
|
Me._commandCollection(11).CommandText = "SELECT vkkopf_liefadr_name3"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf_"& _
|
|
"liefadr_name3"
|
|
Me._commandCollection(11).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(11).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(12) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(12).Connection = Me.Connection
|
|
Me._commandCollection(12).CommandText = "SELECT vkkopf_liefadr_land_nr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BEST"& _
|
|
"ELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkop"& _
|
|
"f_liefadr_land_nr"
|
|
Me._commandCollection(12).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(12).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(13) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(13).Connection = Me.Connection
|
|
Me._commandCollection(13).CommandText = "SELECT vkkopf_liefadr_ort"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
"(vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTELLN"& _
|
|
"R"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf_li"& _
|
|
"efadr_ort"
|
|
Me._commandCollection(13).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(13).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(14) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(14).Connection = Me.Connection
|
|
Me._commandCollection(14).CommandText = "SELECT vkkopf_liefadr_ldplz"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BESTEL"& _
|
|
"LNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf_"& _
|
|
"liefadr_ldplz"
|
|
Me._commandCollection(14).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(14).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(15) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(15).Connection = Me.Connection
|
|
Me._commandCollection(15).CommandText = "SELECT vkkopf_liefadr_strasse"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM CP2DD.dbo.VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (vkkopf_bestellnr IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT VKOPF_BEST"& _
|
|
"ELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" WHERE (KOPF_ID = @KOPF_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf"& _
|
|
"_liefadr_strasse"
|
|
Me._commandCollection(15).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(15).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(16) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(16).Connection = Me.Connection
|
|
Me._commandCollection(16).CommandText = "DELETE FROM TBKOMMCOLLI_PAKET_KOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
|
Me._commandCollection(16).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(16).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._commandCollection(17) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(17).Connection = Me.Connection
|
|
Me._commandCollection(17).CommandText = "DELETE FROM TBKOMMCOLLI_PAKET_KOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE UPPER(PAKET_ID) = UPPER(@PAKET_ID)"
|
|
Me._commandCollection(17).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(17).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAKET_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._commandCollection(18) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(18).Connection = Me.Connection
|
|
Me._commandCollection(18).CommandText = "SELECT MAX(GUID) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_PAKET_KOPF"
|
|
Me._commandCollection(18).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(19) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(19).Connection = Me.Connection
|
|
Me._commandCollection(19).CommandText = "UPDATE TBKOMMCOLLI_PAKET_KOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FERTIG = 1, GEANDERTWER ="& _
|
|
" @GEANDERTWER, TERMIN_KZ = @TERMINKZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
|
Me._commandCollection(19).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(19).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(19).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TERMINKZ", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TERMIN_KZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(19).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._commandCollection(20) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(20).Connection = Me.Connection
|
|
Me._commandCollection(20).CommandText = "UPDATE TBKOMMCOLLI_PAKET_KOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWE"& _
|
|
"R, GESAMTGEWICHT = @Gewicht"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PAKET_ID = @PAKET_ID)"
|
|
Me._commandCollection(20).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(20).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(20).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gewicht", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "GESAMTGEWICHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(20).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAKET_ID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PAKET_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable, 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", "15.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 MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(guid,Integer)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable = New MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_PAKET_KOPF")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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 MANDANT_ID As Integer, ByVal ERFASSTWO As String, ByVal ERFASSTWER As String, ByVal ANZ_PACKSTUECK As Global.System.Nullable(Of Short), ByVal GESAMTGEWICHT As Global.System.Nullable(Of Double)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(MANDANT_ID,Integer)
|
|
If (ERFASSTWO Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWO")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ERFASSTWO,String)
|
|
End If
|
|
If (ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERFASSTWER,String)
|
|
End If
|
|
If (ANZ_PACKSTUECK.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ANZ_PACKSTUECK.Value,Short)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (GESAMTGEWICHT.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(GESAMTGEWICHT.Value,Double)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
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", "15.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 MANDANT_ID As Integer, _
|
|
ByVal PAKET_ID As String, _
|
|
ByVal FERTIG As Boolean, _
|
|
ByVal FERTIG_WANN As Global.System.Nullable(Of Date), _
|
|
ByVal ERFASSTWO As String, _
|
|
ByVal ERFASSTWER As String, _
|
|
ByVal ERFASSTWANN As Date, _
|
|
ByVal GEANDERTWER As String, _
|
|
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal Original_MANDANT_ID As Integer, _
|
|
ByVal Original_PAKET_ID As String, _
|
|
ByVal Original_FERTIG As Boolean, _
|
|
ByVal Original_FERTIG_WANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_ERFASSTWO As String, _
|
|
ByVal Original_ERFASSTWER As String, _
|
|
ByVal Original_ERFASSTWANN As Date, _
|
|
ByVal Original_GEANDERTWER As String, _
|
|
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _
|
|
ByVal GUID As Integer) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MANDANT_ID,Integer)
|
|
If (PAKET_ID Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PAKET_ID,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FERTIG,Boolean)
|
|
If (FERTIG_WANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FERTIG_WANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (ERFASSTWO Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWO")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ERFASSTWO,String)
|
|
End If
|
|
If (ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERFASSTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ERFASSTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ERFASSTWANN,Date)
|
|
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 (GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_MANDANT_ID,Integer)
|
|
If (Original_PAKET_ID Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PAKET_ID,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_FERTIG,Boolean)
|
|
If (Original_FERTIG_WANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_FERTIG_WANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_ERFASSTWO Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERFASSTWO")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ERFASSTWO,String)
|
|
End If
|
|
If (Original_ERFASSTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERFASSTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ERFASSTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ERFASSTWANN,Date)
|
|
If (Original_GEANDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GEANDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
|
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MANDANT_ID As Integer, _
|
|
ByVal PAKET_ID As String, _
|
|
ByVal FERTIG As Boolean, _
|
|
ByVal FERTIG_WANN As Global.System.Nullable(Of Date), _
|
|
ByVal ERFASSTWO As String, _
|
|
ByVal ERFASSTWER As String, _
|
|
ByVal ERFASSTWANN As Date, _
|
|
ByVal GEANDERTWER As String, _
|
|
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal Original_MANDANT_ID As Integer, _
|
|
ByVal Original_PAKET_ID As String, _
|
|
ByVal Original_FERTIG As Boolean, _
|
|
ByVal Original_FERTIG_WANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_ERFASSTWO As String, _
|
|
ByVal Original_ERFASSTWER As String, _
|
|
ByVal Original_ERFASSTWANN As Date, _
|
|
ByVal Original_GEANDERTWER As String, _
|
|
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Return Me.Update(MANDANT_ID, PAKET_ID, FERTIG, FERTIG_WANN, ERFASSTWO, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_MANDANT_ID, Original_PAKET_ID, Original_FERTIG, Original_FERTIG_WANN, Original_ERFASSTWO, Original_ERFASSTWER, Original_ERFASSTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseExists(ByVal KOPF_ID As Integer) As Global.System.Nullable(Of Integer)
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return New Global.System.Nullable(Of Integer)()
|
|
Else
|
|
Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer))
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseFirma1(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseFirma2(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseFirma3(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseLAND(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseOrt(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweisePLZ(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdAllVerweiseStrasse(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBestellNrFirma1(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBestellNrFirma2(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(10)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBestellNrFirma3(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(11)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBestellNrLand(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(12)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBestellNrOrt(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(13)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBestellNrPLZ(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(14)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdBEstellNrStrasse(ByVal KOPF_ID As Integer) As String
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(15)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return Nothing
|
|
Else
|
|
Return CType(returnValue,String)
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function CmdDeleteGUID(ByVal Original_GUID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(16)
|
|
command.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function CMDDeletePaketnachID(ByVal PAKET_ID As String) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(17)
|
|
If (PAKET_ID Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PAKET_ID")
|
|
Else
|
|
command.Parameters(0).Value = CType(PAKET_ID,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdGetMaxGUID() As Global.System.Nullable(Of Integer)
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(18)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Object
|
|
Try
|
|
returnValue = command.ExecuteScalar
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
If ((returnValue Is Nothing) _
|
|
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
|
Return New Global.System.Nullable(Of Integer)()
|
|
Else
|
|
Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer))
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _
|
|
Public Overloads Overridable Function CmdsetFertig(ByVal GEANDERTWER As String, ByVal TERMINKZ As String, ByVal GUID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(19)
|
|
If (GEANDERTWER Is Nothing) Then
|
|
command.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
command.Parameters(0).Value = CType(GEANDERTWER,String)
|
|
End If
|
|
If (TERMINKZ Is Nothing) Then
|
|
command.Parameters(1).Value = Global.System.DBNull.Value
|
|
Else
|
|
command.Parameters(1).Value = CType(TERMINKZ,String)
|
|
End If
|
|
command.Parameters(2).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdUpdate_Gewicht(ByVal GEANDERTWER As String, ByVal Gewicht As Global.System.Nullable(Of Double), ByVal PAKET_ID As String) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(20)
|
|
If (GEANDERTWER Is Nothing) Then
|
|
command.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
command.Parameters(0).Value = CType(GEANDERTWER,String)
|
|
End If
|
|
If (Gewicht.HasValue = true) Then
|
|
command.Parameters(1).Value = CType(Gewicht.Value,Double)
|
|
Else
|
|
command.Parameters(1).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (PAKET_ID Is Nothing) Then
|
|
command.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
command.Parameters(2).Value = CType(PAKET_ID,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBKOMMCOLLI_PAKET_POSTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_PAKET_POS"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("KOPF_ID", "KOPF_ID")
|
|
tableMapping.ColumnMappings.Add("BARCODE", "BARCODE")
|
|
tableMapping.ColumnMappings.Add("VKOPF_BESTELLNR", "VKOPF_BESTELLNR")
|
|
tableMapping.ColumnMappings.Add("VKOPF_EINGANGNR", "VKOPF_EINGANGNR")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBKOMMCOLLI_PAKET_POS"&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 TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (KOPF_ID, BARCODE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"V"& _
|
|
"ALUES (@KOPF_ID,@BARCODE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, KOPF_ID, BARCODE, VKOPF_BESTELL"& _
|
|
"NR, VKOPF_EINGANGNR, ERFASSTWANN, GEAENDERTWANN FROM TBKOMMCOLLI_PAKET_POS WHERE"& _
|
|
" (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BARCODE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BARCODE", 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 [TBKOMMCOLLI_PAKET_POS] SET [KOPF_ID] = @KOPF_ID, [BARCODE] = @BARCODE, [V"& _
|
|
"KOPF_BESTELLNR] = @VKOPF_BESTELLNR, [VKOPF_EINGANGNR] = @VKOPF_EINGANGNR, [ERFAS"& _
|
|
"STWANN] = @ERFASSTWANN, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Origi"& _
|
|
"nal_GUID) AND ([KOPF_ID] = @Original_KOPF_ID) AND ([BARCODE] = @Original_BARCODE"& _
|
|
") AND ((@IsNull_VKOPF_BESTELLNR = 1 AND [VKOPF_BESTELLNR] IS NULL) OR ([VKOPF_BE"& _
|
|
"STELLNR] = @Original_VKOPF_BESTELLNR)) AND ((@IsNull_VKOPF_EINGANGNR = 1 AND [VK"& _
|
|
"OPF_EINGANGNR] IS NULL) OR ([VKOPF_EINGANGNR] = @Original_VKOPF_EINGANGNR)) AND "& _
|
|
"([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEA"& _
|
|
"ENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
|
|
"UID, KOPF_ID, BARCODE, VKOPF_BESTELLNR, VKOPF_EINGANGNR, ERFASSTWANN, GEAENDERTW"& _
|
|
"ANN FROM TBKOMMCOLLI_PAKET_POS WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BARCODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BARCODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKOPF_BESTELLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKOPF_BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKOPF_EINGANGNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKOPF_EINGANGNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_KOPF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BARCODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BARCODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VKOPF_BESTELLNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKOPF_BESTELLNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VKOPF_BESTELLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKOPF_BESTELLNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VKOPF_EINGANGNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKOPF_EINGANGNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VKOPF_EINGANGNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VKOPF_EINGANGNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, KOPF_ID, BARCODE, VKOPF_BESTELLNR, VKOPF_EINGANGNR, ERFASSTWA"& _
|
|
"NN, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (KOPF_ID "& _
|
|
"= @KOPF_ID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", 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 = "DELETE FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (KOPF_ID in"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBK"& _
|
|
"OMMCOLLI_PAKET_KOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (UPPER(PAKET_ID"& _
|
|
") = UPPER(@PAKET_ID))))"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAKET_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(2).Connection = Me.Connection
|
|
Me._commandCollection(2).CommandText = "DELETE FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (KOPF_ID = @KOPF_ID)"
|
|
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(3).Connection = Me.Connection
|
|
Me._commandCollection(3).CommandText = "DELETE FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (KOPF_ID = @KOPF_ID)"
|
|
Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_PAKET_POSDataTable, ByVal KOPF_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(KOPF_ID,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", "15.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 KOPF_ID As Integer) As MyDataset.TBKOMMCOLLI_PAKET_POSDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_PAKET_POSDataTable = New MyDataset.TBKOMMCOLLI_PAKET_POSDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_POSDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_PAKET_POS")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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 KOPF_ID As Integer, ByVal BARCODE As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
If (BARCODE Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("BARCODE")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(BARCODE,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", "15.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 KOPF_ID As Integer, ByVal BARCODE As String, ByVal VKOPF_BESTELLNR As String, ByVal VKOPF_EINGANGNR As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KOPF_ID As Integer, ByVal Original_BARCODE As String, ByVal Original_VKOPF_BESTELLNR As String, ByVal Original_VKOPF_EINGANGNR As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
If (BARCODE Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("BARCODE")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BARCODE,String)
|
|
End If
|
|
If (VKOPF_BESTELLNR Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VKOPF_BESTELLNR,String)
|
|
End If
|
|
If (VKOPF_EINGANGNR Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VKOPF_EINGANGNR,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ERFASSTWANN,Date)
|
|
If (GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_KOPF_ID,Integer)
|
|
If (Original_BARCODE Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_BARCODE")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_BARCODE,String)
|
|
End If
|
|
If (Original_VKOPF_BESTELLNR Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_VKOPF_BESTELLNR,String)
|
|
End If
|
|
If (Original_VKOPF_EINGANGNR Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_VKOPF_EINGANGNR,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ERFASSTWANN,Date)
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
|
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 KOPF_ID As Integer, ByVal BARCODE As String, ByVal VKOPF_BESTELLNR As String, ByVal VKOPF_EINGANGNR As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KOPF_ID As Integer, ByVal Original_BARCODE As String, ByVal Original_VKOPF_BESTELLNR As String, ByVal Original_VKOPF_EINGANGNR As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Return Me.Update(KOPF_ID, BARCODE, VKOPF_BESTELLNR, VKOPF_EINGANGNR, ERFASSTWANN, GEAENDERTWANN, Original_GUID, Original_KOPF_ID, Original_BARCODE, Original_VKOPF_BESTELLNR, Original_VKOPF_EINGANGNR, Original_ERFASSTWANN, Original_GEAENDERTWANN, Original_GUID)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function cmdDelete_nachKopfID(ByVal PAKET_ID As String) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
If (PAKET_ID Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PAKET_ID")
|
|
Else
|
|
command.Parameters(0).Value = CType(PAKET_ID,String)
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function cmdDeleteKopfData(ByVal KOPF_ID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function cmdDeletePos(ByVal KOPF_ID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3)
|
|
command.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class VWKOMMCOLLI_ABSCHLUSS_PAKETTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "VWKOMMCOLLI_ABSCHLUSS_PAKET"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("Mandant", "Mandant")
|
|
tableMapping.ColumnMappings.Add("PAKET_ID", "PAKET_ID")
|
|
tableMapping.ColumnMappings.Add("Gepackt", "Gepackt")
|
|
tableMapping.ColumnMappings.Add("MANDANT_ID", "MANDANT_ID")
|
|
tableMapping.ColumnMappings.Add("TRENNUNG_BC", "TRENNUNG_BC")
|
|
tableMapping.ColumnMappings.Add("TERMIN_KZ", "TERMIN_KZ")
|
|
tableMapping.ColumnMappings.Add("ANZ_PACKSTUECK", "ANZ_PACKSTUECK")
|
|
tableMapping.ColumnMappings.Add("GESAMTGEWICHT", "GESAMTGEWICHT")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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, Mandant, PAKET_ID, Gepackt, MANDANT_ID, TRENNUNG_BC, TERMIN_K"& _
|
|
"Z, ANZ_PACKSTUECK, GESAMTGEWICHT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWKOMMCOLLI_ABSCHLUSS_PAKET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _
|
|
"HERE (Mandant = @Mandant)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mandant", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Mandant", 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 = "UPDATE TBKOMMCOLLI_PAKET_KOPF SET ABSCHLUSS = 1,Abschluss_wann = Getdate(),Filena"& _
|
|
"me = @filename WHERE GUID = @Guid"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@filename", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable, ByVal Mandant As String) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Mandant Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Mandant")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Mandant,String)
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 Mandant As String) As MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Mandant Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Mandant")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Mandant,String)
|
|
End If
|
|
Dim dataTable As MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable = New MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _
|
|
Public Overloads Overridable Function cmdAbschluss(ByVal filename As String, ByVal Guid As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
If (filename Is Nothing) Then
|
|
command.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
command.Parameters(0).Value = CType(filename,String)
|
|
End If
|
|
command.Parameters(1).Value = CType(Guid,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBKOMMCOLLI_TERMINARTTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_TERMINART"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("MANDANT_ID", "MANDANT_ID")
|
|
tableMapping.ColumnMappings.Add("TERMIN_BEZEICHNUNG", "TERMIN_BEZEICHNUNG")
|
|
tableMapping.ColumnMappings.Add("TERMIN_KZ", "TERMIN_KZ")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER")
|
|
tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN")
|
|
tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER")
|
|
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.DeleteCommand.Connection = Me.Connection
|
|
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBKOMMCOLLI_TERMINART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBKOMMCOLLI_TERMINART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MANDANT_ID, TERMIN_B"& _
|
|
"EZEICHNUNG, TERMIN_KZ, ERFASSTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@MANDANT_ID,@TERMIN_BEZEICHNU"& _
|
|
"NG,@TERMIN_KZ,@ERFASSTWER)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TERMIN_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TERMIN_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TERMIN_KZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TERMIN_KZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE TBKOMMCOLLI_TERMINART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET MANDANT_ID = @MANDANT_ID, "& _
|
|
"TERMIN_BEZEICHNUNG = @TERMIN_BEZEICHNUNG, TERMIN_KZ = @TERMIN_KZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _
|
|
"GUID = @Original_Guid)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TERMIN_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TERMIN_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TERMIN_KZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TERMIN_KZ", 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, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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, MANDANT_ID, TERMIN_BEZEICHNUNG, TERMIN_KZ, ERFASSTWER, ERFASS"& _
|
|
"TWANN, GEANDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_TERMINART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (MANDANT_ID = @mandantID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mandantID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_TERMINARTDataTable, ByVal mandantID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(mandantID,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", "15.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 mandantID As Integer) As MyDataset.TBKOMMCOLLI_TERMINARTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(mandantID,Integer)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_TERMINARTDataTable = New MyDataset.TBKOMMCOLLI_TERMINARTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_TERMINARTDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_TERMINART")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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
|
|
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 TBKOMMCOLLI_PAKET_POS_LSTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_PAKET_POS_LS"
|
|
tableMapping.ColumnMappings.Add("VKOPF_EINGANGNR", "VKOPF_EINGANGNR")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 VKOPF_EINGANGNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_PAKET_POS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (KOPF_ID = @KOPF_ID) AND (VKOPF_EINGANGNR IS NOT NULL)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KOPF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "KOPF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable, ByVal KOPF_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(KOPF_ID,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", "15.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 KOPF_ID As Integer) As MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(KOPF_ID,Integer)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable = New MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBKOMMCOLLI_SDGPOSITIONENTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_SDGPOSITIONEN"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("POSINHALT", "POSINHALT")
|
|
tableMapping.ColumnMappings.Add("GEWICHT", "GEWICHT")
|
|
tableMapping.ColumnMappings.Add("LHM", "LHM")
|
|
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 [TBKOMMCOLLI_SDGPOSITIONEN] WHERE (([GUID] = @Original_GUID) AND ([SE"& _
|
|
"NDUNGNR] = @Original_SENDUNGNR) AND ([SDG_LHM_ID] = @Original_SDG_LHM_ID) AND (["& _
|
|
"PACKSTUECKANZAHL] = @Original_PACKSTUECKANZAHL) AND ([POSINHALT] = @Original_POS"& _
|
|
"INHALT) AND ([GEWICHT] = @Original_GEWICHT) AND ([FRACHTPFLICTGEWICHT] = @Origin"& _
|
|
"al_FRACHTPFLICTGEWICHT) AND ((@IsNull_REFERENZ = 1 AND [REFERENZ] IS NULL) OR (["& _
|
|
"REFERENZ] = @Original_REFERENZ)) AND ((@IsNull_NVE = 1 AND [NVE] IS NULL) OR ([N"& _
|
|
"VE] = @Original_NVE)) AND ([FERTIG] = @Original_FERTIG) AND ((@IsNull_FERTIGWER "& _
|
|
"= 1 AND [FERTIGWER] IS NULL) OR ([FERTIGWER] = @Original_FERTIGWER)) AND ((@IsNu"& _
|
|
"ll_FERTIGWANN = 1 AND [FERTIGWANN] IS NULL) OR ([FERTIGWANN] = @Original_FERTIGW"& _
|
|
"ANN)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Origina"& _
|
|
"l_ERSTELLTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR (["& _
|
|
"GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GE"& _
|
|
"AENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SENDUNGNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SDG_LHM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SDG_LHM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PACKSTUECKANZAHL", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PACKSTUECKANZAHL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_POSINHALT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POSINHALT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEWICHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FRACHTPFLICTGEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FRACHTPFLICTGEWICHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_REFERENZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REFERENZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NVE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NVE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NVE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FERTIGWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIGWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FERTIGWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIGWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBKOMMCOLLI_SDGPOSITIONEN] ([SENDUNGNR], [SDG_LHM_ID], [PACKSTUECKAN"& _
|
|
"ZAHL], [POSINHALT], [GEWICHT], [FRACHTPFLICTGEWICHT], [REFERENZ], [NVE], [FERTIG"& _
|
|
"], [FERTIGWER], [FERTIGWANN], [ERSTELLTWER], [ERSTELLTWANN], [GEAENDERTWER], [GE"& _
|
|
"AENDERTWANN]) VALUES (@SENDUNGNR, @SDG_LHM_ID, @PACKSTUECKANZAHL, @POSINHALT, @G"& _
|
|
"EWICHT, @FRACHTPFLICTGEWICHT, @REFERENZ, @NVE, @FERTIG, @FERTIGWER, @FERTIGWANN,"& _
|
|
" @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SEND"& _
|
|
"UNGNR, SDG_LHM_ID, PACKSTUECKANZAHL, POSINHALT, GEWICHT, FRACHTPFLICTGEWICHT, RE"& _
|
|
"FERENZ, NVE, FERTIG, FERTIGWER, FERTIGWANN, ERSTELLTWER, ERSTELLTWANN, GEAENDERT"& _
|
|
"WER, GEAENDERTWANN FROM TBKOMMCOLLI_SDGPOSITIONEN WHERE (GUID = SCOPE_IDENTITY()"& _
|
|
")"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SENDUNGNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SDG_LHM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SDG_LHM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PACKSTUECKANZAHL", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PACKSTUECKANZAHL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POSINHALT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POSINHALT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEWICHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FRACHTPFLICTGEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FRACHTPFLICTGEWICHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NVE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIGWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIGWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [TBKOMMCOLLI_SDGPOSITIONEN] SET [SENDUNGNR] = @SENDUNGNR, [SDG_LHM_ID] = @"& _
|
|
"SDG_LHM_ID, [PACKSTUECKANZAHL] = @PACKSTUECKANZAHL, [POSINHALT] = @POSINHALT, [G"& _
|
|
"EWICHT] = @GEWICHT, [FRACHTPFLICTGEWICHT] = @FRACHTPFLICTGEWICHT, [REFERENZ] = @"& _
|
|
"REFERENZ, [NVE] = @NVE, [FERTIG] = @FERTIG, [FERTIGWER] = @FERTIGWER, [FERTIGWAN"& _
|
|
"N] = @FERTIGWANN, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, "& _
|
|
"[GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] "& _
|
|
"= @Original_GUID) AND ([SENDUNGNR] = @Original_SENDUNGNR) AND ([SDG_LHM_ID] = @O"& _
|
|
"riginal_SDG_LHM_ID) AND ([PACKSTUECKANZAHL] = @Original_PACKSTUECKANZAHL) AND (["& _
|
|
"POSINHALT] = @Original_POSINHALT) AND ([GEWICHT] = @Original_GEWICHT) AND ([FRAC"& _
|
|
"HTPFLICTGEWICHT] = @Original_FRACHTPFLICTGEWICHT) AND ((@IsNull_REFERENZ = 1 AND"& _
|
|
" [REFERENZ] IS NULL) OR ([REFERENZ] = @Original_REFERENZ)) AND ((@IsNull_NVE = 1"& _
|
|
" AND [NVE] IS NULL) OR ([NVE] = @Original_NVE)) AND ([FERTIG] = @Original_FERTIG"& _
|
|
") AND ((@IsNull_FERTIGWER = 1 AND [FERTIGWER] IS NULL) OR ([FERTIGWER] = @Origin"& _
|
|
"al_FERTIGWER)) AND ((@IsNull_FERTIGWANN = 1 AND [FERTIGWANN] IS NULL) OR ([FERTI"& _
|
|
"GWANN] = @Original_FERTIGWANN)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND "& _
|
|
"([ERSTELLTWANN] = @Original_ERSTELLTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GE"& _
|
|
"AENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull"& _
|
|
"_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_"& _
|
|
"GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SENDUNGNR, SDG_LHM_ID, PACKSTUECKANZAHL, POSINHA"& _
|
|
"LT, GEWICHT, FRACHTPFLICTGEWICHT, REFERENZ, NVE, FERTIG, FERTIGWER, FERTIGWANN, "& _
|
|
"ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBKOMMCOLLI_SDGPOSIT"& _
|
|
"IONEN WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SENDUNGNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SDG_LHM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SDG_LHM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PACKSTUECKANZAHL", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PACKSTUECKANZAHL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POSINHALT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POSINHALT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEWICHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FRACHTPFLICTGEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FRACHTPFLICTGEWICHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NVE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIGWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIGWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SENDUNGNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SDG_LHM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SDG_LHM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PACKSTUECKANZAHL", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PACKSTUECKANZAHL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_POSINHALT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POSINHALT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEWICHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FRACHTPFLICTGEWICHT", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FRACHTPFLICTGEWICHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_REFERENZ", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENZ", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REFERENZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NVE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NVE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NVE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FERTIGWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIGWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FERTIGWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FERTIGWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIGWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 T.GUID, T1.LHM, T.POSINHALT, T.GEWICHT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI"& _
|
|
"_SDGPOSITIONEN AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBKOMMCOLLI_LHM AS T1 O"& _
|
|
"N T.SDG_LHM_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.SENDUNGNR = @SDG) AND (T.SDG_LHM_ID = "& _
|
|
"@ID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SDG", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SDG_LHM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable, ByVal SDG As Integer, ByVal ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(SDG,Integer)
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(ID,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", "15.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 SDG As Integer, ByVal ID As Integer) As MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(SDG,Integer)
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(ID,Integer)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable = New MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_SDGPOSITIONEN")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete( _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal Original_SENDUNGNR As Integer, _
|
|
ByVal Original_SDG_LHM_ID As Integer, _
|
|
ByVal Original_PACKSTUECKANZAHL As Byte, _
|
|
ByVal Original_POSINHALT As String, _
|
|
ByVal Original_GEWICHT As Double, _
|
|
ByVal Original_FRACHTPFLICTGEWICHT As Double, _
|
|
ByVal Original_REFERENZ As String, _
|
|
ByVal Original_NVE As String, _
|
|
ByVal Original_FERTIG As Boolean, _
|
|
ByVal Original_FERTIGWER As String, _
|
|
ByVal Original_FERTIGWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_ERSTELLTWER As String, _
|
|
ByVal Original_ERSTELLTWANN As Date, _
|
|
ByVal Original_GEAENDERTWER As String, _
|
|
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SENDUNGNR,Integer)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SDG_LHM_ID,Integer)
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PACKSTUECKANZAHL,Byte)
|
|
If (Original_POSINHALT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_POSINHALT")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_POSINHALT,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_GEWICHT,Double)
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FRACHTPFLICTGEWICHT,Double)
|
|
If (Original_REFERENZ Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_REFERENZ,String)
|
|
End If
|
|
If (Original_NVE Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_NVE,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_FERTIG,Boolean)
|
|
If (Original_FERTIGWER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_FERTIGWER,String)
|
|
End If
|
|
If (Original_FERTIGWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_FERTIGWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ERSTELLTWANN,Date)
|
|
If (Original_GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_GEAENDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value
|
|
End If
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
|
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.DeleteCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.DeleteCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 SENDUNGNR As Integer, ByVal SDG_LHM_ID As Integer, ByVal PACKSTUECKANZAHL As Byte, ByVal POSINHALT As String, ByVal GEWICHT As Double, ByVal FRACHTPFLICTGEWICHT As Double, ByVal REFERENZ As String, ByVal NVE As String, ByVal FERTIG As Boolean, ByVal FERTIGWER As String, ByVal FERTIGWANN As Global.System.Nullable(Of Date), ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(SENDUNGNR,Integer)
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(SDG_LHM_ID,Integer)
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(PACKSTUECKANZAHL,Byte)
|
|
If (POSINHALT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("POSINHALT")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(POSINHALT,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(GEWICHT,Double)
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(FRACHTPFLICTGEWICHT,Double)
|
|
If (REFERENZ Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(REFERENZ,String)
|
|
End If
|
|
If (NVE Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(NVE,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(FERTIG,Boolean)
|
|
If (FERTIGWER Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(FERTIGWER,String)
|
|
End If
|
|
If (FERTIGWANN.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = CType(FERTIGWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(11).Value = CType(ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(12).Value = CType(ERSTELLTWANN,Date)
|
|
If (GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(13).Value = CType(GEAENDERTWER,String)
|
|
End If
|
|
If (GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = CType(GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
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", "15.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 SENDUNGNR As Integer, _
|
|
ByVal SDG_LHM_ID As Integer, _
|
|
ByVal PACKSTUECKANZAHL As Byte, _
|
|
ByVal POSINHALT As String, _
|
|
ByVal GEWICHT As Double, _
|
|
ByVal FRACHTPFLICTGEWICHT As Double, _
|
|
ByVal REFERENZ As String, _
|
|
ByVal NVE As String, _
|
|
ByVal FERTIG As Boolean, _
|
|
ByVal FERTIGWER As String, _
|
|
ByVal FERTIGWANN As Global.System.Nullable(Of Date), _
|
|
ByVal ERSTELLTWER As String, _
|
|
ByVal ERSTELLTWANN As Date, _
|
|
ByVal GEAENDERTWER As String, _
|
|
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal Original_SENDUNGNR As Integer, _
|
|
ByVal Original_SDG_LHM_ID As Integer, _
|
|
ByVal Original_PACKSTUECKANZAHL As Byte, _
|
|
ByVal Original_POSINHALT As String, _
|
|
ByVal Original_GEWICHT As Double, _
|
|
ByVal Original_FRACHTPFLICTGEWICHT As Double, _
|
|
ByVal Original_REFERENZ As String, _
|
|
ByVal Original_NVE As String, _
|
|
ByVal Original_FERTIG As Boolean, _
|
|
ByVal Original_FERTIGWER As String, _
|
|
ByVal Original_FERTIGWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_ERSTELLTWER As String, _
|
|
ByVal Original_ERSTELLTWANN As Date, _
|
|
ByVal Original_GEAENDERTWER As String, _
|
|
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _
|
|
ByVal GUID As Integer) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SENDUNGNR,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SDG_LHM_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PACKSTUECKANZAHL,Byte)
|
|
If (POSINHALT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("POSINHALT")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(POSINHALT,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEWICHT,Double)
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FRACHTPFLICTGEWICHT,Double)
|
|
If (REFERENZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(REFERENZ,String)
|
|
End If
|
|
If (NVE Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(NVE,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FERTIG,Boolean)
|
|
If (FERTIGWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(FERTIGWER,String)
|
|
End If
|
|
If (FERTIGWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FERTIGWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ERSTELLTWANN,Date)
|
|
If (GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GEAENDERTWER,String)
|
|
End If
|
|
If (GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SENDUNGNR,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SDG_LHM_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_PACKSTUECKANZAHL,Byte)
|
|
If (Original_POSINHALT Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_POSINHALT")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_POSINHALT,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GEWICHT,Double)
|
|
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_FRACHTPFLICTGEWICHT,Double)
|
|
If (Original_REFERENZ Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_REFERENZ,String)
|
|
End If
|
|
If (Original_NVE Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_NVE,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_FERTIG,Boolean)
|
|
If (Original_FERTIGWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_FERTIGWER,String)
|
|
End If
|
|
If (Original_FERTIGWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_FERTIGWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_ERSTELLTWER Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_ERSTELLTWER,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_ERSTELLTWANN,Date)
|
|
If (Original_GEAENDERTWER Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_GEAENDERTWER,String)
|
|
End If
|
|
If (Original_GEAENDERTWANN.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_GEAENDERTWANN.Value,Date)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
|
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 SENDUNGNR As Integer, _
|
|
ByVal SDG_LHM_ID As Integer, _
|
|
ByVal PACKSTUECKANZAHL As Byte, _
|
|
ByVal POSINHALT As String, _
|
|
ByVal GEWICHT As Double, _
|
|
ByVal FRACHTPFLICTGEWICHT As Double, _
|
|
ByVal REFERENZ As String, _
|
|
ByVal NVE As String, _
|
|
ByVal FERTIG As Boolean, _
|
|
ByVal FERTIGWER As String, _
|
|
ByVal FERTIGWANN As Global.System.Nullable(Of Date), _
|
|
ByVal ERSTELLTWER As String, _
|
|
ByVal ERSTELLTWANN As Date, _
|
|
ByVal GEAENDERTWER As String, _
|
|
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_GUID As Integer, _
|
|
ByVal Original_SENDUNGNR As Integer, _
|
|
ByVal Original_SDG_LHM_ID As Integer, _
|
|
ByVal Original_PACKSTUECKANZAHL As Byte, _
|
|
ByVal Original_POSINHALT As String, _
|
|
ByVal Original_GEWICHT As Double, _
|
|
ByVal Original_FRACHTPFLICTGEWICHT As Double, _
|
|
ByVal Original_REFERENZ As String, _
|
|
ByVal Original_NVE As String, _
|
|
ByVal Original_FERTIG As Boolean, _
|
|
ByVal Original_FERTIGWER As String, _
|
|
ByVal Original_FERTIGWANN As Global.System.Nullable(Of Date), _
|
|
ByVal Original_ERSTELLTWER As String, _
|
|
ByVal Original_ERSTELLTWANN As Date, _
|
|
ByVal Original_GEAENDERTWER As String, _
|
|
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
|
|
Return Me.Update(SENDUNGNR, SDG_LHM_ID, PACKSTUECKANZAHL, POSINHALT, GEWICHT, FRACHTPFLICTGEWICHT, REFERENZ, NVE, FERTIG, FERTIGWER, FERTIGWANN, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, Original_GUID, Original_SENDUNGNR, Original_SDG_LHM_ID, Original_PACKSTUECKANZAHL, Original_POSINHALT, Original_GEWICHT, Original_FRACHTPFLICTGEWICHT, Original_REFERENZ, Original_NVE, Original_FERTIG, Original_FERTIGWER, Original_FERTIGWANN, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEAENDERTWER, Original_GEAENDERTWANN, Original_GUID)
|
|
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 TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_TEXTSCHLUESSEL"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_TEXTSCHLUESSEL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _
|
|
"E (AKTIV = 1) AND (QUALIFIER = 0)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData() As MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable = New MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBKOMMCOLLI_HINWEISTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBKOMMCOLLI_HINWEIS"
|
|
tableMapping.ColumnMappings.Add("SENDUNGNR", "SENDUNGNR")
|
|
tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG")
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBKOMMCOLLI_HINWEIS.SENDUNGNR, TBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNU"& _
|
|
"NG, TBKOMMCOLLI_HINWEIS.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_HINWEIS INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
|
" TBKOMMCOLLI_TEXTSCHLUESSEL ON TBKOMMCOLLI_HINWEIS.TEXTSCH"& _
|
|
"LUSSEL_ID = TBKOMMCOLLI_TEXTSCHLUESSEL.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBKOMMCOLLI_HINWEIS.S"& _
|
|
"ENDUNGNR = @Sendung)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sendung", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBKOMMCOLLI_HINWEISDataTable, ByVal Sendung As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Sendung,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", "15.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 Sendung As Integer) As MyDataset.TBKOMMCOLLI_HINWEISDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Sendung,Integer)
|
|
Dim dataTable As MyDataset.TBKOMMCOLLI_HINWEISDataTable = New MyDataset.TBKOMMCOLLI_HINWEISDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class VWHUP_REPORT1TableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "VWHUP_REPORT1"
|
|
tableMapping.ColumnMappings.Add("LAD1", "LAD1")
|
|
tableMapping.ColumnMappings.Add("LAD_STRASSE", "LAD_STRASSE")
|
|
tableMapping.ColumnMappings.Add("LAD_LKZ_PLZ_ORT", "LAD_LKZ_PLZ_ORT")
|
|
tableMapping.ColumnMappings.Add("FERTIG", "FERTIG")
|
|
tableMapping.ColumnMappings.Add("EMP", "EMP")
|
|
tableMapping.ColumnMappings.Add("EMP_ZUSATZ", "EMP_ZUSATZ")
|
|
tableMapping.ColumnMappings.Add("EMP_STRASSE", "EMP_STRASSE")
|
|
tableMapping.ColumnMappings.Add("EMP_LKZ", "EMP_LKZ")
|
|
tableMapping.ColumnMappings.Add("EMP_ORT", "EMP_ORT")
|
|
tableMapping.ColumnMappings.Add("EMP_OTEIL", "EMP_OTEIL")
|
|
tableMapping.ColumnMappings.Add("ABHOLDATUM", "ABHOLDATUM")
|
|
tableMapping.ColumnMappings.Add("SDG_GEWICHT", "SDG_GEWICHT")
|
|
tableMapping.ColumnMappings.Add("SDG_STELLPLAETZE", "SDG_STELLPLAETZE")
|
|
tableMapping.ColumnMappings.Add("SDG_FRANKATUR", "SDG_FRANKATUR")
|
|
tableMapping.ColumnMappings.Add("NVE", "NVE")
|
|
tableMapping.ColumnMappings.Add("POSINHALT", "POSINHALT")
|
|
tableMapping.ColumnMappings.Add("POS_GEWICHT", "POS_GEWICHT")
|
|
tableMapping.ColumnMappings.Add("PACKSTUECKANZAHL", "PACKSTUECKANZAHL")
|
|
tableMapping.ColumnMappings.Add("HINW_CODE", "HINW_CODE")
|
|
tableMapping.ColumnMappings.Add("HINW_TEXT", "HINW_TEXT")
|
|
tableMapping.ColumnMappings.Add("HINW_TEXT_ERG", "HINW_TEXT_ERG")
|
|
tableMapping.ColumnMappings.Add("SENDUNGNR", "SENDUNGNR")
|
|
tableMapping.ColumnMappings.Add("SDG_REFERENZ", "SDG_REFERENZ")
|
|
tableMapping.ColumnMappings.Add("EMP_PLZ_STR", "EMP_PLZ_STR")
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 LAD1, LAD_STRASSE, LAD_LKZ_PLZ_ORT, FERTIG, SENDUNGNR, SDG_REFERENZ"& _
|
|
", EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_PLZ_STR, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLD"& _
|
|
"ATUM, SDG_GEWICHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SDG_STELLPLAETZE, SDG_FRANKATUR, N"& _
|
|
"VE, POSINHALT, POS_GEWICHT, PACKSTUECKANZAHL, HINW_CODE, HINW_TEXT, HINW_TEXT_ER"& _
|
|
"G, GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWHUP_REPORT1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FERTIG = @FERTIG) AND UEBE"& _
|
|
"RTRAGEN = @UEBERTRAGEN"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UEBERTRAGEN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "UEBERTRAGEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.VWHUP_REPORT1DataTable, ByVal FERTIG As Boolean, ByVal UEBERTRAGEN As Boolean) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(FERTIG,Boolean)
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(UEBERTRAGEN,Boolean)
|
|
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", "15.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 FERTIG As Boolean, ByVal UEBERTRAGEN As Boolean) As MyDataset.VWHUP_REPORT1DataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(FERTIG,Boolean)
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(UEBERTRAGEN,Boolean)
|
|
Dim dataTable As MyDataset.VWHUP_REPORT1DataTable = New MyDataset.VWHUP_REPORT1DataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class VWKOMMCOLLI_UEBERSICHTTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "VWKOMMCOLLI_UEBERSICHT"
|
|
tableMapping.ColumnMappings.Add("LAD1", "LAD1")
|
|
tableMapping.ColumnMappings.Add("LAD_STRASSE", "LAD_STRASSE")
|
|
tableMapping.ColumnMappings.Add("LAD_LKZ_PLZ_ORT", "LAD_LKZ_PLZ_ORT")
|
|
tableMapping.ColumnMappings.Add("FERTIG", "FERTIG")
|
|
tableMapping.ColumnMappings.Add("SENDUNGNR", "SENDUNGNR")
|
|
tableMapping.ColumnMappings.Add("SDG_REFERENZ", "SDG_REFERENZ")
|
|
tableMapping.ColumnMappings.Add("EMP", "EMP")
|
|
tableMapping.ColumnMappings.Add("EMP_ZUSATZ", "EMP_ZUSATZ")
|
|
tableMapping.ColumnMappings.Add("EMP_STRASSE", "EMP_STRASSE")
|
|
tableMapping.ColumnMappings.Add("EMP_PLZ_STR", "EMP_PLZ_STR")
|
|
tableMapping.ColumnMappings.Add("EMP_LKZ", "EMP_LKZ")
|
|
tableMapping.ColumnMappings.Add("EMP_ORT", "EMP_ORT")
|
|
tableMapping.ColumnMappings.Add("EMP_OTEIL", "EMP_OTEIL")
|
|
tableMapping.ColumnMappings.Add("ABHOLDATUM", "ABHOLDATUM")
|
|
tableMapping.ColumnMappings.Add("SDG_GEWICHT", "SDG_GEWICHT")
|
|
tableMapping.ColumnMappings.Add("SDG_STELLPLAETZE", "SDG_STELLPLAETZE")
|
|
tableMapping.ColumnMappings.Add("SDG_FRANKATUR", "SDG_FRANKATUR")
|
|
tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG")
|
|
tableMapping.ColumnMappings.Add("BORDERONR", "BORDERONR")
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("UEBERTRAGEN", "UEBERTRAGEN")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 LAD1, LAD_STRASSE, LAD_LKZ_PLZ_ORT, FERTIG, SENDUNGNR, SDG_REFERENZ"& _
|
|
", EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_PLZ_STR, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLD"& _
|
|
"ATUM, SDG_GEWICHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SDG_STELLPLAETZE, SDG_FRANKATUR, B"& _
|
|
"EMERKUNG, BORDERONR, GUID, UEBERTRAGEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWKOMMCOLLI_UEBERSICHT"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData() As MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable = New MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
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 _tBKOMMCOLLI_MANDANTTableAdapter As TBKOMMCOLLI_MANDANTTableAdapter
|
|
|
|
Private _tBKOMMCOLLI_PAKET_KOPFTableAdapter As TBKOMMCOLLI_PAKET_KOPFTableAdapter
|
|
|
|
Private _tBKOMMCOLLI_PAKET_POSTableAdapter As TBKOMMCOLLI_PAKET_POSTableAdapter
|
|
|
|
Private _tBKOMMCOLLI_TERMINARTTableAdapter As TBKOMMCOLLI_TERMINARTTableAdapter
|
|
|
|
Private _tBKOMMCOLLI_SDGPOSITIONENTableAdapter As TBKOMMCOLLI_SDGPOSITIONENTableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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 TBKOMMCOLLI_MANDANTTableAdapter() As TBKOMMCOLLI_MANDANTTableAdapter
|
|
Get
|
|
Return Me._tBKOMMCOLLI_MANDANTTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBKOMMCOLLI_MANDANTTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBKOMMCOLLI_PAKET_KOPFTableAdapter() As TBKOMMCOLLI_PAKET_KOPFTableAdapter
|
|
Get
|
|
Return Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBKOMMCOLLI_PAKET_POSTableAdapter() As TBKOMMCOLLI_PAKET_POSTableAdapter
|
|
Get
|
|
Return Me._tBKOMMCOLLI_PAKET_POSTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBKOMMCOLLI_PAKET_POSTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBKOMMCOLLI_TERMINARTTableAdapter() As TBKOMMCOLLI_TERMINARTTableAdapter
|
|
Get
|
|
Return Me._tBKOMMCOLLI_TERMINARTTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBKOMMCOLLI_TERMINARTTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBKOMMCOLLI_SDGPOSITIONENTableAdapter() As TBKOMMCOLLI_SDGPOSITIONENTableAdapter
|
|
Get
|
|
Return Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBKOMMCOLLI_MANDANTTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBKOMMCOLLI_MANDANTTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBKOMMCOLLI_TERMINARTTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.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", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) 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", "15.0.0.0")> _
|
|
Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, 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._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_MANDANT.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._tBKOMMCOLLI_MANDANTTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_PAKET_KOPF.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._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_PAKET_POS.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._tBKOMMCOLLI_PAKET_POSTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_TERMINART.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._tBKOMMCOLLI_TERMINARTTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_SDGPOSITIONEN.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._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.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", "15.0.0.0")> _
|
|
Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_MANDANT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_MANDANTTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_PAKET_KOPF.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_PAKET_POS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_TERMINART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_TERMINARTTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_SDGPOSITIONEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.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", "15.0.0.0")> _
|
|
Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_SDGPOSITIONEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_TERMINART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_TERMINARTTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_PAKET_POS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_PAKET_KOPF.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBKOMMCOLLI_MANDANT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBKOMMCOLLI_MANDANTTableAdapter.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", "15.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", "15.0.0.0")> _
|
|
Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) 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._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBKOMMCOLLI_MANDANTTableAdapter.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._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.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._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBKOMMCOLLI_PAKET_POSTableAdapter.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._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBKOMMCOLLI_TERMINARTTableAdapter.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._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.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._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBKOMMCOLLI_MANDANTTableAdapter, Me._tBKOMMCOLLI_MANDANTTableAdapter.Connection)
|
|
Me._tBKOMMCOLLI_MANDANTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_MANDANTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBKOMMCOLLI_MANDANTTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBKOMMCOLLI_MANDANTTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBKOMMCOLLI_MANDANTTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter, Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection)
|
|
Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBKOMMCOLLI_PAKET_POSTableAdapter, Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Connection)
|
|
Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBKOMMCOLLI_TERMINARTTableAdapter, Me._tBKOMMCOLLI_TERMINARTTableAdapter.Connection)
|
|
Me._tBKOMMCOLLI_TERMINARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_TERMINARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBKOMMCOLLI_TERMINARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBKOMMCOLLI_TERMINARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBKOMMCOLLI_TERMINARTTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter, Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection)
|
|
Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.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._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then
|
|
Me._tBKOMMCOLLI_MANDANTTableAdapter.Connection = CType(revertConnections(Me._tBKOMMCOLLI_MANDANTTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_MANDANTTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter) Is Nothing) Then
|
|
Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection = CType(revertConnections(Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_PAKET_KOPFTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_PAKET_POSTableAdapter) Is Nothing) Then
|
|
Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Connection = CType(revertConnections(Me._tBKOMMCOLLI_PAKET_POSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_PAKET_POSTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_TERMINARTTableAdapter) Is Nothing) Then
|
|
Me._tBKOMMCOLLI_TERMINARTTableAdapter.Connection = CType(revertConnections(Me._tBKOMMCOLLI_TERMINARTTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_TERMINARTTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) Then
|
|
Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection = CType(revertConnections(Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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
|