'------------------------------------------------------------------------------ ' ' Ten kod został wygenerowany przez narzędzie. ' Wersja wykonawcza:4.0.30319.42000 ' ' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli ' kod zostanie ponownie wygenerowany. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class DsMain Inherits Global.System.Data.DataSet Private tableTbmy_ImpDM_Src As Tbmy_ImpDM_SrcDataTable Private tableTbmy_ImpDM_Dekr As Tbmy_ImpDM_DekrDataTable 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("Tbmy_ImpDM_Src")) Is Nothing) Then MyBase.Tables.Add(New Tbmy_ImpDM_SrcDataTable(ds.Tables("Tbmy_ImpDM_Src"))) End If If (Not (ds.Tables("Tbmy_ImpDM_Dekr")) Is Nothing) Then MyBase.Tables.Add(New Tbmy_ImpDM_DekrDataTable(ds.Tables("Tbmy_ImpDM_Dekr"))) 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 Tbmy_ImpDM_Src() As Tbmy_ImpDM_SrcDataTable Get Return Me.tableTbmy_ImpDM_Src End Get End Property _ Public ReadOnly Property Tbmy_ImpDM_Dekr() As Tbmy_ImpDM_DekrDataTable Get Return Me.tableTbmy_ImpDM_Dekr 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 DsMain = CType(MyBase.Clone,DsMain) 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("Tbmy_ImpDM_Src")) Is Nothing) Then MyBase.Tables.Add(New Tbmy_ImpDM_SrcDataTable(ds.Tables("Tbmy_ImpDM_Src"))) End If If (Not (ds.Tables("Tbmy_ImpDM_Dekr")) Is Nothing) Then MyBase.Tables.Add(New Tbmy_ImpDM_DekrDataTable(ds.Tables("Tbmy_ImpDM_Dekr"))) 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.tableTbmy_ImpDM_Src = CType(MyBase.Tables("Tbmy_ImpDM_Src"),Tbmy_ImpDM_SrcDataTable) If (initTable = true) Then If (Not (Me.tableTbmy_ImpDM_Src) Is Nothing) Then Me.tableTbmy_ImpDM_Src.InitVars End If End If Me.tableTbmy_ImpDM_Dekr = CType(MyBase.Tables("Tbmy_ImpDM_Dekr"),Tbmy_ImpDM_DekrDataTable) If (initTable = true) Then If (Not (Me.tableTbmy_ImpDM_Dekr) Is Nothing) Then Me.tableTbmy_ImpDM_Dekr.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "DsMain" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DsMain.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTbmy_ImpDM_Src = New Tbmy_ImpDM_SrcDataTable() MyBase.Tables.Add(Me.tableTbmy_ImpDM_Src) Me.tableTbmy_ImpDM_Dekr = New Tbmy_ImpDM_DekrDataTable() MyBase.Tables.Add(Me.tableTbmy_ImpDM_Dekr) End Sub _ Private Function ShouldSerializeTbmy_ImpDM_Src() As Boolean Return false End Function _ Private Function ShouldSerializeTbmy_ImpDM_Dekr() 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 DsMain = New DsMain() 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 Tbmy_ImpDM_SrcRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_SrcRowChangeEvent) _ Public Delegate Sub Tbmy_ImpDM_DekrRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_DekrRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class Tbmy_ImpDM_SrcDataTable Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_SrcRow) Private columnLp As Global.System.Data.DataColumn Private columnDokument As Global.System.Data.DataColumn Private columnRokMiesiac As Global.System.Data.DataColumn Private columnDataWyst As Global.System.Data.DataColumn Private columnDataOper As Global.System.Data.DataColumn Private columnDokZr As Global.System.Data.DataColumn Private columnDekret As Global.System.Data.DataColumn Private columnDZK_Dziennik As Global.System.Data.DataColumn Private columnDataImportu As Global.System.Data.DataColumn Private columnDZK_Opis As Global.System.Data.DataColumn Private columnSumaCT As Global.System.Data.DataColumn Private columnSumaDT As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Tbmy_ImpDM_Src" 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 LpColumn() As Global.System.Data.DataColumn Get Return Me.columnLp End Get End Property _ Public ReadOnly Property DokumentColumn() As Global.System.Data.DataColumn Get Return Me.columnDokument End Get End Property _ Public ReadOnly Property RokMiesiacColumn() As Global.System.Data.DataColumn Get Return Me.columnRokMiesiac End Get End Property _ Public ReadOnly Property DataWystColumn() As Global.System.Data.DataColumn Get Return Me.columnDataWyst End Get End Property _ Public ReadOnly Property DataOperColumn() As Global.System.Data.DataColumn Get Return Me.columnDataOper End Get End Property _ Public ReadOnly Property DokZrColumn() As Global.System.Data.DataColumn Get Return Me.columnDokZr End Get End Property _ Public ReadOnly Property DekretColumn() As Global.System.Data.DataColumn Get Return Me.columnDekret End Get End Property _ Public ReadOnly Property DZK_DziennikColumn() As Global.System.Data.DataColumn Get Return Me.columnDZK_Dziennik End Get End Property _ Public ReadOnly Property DataImportuColumn() As Global.System.Data.DataColumn Get Return Me.columnDataImportu End Get End Property _ Public ReadOnly Property DZK_OpisColumn() As Global.System.Data.DataColumn Get Return Me.columnDZK_Opis End Get End Property _ Public ReadOnly Property SumaCTColumn() As Global.System.Data.DataColumn Get Return Me.columnSumaCT End Get End Property _ Public ReadOnly Property SumaDTColumn() As Global.System.Data.DataColumn Get Return Me.columnSumaDT 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 Tbmy_ImpDM_SrcRow Get Return CType(Me.Rows(index),Tbmy_ImpDM_SrcRow) End Get End Property _ Public Event Tbmy_ImpDM_SrcRowChanging As Tbmy_ImpDM_SrcRowChangeEventHandler _ Public Event Tbmy_ImpDM_SrcRowChanged As Tbmy_ImpDM_SrcRowChangeEventHandler _ Public Event Tbmy_ImpDM_SrcRowDeleting As Tbmy_ImpDM_SrcRowChangeEventHandler _ Public Event Tbmy_ImpDM_SrcRowDeleted As Tbmy_ImpDM_SrcRowChangeEventHandler _ Public Overloads Sub AddTbmy_ImpDM_SrcRow(ByVal row As Tbmy_ImpDM_SrcRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTbmy_ImpDM_SrcRow(ByVal Lp As Long, ByVal Dokument As String, ByVal RokMiesiac As Integer, ByVal DataWyst As Date, ByVal DataOper As Date, ByVal DokZr As String, ByVal DZK_Dziennik As String, ByVal DataImportu As Date, ByVal DZK_Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Tbmy_ImpDM_SrcRow Dim rowTbmy_ImpDM_SrcRow As Tbmy_ImpDM_SrcRow = CType(Me.NewRow,Tbmy_ImpDM_SrcRow) Dim columnValuesArray() As Object = New Object() {Lp, Dokument, RokMiesiac, DataWyst, DataOper, DokZr, Nothing, DZK_Dziennik, DataImportu, DZK_Opis, SumaCT, SumaDT} rowTbmy_ImpDM_SrcRow.ItemArray = columnValuesArray Me.Rows.Add(rowTbmy_ImpDM_SrcRow) Return rowTbmy_ImpDM_SrcRow End Function _ Public Function FindByLp(ByVal Lp As Long) As Tbmy_ImpDM_SrcRow Return CType(Me.Rows.Find(New Object() {Lp}),Tbmy_ImpDM_SrcRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Tbmy_ImpDM_SrcDataTable = CType(MyBase.Clone,Tbmy_ImpDM_SrcDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Tbmy_ImpDM_SrcDataTable() End Function _ Friend Sub InitVars() Me.columnLp = MyBase.Columns("Lp") Me.columnDokument = MyBase.Columns("Dokument") Me.columnRokMiesiac = MyBase.Columns("RokMiesiac") Me.columnDataWyst = MyBase.Columns("DataWyst") Me.columnDataOper = MyBase.Columns("DataOper") Me.columnDokZr = MyBase.Columns("DokZr") Me.columnDekret = MyBase.Columns("Dekret") Me.columnDZK_Dziennik = MyBase.Columns("DZK_Dziennik") Me.columnDataImportu = MyBase.Columns("DataImportu") Me.columnDZK_Opis = MyBase.Columns("DZK_Opis") Me.columnSumaCT = MyBase.Columns("SumaCT") Me.columnSumaDT = MyBase.Columns("SumaDT") End Sub _ Private Sub InitClass() Me.columnLp = New Global.System.Data.DataColumn("Lp", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLp) Me.columnDokument = New Global.System.Data.DataColumn("Dokument", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokument) Me.columnRokMiesiac = New Global.System.Data.DataColumn("RokMiesiac", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRokMiesiac) Me.columnDataWyst = New Global.System.Data.DataColumn("DataWyst", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDataWyst) Me.columnDataOper = New Global.System.Data.DataColumn("DataOper", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDataOper) Me.columnDokZr = New Global.System.Data.DataColumn("DokZr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokZr) Me.columnDekret = New Global.System.Data.DataColumn("Dekret", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDekret) Me.columnDZK_Dziennik = New Global.System.Data.DataColumn("DZK_Dziennik", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDZK_Dziennik) Me.columnDataImportu = New Global.System.Data.DataColumn("DataImportu", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDataImportu) Me.columnDZK_Opis = New Global.System.Data.DataColumn("DZK_Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDZK_Opis) Me.columnSumaCT = New Global.System.Data.DataColumn("SumaCT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSumaCT) Me.columnSumaDT = New Global.System.Data.DataColumn("SumaDT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSumaDT) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLp}, true)) Me.columnLp.AllowDBNull = false Me.columnLp.ReadOnly = true Me.columnLp.Unique = true Me.columnDokument.MaxLength = 255 Me.columnDataWyst.ReadOnly = true Me.columnDataOper.ReadOnly = true Me.columnDokZr.MaxLength = 40 Me.columnDekret.AutoIncrement = true Me.columnDekret.AutoIncrementSeed = -1 Me.columnDekret.AutoIncrementStep = -1 Me.columnDekret.AllowDBNull = false Me.columnDekret.ReadOnly = true Me.columnDZK_Dziennik.MaxLength = 5 Me.columnDataImportu.ReadOnly = true Me.columnDZK_Opis.MaxLength = 80 Me.columnSumaCT.ReadOnly = true Me.columnSumaDT.ReadOnly = true End Sub _ Public Function NewTbmy_ImpDM_SrcRow() As Tbmy_ImpDM_SrcRow Return CType(Me.NewRow,Tbmy_ImpDM_SrcRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Tbmy_ImpDM_SrcRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Tbmy_ImpDM_SrcRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Tbmy_ImpDM_SrcRowChangedEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_SrcRowChanged(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Tbmy_ImpDM_SrcRowChangingEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_SrcRowChanging(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Tbmy_ImpDM_SrcRowDeletedEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_SrcRowDeleted(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Tbmy_ImpDM_SrcRowDeletingEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_SrcRowDeleting(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action)) End If End Sub _ Public Sub RemoveTbmy_ImpDM_SrcRow(ByVal row As Tbmy_ImpDM_SrcRow) 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 DsMain = New DsMain() 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 = "Tbmy_ImpDM_SrcDataTable" 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 Tbmy_ImpDM_DekrDataTable Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_DekrRow) Private columnLp As Global.System.Data.DataColumn Private columnDZK_Opis As Global.System.Data.DataColumn Private columnData As Global.System.Data.DataColumn Private columnDataDokumentu As Global.System.Data.DataColumn Private columnKwota As Global.System.Data.DataColumn Private columnDokZr As Global.System.Data.DataColumn Private columnKontoDebet As Global.System.Data.DataColumn Private columnKontoCredit As Global.System.Data.DataColumn Private columnIdentyfikator As Global.System.Data.DataColumn Private columnOpis As Global.System.Data.DataColumn Private columnDataImportu As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Tbmy_ImpDM_Dekr" 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 LpColumn() As Global.System.Data.DataColumn Get Return Me.columnLp End Get End Property _ Public ReadOnly Property DZK_OpisColumn() As Global.System.Data.DataColumn Get Return Me.columnDZK_Opis End Get End Property _ Public ReadOnly Property DataColumn() As Global.System.Data.DataColumn Get Return Me.columnData End Get End Property _ Public ReadOnly Property DataDokumentuColumn() As Global.System.Data.DataColumn Get Return Me.columnDataDokumentu End Get End Property _ Public ReadOnly Property KwotaColumn() As Global.System.Data.DataColumn Get Return Me.columnKwota End Get End Property _ Public ReadOnly Property DokZrColumn() As Global.System.Data.DataColumn Get Return Me.columnDokZr End Get End Property _ Public ReadOnly Property KontoDebetColumn() As Global.System.Data.DataColumn Get Return Me.columnKontoDebet End Get End Property _ Public ReadOnly Property KontoCreditColumn() As Global.System.Data.DataColumn Get Return Me.columnKontoCredit End Get End Property _ Public ReadOnly Property IdentyfikatorColumn() As Global.System.Data.DataColumn Get Return Me.columnIdentyfikator End Get End Property _ Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn Get Return Me.columnOpis End Get End Property _ Public ReadOnly Property DataImportuColumn() As Global.System.Data.DataColumn Get Return Me.columnDataImportu 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 Tbmy_ImpDM_DekrRow Get Return CType(Me.Rows(index),Tbmy_ImpDM_DekrRow) End Get End Property _ Public Event Tbmy_ImpDM_DekrRowChanging As Tbmy_ImpDM_DekrRowChangeEventHandler _ Public Event Tbmy_ImpDM_DekrRowChanged As Tbmy_ImpDM_DekrRowChangeEventHandler _ Public Event Tbmy_ImpDM_DekrRowDeleting As Tbmy_ImpDM_DekrRowChangeEventHandler _ Public Event Tbmy_ImpDM_DekrRowDeleted As Tbmy_ImpDM_DekrRowChangeEventHandler _ Public Overloads Sub AddTbmy_ImpDM_DekrRow(ByVal row As Tbmy_ImpDM_DekrRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTbmy_ImpDM_DekrRow(ByVal Lp As Long, ByVal DZK_Opis As String, ByVal Data As Integer, ByVal DataDokumentu As Integer, ByVal Kwota As Decimal, ByVal DokZr As String, ByVal KontoDebet As String, ByVal KontoCredit As String, ByVal Identyfikator As String, ByVal Opis As String, ByVal DataImportu As Date) As Tbmy_ImpDM_DekrRow Dim rowTbmy_ImpDM_DekrRow As Tbmy_ImpDM_DekrRow = CType(Me.NewRow,Tbmy_ImpDM_DekrRow) Dim columnValuesArray() As Object = New Object() {Lp, DZK_Opis, Data, DataDokumentu, Kwota, DokZr, KontoDebet, KontoCredit, Identyfikator, Opis, DataImportu} rowTbmy_ImpDM_DekrRow.ItemArray = columnValuesArray Me.Rows.Add(rowTbmy_ImpDM_DekrRow) Return rowTbmy_ImpDM_DekrRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Tbmy_ImpDM_DekrDataTable = CType(MyBase.Clone,Tbmy_ImpDM_DekrDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Tbmy_ImpDM_DekrDataTable() End Function _ Friend Sub InitVars() Me.columnLp = MyBase.Columns("Lp") Me.columnDZK_Opis = MyBase.Columns("DZK_Opis") Me.columnData = MyBase.Columns("Data") Me.columnDataDokumentu = MyBase.Columns("DataDokumentu") Me.columnKwota = MyBase.Columns("Kwota") Me.columnDokZr = MyBase.Columns("DokZr") Me.columnKontoDebet = MyBase.Columns("KontoDebet") Me.columnKontoCredit = MyBase.Columns("KontoCredit") Me.columnIdentyfikator = MyBase.Columns("Identyfikator") Me.columnOpis = MyBase.Columns("Opis") Me.columnDataImportu = MyBase.Columns("DataImportu") End Sub _ Private Sub InitClass() Me.columnLp = New Global.System.Data.DataColumn("Lp", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLp) Me.columnDZK_Opis = New Global.System.Data.DataColumn("DZK_Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDZK_Opis) Me.columnData = New Global.System.Data.DataColumn("Data", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnData) Me.columnDataDokumentu = New Global.System.Data.DataColumn("DataDokumentu", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDataDokumentu) Me.columnKwota = New Global.System.Data.DataColumn("Kwota", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKwota) Me.columnDokZr = New Global.System.Data.DataColumn("DokZr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDokZr) Me.columnKontoDebet = New Global.System.Data.DataColumn("KontoDebet", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontoDebet) Me.columnKontoCredit = New Global.System.Data.DataColumn("KontoCredit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKontoCredit) Me.columnIdentyfikator = New Global.System.Data.DataColumn("Identyfikator", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIdentyfikator) Me.columnOpis = New Global.System.Data.DataColumn("Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOpis) Me.columnDataImportu = New Global.System.Data.DataColumn("DataImportu", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDataImportu) Me.columnLp.ReadOnly = true Me.columnDZK_Opis.MaxLength = 80 Me.columnKwota.ReadOnly = true Me.columnDokZr.MaxLength = 40 Me.columnKontoDebet.MaxLength = 50 Me.columnKontoCredit.MaxLength = 50 Me.columnIdentyfikator.MaxLength = 80 Me.columnOpis.MaxLength = 80 Me.columnDataImportu.ReadOnly = true End Sub _ Public Function NewTbmy_ImpDM_DekrRow() As Tbmy_ImpDM_DekrRow Return CType(Me.NewRow,Tbmy_ImpDM_DekrRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Tbmy_ImpDM_DekrRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Tbmy_ImpDM_DekrRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Tbmy_ImpDM_DekrRowChangedEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_DekrRowChanged(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Tbmy_ImpDM_DekrRowChangingEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_DekrRowChanging(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Tbmy_ImpDM_DekrRowDeletedEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_DekrRowDeleted(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Tbmy_ImpDM_DekrRowDeletingEvent) Is Nothing) Then RaiseEvent Tbmy_ImpDM_DekrRowDeleting(Me, New Tbmy_ImpDM_DekrRowChangeEvent(CType(e.Row,Tbmy_ImpDM_DekrRow), e.Action)) End If End Sub _ Public Sub RemoveTbmy_ImpDM_DekrRow(ByVal row As Tbmy_ImpDM_DekrRow) 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 DsMain = New DsMain() 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 = "Tbmy_ImpDM_DekrDataTable" 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 Tbmy_ImpDM_SrcRow Inherits Global.System.Data.DataRow Private tableTbmy_ImpDM_Src As Tbmy_ImpDM_SrcDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTbmy_ImpDM_Src = CType(Me.Table,Tbmy_ImpDM_SrcDataTable) End Sub _ Public Property Lp() As Long Get Return CType(Me(Me.tableTbmy_ImpDM_Src.LpColumn),Long) End Get Set Me(Me.tableTbmy_ImpDM_Src.LpColumn) = value End Set End Property _ Public Property Dokument() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DokumentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Dokument' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DokumentColumn) = value End Set End Property _ Public Property RokMiesiac() As Integer Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'RokMiesiac' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn) = value End Set End Property _ Public Property DataWyst() As Date Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DataWystColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataWyst' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DataWystColumn) = value End Set End Property _ Public Property DataOper() As Date Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DataOperColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataOper' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DataOperColumn) = value End Set End Property _ Public Property DokZr() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DokZrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DokZr' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DokZrColumn) = value End Set End Property _ Public Property Dekret() As Integer Get Return CType(Me(Me.tableTbmy_ImpDM_Src.DekretColumn),Integer) End Get Set Me(Me.tableTbmy_ImpDM_Src.DekretColumn) = value End Set End Property _ Public Property DZK_Dziennik() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DZK_Dziennik' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn) = value End Set End Property _ Public Property DataImportu() As Date Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DataImportuColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataImportu' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DataImportuColumn) = value End Set End Property _ Public Property DZK_Opis() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DZK_Opis' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn) = value End Set End Property _ Public Property SumaCT() As Decimal Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.SumaCTColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'SumaCT' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.SumaCTColumn) = value End Set End Property _ Public Property SumaDT() As Decimal Get Try Return CType(Me(Me.tableTbmy_ImpDM_Src.SumaDTColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'SumaDT' w tabeli 'Tbmy_ImpDM_Src' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Src.SumaDTColumn) = value End Set End Property _ Public Function IsDokumentNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DokumentColumn) End Function _ Public Sub SetDokumentNull() Me(Me.tableTbmy_ImpDM_Src.DokumentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRokMiesiacNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn) End Function _ Public Sub SetRokMiesiacNull() Me(Me.tableTbmy_ImpDM_Src.RokMiesiacColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDataWystNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DataWystColumn) End Function _ Public Sub SetDataWystNull() Me(Me.tableTbmy_ImpDM_Src.DataWystColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDataOperNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DataOperColumn) End Function _ Public Sub SetDataOperNull() Me(Me.tableTbmy_ImpDM_Src.DataOperColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokZrNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DokZrColumn) End Function _ Public Sub SetDokZrNull() Me(Me.tableTbmy_ImpDM_Src.DokZrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDZK_DziennikNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn) End Function _ Public Sub SetDZK_DziennikNull() Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDataImportuNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DataImportuColumn) End Function _ Public Sub SetDataImportuNull() Me(Me.tableTbmy_ImpDM_Src.DataImportuColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDZK_OpisNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn) End Function _ Public Sub SetDZK_OpisNull() Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSumaCTNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.SumaCTColumn) End Function _ Public Sub SetSumaCTNull() Me(Me.tableTbmy_ImpDM_Src.SumaCTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSumaDTNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Src.SumaDTColumn) End Function _ Public Sub SetSumaDTNull() Me(Me.tableTbmy_ImpDM_Src.SumaDTColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Tbmy_ImpDM_DekrRow Inherits Global.System.Data.DataRow Private tableTbmy_ImpDM_Dekr As Tbmy_ImpDM_DekrDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTbmy_ImpDM_Dekr = CType(Me.Table,Tbmy_ImpDM_DekrDataTable) End Sub _ Public Property Lp() As Long Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.LpColumn),Long) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Lp' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.LpColumn) = value End Set End Property _ Public Property DZK_Opis() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DZK_Opis' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn) = value End Set End Property _ Public Property Data() As Integer Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DataColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Data' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.DataColumn) = value End Set End Property _ Public Property DataDokumentu() As Integer Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataDokumentu' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn) = value End Set End Property _ Public Property Kwota() As Decimal Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.KwotaColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Kwota' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.KwotaColumn) = value End Set End Property _ Public Property DokZr() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DokZrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DokZr' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.DokZrColumn) = value End Set End Property _ Public Property KontoDebet() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'KontoDebet' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn) = value End Set End Property _ Public Property KontoCredit() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'KontoCredit' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn) = value End Set End Property _ Public Property Identyfikator() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Identyfikator' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn) = value End Set End Property _ Public Property Opis() As String Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.OpisColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Opis' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.OpisColumn) = value End Set End Property _ Public Property DataImportu() As Date Get Try Return CType(Me(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'DataImportu' w tabeli 'Tbmy_ImpDM_Dekr' to DBNull.", e) End Try End Get Set Me(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn) = value End Set End Property _ Public Function IsLpNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.LpColumn) End Function _ Public Sub SetLpNull() Me(Me.tableTbmy_ImpDM_Dekr.LpColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDZK_OpisNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn) End Function _ Public Sub SetDZK_OpisNull() Me(Me.tableTbmy_ImpDM_Dekr.DZK_OpisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDataNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DataColumn) End Function _ Public Sub SetDataNull() Me(Me.tableTbmy_ImpDM_Dekr.DataColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDataDokumentuNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn) End Function _ Public Sub SetDataDokumentuNull() Me(Me.tableTbmy_ImpDM_Dekr.DataDokumentuColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKwotaNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.KwotaColumn) End Function _ Public Sub SetKwotaNull() Me(Me.tableTbmy_ImpDM_Dekr.KwotaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDokZrNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DokZrColumn) End Function _ Public Sub SetDokZrNull() Me(Me.tableTbmy_ImpDM_Dekr.DokZrColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKontoDebetNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn) End Function _ Public Sub SetKontoDebetNull() Me(Me.tableTbmy_ImpDM_Dekr.KontoDebetColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsKontoCreditNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn) End Function _ Public Sub SetKontoCreditNull() Me(Me.tableTbmy_ImpDM_Dekr.KontoCreditColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIdentyfikatorNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn) End Function _ Public Sub SetIdentyfikatorNull() Me(Me.tableTbmy_ImpDM_Dekr.IdentyfikatorColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsOpisNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.OpisColumn) End Function _ Public Sub SetOpisNull() Me(Me.tableTbmy_ImpDM_Dekr.OpisColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDataImportuNull() As Boolean Return Me.IsNull(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn) End Function _ Public Sub SetDataImportuNull() Me(Me.tableTbmy_ImpDM_Dekr.DataImportuColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class Tbmy_ImpDM_SrcRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Tbmy_ImpDM_SrcRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Tbmy_ImpDM_SrcRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Tbmy_ImpDM_SrcRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Tbmy_ImpDM_DekrRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Tbmy_ImpDM_DekrRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Tbmy_ImpDM_DekrRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Tbmy_ImpDM_DekrRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace DsMainTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Tamy_ImpDM_Src 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ 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 _ 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 _ 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 _ 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 _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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 = "Tbmy_ImpDM_Src" tableMapping.ColumnMappings.Add("Lp", "Lp") tableMapping.ColumnMappings.Add("Dokument", "Dokument") tableMapping.ColumnMappings.Add("RokMiesiac", "RokMiesiac") tableMapping.ColumnMappings.Add("DataWyst", "DataWyst") tableMapping.ColumnMappings.Add("DataOper", "DataOper") tableMapping.ColumnMappings.Add("DokZr", "DokZr") tableMapping.ColumnMappings.Add("Dekret", "Dekret") tableMapping.ColumnMappings.Add("DZK_Dziennik", "DZK_Dziennik") tableMapping.ColumnMappings.Add("DataImportu", "DataImportu") tableMapping.ColumnMappings.Add("DZK_Opis", "DZK_Opis") tableMapping.ColumnMappings.Add("SumaCT", "SumaCT") tableMapping.ColumnMappings.Add("SumaDT", "SumaDT") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ImportDokMag.My.MySettings.Default.CS_Src End Sub _ 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 = "CDN.my_ImpDM_Src" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SP", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZAK", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WEW", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RM", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Rok", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Miesiac", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DsMain.Tbmy_ImpDM_SrcDataTable, ByVal SP As Global.System.Nullable(Of Integer), ByVal ZAK As Global.System.Nullable(Of Integer), ByVal WEW As Global.System.Nullable(Of Integer), ByVal RM As Global.System.Nullable(Of Integer), ByVal Rok As Global.System.Nullable(Of Integer), ByVal Miesiac As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (SP.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(SP.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (ZAK.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(ZAK.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (WEW.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(WEW.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (RM.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(RM.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rok.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Rok.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Miesiac.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(Miesiac.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal SP As Global.System.Nullable(Of Integer), ByVal ZAK As Global.System.Nullable(Of Integer), ByVal WEW As Global.System.Nullable(Of Integer), ByVal RM As Global.System.Nullable(Of Integer), ByVal Rok As Global.System.Nullable(Of Integer), ByVal Miesiac As Global.System.Nullable(Of Integer)) As DsMain.Tbmy_ImpDM_SrcDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (SP.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(SP.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (ZAK.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(2).Value = CType(ZAK.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (WEW.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(3).Value = CType(WEW.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (RM.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(4).Value = CType(RM.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Rok.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(5).Value = CType(Rok.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Miesiac.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(6).Value = CType(Miesiac.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(6).Value = Global.System.DBNull.Value End If Dim dataTable As DsMain.Tbmy_ImpDM_SrcDataTable = New DsMain.Tbmy_ImpDM_SrcDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Tamy_ImpDM_Dekr 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ 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 _ 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 _ 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 _ 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 _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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 = "Tbmy_ImpDM_Dekr" tableMapping.ColumnMappings.Add("Lp", "Lp") tableMapping.ColumnMappings.Add("DZK_Opis", "DZK_Opis") tableMapping.ColumnMappings.Add("Data", "Data") tableMapping.ColumnMappings.Add("DataDokumentu", "DataDokumentu") tableMapping.ColumnMappings.Add("Kwota", "Kwota") tableMapping.ColumnMappings.Add("DokZr", "DokZr") tableMapping.ColumnMappings.Add("KontoDebet", "KontoDebet") tableMapping.ColumnMappings.Add("KontoCredit", "KontoCredit") tableMapping.ColumnMappings.Add("Identyfikator", "Identyfikator") tableMapping.ColumnMappings.Add("Opis", "Opis") tableMapping.ColumnMappings.Add("DataImportu", "DataImportu") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ImportDokMag.My.MySettings.Default.CS_Src End Sub _ 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 = "CDN.my_ImpDM_Dekr" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.StoredProcedure Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DZKNr", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DsMain.Tbmy_ImpDM_DekrDataTable, ByVal DZKNr As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (DZKNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(DZKNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal DZKNr As Global.System.Nullable(Of Integer)) As DsMain.Tbmy_ImpDM_DekrDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (DZKNr.HasValue = true) Then Me.Adapter.SelectCommand.Parameters(1).Value = CType(DZKNr.Value,Integer) Else Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value End If Dim dataTable As DsMain.Tbmy_ImpDM_DekrDataTable = New DsMain.Tbmy_ImpDM_DekrDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As DsMain, 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 Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As DsMain, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As DsMain, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ 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 ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As DsMain) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = false) Then Return 0 End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("Obiekt TableAdapterManager nie zawiera informacji o połączeniu. Ustaw dla każdej "& _ "właściwości TableAdapter obiektu TableAdapterManager prawidłowe wystąpienie obie"& _ "ktu TableAdapter.") 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("Nie można rozpocząć transakcji. Bieżące połączenie danych nie obsługuje transakcj"& _ "i lub bieżący stan nie pozwala na rozpoczęcie transakcji.") 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 ----------- ' ' '---- 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 (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 _ 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 _ 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 ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ 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 _ 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 _ 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 _ 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