'------------------------------------------------------------------------------
'
' 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 tableTbmy_ImpDM_Konta As Tbmy_ImpDM_KontaDataTable
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
If (Not (ds.Tables("Tbmy_ImpDM_Konta")) Is Nothing) Then
MyBase.Tables.Add(New Tbmy_ImpDM_KontaDataTable(ds.Tables("Tbmy_ImpDM_Konta")))
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 ReadOnly Property Tbmy_ImpDM_Konta() As Tbmy_ImpDM_KontaDataTable
Get
Return Me.tableTbmy_ImpDM_Konta
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
If (Not (ds.Tables("Tbmy_ImpDM_Konta")) Is Nothing) Then
MyBase.Tables.Add(New Tbmy_ImpDM_KontaDataTable(ds.Tables("Tbmy_ImpDM_Konta")))
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
Me.tableTbmy_ImpDM_Konta = CType(MyBase.Tables("Tbmy_ImpDM_Konta"),Tbmy_ImpDM_KontaDataTable)
If (initTable = true) Then
If (Not (Me.tableTbmy_ImpDM_Konta) Is Nothing) Then
Me.tableTbmy_ImpDM_Konta.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)
Me.tableTbmy_ImpDM_Konta = New Tbmy_ImpDM_KontaDataTable()
MyBase.Tables.Add(Me.tableTbmy_ImpDM_Konta)
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 Function ShouldSerializeTbmy_ImpDM_Konta() 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)
_
Public Delegate Sub Tbmy_ImpDM_KontaRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_KontaRowChangeEvent)
'''
'''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
Private columnMagazyn As Global.System.Data.DataColumn
Private columnKontrahent As Global.System.Data.DataColumn
Private columnOpis As Global.System.Data.DataColumn
Private columnDokKoryg 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 MagazynColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMagazyn
End Get
End Property
_
Public ReadOnly Property KontrahentColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKontrahent
End Get
End Property
_
Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOpis
End Get
End Property
_
Public ReadOnly Property DokKorygColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDokKoryg
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 Dekret As Integer, _
ByVal DZK_Dziennik As String, _
ByVal DataImportu As Date, _
ByVal DZK_Opis As String, _
ByVal SumaCT As Decimal, _
ByVal SumaDT As Decimal, _
ByVal Magazyn As String, _
ByVal Kontrahent As String, _
ByVal Opis As String, _
ByVal DokKoryg As String) 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, Dekret, DZK_Dziennik, DataImportu, DZK_Opis, SumaCT, SumaDT, Magazyn, Kontrahent, Opis, DokKoryg}
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")
Me.columnMagazyn = MyBase.Columns("Magazyn")
Me.columnKontrahent = MyBase.Columns("Kontrahent")
Me.columnOpis = MyBase.Columns("Opis")
Me.columnDokKoryg = MyBase.Columns("DokKoryg")
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.columnMagazyn = New Global.System.Data.DataColumn("Magazyn", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMagazyn)
Me.columnKontrahent = New Global.System.Data.DataColumn("Kontrahent", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnKontrahent)
Me.columnOpis = New Global.System.Data.DataColumn("Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOpis)
Me.columnDokKoryg = New Global.System.Data.DataColumn("DokKoryg", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDokKoryg)
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.columnLp.DefaultValue = CType(0,Long)
Me.columnDokument.ReadOnly = true
Me.columnDokument.MaxLength = 255
Me.columnRokMiesiac.ReadOnly = true
Me.columnRokMiesiac.DefaultValue = CType(200001,Integer)
Me.columnDataWyst.ReadOnly = true
Me.columnDataOper.ReadOnly = true
Me.columnDokZr.ReadOnly = true
Me.columnDokZr.MaxLength = 40
Me.columnDekret.AutoIncrementSeed = -1
Me.columnDekret.AutoIncrementStep = -1
Me.columnDekret.AllowDBNull = false
Me.columnDekret.ReadOnly = true
Me.columnDZK_Dziennik.ReadOnly = true
Me.columnDZK_Dziennik.MaxLength = 5
Me.columnDataImportu.ReadOnly = true
Me.columnDZK_Opis.ReadOnly = true
Me.columnDZK_Opis.MaxLength = 255
Me.columnSumaCT.ReadOnly = true
Me.columnSumaDT.ReadOnly = true
Me.columnMagazyn.ReadOnly = true
Me.columnMagazyn.MaxLength = 30
Me.columnKontrahent.ReadOnly = true
Me.columnKontrahent.MaxLength = 255
Me.columnOpis.ReadOnly = true
Me.columnOpis.MaxLength = 255
Me.columnDokKoryg.ReadOnly = true
Me.columnDokKoryg.MaxLength = 40
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 the strongly named DataTable class.
'''
_
Partial Public Class Tbmy_ImpDM_KontaDataTable
Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_KontaRow)
Private columnKonto As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Tbmy_ImpDM_Konta"
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 KontoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnKonto
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_KontaRow
Get
Return CType(Me.Rows(index),Tbmy_ImpDM_KontaRow)
End Get
End Property
_
Public Event Tbmy_ImpDM_KontaRowChanging As Tbmy_ImpDM_KontaRowChangeEventHandler
_
Public Event Tbmy_ImpDM_KontaRowChanged As Tbmy_ImpDM_KontaRowChangeEventHandler
_
Public Event Tbmy_ImpDM_KontaRowDeleting As Tbmy_ImpDM_KontaRowChangeEventHandler
_
Public Event Tbmy_ImpDM_KontaRowDeleted As Tbmy_ImpDM_KontaRowChangeEventHandler
_
Public Overloads Sub AddTbmy_ImpDM_KontaRow(ByVal row As Tbmy_ImpDM_KontaRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTbmy_ImpDM_KontaRow(ByVal Konto As String) As Tbmy_ImpDM_KontaRow
Dim rowTbmy_ImpDM_KontaRow As Tbmy_ImpDM_KontaRow = CType(Me.NewRow,Tbmy_ImpDM_KontaRow)
Dim columnValuesArray() As Object = New Object() {Konto}
rowTbmy_ImpDM_KontaRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTbmy_ImpDM_KontaRow)
Return rowTbmy_ImpDM_KontaRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As Tbmy_ImpDM_KontaDataTable = CType(MyBase.Clone,Tbmy_ImpDM_KontaDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New Tbmy_ImpDM_KontaDataTable()
End Function
_
Friend Sub InitVars()
Me.columnKonto = MyBase.Columns("Konto")
End Sub
_
Private Sub InitClass()
Me.columnKonto = New Global.System.Data.DataColumn("Konto", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnKonto)
Me.columnKonto.MaxLength = 30
End Sub
_
Public Function NewTbmy_ImpDM_KontaRow() As Tbmy_ImpDM_KontaRow
Return CType(Me.NewRow,Tbmy_ImpDM_KontaRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New Tbmy_ImpDM_KontaRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(Tbmy_ImpDM_KontaRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.Tbmy_ImpDM_KontaRowChangedEvent) Is Nothing) Then
RaiseEvent Tbmy_ImpDM_KontaRowChanged(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), 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_KontaRowChangingEvent) Is Nothing) Then
RaiseEvent Tbmy_ImpDM_KontaRowChanging(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), 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_KontaRowDeletedEvent) Is Nothing) Then
RaiseEvent Tbmy_ImpDM_KontaRowDeleted(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), 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_KontaRowDeletingEvent) Is Nothing) Then
RaiseEvent Tbmy_ImpDM_KontaRowDeleting(Me, New Tbmy_ImpDM_KontaRowChangeEvent(CType(e.Row,Tbmy_ImpDM_KontaRow), e.Action))
End If
End Sub
_
Public Sub RemoveTbmy_ImpDM_KontaRow(ByVal row As Tbmy_ImpDM_KontaRow)
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_KontaDataTable"
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
If Me.IsDokumentNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.DokumentColumn),String)
End If
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
If Me.IsDokZrNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.DokZrColumn),String)
End If
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
If Me.IsDZK_DziennikNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.DZK_DziennikColumn),String)
End If
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
If Me.IsDZK_OpisNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.DZK_OpisColumn),String)
End If
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 Property Magazyn() As String
Get
If Me.IsMagazynNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.MagazynColumn),String)
End If
End Get
Set
Me(Me.tableTbmy_ImpDM_Src.MagazynColumn) = value
End Set
End Property
_
Public Property Kontrahent() As String
Get
If Me.IsKontrahentNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.KontrahentColumn),String)
End If
End Get
Set
Me(Me.tableTbmy_ImpDM_Src.KontrahentColumn) = value
End Set
End Property
_
Public Property Opis() As String
Get
If Me.IsOpisNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.OpisColumn),String)
End If
End Get
Set
Me(Me.tableTbmy_ImpDM_Src.OpisColumn) = value
End Set
End Property
_
Public Property DokKoryg() As String
Get
If Me.IsDokKorygNull Then
Return Nothing
Else
Return CType(Me(Me.tableTbmy_ImpDM_Src.DokKorygColumn),String)
End If
End Get
Set
Me(Me.tableTbmy_ImpDM_Src.DokKorygColumn) = 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
_
Public Function IsMagazynNull() As Boolean
Return Me.IsNull(Me.tableTbmy_ImpDM_Src.MagazynColumn)
End Function
_
Public Sub SetMagazynNull()
Me(Me.tableTbmy_ImpDM_Src.MagazynColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsKontrahentNull() As Boolean
Return Me.IsNull(Me.tableTbmy_ImpDM_Src.KontrahentColumn)
End Function
_
Public Sub SetKontrahentNull()
Me(Me.tableTbmy_ImpDM_Src.KontrahentColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsOpisNull() As Boolean
Return Me.IsNull(Me.tableTbmy_ImpDM_Src.OpisColumn)
End Function
_
Public Sub SetOpisNull()
Me(Me.tableTbmy_ImpDM_Src.OpisColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDokKorygNull() As Boolean
Return Me.IsNull(Me.tableTbmy_ImpDM_Src.DokKorygColumn)
End Function
_
Public Sub SetDokKorygNull()
Me(Me.tableTbmy_ImpDM_Src.DokKorygColumn) = 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
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class Tbmy_ImpDM_KontaRow
Inherits Global.System.Data.DataRow
Private tableTbmy_ImpDM_Konta As Tbmy_ImpDM_KontaDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTbmy_ImpDM_Konta = CType(Me.Table,Tbmy_ImpDM_KontaDataTable)
End Sub
_
Public Property Konto() As String
Get
Try
Return CType(Me(Me.tableTbmy_ImpDM_Konta.KontoColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Wartość z kolumny 'Konto' w tabeli 'Tbmy_ImpDM_Konta' to DBNull.", e)
End Try
End Get
Set
Me(Me.tableTbmy_ImpDM_Konta.KontoColumn) = value
End Set
End Property
_
Public Function IsKontoNull() As Boolean
Return Me.IsNull(Me.tableTbmy_ImpDM_Konta.KontoColumn)
End Function
_
Public Sub SetKontoNull()
Me(Me.tableTbmy_ImpDM_Konta.KontoColumn) = 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
'''
'''Row event argument class
'''
_
Public Class Tbmy_ImpDM_KontaRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As Tbmy_ImpDM_KontaRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As Tbmy_ImpDM_KontaRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As Tbmy_ImpDM_KontaRow
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")
tableMapping.ColumnMappings.Add("Magazyn", "Magazyn")
tableMapping.ColumnMappings.Add("Kontrahent", "Kontrahent")
tableMapping.ColumnMappings.Add("Opis", "Opis")
tableMapping.ColumnMappings.Add("DokKoryg", "DokKoryg")
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, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Konto", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Import", 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), ByVal Konto As String, ByVal Import 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 (Konto Is Nothing) Then
Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.SelectCommand.Parameters(7).Value = CType(Konto,String)
End If
If (Import.HasValue = true) Then
Me.Adapter.SelectCommand.Parameters(8).Value = CType(Import.Value,Integer)
Else
Me.Adapter.SelectCommand.Parameters(8).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), ByVal Konto As String, ByVal Import 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
If (Konto Is Nothing) Then
Me.Adapter.SelectCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.SelectCommand.Parameters(7).Value = CType(Konto,String)
End If
If (Import.HasValue = true) Then
Me.Adapter.SelectCommand.Parameters(8).Value = CType(Import.Value,Integer)
Else
Me.Adapter.SelectCommand.Parameters(8).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
'''
'''Represents the connection and commands used to retrieve and save data.
'''
_
Partial Public Class Tamy_ImpDM_Konta
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