'------------------------------------------------------------------------------
'
' 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.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class MyDataset
Inherits Global.System.Data.DataSet
Private tableVWCUST_RPTPM_UNION As VWCUST_RPTPM_UNIONDataTable
Private tableVWCUST_RPTPM_UNION1 As VWCUST_RPTPM_UNION1DataTable
Private tableVWCUST_RPTPM_INV_RPT_STAMP As VWCUST_RPTPM_INV_RPT_STAMPDataTable
Private tableVWCUST_STAMP As VWCUST_STAMPDataTable
Private tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
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
_
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("VWCUST_RPTPM_UNION")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_RPTPM_UNIONDataTable(ds.Tables("VWCUST_RPTPM_UNION")))
End If
If (Not (ds.Tables("VWCUST_RPTPM_UNION1")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_RPTPM_UNION1DataTable(ds.Tables("VWCUST_RPTPM_UNION1")))
End If
If (Not (ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_RPTPM_INV_RPT_STAMPDataTable(ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")))
End If
If (Not (ds.Tables("VWCUST_STAMP")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_STAMPDataTable(ds.Tables("VWCUST_STAMP")))
End If
If (Not (ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")) Is Nothing) Then
MyBase.Tables.Add(New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable(ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")))
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
_
Public ReadOnly Property VWCUST_RPTPM_UNION() As VWCUST_RPTPM_UNIONDataTable
Get
Return Me.tableVWCUST_RPTPM_UNION
End Get
End Property
_
Public ReadOnly Property VWCUST_RPTPM_UNION1() As VWCUST_RPTPM_UNION1DataTable
Get
Return Me.tableVWCUST_RPTPM_UNION1
End Get
End Property
_
Public ReadOnly Property VWCUST_RPTPM_INV_RPT_STAMP() As VWCUST_RPTPM_INV_RPT_STAMPDataTable
Get
Return Me.tableVWCUST_RPTPM_INV_RPT_STAMP
End Get
End Property
_
Public ReadOnly Property VWCUST_STAMP() As VWCUST_STAMPDataTable
Get
Return Me.tableVWCUST_STAMP
End Get
End Property
_
Public ReadOnly Property FNCUST_PM_GET_RPT_STAMP_FOR_DocID() As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable
Get
Return Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID
End Get
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
_
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
_
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
_
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
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("VWCUST_RPTPM_UNION")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_RPTPM_UNIONDataTable(ds.Tables("VWCUST_RPTPM_UNION")))
End If
If (Not (ds.Tables("VWCUST_RPTPM_UNION1")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_RPTPM_UNION1DataTable(ds.Tables("VWCUST_RPTPM_UNION1")))
End If
If (Not (ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_RPTPM_INV_RPT_STAMPDataTable(ds.Tables("VWCUST_RPTPM_INV_RPT_STAMP")))
End If
If (Not (ds.Tables("VWCUST_STAMP")) Is Nothing) Then
MyBase.Tables.Add(New VWCUST_STAMPDataTable(ds.Tables("VWCUST_STAMP")))
End If
If (Not (ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")) Is Nothing) Then
MyBase.Tables.Add(New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable(ds.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID")))
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
_
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
_
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableVWCUST_RPTPM_UNION = CType(MyBase.Tables("VWCUST_RPTPM_UNION"),VWCUST_RPTPM_UNIONDataTable)
If (initTable = true) Then
If (Not (Me.tableVWCUST_RPTPM_UNION) Is Nothing) Then
Me.tableVWCUST_RPTPM_UNION.InitVars
End If
End If
Me.tableVWCUST_RPTPM_UNION1 = CType(MyBase.Tables("VWCUST_RPTPM_UNION1"),VWCUST_RPTPM_UNION1DataTable)
If (initTable = true) Then
If (Not (Me.tableVWCUST_RPTPM_UNION1) Is Nothing) Then
Me.tableVWCUST_RPTPM_UNION1.InitVars
End If
End If
Me.tableVWCUST_RPTPM_INV_RPT_STAMP = CType(MyBase.Tables("VWCUST_RPTPM_INV_RPT_STAMP"),VWCUST_RPTPM_INV_RPT_STAMPDataTable)
If (initTable = true) Then
If (Not (Me.tableVWCUST_RPTPM_INV_RPT_STAMP) Is Nothing) Then
Me.tableVWCUST_RPTPM_INV_RPT_STAMP.InitVars
End If
End If
Me.tableVWCUST_STAMP = CType(MyBase.Tables("VWCUST_STAMP"),VWCUST_STAMPDataTable)
If (initTable = true) Then
If (Not (Me.tableVWCUST_STAMP) Is Nothing) Then
Me.tableVWCUST_STAMP.InitVars
End If
End If
Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID = CType(MyBase.Tables("FNCUST_PM_GET_RPT_STAMP_FOR_DocID"),FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable)
If (initTable = true) Then
If (Not (Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID) Is Nothing) Then
Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID.InitVars
End If
End If
End Sub
_
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.tableVWCUST_RPTPM_UNION = New VWCUST_RPTPM_UNIONDataTable()
MyBase.Tables.Add(Me.tableVWCUST_RPTPM_UNION)
Me.tableVWCUST_RPTPM_UNION1 = New VWCUST_RPTPM_UNION1DataTable()
MyBase.Tables.Add(Me.tableVWCUST_RPTPM_UNION1)
Me.tableVWCUST_RPTPM_INV_RPT_STAMP = New VWCUST_RPTPM_INV_RPT_STAMPDataTable()
MyBase.Tables.Add(Me.tableVWCUST_RPTPM_INV_RPT_STAMP)
Me.tableVWCUST_STAMP = New VWCUST_STAMPDataTable()
MyBase.Tables.Add(Me.tableVWCUST_STAMP)
Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID = New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable()
MyBase.Tables.Add(Me.tableFNCUST_PM_GET_RPT_STAMP_FOR_DocID)
End Sub
_
Private Function ShouldSerializeVWCUST_RPTPM_UNION() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWCUST_RPTPM_UNION1() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWCUST_RPTPM_INV_RPT_STAMP() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWCUST_STAMP() As Boolean
Return false
End Function
_
Private Function ShouldSerializeFNCUST_PM_GET_RPT_STAMP_FOR_DocID() As Boolean
Return false
End Function
_
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
_
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
_
Public Delegate Sub VWCUST_RPTPM_UNIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_RPTPM_UNIONRowChangeEvent)
_
Public Delegate Sub VWCUST_RPTPM_UNION1RowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_RPTPM_UNION1RowChangeEvent)
_
Public Delegate Sub VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent)
_
Public Delegate Sub VWCUST_STAMPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWCUST_STAMPRowChangeEvent)
_
Public Delegate Sub FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler(ByVal sender As Object, ByVal e As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class VWCUST_RPTPM_UNIONDataTable
Inherits Global.System.Data.TypedTableBase(Of VWCUST_RPTPM_UNIONRow)
Private columnGroupTypeID As Global.System.Data.DataColumn
Private columnGroupType As Global.System.Data.DataColumn
Private columnDOC_ID As Global.System.Data.DataColumn
Private columnKreditorNummer As Global.System.Data.DataColumn
Private columnKreditorName_Lang As Global.System.Data.DataColumn
Private columnKreditorName As Global.System.Data.DataColumn
Private columnRechnungNr As Global.System.Data.DataColumn
Private columnReferenz As Global.System.Data.DataColumn
Private columnNettobetrag As Global.System.Data.DataColumn
Private columnBruttobetrag As Global.System.Data.DataColumn
Private columnZahlungsziel As Global.System.Data.DataColumn
Private columnMandant As Global.System.Data.DataColumn
Private columnMandant_Name As Global.System.Data.DataColumn
Private columnKostenstelle As Global.System.Data.DataColumn
Private columnErhalten_wann As Global.System.Data.DataColumn
Private columnBelegdatum As Global.System.Data.DataColumn
Private columnFG_Email As Global.System.Data.DataColumn
Private columnFG_Freigabe As Global.System.Data.DataColumn
Private columnFG_Wann As Global.System.Data.DataColumn
Private columnWHO As Global.System.Data.DataColumn
Private columnWHEN As Global.System.Data.DataColumn
Private columnDELEGATION As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "VWCUST_RPTPM_UNION"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property GroupTypeIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGroupTypeID
End Get
End Property
_
Public ReadOnly Property GroupTypeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGroupType
End Get
End Property
_
Public ReadOnly Property DOC_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDOC_ID
End Get
End Property
_
Public ReadOnly Property KreditorNummerColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKreditorNummer
End Get
End Property
_
Public ReadOnly Property KreditorName_LangColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKreditorName_Lang
End Get
End Property
_
Public ReadOnly Property KreditorNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKreditorName
End Get
End Property
_
Public ReadOnly Property RechnungNrColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRechnungNr
End Get
End Property
_
Public ReadOnly Property ReferenzColumn() As Global.System.Data.DataColumn
Get
Return Me.columnReferenz
End Get
End Property
_
Public ReadOnly Property NettobetragColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNettobetrag
End Get
End Property
_
Public ReadOnly Property BruttobetragColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBruttobetrag
End Get
End Property
_
Public ReadOnly Property ZahlungszielColumn() As Global.System.Data.DataColumn
Get
Return Me.columnZahlungsziel
End Get
End Property
_
Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMandant
End Get
End Property
_
Public ReadOnly Property Mandant_NameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMandant_Name
End Get
End Property
_
Public ReadOnly Property KostenstelleColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKostenstelle
End Get
End Property
_
Public ReadOnly Property Erhalten_wannColumn() As Global.System.Data.DataColumn
Get
Return Me.columnErhalten_wann
End Get
End Property
_
Public ReadOnly Property BelegdatumColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBelegdatum
End Get
End Property
_
Public ReadOnly Property FG_EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFG_Email
End Get
End Property
_
Public ReadOnly Property FG_FreigabeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFG_Freigabe
End Get
End Property
_
Public ReadOnly Property FG_WannColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFG_Wann
End Get
End Property
_
Public ReadOnly Property WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWHO
End Get
End Property
_
Public ReadOnly Property WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWHEN
End Get
End Property
_
Public ReadOnly Property DELEGATIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELEGATION
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_RPTPM_UNIONRow
Get
Return CType(Me.Rows(index),VWCUST_RPTPM_UNIONRow)
End Get
End Property
_
Public Event VWCUST_RPTPM_UNIONRowChanging As VWCUST_RPTPM_UNIONRowChangeEventHandler
_
Public Event VWCUST_RPTPM_UNIONRowChanged As VWCUST_RPTPM_UNIONRowChangeEventHandler
_
Public Event VWCUST_RPTPM_UNIONRowDeleting As VWCUST_RPTPM_UNIONRowChangeEventHandler
_
Public Event VWCUST_RPTPM_UNIONRowDeleted As VWCUST_RPTPM_UNIONRowChangeEventHandler
_
Public Overloads Sub AddVWCUST_RPTPM_UNIONRow(ByVal row As VWCUST_RPTPM_UNIONRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddVWCUST_RPTPM_UNIONRow( _
ByVal GroupTypeID As Integer, _
ByVal GroupType As String, _
ByVal DOC_ID As Long, _
ByVal KreditorNummer As String, _
ByVal KreditorName_Lang As String, _
ByVal KreditorName As String, _
ByVal RechnungNr As String, _
ByVal Referenz As String, _
ByVal Nettobetrag As String, _
ByVal Bruttobetrag As String, _
ByVal Zahlungsziel As String, _
ByVal Mandant As String, _
ByVal Mandant_Name As String, _
ByVal Kostenstelle As String, _
ByVal Erhalten_wann As String, _
ByVal Belegdatum As String, _
ByVal FG_Email As String, _
ByVal FG_Freigabe As String, _
ByVal FG_Wann As String, _
ByVal WHO As String, _
ByVal _WHEN As String, _
ByVal DELEGATION As String) As VWCUST_RPTPM_UNIONRow
Dim rowVWCUST_RPTPM_UNIONRow As VWCUST_RPTPM_UNIONRow = CType(Me.NewRow,VWCUST_RPTPM_UNIONRow)
Dim columnValuesArray() As Object = New Object() {GroupTypeID, GroupType, DOC_ID, KreditorNummer, KreditorName_Lang, KreditorName, RechnungNr, Referenz, Nettobetrag, Bruttobetrag, Zahlungsziel, Mandant, Mandant_Name, Kostenstelle, Erhalten_wann, Belegdatum, FG_Email, FG_Freigabe, FG_Wann, WHO, _WHEN, DELEGATION}
rowVWCUST_RPTPM_UNIONRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWCUST_RPTPM_UNIONRow)
Return rowVWCUST_RPTPM_UNIONRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWCUST_RPTPM_UNIONDataTable = CType(MyBase.Clone,VWCUST_RPTPM_UNIONDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWCUST_RPTPM_UNIONDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGroupTypeID = MyBase.Columns("GroupTypeID")
Me.columnGroupType = MyBase.Columns("GroupType")
Me.columnDOC_ID = MyBase.Columns("DOC_ID")
Me.columnKreditorNummer = MyBase.Columns("KreditorNummer")
Me.columnKreditorName_Lang = MyBase.Columns("KreditorName_Lang")
Me.columnKreditorName = MyBase.Columns("KreditorName")
Me.columnRechnungNr = MyBase.Columns("RechnungNr")
Me.columnReferenz = MyBase.Columns("Referenz")
Me.columnNettobetrag = MyBase.Columns("Nettobetrag")
Me.columnBruttobetrag = MyBase.Columns("Bruttobetrag")
Me.columnZahlungsziel = MyBase.Columns("Zahlungsziel")
Me.columnMandant = MyBase.Columns("Mandant")
Me.columnMandant_Name = MyBase.Columns("Mandant Name")
Me.columnKostenstelle = MyBase.Columns("Kostenstelle")
Me.columnErhalten_wann = MyBase.Columns("Erhalten wann")
Me.columnBelegdatum = MyBase.Columns("Belegdatum")
Me.columnFG_Email = MyBase.Columns("FG_Email")
Me.columnFG_Freigabe = MyBase.Columns("FG_Freigabe")
Me.columnFG_Wann = MyBase.Columns("FG_Wann")
Me.columnWHO = MyBase.Columns("WHO")
Me.columnWHEN = MyBase.Columns("WHEN")
Me.columnDELEGATION = MyBase.Columns("DELEGATION")
End Sub
_
Private Sub InitClass()
Me.columnGroupTypeID = New Global.System.Data.DataColumn("GroupTypeID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGroupTypeID)
Me.columnGroupType = New Global.System.Data.DataColumn("GroupType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGroupType)
Me.columnDOC_ID = New Global.System.Data.DataColumn("DOC_ID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDOC_ID)
Me.columnKreditorNummer = New Global.System.Data.DataColumn("KreditorNummer", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnKreditorNummer)
Me.columnKreditorName_Lang = New Global.System.Data.DataColumn("KreditorName_Lang", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnKreditorName_Lang)
Me.columnKreditorName = New Global.System.Data.DataColumn("KreditorName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnKreditorName)
Me.columnRechnungNr = New Global.System.Data.DataColumn("RechnungNr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRechnungNr)
Me.columnReferenz = New Global.System.Data.DataColumn("Referenz", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnReferenz)
Me.columnNettobetrag = New Global.System.Data.DataColumn("Nettobetrag", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNettobetrag)
Me.columnBruttobetrag = New Global.System.Data.DataColumn("Bruttobetrag", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBruttobetrag)
Me.columnZahlungsziel = New Global.System.Data.DataColumn("Zahlungsziel", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnZahlungsziel)
Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMandant)
Me.columnMandant_Name = New Global.System.Data.DataColumn("Mandant Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMandant_Name)
Me.columnKostenstelle = New Global.System.Data.DataColumn("Kostenstelle", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnKostenstelle)
Me.columnErhalten_wann = New Global.System.Data.DataColumn("Erhalten wann", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnErhalten_wann)
Me.columnBelegdatum = New Global.System.Data.DataColumn("Belegdatum", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBelegdatum)
Me.columnFG_Email = New Global.System.Data.DataColumn("FG_Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFG_Email)
Me.columnFG_Freigabe = New Global.System.Data.DataColumn("FG_Freigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFG_Freigabe)
Me.columnFG_Wann = New Global.System.Data.DataColumn("FG_Wann", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFG_Wann)
Me.columnWHO = New Global.System.Data.DataColumn("WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWHO)
Me.columnWHEN = New Global.System.Data.DataColumn("WHEN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
Me.columnWHEN.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "WHENColumn")
Me.columnWHEN.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnWHEN")
Me.columnWHEN.ExtendedProperties.Add("Generator_UserColumnName", "WHEN")
MyBase.Columns.Add(Me.columnWHEN)
Me.columnDELEGATION = New Global.System.Data.DataColumn("DELEGATION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDELEGATION)
Me.columnGroupTypeID.AllowDBNull = false
Me.columnGroupType.AllowDBNull = false
Me.columnGroupType.MaxLength = 250
Me.columnKreditorNummer.MaxLength = 255
Me.columnKreditorName_Lang.MaxLength = 255
Me.columnKreditorName.MaxLength = 255
Me.columnRechnungNr.MaxLength = 128
Me.columnReferenz.MaxLength = 512
Me.columnNettobetrag.MaxLength = 30
Me.columnBruttobetrag.MaxLength = 30
Me.columnZahlungsziel.MaxLength = 30
Me.columnMandant.MaxLength = 128
Me.columnMandant_Name.MaxLength = 64
Me.columnKostenstelle.MaxLength = 128
Me.columnErhalten_wann.MaxLength = 30
Me.columnBelegdatum.MaxLength = 30
Me.columnFG_Email.MaxLength = 2147483647
Me.columnFG_Freigabe.MaxLength = 2147483647
Me.columnFG_Wann.MaxLength = 2147483647
Me.columnWHO.AllowDBNull = false
Me.columnWHO.MaxLength = 100
Me.columnWHEN.AllowDBNull = false
Me.columnWHEN.MaxLength = 19
Me.columnDELEGATION.AllowDBNull = false
Me.columnDELEGATION.MaxLength = 250
End Sub
_
Public Function NewVWCUST_RPTPM_UNIONRow() As VWCUST_RPTPM_UNIONRow
Return CType(Me.NewRow,VWCUST_RPTPM_UNIONRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWCUST_RPTPM_UNIONRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWCUST_RPTPM_UNIONRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWCUST_RPTPM_UNIONRowChangedEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNIONRowChanged(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWCUST_RPTPM_UNIONRowChangingEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNIONRowChanging(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWCUST_RPTPM_UNIONRowDeletedEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNIONRowDeleted(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWCUST_RPTPM_UNIONRowDeletingEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNIONRowDeleting(Me, New VWCUST_RPTPM_UNIONRowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNIONRow), e.Action))
End If
End Sub
_
Public Sub RemoveVWCUST_RPTPM_UNIONRow(ByVal row As VWCUST_RPTPM_UNIONRow)
Me.Rows.Remove(row)
End Sub
_
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 = "VWCUST_RPTPM_UNIONDataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class VWCUST_RPTPM_UNION1DataTable
Inherits Global.System.Data.TypedTableBase(Of VWCUST_RPTPM_UNION1Row)
Private columnFG_TYP As Global.System.Data.DataColumn
Private columnDocID As Global.System.Data.DataColumn
Private columnEmail As Global.System.Data.DataColumn
Private columnFreigabe As Global.System.Data.DataColumn
Private columnWann As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "VWCUST_RPTPM_UNION1"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property FG_TYPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFG_TYP
End Get
End Property
_
Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDocID
End Get
End Property
_
Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmail
End Get
End Property
_
Public ReadOnly Property FreigabeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFreigabe
End Get
End Property
_
Public ReadOnly Property WannColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWann
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_RPTPM_UNION1Row
Get
Return CType(Me.Rows(index),VWCUST_RPTPM_UNION1Row)
End Get
End Property
_
Public Event VWCUST_RPTPM_UNION1RowChanging As VWCUST_RPTPM_UNION1RowChangeEventHandler
_
Public Event VWCUST_RPTPM_UNION1RowChanged As VWCUST_RPTPM_UNION1RowChangeEventHandler
_
Public Event VWCUST_RPTPM_UNION1RowDeleting As VWCUST_RPTPM_UNION1RowChangeEventHandler
_
Public Event VWCUST_RPTPM_UNION1RowDeleted As VWCUST_RPTPM_UNION1RowChangeEventHandler
_
Public Overloads Sub AddVWCUST_RPTPM_UNION1Row(ByVal row As VWCUST_RPTPM_UNION1Row)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddVWCUST_RPTPM_UNION1Row(ByVal FG_TYP As String, ByVal DocID As Integer, ByVal Email As String, ByVal Freigabe As String, ByVal Wann As Date) As VWCUST_RPTPM_UNION1Row
Dim rowVWCUST_RPTPM_UNION1Row As VWCUST_RPTPM_UNION1Row = CType(Me.NewRow,VWCUST_RPTPM_UNION1Row)
Dim columnValuesArray() As Object = New Object() {FG_TYP, DocID, Email, Freigabe, Wann}
rowVWCUST_RPTPM_UNION1Row.ItemArray = columnValuesArray
Me.Rows.Add(rowVWCUST_RPTPM_UNION1Row)
Return rowVWCUST_RPTPM_UNION1Row
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWCUST_RPTPM_UNION1DataTable = CType(MyBase.Clone,VWCUST_RPTPM_UNION1DataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWCUST_RPTPM_UNION1DataTable()
End Function
_
Friend Sub InitVars()
Me.columnFG_TYP = MyBase.Columns("FG_TYP")
Me.columnDocID = MyBase.Columns("DocID")
Me.columnEmail = MyBase.Columns("Email")
Me.columnFreigabe = MyBase.Columns("Freigabe")
Me.columnWann = MyBase.Columns("Wann")
End Sub
_
Private Sub InitClass()
Me.columnFG_TYP = New Global.System.Data.DataColumn("FG_TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFG_TYP)
Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDocID)
Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEmail)
Me.columnFreigabe = New Global.System.Data.DataColumn("Freigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFreigabe)
Me.columnWann = New Global.System.Data.DataColumn("Wann", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWann)
Me.columnFG_TYP.AllowDBNull = false
Me.columnFG_TYP.DefaultValue = CType("",String)
Me.columnFG_TYP.MaxLength = 2
Me.columnEmail.MaxLength = 26
Me.columnFreigabe.MaxLength = 2
End Sub
_
Public Function NewVWCUST_RPTPM_UNION1Row() As VWCUST_RPTPM_UNION1Row
Return CType(Me.NewRow,VWCUST_RPTPM_UNION1Row)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWCUST_RPTPM_UNION1Row(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWCUST_RPTPM_UNION1Row)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWCUST_RPTPM_UNION1RowChangedEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNION1RowChanged(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWCUST_RPTPM_UNION1RowChangingEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNION1RowChanging(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWCUST_RPTPM_UNION1RowDeletedEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNION1RowDeleted(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWCUST_RPTPM_UNION1RowDeletingEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_UNION1RowDeleting(Me, New VWCUST_RPTPM_UNION1RowChangeEvent(CType(e.Row,VWCUST_RPTPM_UNION1Row), e.Action))
End If
End Sub
_
Public Sub RemoveVWCUST_RPTPM_UNION1Row(ByVal row As VWCUST_RPTPM_UNION1Row)
Me.Rows.Remove(row)
End Sub
_
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 = "VWCUST_RPTPM_UNION1DataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class VWCUST_RPTPM_INV_RPT_STAMPDataTable
Inherits Global.System.Data.TypedTableBase(Of VWCUST_RPTPM_INV_RPT_STAMPRow)
Private columnSTATE As Global.System.Data.DataColumn
Private columnWHO As Global.System.Data.DataColumn
Private columnDocID As Global.System.Data.DataColumn
Private columnCREATED_WHEN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "VWCUST_RPTPM_INV_RPT_STAMP"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSTATE
End Get
End Property
_
Public ReadOnly Property WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWHO
End Get
End Property
_
Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDocID
End Get
End Property
_
Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCREATED_WHEN
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_RPTPM_INV_RPT_STAMPRow
Get
Return CType(Me.Rows(index),VWCUST_RPTPM_INV_RPT_STAMPRow)
End Get
End Property
_
Public Event VWCUST_RPTPM_INV_RPT_STAMPRowChanging As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
_
Public Event VWCUST_RPTPM_INV_RPT_STAMPRowChanged As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
_
Public Event VWCUST_RPTPM_INV_RPT_STAMPRowDeleting As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
_
Public Event VWCUST_RPTPM_INV_RPT_STAMPRowDeleted As VWCUST_RPTPM_INV_RPT_STAMPRowChangeEventHandler
_
Public Overloads Sub AddVWCUST_RPTPM_INV_RPT_STAMPRow(ByVal row As VWCUST_RPTPM_INV_RPT_STAMPRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddVWCUST_RPTPM_INV_RPT_STAMPRow(ByVal STATE As String, ByVal WHO As String, ByVal DocID As Long, ByVal CREATED_WHEN As Date) As VWCUST_RPTPM_INV_RPT_STAMPRow
Dim rowVWCUST_RPTPM_INV_RPT_STAMPRow As VWCUST_RPTPM_INV_RPT_STAMPRow = CType(Me.NewRow,VWCUST_RPTPM_INV_RPT_STAMPRow)
Dim columnValuesArray() As Object = New Object() {STATE, WHO, DocID, CREATED_WHEN}
rowVWCUST_RPTPM_INV_RPT_STAMPRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWCUST_RPTPM_INV_RPT_STAMPRow)
Return rowVWCUST_RPTPM_INV_RPT_STAMPRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWCUST_RPTPM_INV_RPT_STAMPDataTable = CType(MyBase.Clone,VWCUST_RPTPM_INV_RPT_STAMPDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWCUST_RPTPM_INV_RPT_STAMPDataTable()
End Function
_
Friend Sub InitVars()
Me.columnSTATE = MyBase.Columns("STATE")
Me.columnWHO = MyBase.Columns("WHO")
Me.columnDocID = MyBase.Columns("DocID")
Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN")
End Sub
_
Private Sub InitClass()
Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSTATE)
Me.columnWHO = New Global.System.Data.DataColumn("WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWHO)
Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDocID)
Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCREATED_WHEN)
Me.columnSTATE.MaxLength = 20
Me.columnWHO.MaxLength = 100
End Sub
_
Public Function NewVWCUST_RPTPM_INV_RPT_STAMPRow() As VWCUST_RPTPM_INV_RPT_STAMPRow
Return CType(Me.NewRow,VWCUST_RPTPM_INV_RPT_STAMPRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWCUST_RPTPM_INV_RPT_STAMPRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWCUST_RPTPM_INV_RPT_STAMPRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowChangedEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowChanged(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowChangingEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowChanging(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowDeletedEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowDeleted(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWCUST_RPTPM_INV_RPT_STAMPRowDeletingEvent) Is Nothing) Then
RaiseEvent VWCUST_RPTPM_INV_RPT_STAMPRowDeleting(Me, New VWCUST_RPTPM_INV_RPT_STAMPRowChangeEvent(CType(e.Row,VWCUST_RPTPM_INV_RPT_STAMPRow), e.Action))
End If
End Sub
_
Public Sub RemoveVWCUST_RPTPM_INV_RPT_STAMPRow(ByVal row As VWCUST_RPTPM_INV_RPT_STAMPRow)
Me.Rows.Remove(row)
End Sub
_
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 = "VWCUST_RPTPM_INV_RPT_STAMPDataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class VWCUST_STAMPDataTable
Inherits Global.System.Data.TypedTableBase(Of VWCUST_STAMPRow)
Private columnFG_TYP As Global.System.Data.DataColumn
Private columnDocID As Global.System.Data.DataColumn
Private columnEmail As Global.System.Data.DataColumn
Private columnFreigabe As Global.System.Data.DataColumn
Private columnWann As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "VWCUST_STAMP"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property FG_TYPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFG_TYP
End Get
End Property
_
Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDocID
End Get
End Property
_
Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmail
End Get
End Property
_
Public ReadOnly Property FreigabeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFreigabe
End Get
End Property
_
Public ReadOnly Property WannColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWann
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As VWCUST_STAMPRow
Get
Return CType(Me.Rows(index),VWCUST_STAMPRow)
End Get
End Property
_
Public Event VWCUST_STAMPRowChanging As VWCUST_STAMPRowChangeEventHandler
_
Public Event VWCUST_STAMPRowChanged As VWCUST_STAMPRowChangeEventHandler
_
Public Event VWCUST_STAMPRowDeleting As VWCUST_STAMPRowChangeEventHandler
_
Public Event VWCUST_STAMPRowDeleted As VWCUST_STAMPRowChangeEventHandler
_
Public Overloads Sub AddVWCUST_STAMPRow(ByVal row As VWCUST_STAMPRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddVWCUST_STAMPRow(ByVal FG_TYP As String, ByVal DocID As Integer, ByVal Email As String, ByVal Freigabe As String, ByVal Wann As Date) As VWCUST_STAMPRow
Dim rowVWCUST_STAMPRow As VWCUST_STAMPRow = CType(Me.NewRow,VWCUST_STAMPRow)
Dim columnValuesArray() As Object = New Object() {FG_TYP, DocID, Email, Freigabe, Wann}
rowVWCUST_STAMPRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWCUST_STAMPRow)
Return rowVWCUST_STAMPRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWCUST_STAMPDataTable = CType(MyBase.Clone,VWCUST_STAMPDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWCUST_STAMPDataTable()
End Function
_
Friend Sub InitVars()
Me.columnFG_TYP = MyBase.Columns("FG_TYP")
Me.columnDocID = MyBase.Columns("DocID")
Me.columnEmail = MyBase.Columns("Email")
Me.columnFreigabe = MyBase.Columns("Freigabe")
Me.columnWann = MyBase.Columns("Wann")
End Sub
_
Private Sub InitClass()
Me.columnFG_TYP = New Global.System.Data.DataColumn("FG_TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFG_TYP)
Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDocID)
Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEmail)
Me.columnFreigabe = New Global.System.Data.DataColumn("Freigabe", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFreigabe)
Me.columnWann = New Global.System.Data.DataColumn("Wann", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWann)
Me.columnFG_TYP.AllowDBNull = false
Me.columnFG_TYP.MaxLength = 2
Me.columnDocID.AllowDBNull = false
Me.columnEmail.AllowDBNull = false
Me.columnEmail.MaxLength = 26
Me.columnFreigabe.MaxLength = 2
End Sub
_
Public Function NewVWCUST_STAMPRow() As VWCUST_STAMPRow
Return CType(Me.NewRow,VWCUST_STAMPRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWCUST_STAMPRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWCUST_STAMPRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWCUST_STAMPRowChangedEvent) Is Nothing) Then
RaiseEvent VWCUST_STAMPRowChanged(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWCUST_STAMPRowChangingEvent) Is Nothing) Then
RaiseEvent VWCUST_STAMPRowChanging(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWCUST_STAMPRowDeletedEvent) Is Nothing) Then
RaiseEvent VWCUST_STAMPRowDeleted(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWCUST_STAMPRowDeletingEvent) Is Nothing) Then
RaiseEvent VWCUST_STAMPRowDeleting(Me, New VWCUST_STAMPRowChangeEvent(CType(e.Row,VWCUST_STAMPRow), e.Action))
End If
End Sub
_
Public Sub RemoveVWCUST_STAMPRow(ByVal row As VWCUST_STAMPRow)
Me.Rows.Remove(row)
End Sub
_
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 = "VWCUST_STAMPDataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable
Inherits Global.System.Data.TypedTableBase(Of FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
Private columnDocID As Global.System.Data.DataColumn
Private columnSTATE As Global.System.Data.DataColumn
Private columnWHO As Global.System.Data.DataColumn
Private columnCREATED_WHEN As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnSequentialOrder As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "FNCUST_PM_GET_RPT_STAMP_FOR_DocID"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property DocIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDocID
End Get
End Property
_
Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSTATE
End Get
End Property
_
Public ReadOnly Property WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWHO
End Get
End Property
_
Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCREATED_WHEN
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSequentialOrder
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
Get
Return CType(Me.Rows(index),FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
End Get
End Property
_
Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanging As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
_
Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanged As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
_
Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleting As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
_
Public Event FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleted As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEventHandler
_
Public Overloads Sub AddFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(ByVal row As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(ByVal DocID As Long, ByVal STATE As String, ByVal WHO As String, ByVal CREATED_WHEN As Date, ByVal COMMENT As String) As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
Dim rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow = CType(Me.NewRow,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
Dim columnValuesArray() As Object = New Object() {DocID, STATE, WHO, CREATED_WHEN, COMMENT, Nothing}
rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow.ItemArray = columnValuesArray
Me.Rows.Add(rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
Return rowFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable = CType(MyBase.Clone,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable()
End Function
_
Friend Sub InitVars()
Me.columnDocID = MyBase.Columns("DocID")
Me.columnSTATE = MyBase.Columns("STATE")
Me.columnWHO = MyBase.Columns("WHO")
Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnSequentialOrder = MyBase.Columns("SequentialOrder")
End Sub
_
Private Sub InitClass()
Me.columnDocID = New Global.System.Data.DataColumn("DocID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDocID)
Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSTATE)
Me.columnWHO = New Global.System.Data.DataColumn("WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWHO)
Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCREATED_WHEN)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSequentialOrder)
Me.columnSTATE.MaxLength = 20
Me.columnWHO.MaxLength = 100
Me.columnCOMMENT.MaxLength = 500
Me.columnSequentialOrder.AutoIncrement = true
Me.columnSequentialOrder.AutoIncrementSeed = -1
Me.columnSequentialOrder.AutoIncrementStep = -1
Me.columnSequentialOrder.AllowDBNull = false
Me.columnSequentialOrder.ReadOnly = true
End Sub
_
Public Function NewFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow() As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow
Return CType(Me.NewRow,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangedEvent) Is Nothing) Then
RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanged(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangingEvent) Is Nothing) Then
RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChanging(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeletedEvent) Is Nothing) Then
RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleted(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeletingEvent) Is Nothing) Then
RaiseEvent FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowDeleting(Me, New FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRowChangeEvent(CType(e.Row,FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow), e.Action))
End If
End Sub
_
Public Sub RemoveFNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow(ByVal row As FNCUST_PM_GET_RPT_STAMP_FOR_DocIDRow)
Me.Rows.Remove(row)
End Sub
_
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 = "FNCUST_PM_GET_RPT_STAMP_FOR_DocIDDataTable"
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
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class VWCUST_RPTPM_UNIONRow
Inherits Global.System.Data.DataRow
Private tableVWCUST_RPTPM_UNION As VWCUST_RPTPM_UNIONDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableVWCUST_RPTPM_UNION = CType(Me.Table,VWCUST_RPTPM_UNIONDataTable)
End Sub
_
Public Property GroupTypeID() As Integer
Get
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeIDColumn),Integer)
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeIDColumn) = value
End Set
End Property
_
Public Property GroupType() As String
Get
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeColumn),String)
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.GroupTypeColumn) = value
End Set
End Property
_
Public Property DOC_ID() As Long
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.DOC_IDColumn),Long)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOC_ID in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.DOC_IDColumn) = value
End Set
End Property
_
Public Property KreditorNummer() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KreditorNummerColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KreditorNummer in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.KreditorNummerColumn) = value
End Set
End Property
_
Public Property KreditorName_Lang() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KreditorName_LangColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KreditorName_Lang in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.KreditorName_LangColumn) = value
End Set
End Property
_
Public Property KreditorName() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KreditorNameColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KreditorName in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.KreditorNameColumn) = value
End Set
End Property
_
Public Property RechnungNr() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.RechnungNrColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RechnungNr in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.RechnungNrColumn) = value
End Set
End Property
_
Public Property Referenz() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.ReferenzColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Referenz in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.ReferenzColumn) = value
End Set
End Property
_
Public Property Nettobetrag() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.NettobetragColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nettobetrag in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.NettobetragColumn) = value
End Set
End Property
_
Public Property Bruttobetrag() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.BruttobetragColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bruttobetrag in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.BruttobetragColumn) = value
End Set
End Property
_
Public Property Zahlungsziel() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.ZahlungszielColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zahlungsziel in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.ZahlungszielColumn) = value
End Set
End Property
_
Public Property Mandant() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.MandantColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.MandantColumn) = value
End Set
End Property
_
Public Property Mandant_Name() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.Mandant_NameColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant Name in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.Mandant_NameColumn) = value
End Set
End Property
_
Public Property Kostenstelle() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.KostenstelleColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kostenstelle in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.KostenstelleColumn) = value
End Set
End Property
_
Public Property Erhalten_wann() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.Erhalten_wannColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Erhalten wann in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.Erhalten_wannColumn) = value
End Set
End Property
_
Public Property Belegdatum() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.BelegdatumColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Belegdatum in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.BelegdatumColumn) = value
End Set
End Property
_
Public Property FG_Email() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.FG_EmailColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FG_Email in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.FG_EmailColumn) = value
End Set
End Property
_
Public Property FG_Freigabe() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.FG_FreigabeColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FG_Freigabe in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.FG_FreigabeColumn) = value
End Set
End Property
_
Public Property FG_Wann() As String
Get
Try
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.FG_WannColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FG_Wann in Tabelle VWCUST_RPTPM_UNION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.FG_WannColumn) = value
End Set
End Property
_
Public Property WHO() As String
Get
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.WHOColumn),String)
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.WHOColumn) = value
End Set
End Property
_
Public Property _WHEN() As String
Get
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.WHENColumn),String)
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.WHENColumn) = value
End Set
End Property
_
Public Property DELEGATION() As String
Get
Return CType(Me(Me.tableVWCUST_RPTPM_UNION.DELEGATIONColumn),String)
End Get
Set
Me(Me.tableVWCUST_RPTPM_UNION.DELEGATIONColumn) = value
End Set
End Property
_
Public Function IsDOC_IDNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.DOC_IDColumn)
End Function
_
Public Sub SetDOC_IDNull()
Me(Me.tableVWCUST_RPTPM_UNION.DOC_IDColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsKreditorNummerNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.KreditorNummerColumn)
End Function
_
Public Sub SetKreditorNummerNull()
Me(Me.tableVWCUST_RPTPM_UNION.KreditorNummerColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsKreditorName_LangNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.KreditorName_LangColumn)
End Function
_
Public Sub SetKreditorName_LangNull()
Me(Me.tableVWCUST_RPTPM_UNION.KreditorName_LangColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsKreditorNameNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.KreditorNameColumn)
End Function
_
Public Sub SetKreditorNameNull()
Me(Me.tableVWCUST_RPTPM_UNION.KreditorNameColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsRechnungNrNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.RechnungNrColumn)
End Function
_
Public Sub SetRechnungNrNull()
Me(Me.tableVWCUST_RPTPM_UNION.RechnungNrColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsReferenzNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.ReferenzColumn)
End Function
_
Public Sub SetReferenzNull()
Me(Me.tableVWCUST_RPTPM_UNION.ReferenzColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsNettobetragNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.NettobetragColumn)
End Function
_
Public Sub SetNettobetragNull()
Me(Me.tableVWCUST_RPTPM_UNION.NettobetragColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBruttobetragNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.BruttobetragColumn)
End Function
_
Public Sub SetBruttobetragNull()
Me(Me.tableVWCUST_RPTPM_UNION.BruttobetragColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsZahlungszielNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.ZahlungszielColumn)
End Function
_
Public Sub SetZahlungszielNull()
Me(Me.tableVWCUST_RPTPM_UNION.ZahlungszielColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsMandantNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.MandantColumn)
End Function
_
Public Sub SetMandantNull()
Me(Me.tableVWCUST_RPTPM_UNION.MandantColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsMandant_NameNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.Mandant_NameColumn)
End Function
_
Public Sub SetMandant_NameNull()
Me(Me.tableVWCUST_RPTPM_UNION.Mandant_NameColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsKostenstelleNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.KostenstelleColumn)
End Function
_
Public Sub SetKostenstelleNull()
Me(Me.tableVWCUST_RPTPM_UNION.KostenstelleColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsErhalten_wannNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.Erhalten_wannColumn)
End Function
_
Public Sub SetErhalten_wannNull()
Me(Me.tableVWCUST_RPTPM_UNION.Erhalten_wannColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBelegdatumNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.BelegdatumColumn)
End Function
_
Public Sub SetBelegdatumNull()
Me(Me.tableVWCUST_RPTPM_UNION.BelegdatumColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsFG_EmailNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.FG_EmailColumn)
End Function
_
Public Sub SetFG_EmailNull()
Me(Me.tableVWCUST_RPTPM_UNION.FG_EmailColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsFG_FreigabeNull() As Boolean
Return Me.IsNull(Me.tableVWCUST_RPTPM_UNION.FG_FreigabeColumn)
End Function